Changeset 1162 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/clouds_gno.F

Timestamp:

May 20, 2009, 2:26:10 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Print commentes pour un peu plus d'efficacité
YM
LF

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/clouds_gno.F (modified) (2 diffs)

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

@@ -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
 
-
-
+ 
+