2 |
#include "GCHEM_OPTIONS.h" |
#include "GCHEM_OPTIONS.h" |
3 |
|
|
4 |
C !INTERFACE: ========================================================== |
C !INTERFACE: ========================================================== |
5 |
SUBROUTINE TRACER_MEANAREA(myIter,myTime,myThid,tracer, kLev, |
SUBROUTINE TRACER_MEANAREA(myThid,tracer, kLev, |
6 |
& gsm_tracer) |
& gsm_tracer) |
7 |
IMPLICIT NONE |
IMPLICIT NONE |
8 |
#include "SIZE.h" |
#include "SIZE.h" |
10 |
#include "DYNVARS.h" |
#include "DYNVARS.h" |
11 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
12 |
#include "PARAMS.h" |
#include "PARAMS.h" |
|
#ifdef DIC_ABIOTIC |
|
|
#include "DIC_ABIOTIC.h" |
|
|
#endif |
|
13 |
C !INPUT PARAMETERS: =================================================== |
C !INPUT PARAMETERS: =================================================== |
14 |
C myThid :: thread number |
C myThid :: thread number |
15 |
INTEGER myThid, myIter |
INTEGER myThid |
|
_RL myTime |
|
16 |
INTEGER kLev |
INTEGER kLev |
17 |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
_RL tracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy) |
18 |
_RL gsm_tracer |
_RL gsm_tracer |