/[MITgcm]/MITgcm/pkg/timeave/TIMEAVE_STATV.h
ViewVC logotype

Diff of /MITgcm/pkg/timeave/TIMEAVE_STATV.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Thu Jan 3 16:25:44 2002 UTC revision 1.9 by edhill, Fri Oct 24 05:29:36 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "TIMEAVE_OPTIONS.h"
5    
6  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
7    
8  CBOP  CBOP
# Line 34  C     Eta2tave     ::  eta * eta Line 36  C     Eta2tave     ::  eta * eta
36  C     TTtave       :: theta * theta  C     TTtave       :: theta * theta
37  C     UUtave       :: uVel * uVel (used to compute the averaged KE)  C     UUtave       :: uVel * uVel (used to compute the averaged KE)
38  C     VVtave       :: vVel * vVel (used to compute the averaged KE)  C     VVtave       :: vVel * vVel (used to compute the averaged KE)
39    C     UVtave       :: uVel * vVel (at vorticity point, i.e. grid-corner)
40  C     KEtave       :: Kinetic Energy  C     KEtave       :: Kinetic Energy
41  C     UTtave       :: uVel * theta (* hFacW)  C     UTtave       :: uVel * theta (* hFacW)
42  C     VTtave       :: vVel * theta (* hFacS)  C     VTtave       :: vVel * theta (* hFacS)
43  C     WTtave       :: wVel * theta  C     WTtave       :: wVel * theta
44    C     tDiffRtave   :: vertical diffusion flux of Temperature (theta)
45    C     uZetatave   ::  uVel*Relativ_Vorticity_3 (computed at v point)
46    C     vZetatave   ::  vVel*Relativ_Vorticity_3 (computed at u point)
47  C     phiHydtave   :: Hydrostatic (ocean) pressure / (atmos) geo- Potential  C     phiHydtave   :: Hydrostatic (ocean) pressure / (atmos) geo- Potential
48    C     phiHydLowtave:: Hydrostatic (ocean) pressure / (atmos) geo- Potential
49    C                     at the fixed boundary: (ocean) bottom pressure
50    C                     (atmos) geo- Potential
51  C     ConvectCountTave :: Average number of convective adjustment event  C     ConvectCountTave :: Average number of convective adjustment event
52    
53        COMMON /TAVE_TIME/ TimeAve_half,TimeAve_full        COMMON /TAVE_TIME/ TimeAve_half,TimeAve_full
# Line 49  C     ConvectCountTave :: Average number Line 58  C     ConvectCountTave :: Average number
58       &                  etatave,Eta2tave,       &                  etatave,Eta2tave,
59       &                  uVeltave,vVeltave,wVeltave,       &                  uVeltave,vVeltave,wVeltave,
60       &                  thetatave,salttave,       &                  thetatave,salttave,
61       &                  TTtave,UUtave,VVtave,       &                  TTtave,UUtave,VVtave,UVtave,
62       &                  UTtave,VTtave,WTtave,       &                  UTtave,VTtave,WTtave,TdiffRtave,
63       &                  phiHydtave,ConvectCountTave       &                  phiHydtave,
64         &                  phiHydLowtave,phiHydLow2Tave,
65         &                  ConvectCountTave
66  c    &                 ,KEtave  c    &                 ,KEtave
67        _RL  etatave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  etatave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
68        _RL  eta2Tave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  eta2Tave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 63  c    &                 ,KEtave Line 74  c    &                 ,KEtave
74        _RL  TTtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  TTtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
75        _RL  UUtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  UUtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
76        _RL  VVtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  VVtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
77          _RL  UVtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
78  c     _RL  KEtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)  c     _RL  KEtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
79        _RL  UTtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  UTtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
80        _RL  VTtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  VTtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
81        _RL  WTtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  WTtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
82          _RL TdiffRtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
83    #ifndef DISABLE_MOM_VECINV
84          _RL uZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
85          _RL vZetatave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
86    #endif
87        _RL phiHydtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL phiHydtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
88          _RL phiHydLowtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
89          _RL phiHydLow2Tave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90        _RL ConvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL ConvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
91    
92  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22