Changeset 1982 for LMDZ5/trunk/libf/phylmd

Timestamp:

Feb 16, 2014, 11:30:48 PM (11 years ago)

Author:

fhourdin

Message:

Suppression d'impressions

File:

• LMDZ5/trunk/libf/phylmd/thermcell_plume.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/thermcell_plume.F90

@@ -164 +164 @@
                lalim(ig)=l+1
                alim_star_tot(ig)=alim_star_tot(ig)+alim_star(ig,l)
-               print*,'alim2',l,ztv(ig,l),ztv(ig,l+1),alim_star(ig,l)
+!              print*,'alim2',l,ztv(ig,l),ztv(ig,l+1),alim_star(ig,l)
             endif
          enddo
@@ -234 +234 @@
    call thermcell_qsat(ngrid,active,pplev(:,l),ztemp,zqta(:,l-1),zqsat(:))
     do ig=1,ngrid 
-       print*,'active',active(ig),ig,l
+!      print*,'active',active(ig),ig,l
         if(active(ig)) then 
         zqla_est(ig,l)=max(0.,zqta(ig,l-1)-zqsat(ig))
@@ -350 +350 @@
 !        endif
 
-        print*,'alim0',l,lalim(ig),alim_star(ig,l),entrbis,f_star(ig,l)
+!print*,'alim0',l,lalim(ig),alim_star(ig,l),entrbis,f_star(ig,l)
 ! Calcul du flux montant normalise
       f_star(ig,l+1)=f_star(ig,l)+alim_star(ig,l)+entr_star(ig,l)  &