Index: /branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_height.F90
===================================================================
--- /branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_height.F90	(revision 133)
+++ /branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_height.F90	(revision 134)
@@ -28,12 +28,4 @@
 
       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,7 +63,4 @@
          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,8 +92,4 @@
           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.