/[lmdze]/trunk/Sources/dyn3d/advx.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/advx.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 66 by guez, Thu Sep 20 13:00:41 2012 UTC
# Line 6  Line 6 
6        use dimens_m        use dimens_m
7        use paramet_m        use paramet_m
8        use comconst        use comconst
9        use comvert        use disvert_m
10        IMPLICIT NONE        IMPLICIT NONE
11    
12  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
# Line 448  C Line 448  C
448  C  C
449   1    CONTINUE   1    CONTINUE
450  C  C
 C ----------- AA Test en fin de ADVX ------ Controle des S*  
 c OK  
 c      DO 9998 l = 1, llm  
 c      DO 9998 j = 1, jjp1  
 c      DO 9998 i = 1, iip1  
 c         IF (S0(i,j,l,ntra).lt.0..and.LIMIT) THEN  
 c            PRINT*, '-------------------'  
 c            PRINT*, 'En fin de ADVX'  
 c            PRINT*,'SM(',i,j,l,')=',SM(i,j,l)  
 c            PRINT*,'S0(',i,j,l,')=',S0(i,j,l,ntra)  
 c            print*, 'sx(',i,j,l,')=',sx(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 ADVX1'  
 cc            STOP  
 c         ENDIF  
 c 9998 CONTINUE  
 c  
451  C ---------- bouclage cyclique  C ---------- bouclage cyclique
452        DO itrac=1,ntra        DO itrac=1,ntra
453        DO l = 1,llm        DO l = 1,llm
Legend:
Removed from v.31  
changed lines
  Added in v.66
  ViewVC Help
Powered by ViewVC 1.1.21