source: trunk/MESOSCALE/LMDZ.MARS/libf_gcm/dyn3d/initial0.F @ 3552

Last change on this file since 3552 was 57, checked in by aslmd, 14 years ago

mineur LMD_MM_MARS: ajout du GCM ancienne physique, systeme maintenant complet sur SVN (ne manque que la base de donnees d'etats initiaux)
File size: 158 bytes
Line 
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.