source: trunk/LMDZ.PLUTO.old/libf/dyn3d/initial0.F @ 3436

Last change on this file since 3436 was 3175, checked in by emillour, 11 months ago

Pluto PCM:
Add the old Pluto LMDZ for reference (required prior step to making
an LMDZ.PLUTO using the same framework as the other physics packages).
TB+EM
File size: 159 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.