Changeset 1796 for LMDZ5/branches/testing/libf

Timestamp:

Jul 18, 2013, 10:32:32 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Update from r1746 of trunk was skipped in previous merge...
EM

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/fisrtilp.F90 (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/fisrtilp.F90

@@ -441 +441 @@
               zqn(i) = zq(i)
               rneb(i,k) = 1.0                  
-              zcond(i) = MAX(0.0,zqn(i)-zqs(i))
+              zcond(i) = MAX(0.0,zqn(i)-zqs(i))/(1+zdqs(i))
               rhcl(i,k)=1.0
            ELSE
-              zcond(i) = MAX(0.0,zqn(i)-zqs(i))*rneb(i,k)
+              zcond(i) = MAX(0.0,zqn(i)-zqs(i))*rneb(i,k)/(1+zdqs(i))
               rhcl(i,k)=(zqs(i)+zq(i)-zdelq)/2./zqs(i)
            ENDIF