Changeset 134 in lmdz_wrf

Timestamp:

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

Author:

lfita

Message:

Removing checks, but keeping non NaN SQRT from zw2

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_height.F90 (modified) (3 diffs)

branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_height.F90

@@ -28 +28 @@
 
       REAL zlevinter(ngrid)
-! Lluis
-      INTEGER                                            :: llp
-      CHARACTER(LEN=50)                                  :: lvarname, lfname
-      REAL                                               :: largest
-
-      llp = 734
-      lfname = 'physiq'
-      largest = 10.e5
 
 !calcul de la hauteur max du thermique
@@ -71 +63 @@
          wmax(ig)=0.
       enddo
-      lfname='thermcell_height before zw2 max'
-      lvarname = 'zw2'
-      CALL check_var3D(lfname, lvarname, zw2, ngrid, nlay+1, largest, .FALSE.)
 
 ! L. Fita, LMD July 2014. Fixing the If when zw2 == 0
@@ -103 +92 @@
           enddo
       enddo
-
-      lfname='thermcell_height after zw2 max'
-      lvarname = 'zw2'
-      CALL check_var3D(lfname, lvarname, zw2, ngrid, nlay+1, largest, .FALSE.)
 
 !   Longueur caracteristique correspondant a la hauteur des thermiques.