Changeset 1162 for LMDZ4/branches/LMDZ4-dev

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

Location:

LMDZ4/branches/LMDZ4-dev/libf/phylmd

Files:

• add_phys_tend.F90 (modified) (4 diffs)
• clouds_gno.F (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/add_phys_tend.F90

@@ -1 +1 @@
 !
-! $Header$
+! $Id$
 !
 SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,text)
@@ -141 +141 @@
             jbad = jbad + 1
             jadrs(jbad) = i
-            if(prt_level.ge.debug_level) THEN
-             print*,'cas2 i k t_seri zdt',i,k,t_seri(i,k),zdt(i,k)
-            endif
+!            if(prt_level.ge.debug_level) THEN
+!             print*,'cas2 i k t_seri zdt',i,k,t_seri(i,k),zdt(i,k)
+!            endif
             ENDIF
             IF ( q_seri(i,k)<0. .or. q_seri(i,k)>0.1 .or. abs(zdq(i,k))>1.e-2 ) then
@@ -149 +149 @@
             jqadrs(jqbad) = i
             kqadrs(jqbad) = k
-            if(prt_level.ge.debug_level) THEN
-             print*,'cas2 i k q_seri zdq',i,k,q_seri(i,k),zdq(i,k)
-            endif
+!            if(prt_level.ge.debug_level) THEN
+!             print*,'cas2 i k q_seri zdq',i,k,q_seri(i,k),zdq(i,k)
+!            endif
             ENDIF
          ENDDO
@@ -170 +170 @@
          endif
       ENDDO
-ENDIF
+ENDIF 
 !
 IF (jqbad .GT. 0) THEN

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