1 |
C $Header: /u/gcmpack/MITgcm/pkg/ptracers/PTRACERS_STATV.h,v 1.3 2004/07/13 16:47:11 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_PTRACERS |
5 |
#ifdef ALLOW_TIMEAVE |
6 |
|
7 |
CBOP |
8 |
C !ROUTINE: PTRACERS_STATV.h |
9 |
C !INTERFACE: |
10 |
C *================================================================* |
11 |
C | PTRACERS_STATV.h |
12 |
C | o Time averages of model state-variables |
13 |
C *================================================================* |
14 |
C | Time average of state variables is (generally) centered on the |
15 |
C | middle of the time step (time average interval = TimeAve_half) |
16 |
C | Time average of intermediate and tandancy variables is centered |
17 |
C | on the time step (time average interval=TimeAve_full) |
18 |
C *================================================================* |
19 |
C \ev |
20 |
CEOP |
21 |
|
22 |
C ptracerFluxtave: surface ptracer flux (mol/m2/s, >0 for increase in ptracer) |
23 |
C ptracertave : tracer values (mol/m-3) |
24 |
|
25 |
COMMON /TAVE_PTRACER/ |
26 |
& ptracerFluxtave, ptracertave, |
27 |
& ptracer_half , ptracer_full |
28 |
_RL ptracerFluxtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy, |
29 |
& PTRACERS_num) |
30 |
_RL ptracertave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, |
31 |
& PTRACERS_num) |
32 |
_RL ptracer_half(Nr,nSx,nSy), ptracer_full(Nr,nSx,nSy) |
33 |
|
34 |
#endif /* ALLOW_TIMEAVE */ |
35 |
#endif /* ALLOW_PTRACERS */ |
36 |
|
37 |
|
38 |
CEH3 ;;; Local Variables: *** |
39 |
CEH3 ;;; mode:fortran *** |
40 |
CEH3 ;;; End: *** |