Changeset 328 for trunk/LMDZ.MARS/libf

Timestamp:

Oct 25, 2011, 4:12:49 PM (13 years ago)

Author:

acolaitis

Message:

Sorry about that, I pasted it from an other routine so I mixed nlay and nlayer

File:

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

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

@@ -279 +279 @@
       ENDDO
 
-      ztcond(:,nlay+1)=ztcond(:,nlay)
+      ztcond(:,nlayer+1)=ztcond(:,nlayer)
  
 c      Condensation/sublimation in the atmosphere