source: LMDZ4/branches/V3_test/libf/dyn3dpar/initial0.F @ 5071

Last change on this file since 5071 was 709, checked in by Laurent Fairhead, 18 years ago

Nouvelles versions de la dynamique YM
LF
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 173 bytes
RevLine 
[630]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.
1010    CONTINUE
11      RETURN
12      END
Note: See TracBrowser for help on using the repository browser.