Changeset 130 in lmdz_wrf


Ignore:
Timestamp:
Jul 28, 2014, 6:06:48 PM (10 years ago)
Author:
lfita
Message:

Adding ')'...

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

    r129 r130  
    917917! L. Fita, LMD July 2014. Adding avoiding divisons by zero...
    918918          if ((pplay(ig,l).ge.pcon(ig)) .and. (pplay(ig,l+1).le.pcon(ig)) .and.      &
    919             (klcl(ig).gt.0).and.(klcl(ig)+1.le.nlay-1) .and. (klcl(ig)+1.gt.0) then
     919            (klcl(ig).gt.0).and.(klcl(ig)+1.le.nlay-1) .and. (klcl(ig)+1.gt.0) ) then
    920920!            (pplay(ig,klcl(ig)+1)-pplay(ig,klcl(ig)).ne.0.) ) then
    921921            klcl(ig)=l
Note: See TracChangeset for help on using the changeset viewer.