diags/inc/AVER.h

C $Header: /u/gcmpack/MITgcm/diags/inc/AVER.h,v 1.9 2001/02/14 22:36:55 jmc Exp $
C $Name:  $
C
C--   98/06/12 - elk
C
C     /========================================================================\
C     | AVER.h                                                                 |
C     | o Time averages of Dynamical model variables (common block DYNVARS_A) |
C     |========================================================================|
C
C     TimeAve_* - time of temporal integration (s) *** for each thread ***
C     TimeAve_half - half time_step multiple (used for state variables)
C     TimeAve_full - full time_step multiple (used for for intermediate var.) 
C     uVeltave  - zonal velocity (m/s, i=1 held at western face)
C     vVeltave  - meridional velocity (m/s, j=1 held at southern face)
C     thetatave - potential temperature (oC, held at pressure/tracer point)
C     salttave  - salinity (ppt, held at pressure/tracer point)
C     uttave    - uVel * theta
C     vttave    - vVel * theta

      COMMON /TAVE_0/ TimeAve_half,TimeAve_full
      _RL TimeAve_half(Nr,nSx,nSy)
      _RL TimeAve_full(Nr,nSx,nSy)

      COMMON /DYNVARS_A/ 
     &                  uVeltave,vVeltave,wVeltave,
     &                  thetatave,salttave,uttave,vttave,
     &                  phiHydtave,ConvectCountTave
      _RL  uVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL  vVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL  thetatave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL  salttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL  uttave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL  vttave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL  wVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL phiHydtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
      _RL  ConvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
1	C $Header: /u/gcmpack/MITgcm/diags/inc/AVER.h,v 1.9 2001/02/14 22:36:55 jmc Exp $
2	C $Name: $
3	C
4	C-- 98/06/12 - elk
5	C
6	C /========================================================================\
7	C \| AVER.h \|
8	C \| o Time averages of Dynamical model variables (common block DYNVARS_A) \|
9	C \|========================================================================\|
10	C
11	C TimeAve_* - time of temporal integration (s) * for each thread *
12	C TimeAve_half - half time_step multiple (used for state variables)
13	C TimeAve_full - full time_step multiple (used for for intermediate var.)
14	C uVeltave - zonal velocity (m/s, i=1 held at western face)
15	C vVeltave - meridional velocity (m/s, j=1 held at southern face)
16	C thetatave - potential temperature (oC, held at pressure/tracer point)
17	C salttave - salinity (ppt, held at pressure/tracer point)
18	C uttave - uVel * theta
19	C vttave - vVel * theta
20
21	COMMON /TAVE_0/ TimeAve_half,TimeAve_full
22	_RL TimeAve_half(Nr,nSx,nSy)
23	_RL TimeAve_full(Nr,nSx,nSy)
24
25	COMMON /DYNVARS_A/
26	& uVeltave,vVeltave,wVeltave,
27	& thetatave,salttave,uttave,vttave,
28	& phiHydtave,ConvectCountTave
29	_RL uVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
30	_RL vVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
31	_RL thetatave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
32	_RL salttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
33	_RL uttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
34	_RL vttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
35	_RL wVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
36	_RL phiHydtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
37	_RL ConvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)