Changeset 392

Timestamp:

Jul 17, 2002, 11:10:01 AM (22 years ago)

Author:

lmdzadmin

Message:

Commentage des sorties de debuggage
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/dyn3d/vlsplt.F (modified) (8 diffs)

LMDZ.3.3/branches/rel-LF/libf/dyn3d/vlsplt.F

@@ -79 +79 @@
       CALL SCOPY(ijp1llm,masse,1,zm,1)
 
-        print*,'Entree vlx1'
+c       print*,'Entree vlx1'
 c       call minmaxq(zq,qmin,qmax,'avant vlx     ')
       call vlx(zq,pente_max,zm,mu)
-        print*,'Sortie vlx1'
+C       print*,'Sortie vlx1'
 c       call minmaxq(zq,qmin,qmax,'apres vlx1    ')
 
-         print*,'Entree vly1'
+C        print*,'Entree vly1'
       call vly(zq,pente_max,zm,mv)
 c       call minmaxq(zq,qmin,qmax,'apres vly1     ')
-        print*,'Sortie vly1'
+C       print*,'Sortie vly1'
       call vlz(zq,pente_max,zm,mw)
 c       call minmaxq(zq,qmin,qmax,'apres vlz     ')
@@ -230 +230 @@
 
          ENDDO ! l=1,llm
-        print*,'Ok calcul des pentes'
+C       print*,'Ok calcul des pentes'
 
       ELSE ! (pente_max.lt.-1.e-5)
@@ -273 +273 @@
       ENDDO
 
-         print*,'Bouclage en iip1'
+c        print*,'Bouclage en iip1'
 
 c   calcul des flux a gauche et a droite
@@ -295 +295 @@
 c   on cumule le flux correspondant a toutes les mailles dont la masse
 c   au travers de la paroi pENDant le pas de temps.
-        print*,'Cumule ....'
+C       print*,'Cumule ....'
 
       DO l=1,llm
        DO ij=iip2,ip1jm-1
-c       print*,'masse(',ij,')=',masse(ij,l)
+Cc      print*,'masse(',ij,')=',masse(ij,l)
           IF (u_m(ij,l).gt.0.) THEN
              zdum(ij,l)=1.-u_m(ij,l)/masse(ij,l)
@@ -323 +323 @@
          ENDDO
       ENDDO
-        print*,'Ok test 1'
+C       print*,'Ok test 1'
       DO l=1,llm
        DO ij=iip1+iip1,ip1jm,iip1
@@ -329 +329 @@
        ENDDO
       ENDDO
-         print*,'Ok test 2'
+C        print*,'Ok test 2'
 
 
@@ -405 +405 @@
 
 c   bouclage en latitude
-        print*,'Avant bouclage en latitude'
+C       print*,'Avant bouclage en latitude'
       DO l=1,llm
         DO ij=iip1+iip1,ip1jm,iip1
@@ -512 +512 @@
 
 c
-        PRINT*,'CALCUL EN LATITUDE'
+c       PRINT*,'CALCUL EN LATITUDE'
 
       DO l = 1, llm