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