Changeset 972 for LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Jun 19, 2008, 12:24:22 PM (16 years ago)

Author:

lmdzadmin

Message:

Version thermique FH/CRio
Ajout tests cas physiques non pris en comptes et ajout/enleve prints
Nouvelle routine thermcell_flux2.F90
IM

File:

• LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -880 +880 @@
 !****************************************************************************************
 ! H and Q
-       print *,'pbl_surface: ok_flux_surf=',ok_flux_surf
-       print *,'pbl_surface: fsens flat RLVTT=',fsens,flat,RLVTT
+!      print *,'pbl_surface: ok_flux_surf=',ok_flux_surf
+!      print *,'pbl_surface: fsens flat RLVTT=',fsens,flat,RLVTT
        if (ok_flux_surf) then
           y_flux_t1(:) =  fsens