Changeset 965 for LMDZ4/trunk/libf/phylmd

Timestamp:

Jun 9, 2008, 11:56:40 AM (16 years ago)

Author:

Laurent Fairhead

Message:

Un peu de menage pour avoir moins de sorties a l'execution
LF

Location:

LMDZ4/trunk/libf/phylmd

Files:

• cv_driver.F (modified) (1 diff)
• physiq.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/cv_driver.F

@@ -375 +375 @@
       if (iflag_con.eq.30) then
 
-       print*,'Emanuel version 30 '
+!       print*,'Emanuel version 30 '
        CALL cv30_prelim(len,nd,ndp1,t1,q1,p1,ph1            ! nd->na
      o               ,lv1,cpn1,tv1,gz1,h1,hm1,th1)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -2005 +2005 @@
           enddo
        else
-          print*,'ALE et ALP couples au thermique'
+         IF(prt_level>9)WRITE(lunout,*)'ALE et ALP couples au thermique'
           do i = 1,klon
               ALE(i) = max(ale_wake(i),Ale_bl(i))