1 |
C $Header: /u/gcmpack/MITgcm/pkg/kpp/KPP_TAVE.h,v 1.2 2010/01/02 23:19:59 jmc Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_KPP |
5 |
|
6 |
C *==========================================================* |
7 |
C | KPP_TAVE.h |
8 |
C | o Header for KPP time-average output |
9 |
C *==========================================================* |
10 |
|
11 |
#ifdef ALLOW_TIMEAVE |
12 |
C---------------------------------------------------------------- |
13 |
C kpp_drctrecTave - next record to dump for KPP averaging files |
14 |
C---------------------------------------------------------------- |
15 |
|
16 |
INTEGER kpp_drctrecTave |
17 |
COMMON /KPP_RECORDNUM2/ kpp_drctrecTave |
18 |
|
19 |
C---------------------------------------------------------------- |
20 |
C KPP_timeAve - Cumulated time (s) for time-average fields |
21 |
C---------------------------------------------------------------- |
22 |
|
23 |
_RL KPP_timeAve(nSx,nSy) |
24 |
COMMON /KPP_TAVE_COUNT/ KPP_timeAve |
25 |
|
26 |
C---------------------------------------------------------------- |
27 |
C KPP*tave - Time-averaging KPP variables |
28 |
C---------------------------------------------------------------- |
29 |
|
30 |
_RL KPPviscAztave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
31 |
_RL KPPdiffKzTtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
32 |
_RL KPPdiffKzStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
33 |
_RL KPPghatKStave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
34 |
_RL KPPhbltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
35 |
COMMON /KPP_TAVE_FIELDS/ |
36 |
& KPPviscAztave, KPPdiffKzTtave, KPPdiffKzStave, |
37 |
& KPPghatKStave, KPPhbltave |
38 |
|
39 |
#endif /* ALLOW_TIMEAVE */ |
40 |
#endif /* ALLOW_KPP */ |
41 |
|
42 |
CEH3 ;;; Local Variables: *** |
43 |
CEH3 ;;; mode:fortran *** |
44 |
CEH3 ;;; End: *** |