Changeset 1057 for LMDZ4/trunk/libf/phylmd/thermcell_plume.F90

Timestamp:

Nov 17, 2008, 3:45:52 PM (16 years ago)

Author:

lmdzadmin

Message:

Un peu de nettoyage
ACA/FH/IM

File:

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

LMDZ4/trunk/libf/phylmd/thermcell_plume.F90

@@ -580 +580 @@
             alim_star_tot(ig)=alim_star_tot(ig)+entr_star(ig,l)
             lalim(ig)=lmix_bis(ig)
-            print*,'alim_star_tot',alim_star_tot(ig),entr_star(ig,l)
+            if(prt_level.GE.10) print*,'alim_star_tot',alim_star_tot(ig),entr_star(ig,l)
         endif