Changeset 141 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

May 27, 2011, 11:33:40 AM (14 years ago)

Author:

emillour

Message:

Mars: EM

minor bug correction in writeg1d (JYC)
add "-check" to debug option in makegcm_ifort

File:

• trunk/LMDZ.MARS/libf/phymars/writeg1d.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/writeg1d.F

@@ -100 +100 @@
         WRITE(g1d_unitfich,REC=g1d_irec) xr4(1)
       ELSE
-        DO ilayer=1,g1d_nlayer
+        DO ilayer=1,nx
           g1d_irec=g1d_irec+1
           WRITE(g1d_unitfich,REC=g1d_irec) xr4(ilayer)