Changeset 1157 for trunk/LMDZ.GENERIC/libf
- Timestamp:
- Jan 11, 2014, 10:04:06 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/physiq.F90
r1152 r1157 1349 1349 !----------------------------------------------------------------------- 1350 1350 1351 if (.not.nosurf) then1352 1353 1351 ! Increment surface temperature 1354 1352 tsurf(1:ngrid)=tsurf(1:ngrid)+ptimestep*zdtsurf(1:ngrid) … … 1359 1357 ptimestep,tsurf,tsoil,capcal,fluxgrd) 1360 1358 endif 1361 1362 endif ! if (.not.nosurf)1363 1359 1364 1360 !-------------------------
Note: See TracChangeset
for help on using the changeset viewer.