source:
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/config/ppsrc/dyn3d_common/initial0.f
@
224
Last change on this file since 224 was 224, checked in by ymipsl, 10 years ago | |
---|---|
File size: 173 bytes |
Line | |
---|---|
1 | ! |
2 | ! $Header$ |
3 | ! |
4 | SUBROUTINE initial0(n,x) |
5 | IMPLICIT NONE |
6 | INTEGER n,i |
7 | REAL x(n) |
8 | DO 10 i=1,n |
9 | x(i)=0. |
10 | 10 CONTINUE |
11 | RETURN |
12 | END |
Note: See TracBrowser
for help on using the repository browser.