Changeset 1047 for LMDZ4/trunk/libf

Timestamp:

Nov 6, 2008, 5:46:57 PM (16 years ago)

Author:

lmdzadmin

Message:

Nettoyage ; print si prt_level >= 10
IM

File:

• LMDZ4/trunk/libf/phylmd/add_phys_tend.F90 (modified) (6 diffs)

LMDZ4/trunk/libf/phylmd/add_phys_tend.F90

@@ -92 +92 @@
       DO j = 1, jbad
          i=jadrs(j)
-         print*,'PLANTAGE POUR LE POINT i rlon rlat =',i,rlon(i),rlat(i),text
-         print*,'l    T     dT       Q     dQ    '
-         DO k = 1, klev
+         if(prt_level.ge.debug_level) THEN
+          print*,'PLANTAGE POUR LE POINT i rlon rlat =',i,rlon(i),rlat(i),text
+          print*,'l    T     dT       Q     dQ    '
+          DO k = 1, klev
              write(*,'(i3,2f14.4,2e14.2)') k,t_seri(i,k),zdt(i,k),q_seri(i,k),zdq(i,k)
-         ENDDO
-         call print_debug_phys(i,debug_level,text)
+          ENDDO
+          call print_debug_phys(i,debug_level,text)
+         endif
       ENDDO
 ENDIF
@@ -107 +109 @@
       DO j = 1, jqbad
          i=jqadrs(j)
-         print*,'WARNING  : EAU POUR LE POINT i rlon rlat =',i,rlon(i),rlat(i),text
-         print*,'l    T     dT       Q     dQ    '
+         if(prt_level.ge.debug_level) THEN
+          print*,'WARNING  : EAU POUR LE POINT i rlon rlat =',i,rlon(i),rlat(i),text
+          print*,'l    T     dT       Q     dQ    '
+         endif
          DO k = 1, klev
            zq=q_seri(i,k)+zdq(i,k)
            if (zq.lt.1.e-15) then
               if (q_seri(i,k).lt.1.e-15) then
-!              print*,' cas q_seri<1.e-15 i k q_seri zq zdq :',i,k,q_seri(i,k),zq,zdq(i,k)
+               if(prt_level.ge.debug_level) THEN
+                print*,' cas q_seri<1.e-15 i k q_seri zq zdq :',i,k,q_seri(i,k),zq,zdq(i,k)
+               endif
                q_seri(i,k)=1.e-15
                zdq(i,k)=(1.e-15-q_seri(i,k))
@@ -135 +141 @@
             jbad = jbad + 1
             jadrs(jbad) = i
-!           if(prt_level.ge.10) 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
@@ -143 +149 @@
             jqadrs(jqbad) = i
             kqadrs(jqbad) = k
-!           if(prt_level.ge.10) 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
@@ -153 +159 @@
          i=jadrs(j)
          k=kadrs(j)
-         print*,'PLANTAGE2 POUR LE POINT i itap rlon rlat txt jbad zdt t',i,itap,rlon(i),rlat(i),text,jbad, &
+         if(prt_level.ge.debug_level) THEN
+          print*,'PLANTAGE2 POUR LE POINT i itap rlon rlat txt jbad zdt t',i,itap,rlon(i),rlat(i),text,jbad, &
        &        zdt(i,k),t_seri(i,k)-zdt(i,k)
-!        if(prt_level.ge.10) THEN 
-         if(prt_level.ge.10.and.itap.GE.229.and.i.EQ.3027) THEN 
+!!!       if(prt_level.ge.10.and.itap.GE.229.and.i.EQ.3027) THEN 
           print*,'l    T     dT       Q     dQ    '
           DO k = 1, klev
@@ -170 +176 @@
          i=jqadrs(j)
          k=kqadrs(j)
-         print*,'WARNING  : EAU2 POUR LE POINT i itap rlon rlat txt jqbad zdq q zdql ql',i,itap,rlon(i),rlat(i),text,jqbad,&
+         if(prt_level.ge.debug_level) THEN
+          print*,'WARNING  : EAU2 POUR LE POINT i itap rlon rlat txt jqbad zdq q zdql ql',i,itap,rlon(i),rlat(i),text,jqbad,&
        &        zdq(i,k), q_seri(i,k)-zdq(i,k), zdql(i,k), ql_seri(i,k)-zdql(i,k)
-!        if(prt_level.ge.10) THEN 
-         if(prt_level.ge.10.and.itap.GE.229.and.i.EQ.3027) THEN 
+!!!       if(prt_level.ge.10.and.itap.GE.229.and.i.EQ.3027) THEN 
           print*,'l    T     dT       Q     dQ    '
           DO k = 1, klev