Changeset 1162 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/add_phys_tend.F90

Timestamp:

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

Author:

Laurent Fairhead

Message:

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

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/add_phys_tend.F90 (modified) (4 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