Changeset 1134 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_closure.F90

Timestamp:

Mar 26, 2009, 12:57:31 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Menage sur les impressions intempestives par transformation des

print*,

en

if (prt_level > ??) write(lunout,*)

LF

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_closure.F90 (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_closure.F90

@@ -55 +55 @@
 !            f(ig)=f(ig)+(f0(ig)-f(ig))*exp((-ptimestep/  &
 !    &                     zmax_sec(ig))*wmax_sec(ig))
-             print*,'closure dry',f(ig),wmax_sec(ig),alim_star_tot(ig),zmax_sec(ig)
+             if(prt_level.GE.10) write(lunout,*)'closure dry',f(ig),wmax_sec(ig),alim_star_tot(ig),zmax_sec(ig)
              else
              f(ig)=wmax(ig)*alim_star_tot(ig)/zdenom