Changeset 2880 for LMDZ5/branches

Timestamp:

May 15, 2017, 11:09:33 AM (7 years ago)

Author:

Laurent Fairhead

Message:

Missing initialisations, made the code unreproducible

File:

• LMDZ5/branches/IPSLCM6.0.10/libf/phylmd/fisrtilp.F90 (modified) (1 diff)

LMDZ5/branches/IPSLCM6.0.10/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)