Changeset 2880 for LMDZ5/branches


Ignore:
Timestamp:
May 15, 2017, 11:09:33 AM (8 years ago)
Author:
Laurent Fairhead
Message:

Missing initialisations, made the code unreproducible

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/IPSLCM6.0.10/libf/phylmd/fisrtilp.F90

    r2839 r2880  
    368368                / (zmair(i)*zcpair + zrfl(i)*dtime*zcpeau)
    369369         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.
    370375        ENDDO
    371376     ENDIF ! end IF(k.LE.klevm1)
Note: See TracChangeset for help on using the changeset viewer.