Changeset 105 in lmdz_wrf

Timestamp:

Jul 25, 2014, 4:25:22 PM (10 years ago)

Author:

lfita

Message:

Adding THEN...

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_flux2.F90

@@ -248 +248 @@
              zzz=fm(ig,l)*rhobarz(ig,l+1)*zw2(ig,l+1)  &
      &                          /(rhobarz(ig,l)*zw2(ig,l))
-             IF (zzz /= zzz .OR. zw2(ig,l) == 0. ) 
+             IF (zzz /= zzz .OR. zw2(ig,l) == 0. ) THEN
                PRINT *,'  Lluis ', ig,',',l,' wrong zzz: ',zzz,' zw2: ',zw2(ig,l),' fm: ',fm(ig,l)
              END IF