Changeset 1163 for LMDZ4/trunk/libf/phylmd/clouds_gno.F

Timestamp:

May 20, 2009, 4:11:21 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Print commentés pour plus d'efficacité
YM/LF

File:

• LMDZ4/trunk/libf/phylmd/clouds_gno.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/clouds_gno.F

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
 C
@@ -219 +219 @@
 c -- test numerical convergence:
 
-          if (beta(i).lt.1.e-10) then
-              print*,'avant test ',i,k,lconv(i),u(i),v(i),beta(i)
-              stop
-          endif
+!          if (beta(i).lt.1.e-10) then
+!              print*,'avant test ',i,k,lconv(i),u(i),v(i),beta(i)
+!              stop
+!          endif
           if (abs(fprime(i)).lt.1.e-11) then
-              print*,'avant test fprime<.e-11 '
-     s        ,i,k,lconv(i),u(i),v(i),beta(i),fprime(i)
-              print*,'klon,ND,R,RS,QSUB',
-     s        klon,ND,R(i,k),rs(i,k),qsub(i,k)
+!              print*,'avant test fprime<.e-11 '
+!     s        ,i,k,lconv(i),u(i),v(i),beta(i),fprime(i)
+!              print*,'klon,ND,R,RS,QSUB',
+!     s        klon,ND,R(i,k),rs(i,k),qsub(i,k)
               fprime(i)=sign(1.e-11,fprime(i))
           endif
@@ -259 +259 @@
        END
 
-
-
+ 
+