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 |
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC |
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC |
12 |
C C |
C C |
23 |
C definition de la grille du modele |
C definition de la grille du modele |
24 |
C |
C |
25 |
REAL dtx |
REAL dtx |
26 |
REAL pbaru ( iip1,jjp1,llm ) |
REAL, intent(in):: pbaru ( iip1,jjp1,llm ) |
27 |
C |
C |
28 |
C moments: SM total mass in each grid box |
C moments: SM total mass in each grid box |
29 |
C S0 mass of tracer in each grid box |
C S0 mass of tracer in each grid box |
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 |
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 |