Changeset 682 for trunk/LMDZ.MARS/libf
- Timestamp:
- May 30, 2012, 4:49:20 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90
r659 r682 483 483 ! do l=2,4 484 484 do ig=1,ngridmx 485 if (ztv(ig,l)>(ztv(ig,l+1 + 0.)) .and. ztv(ig,1)>=ztv(ig,l) .and. (alim_star(ig,l-1).ne. 0.)) then ! .and. (zlev(ig,l+1) .lt. 1000.)) then485 if (ztv(ig,l)>(ztv(ig,l+1)) .and. ztv(ig,1)>=ztv(ig,l) .and. (alim_star(ig,l-1).ne. 0.)) then ! .and. (zlev(ig,l+1) .lt. 1000.)) then 486 486 alim_star(ig,l)=MAX((ztv(ig,l)-ztv(ig,l+1)),0.) & 487 487 ! & *log(1.+zlev(ig,l+1))
Note: See TracChangeset
for help on using the changeset viewer.