Changeset 115 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_plume.F90
- Timestamp:
- Jul 25, 2014, 6:18:04 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_plume.F90
r114 r115 668 668 ! L. Fita, LMD July 2014. Adding IF for zlev == 0. 669 669 IF ( zlev(ig,l+1) < 0.) THEN 670 alim_star(ig,l) = =0.670 alim_star(ig,l) = 0. 671 671 ELSE 672 672 alim_star(ig,l)=MAX((ztv(ig,l)-ztv(ig,l+1)),0.) &
Note: See TracChangeset
for help on using the changeset viewer.