Changeset 938 for LMDZ4/trunk/libf/phylmd/cva_driver.F

Timestamp:

Mar 31, 2008, 6:14:45 PM (17 years ago)

Author:

lmdzadmin

Message:

Enleve prints par defaut
IM

File:

• LMDZ4/trunk/libf/phylmd/cva_driver.F (modified) (6 diffs)

LMDZ4/trunk/libf/phylmd/cva_driver.F

@@ -305 +305 @@
 
       logical ok_inhib  ! True => possible inhibition of convection by dryness
+      logical, save :: debut=.true. 
 
       real plcl1(klon)
@@ -507 +508 @@
 
       if (iflag_con.eq.3) then
-   
-       print*,'Emanuel version 3 nouvelle'
+  
+       if (debut) THEN 
+        print*,'Emanuel version 3 nouvelle'
+       endif 
+
        CALL cv3_prelim(len,nd,ndp1,t1,q1,p1,ph1      ! nd->na
      o               ,lv1,cpn1,tv1,gz1,h1,hm1,th1)
@@ -774 +778 @@
         ELSE
          CALL cv3_mixscale(nloc,ncum,nd,ment,m)
-         print *,' cv3_mixscale-> '
+         if (debut) THEN 
+          print *,' cv3_mixscale-> '
+         endif !(debut) THEN 
         ENDIF
       endif
@@ -785 +791 @@
       endif
 c
-      print *,' cv_mixing ->'
+      if (debut) THEN 
+       print *,' cv_mixing ->'
+      endif !(debut) THEN 
 c      do i = 1,klev
 c        print*,'cv_mixing-> i,ment ',i,(ment(1,i,j),j=1,klev)
@@ -794 +802 @@
 !-------------------------------------------------------------------
       if (iflag_con.eq.3) then
-      print *,' cva_driver -> cv3_unsat '
+       if (debut) THEN 
+        print *,' cva_driver -> cv3_unsat '
+       endif !(debut) THEN 
     
        CALL cv3_unsat(nloc,ncum,nd,nd,ntra,icb,inb,iflag    ! na->nd
@@ -810 +820 @@
       endif
 c
-      print *,'cv_unsat-> '
+      if (debut) THEN 
+       print *,'cv_unsat-> '
+       debut=.FALSE.
+      endif !(debut) THEN
 !
 c      print *,'cv_unsat-> mp ',mp