Changeset 1134 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/cv3_inip.F

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/cv3_inip.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/cv3_inip.F

@@ -89 +89 @@
               aire=aire+(Qmix(ff+df) - Qmix(ff)) * (1.-ff)
               mu = mu + pdf * ff * df
-              write(*,*) pdf,  Qmix(ff), aire, ff
+         IF(prt_level>9)WRITE(lunout,*)                                 &
+     &               pdf,  Qmix(ff), aire, ff
          ff=ff+df
          enddo