Changeset 1746 for LMDZ5/trunk


Ignore:
Timestamp:
Apr 19, 2013, 3:46:37 PM (12 years ago)
Author:
idelkadi
Message:

Correction de bug sur le calcul de l'eau condensee dans fisrtilp.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/fisrtilp.F90

    r1742 r1746  
    441441              zqn(i) = zq(i)
    442442              rneb(i,k) = 1.0                 
    443               zcond(i) = MAX(0.0,zqn(i)-zqs(i))
     443              zcond(i) = MAX(0.0,zqn(i)-zqs(i))/(1+zdqs(i))
    444444              rhcl(i,k)=1.0
    445445           ELSE
    446               zcond(i) = MAX(0.0,zqn(i)-zqs(i))*rneb(i,k)
     446              zcond(i) = MAX(0.0,zqn(i)-zqs(i))*rneb(i,k)/(1+zdqs(i))
    447447              rhcl(i,k)=(zqs(i)+zq(i)-zdelq)/2./zqs(i)
    448448           ENDIF
Note: See TracChangeset for help on using the changeset viewer.