Changeset 286 for LMDZ.3.3/trunk


Ignore:
Timestamp:
Oct 25, 2001, 2:29:01 PM (23 years ago)
Author:
lmdz
Message:

Correction d'Olivier
LF

Location:
LMDZ.3.3/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/phylmd/conflx.F

    r165 r286  
    833833            pqu(i,k+1) = pqen(i,k)
    834834            plu(i,k+1) = 0.0
    835             zzzmb = MAX(CMFCMIN, -pvervel(i,k)/RG)
     835c--modif Olivier 12/2000
     836c            zzzmb = MAX(CMFCMIN, -pvervel(i,k)/RG)
     837            zzzmb = MAX(CMFCMIN, -pvervel(i,k))
    836838            zmfmax = (paph(i,k)-paph(i,k-1))/(RG*pdtime)
    837839            pmfub(i) = MIN(zzzmb,zmfmax)

  • LMDZ.3.3/trunk/libf/phylmd/physiq.F

    r254 r286  
    931931c
    932932         zsto = dtime
    933          zout = dtime * ecrit_mth
     933         zout = dtime * FLOAT(ecrit_mth)
    934934c
    935935         CALL histdef(nid_mth, "phis", "Surface geop. height", "-",
Note: See TracChangeset for help on using the changeset viewer.