Changeset 100 in lmdz_wrf

Timestamp:

Jul 25, 2014, 3:38:54 PM (10 years ago)

Author:

lfita

Message:

zw2 NaN from thermcell_height!

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
@@ -63 +71 @@
          wmax(ig)=0.
       enddo
+      lfname='thermcell_height before zw2 max'
+      lvarname = 'zw2'
+      CALL check_var3D(lfname, lvarname, zw2, ngrid, nlay+1, largest, .FALSE.)
 
       do l=1,nlay
@@ -77 +88 @@
           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.