Changeset 2886 for LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90

Timestamp:

May 20, 2017, 9:41:16 AM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2865:2885 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/fisrtilp.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90

@@ -368 +368 @@
                 / (zmair(i)*zcpair + zrfl(i)*dtime*zcpeau)
          end if
+        ENDDO
+     ELSE  ! IF(k.LE.klevm1) 
+        DO i = 1, klon 
+           zmair(i)=(paprs(i,k)-paprs(i,k+1))/RG 
+           zmqc(i) = 0.
         ENDDO
      ENDIF ! end IF(k.LE.klevm1)