Ignore:
Timestamp:
Jul 17, 2002, 11:10:01 AM (22 years ago)
Author:
lmdzadmin
Message:

Commentage des sorties de debuggage
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/vlsplt.F

    r358 r392  
    7979      CALL SCOPY(ijp1llm,masse,1,zm,1)
    8080
    81         print*,'Entree vlx1'
     81c       print*,'Entree vlx1'
    8282c       call minmaxq(zq,qmin,qmax,'avant vlx     ')
    8383      call vlx(zq,pente_max,zm,mu)
    84         print*,'Sortie vlx1'
     84C       print*,'Sortie vlx1'
    8585c       call minmaxq(zq,qmin,qmax,'apres vlx1    ')
    8686
    87          print*,'Entree vly1'
     87C        print*,'Entree vly1'
    8888      call vly(zq,pente_max,zm,mv)
    8989c       call minmaxq(zq,qmin,qmax,'apres vly1     ')
    90         print*,'Sortie vly1'
     90C       print*,'Sortie vly1'
    9191      call vlz(zq,pente_max,zm,mw)
    9292c       call minmaxq(zq,qmin,qmax,'apres vlz     ')
     
    230230
    231231         ENDDO ! l=1,llm
    232         print*,'Ok calcul des pentes'
     232C       print*,'Ok calcul des pentes'
    233233
    234234      ELSE ! (pente_max.lt.-1.e-5)
     
    273273      ENDDO
    274274
    275          print*,'Bouclage en iip1'
     275c        print*,'Bouclage en iip1'
    276276
    277277c   calcul des flux a gauche et a droite
     
    295295c   on cumule le flux correspondant a toutes les mailles dont la masse
    296296c   au travers de la paroi pENDant le pas de temps.
    297         print*,'Cumule ....'
     297C       print*,'Cumule ....'
    298298
    299299      DO l=1,llm
    300300       DO ij=iip2,ip1jm-1
    301 c       print*,'masse(',ij,')=',masse(ij,l)
     301Cc      print*,'masse(',ij,')=',masse(ij,l)
    302302          IF (u_m(ij,l).gt.0.) THEN
    303303             zdum(ij,l)=1.-u_m(ij,l)/masse(ij,l)
     
    323323         ENDDO
    324324      ENDDO
    325         print*,'Ok test 1'
     325C       print*,'Ok test 1'
    326326      DO l=1,llm
    327327       DO ij=iip1+iip1,ip1jm,iip1
     
    329329       ENDDO
    330330      ENDDO
    331          print*,'Ok test 2'
     331C        print*,'Ok test 2'
    332332
    333333
     
    405405
    406406c   bouclage en latitude
    407         print*,'Avant bouclage en latitude'
     407C       print*,'Avant bouclage en latitude'
    408408      DO l=1,llm
    409409        DO ij=iip1+iip1,ip1jm,iip1
     
    512512
    513513c
    514         PRINT*,'CALCUL EN LATITUDE'
     514c       PRINT*,'CALCUL EN LATITUDE'
    515515
    516516      DO l = 1, llm
Note: See TracChangeset for help on using the changeset viewer.