Changeset 422 for LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F
- Timestamp:
- Oct 17, 2002, 3:27:29 PM (22 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F
r411 r422 1285 1285 . pbase,bbase,dtvpdt1,dtvpdq1,dplcldt,dplcldr) 1286 1286 1287 do i = 1, klon 1288 wd(i)=0.0 1289 do k = 1, klev 1290 qcondc(i)=0.0 1291 enddo 1292 enddo 1287 qcondc=0.0 1293 1288 1294 1289 else
Note: See TracChangeset
for help on using the changeset viewer.