/[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

trunk/libf/dyn3d/advx.f revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/dyn3d/advx.f revision 76 by guez, Fri Nov 15 18:45:49 2013 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 39  C ATTENTION partout ou on trouve ntra, i Line 39  C ATTENTION partout ou on trouve ntra, i
39  C           possible dans l'avenir.  C           possible dans l'avenir.
40    
41        REAL dtx        REAL dtx
42        REAL pbaru ( iip1,jjp1,llm )        REAL, intent(in):: pbaru ( iip1,jjp1,llm )
43    
44  C  moments: SM  total mass in each grid box  C  moments: SM  total mass in each grid box
45  C           S0  mass of tracer in each grid box  C           S0  mass of tracer in each grid box
# 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.3  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21