pkg/timeave/TIMEAVE_STATV.h

C $Header: /u/gcmpack/models/MITgcmUV/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     | TIMEAVE_STATV.h                                                        |
C     | o Time averages of model state-variables (common block TAVE_STATEVARS) |
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     etaTave   - surface displacement (r unit, i.e. ocean:z, atmos:p)
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_TIME/ TimeAve_half,TimeAve_full
      _RL TimeAve_half(Nr,nSx,nSy)
      _RL TimeAve_full(Nr,nSx,nSy)

      COMMON /TAVE_STATEVARS/ 
     &                  etaTave,uVeltave,vVeltave,wVeltave,
     &                  thetatave,salttave,uttave,vttave,
     &                  phiHydtave,ConvectCountTave
      _RL  etaTave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _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	jmc	1.1	C $Header: /u/gcmpack/models/MITgcmUV/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 \| TIMEAVE_STATV.h \|
8			C \| o Time averages of model state-variables (common block TAVE_STATEVARS) \|
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 etaTave - surface displacement (r unit, i.e. ocean:z, atmos:p)
15			C uVeltave - zonal velocity (m/s, i=1 held at western face)
16			C vVeltave - meridional velocity (m/s, j=1 held at southern face)
17			C thetatave - potential temperature (oC, held at pressure/tracer point)
18			C salttave - salinity (ppt, held at pressure/tracer point)
19			C uttave - uVel * theta
20			C vttave - vVel * theta
21
22			COMMON /TAVE_TIME/ TimeAve_half,TimeAve_full
23			_RL TimeAve_half(Nr,nSx,nSy)
24			_RL TimeAve_full(Nr,nSx,nSy)
25
26			COMMON /TAVE_STATEVARS/
27			& etaTave,uVeltave,vVeltave,wVeltave,
28			& thetatave,salttave,uttave,vttave,
29			& phiHydtave,ConvectCountTave
30			_RL etaTave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
31			_RL uVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
32			_RL vVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
33			_RL thetatave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
34			_RL salttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
35			_RL uttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
36			_RL vttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
37			_RL wVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
38			_RL phiHydtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
39			_RL ConvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)