- Timestamp:
- Apr 28, 2005, 3:36:01 PM (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/orografi.F
r524 r622 1277 1277 ZDELPT=PAPHM1(JL,NSTRA)-PAPHM1(JL,KKCRITH(JL)) 1278 1278 PTAU(JL,JK)=ZTAU(JL,KKCRITH(JL)) + 1279 * (ZTAU(JL,NSTRA)-ZTAU(JL,KKCRITH(JL)))*ZDELP/ZDELPT 1279 * (ZTAU(JL,NSTRA)-ZTAU(JL,KKCRITH(JL)))*ZDELP 1280 . /ZDELPT 1280 1281 1281 1282 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.