Changeset 140 in lmdz_wrf

Timestamp:

Jul 29, 2014, 11:47:27 AM (10 years ago)

Author:

lfita

Message:

Removing spurious iternal WRITE

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_flux2.F90 (modified) (1 diff)

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_flux2.F90

@@ -179 +179 @@
 
       do l=1,klev
-         WRITE(lS,'(I4)')l
+
          do ig=1,ngrid
             if (l.lt.lmax(ig)) then