Changeset 682 for trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90

Timestamp:

May 30, 2012, 4:49:20 PM (12 years ago)

Author:

acolaitis

Message:

Corrected a minor syntax error in thermcell_main_mars that could cause your compiler to give warnings.

File:

• trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90

@@ -483 +483 @@
 !        do l=2,4
          do ig=1,ngridmx
-           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.)) then
+           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
                alim_star(ig,l)=MAX((ztv(ig,l)-ztv(ig,l+1)),0.)  &
 !     &                       *log(1.+zlev(ig,l+1))