Changeset 2885


Ignore:
Timestamp:
May 18, 2017, 3:45:22 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Missing initialisations, made the code unreproducible

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/fisrtilp.F90

    r2878 r2885  
    325325  ! BOUCLE VERTICALE (DU HAUT VERS LE BAS)
    326326  !
    327   zmqc(1:klon)=0.
    328327  DO k = klev, 1, -1
    329328     !
     
    369368                / (zmair(i)*zcpair + zrfl(i)*dtime*zcpeau)
    370369         end if
     370        ENDDO
     371     ELSE  ! IF(k.LE.klevm1)
     372        DO i = 1, klon
     373           zmair(i)=(paprs(i,k)-paprs(i,k+1))/RG
     374           zmqc(i) = 0.
    371375        ENDDO
    372376     ENDIF ! end IF(k.LE.klevm1)
Note: See TracChangeset for help on using the changeset viewer.