Index: /LMDZ4/trunk/libf/phylmd/add_phys_tend.F90
===================================================================
--- /LMDZ4/trunk/libf/phylmd/add_phys_tend.F90	(revision 1162)
+++ /LMDZ4/trunk/libf/phylmd/add_phys_tend.F90	(revision 1163)
@@ -1,4 +1,4 @@
 !
-! $Header$
+! $Id$
 !
 SUBROUTINE add_phys_tend (zdu,zdv,zdt,zdq,zdql,text)
@@ -141,7 +141,7 @@
             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,7 +149,7 @@
             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,5 +170,5 @@
          endif
       ENDDO
-ENDIF
+ENDIF 
 !
 IF (jqbad .GT. 0) THEN
Index: /LMDZ4/trunk/libf/phylmd/clouds_gno.F
===================================================================
--- /LMDZ4/trunk/libf/phylmd/clouds_gno.F	(revision 1162)
+++ /LMDZ4/trunk/libf/phylmd/clouds_gno.F	(revision 1163)
@@ -1,4 +1,4 @@
 !
-! $Header$
+! $Id$
 !
 C
@@ -219,13 +219,13 @@
 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,4 +259,4 @@
        END
 
-
-
+ 
+