/[lmdze]/trunk/libf/dyn3d/advxp.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/advxp.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# Line 95  C Line 95  C
95        latf = jjm        latf = jjm
96        niv = llm        niv = llm
97    
 C *** Test de passage d'arguments ******  
   
 c      DO 399 l = 1, llm  
 c       DO 399 j = 1, jjp1  
 c        DO 399 i = 1, iip1  
 c         IF (S0(i,j,l,ntra) .lt. 0. ) THEN  
 c         PRINT*,'S0(',i,j,l,')=',S0(i,j,l,ntra)  
 c            print*, 'SSX(',i,j,l,')=',SSX(i,j,l,ntra)  
 c         print*, 'SY(',i,j,l,')=',SY(i,j,l,ntra)  
 c         print*, 'SZ(',i,j,l,')=',SZ(i,j,l,ntra)  
 c         PRINT*, 'AIE !! debut ADVXP - pbl arg. passage dans ADVXP'  
 cc            STOP  
 c         ENDIF  
 c  399 CONTINUE  
   
98  C *** Test : diagnostique de la qtite totale de traceur  C *** Test : diagnostique de la qtite totale de traceur
99  C            dans l'atmosphere avant l'advection  C            dans l'atmosphere avant l'advection
100  c  c
# Line 605  C Line 590  C
590        ENDIF        ENDIF
591  C  C
592   1    CONTINUE   1    CONTINUE
 C  
 C ----------- AA Test en fin de ADVX ------ Controle des S*  
593    
 c      DO 9999 l = 1, llm  
 c      DO 9999 j = 1, jjp1  
 c      DO 9999 i = 1, iip1  
 c          IF (S0(i,j,l,ntra).lt.0..and.LIMIT) THEN  
 c           PRINT*, '-------------------'  
 c               PRINT*, 'En fin de ADVXP'  
 c           PRINT*,'S0(',i,j,l,')=',S0(i,j,l,ntra)  
 c               print*, 'SSX(',i,j,l,')=',SSX(i,j,l,ntra)  
 c           print*, 'SY(',i,j,l,')=',SY(i,j,l,ntra)  
 c               print*, 'SZ(',i,j,l,')=',SZ(i,j,l,ntra)  
 c            WRITE (*,*) 'On arrete !! - pbl en fin de ADVXP'  
 c            STOP  
 c           ENDIF  
 c 9999 CONTINUE  
594  c ---------- bouclage cyclique  c ---------- bouclage cyclique
595    
596        DO l = 1,llm        DO l = 1,llm
Legend:
Removed from v.31  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21