source: trunk/mars/libf/dyn3d/initial0.F @ 38

Last change on this file since 38 was 38, checked in by emillour, 14 years ago

Ajout du modè Martien (mon LMDZ.MARS.BETA, du 28/01/2011) dans le rértoire mars, pour pouvoir suivre plus facilement les modifs.
EM
File size: 158 bytes
RevLine 
[38]1      SUBROUTINE initial0(n,x)
2      IMPLICIT NONE
3      INTEGER n,i
4      REAL x(n)
5      DO 10 i=1,n
6         x(i)=0.
710    CONTINUE
8      RETURN
9      END
Note: See TracBrowser for help on using the repository browser.