Changeset 1146 for LMDZ4/trunk/libf/phylmd/cv3_inip.F

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

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