Changeset 2885 for LMDZ5/trunk/libf

Timestamp:

May 18, 2017, 3:45:22 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Missing initialisations, made the code unreproducible

File:

• LMDZ5/trunk/libf/phylmd/fisrtilp.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/fisrtilp.F90

@@ -325 +325 @@
   ! BOUCLE VERTICALE (DU HAUT VERS LE BAS)
   !
-  zmqc(1:klon)=0.
   DO k = klev, 1, -1
      !
@@ -369 +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)