Changeset 1146 for LMDZ4/trunk/libf/phylmd/thermcell_closure.F90

Timestamp:

Apr 9, 2009, 12:11:35 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Réintegration dans le tronc des modifications issues de la branche LMDZ-dev
comprises entre la révision 1074 et 1145
Validation: une simulation de 1 jour en séquentiel sur PC donne les mêmes
résultats entre la trunk et la dev
LF

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/thermcell_closure.F90 (modified) (1 diff)

LMDZ4/trunk/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