1 |
cswdptr --- added routine ---- |
2 |
|
3 |
#ifdef ALLOW_PTRACERS |
4 |
#ifdef ALLOW_TIMEAVE |
5 |
|
6 |
CBOP |
7 |
C !ROUTINE: PTRACERS_STATV.h |
8 |
C !INTERFACE: |
9 |
C *================================================================* |
10 |
C | PTRACERS_STATV.h |
11 |
C | o Time averages of model state-variables |
12 |
C *================================================================* |
13 |
C | Time average of state variables is (generally) centered on the |
14 |
C | middle of the time step (time average interval = TimeAve_half) |
15 |
C | Time average of intermediate and tandancy variables is centered |
16 |
C | on the time step (time average interval=TimeAve_full) |
17 |
C *================================================================* |
18 |
C \ev |
19 |
CEOP |
20 |
|
21 |
C ptracerFluxtave: surface ptracer flux (mol/m2/s, >0 for increase in ptracer) |
22 |
C ptracertave : tracer values (mol/m-3) |
23 |
|
24 |
COMMON /TAVE_PTRACER/ |
25 |
& ptracerFluxtave, ptracertave, |
26 |
& ptracer_half , ptracer_full |
27 |
_RL ptracerFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy, |
28 |
& PTRACERS_num) |
29 |
_RL ptracertave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
30 |
& PTRACERS_num) |
31 |
_RL ptracer_half(Nr,nSx,nSy), ptracer_full(Nr,nSx,nSy) |
32 |
|
33 |
#endif /* ALLOW_TIMEAVE */ |
34 |
#endif |