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