Changeset 1940 for LMDZ5/branches/LMDZ5-DOFOCO/libf/phylmd/fisrtilp.F90
- Timestamp:
- Jan 21, 2014, 3:25:10 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/LMDZ5-DOFOCO/libf/phylmd/fisrtilp.F90
r1746 r1940 441 441 zqn(i) = zq(i) 442 442 rneb(i,k) = 1.0 443 zcond(i) = MAX(0.0,zqn(i)-zqs(i)) /(1+zdqs(i))443 zcond(i) = MAX(0.0,zqn(i)-zqs(i)) 444 444 rhcl(i,k)=1.0 445 445 ELSE 446 zcond(i) = MAX(0.0,zqn(i)-zqs(i))*rneb(i,k) /(1+zdqs(i))446 zcond(i) = MAX(0.0,zqn(i)-zqs(i))*rneb(i,k) 447 447 rhcl(i,k)=(zqs(i)+zq(i)-zdelq)/2./zqs(i) 448 448 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.