source: trunk/LMDZ.MARS/libf/phymars/zerophys.F @ 146

Last change on this file since 146 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: 167 bytes
Line 
1      SUBROUTINE zerophys(n,x)
2      IMPLICIT NONE
3      INTEGER n
4      REAL x(n)
5      INTEGER i
6
7      DO i=1,n
8         x(i)=0.
9      ENDDO
10      RETURN
11      END
Note: See TracBrowser for help on using the repository browser.