Changeset 7 in lmdz_wrf for WRFV3/lmdz/surf_land_bucket_mod.F90

Timestamp:

Jul 18, 2014, 11:23:50 AM (10 years ago)

Author:

lfita

Message:

Removing checking prints from the development process

File:

• WRFV3/lmdz/surf_land_bucket_mod.F90 (modified) (5 diffs)

WRFV3/lmdz/surf_land_bucket_mod.F90

@@ -108 +108 @@
 !!    z0_new = 0.4
 !!    alb_lim = 0.7
-    PRINT *,'Lluis on surf_land_bucket_mod lpt= ', lpt,' z0_limit: ',z0_limit(lpt)
-    PRINT *,'Lluis on surf_land_bucket_mod lpt= ', lpt,' alb_limit: ',alb_limit(lpt)
     
     z0_new(1:knon) = z0_limit(knindex(1:knon))
@@ -128 +126 @@
        
 ! calculate temperature, heat capacity and conduction flux in soil
-    PRINT *,'  Lluis before soil tsurf: ', tsurf(lpt),' cal: ',cal(lpt)
     IF (soil_model) THEN 
        CALL soil(dtime, is_ter, knon, snow, tsurf, tsoil, soilcap, soilflux)
@@ -141 +138 @@
        ENDIF
     ENDIF
-    PRINT *,'  Lluis after soil tsurf: ', tsurf(lpt),' cal: ',cal(lpt)
     
 ! Suppose zero surface speed
@@ -149 +145 @@
     v1_lay(:) = v1(:) - v0(:)
 
-    PRINT *,'  Lluis before calcul_fluxs tsurf: ', tsurf(lpt),' qsurf: ',qsurf(lpt)
     CALL calcul_fluxs(knon, is_ter, dtime, &
          tsurf, p1lay, cal, beta, tq_cdrag, pref, &
@@ -156 +151 @@
          petAcoef, peqAcoef, petBcoef, peqBcoef, &
          tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l)
-    PRINT *,'  Lluis after calcul_fluxs tsurf: ', tsurf(lpt),' qsurf: ',qsurf(lpt)
     
 !
 !* Calculate snow height, run_off, age of snow
 !      
-    PRINT *,'  Lluis in surf_land_bucket_mod ffonte_global: ',ALLOCATED(ffonte_global)
-    PRINT *,'    fqfonte_global: ',ALLOCATED(fqfonte_global)
-    PRINT *,'    fqcalving_global: ',ALLOCATED(fqcalving_global)
 
     CALL fonte_neige( knon, is_ter, knindex, dtime, &