Changeset 60 for LMDZ.3.3/trunk/libf/phylmd/fisrtilp.F
- Timestamp:
- Feb 22, 2000, 3:57:45 PM (25 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/trunk/libf/phylmd/fisrtilp.F
r43 r60 281 281 zrfl(i) = zrfl(i)+ MAX(zcond(i)-zoliq(i),0.0) 282 282 . * (paprs(i,k)-paprs(i,k+1))/(RG*dtime) 283 IF (zt(i).LT.RTT) THEN 284 psfl(i,k)=zrfl(i) 285 ELSE 286 prfl(i,k)=zrfl(i) 287 ENDIF 288 ENDIF 289 ENDDO 290 283 ENDIF 284 IF (zt(i).LT.RTT) THEN 285 psfl(i,k)=zrfl(i) 286 ELSE 287 prfl(i,k)=zrfl(i) 288 ENDIF 289 ENDDO 291 290 c 292 291 c Calculer les tendances de q et de t:
Note: See TracChangeset
for help on using the changeset viewer.