Changeset 623 for trunk/LMDZ.MARS/libf
- Timestamp:
- Apr 17, 2012, 1:30:19 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/calltherm_interface.F90
r621 r623 321 321 enddo 322 322 323 call thermcell_dqup(ngridmx,nlayermx,ptimestep &324 & ,fm_therm,entr_therm, &325 & masse,zu,d_u_ajs)326 327 call thermcell_dqup(ngridmx,nlayermx,ptimestep &328 & ,fm_therm,entr_therm, &329 & masse,zv,d_v_ajs)323 ! call thermcell_dqup(ngridmx,nlayermx,ptimestep & 324 ! & ,fm_therm,entr_therm, & 325 ! & masse,zu,d_u_ajs) 326 ! 327 ! call thermcell_dqup(ngridmx,nlayermx,ptimestep & 328 ! & ,fm_therm,entr_therm, & 329 ! & masse,zv,d_v_ajs) 330 330 331 331 if (nqmx .ne. 0.) then
Note: See TracChangeset
for help on using the changeset viewer.