Changeset 1418 for LMDZ4/trunk/libf/dyn3dpar/pres2lev.F90
- Timestamp:
- Jul 19, 2010, 5:11:24 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3dpar/pres2lev.F90
r1345 r1418 60 60 DO k=1,ni*nj 61 61 IF (pn(k,ln) >= zpo(k,1) ) THEN 62 varn(k,ln) = varo(k,1)62 varn(k,ln) = zvaro(k,1) 63 63 ELSE IF (pn(k,ln) <= zpo(k,lmo)) THEN 64 64 varn(k,ln) = zvaro(k,lmo)
Note: See TracChangeset
for help on using the changeset viewer.