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

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

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

Revision 1.7 - (hide annotations) (download)
Thu Oct 9 04:19:20 2003 UTC (20 years, 8 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint51l_post, checkpoint51n_pre, checkpoint51l_pre, checkpoint51i_post, checkpoint51m_post
Branch point for: tg2-branch
Changes since 1.6: +3 -1 lines
File MIME type: text/plain 
 o first check-in for the "branch-genmake2" merge
 o verification suite as run on shelley (gcc 3.2.2):

Wed Oct  8 23:42:29 EDT 2003
                T           S           U           V
G D M    c        m  s        m  s        m  s        m  s
E p a R  g  m  m  e  .  m  m  e  .  m  m  e  .  m  m  e  .
N n k u  2  i  a  a  d  i  a  a  d  i  a  a  d  i  a  a  d
2 d e n  d  n  x  n  .  n  x  n  .  n  x  n  .  n  x  n  .

OPTFILE=NONE

Y Y Y Y 13 16 16 16  0 16 16 16 16 16 16 16 16 13 12  0  0 pass  adjustment.128x64x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16  0  0 16 16  0  0 pass  adjustment.cs-32x32x1
Y Y Y Y 16 16 16 16  0 16 16 16 16 16 16 22  0 16 16 22  0 pass  adjust_nlfs.cs-32x32x1
Y Y Y Y -- 13 13 16 16 13 13 13 13 16 16 16 16 16 16 16 16 N/O   advect_cs
Y Y Y Y -- 22 16 16 16 16 16 16 13 16 16 16 16 16 16 16 16 N/O   advect_xy
Y Y Y Y -- 13 16 13 16 16 16 16 16 16 16 22 16 16 16 16 16 N/O   advect_xz
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  aim.5l_cs
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 16 16 16 16 13 16 pass  aim.5l_Equatorial_Channel
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 13 16 16 13 13 16 pass  aim.5l_LatLon
Y Y Y Y 13 16 16 16 16 16 16 16 16 16 13 12 13 13 16 13 16 pass  exp0
Y Y Y Y 14 16 16 16 16 16 16 16 22 16 16 16 13 16 16 22 16 pass  exp1
Y Y Y Y 13 13 16 13 16 16 16 16 16 13 13 16 16 13 13 13 13 pass  exp2
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  exp4
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 22 16 16 16 22 16 pass  exp5
Y Y Y Y 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 pass  front_relax
Y Y Y Y 14 16 16 13 13 16 16 13 13 16 13 13 16 12 13 13 16 pass  global_ocean.90x40x15
Y Y Y Y 10 16 16 13 13 16 13 16 16 13 13 13 13 16 16 13 16 FAIL  global_ocean.cs32x15
Y Y Y Y  6 11 12 13 13 12 13 16 13  9  9  9  9 10  9  9 11 FAIL  global_ocean_pressure
Y Y Y Y 14 16 16 13 16 16 16 13 13 13 13 13 16 12 16 13 16 pass  global_with_exf
Y Y Y Y 14 16 16 16 16 16 16 16 16 11 13 22 13 16 16  9 16 pass  hs94.128x64x5
Y Y Y Y 13 16 16 16 16 16 16 16 16 11 16 16 16 13 16 22 13 pass  hs94.1x64x5
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 16 13 13 16 16 22 13 pass  hs94.cs-32x32x5
Y Y Y Y 10 10 16 13 13 16 16 16 22 16 13 13 13 13 13 22 13 FAIL  ideal_2D_oce
Y Y Y Y  8 16 16 16 16 16 16 16 16 13 13  8 16 16 16 16 16 FAIL  internal_wave
Y Y Y Y 14 16 16 16 16 16 16 16 16 13 13 22 13 13 13 22 16 pass  inverted_barometer
Y Y Y Y 12 16 16 16 16 16 16 16 16 16 13 12 13 13 13 13 13 FAIL  lab_sea
Y Y Y Y 11 16 16 16 16 16 16 16 13 13 13 12 13 16 13 12 13 FAIL  natl_box
Y Y Y Y 16 16 16 16 16 16 16 16 22 16 16 16 16 16 16 16 16 pass  plume_on_slope
Y Y Y Y 13 16 16 16 16 13 16 16 16 16 16 16 16 13 16 16 16 pass  solid-body.cs-32x32x1
1 edhill 1.7 C $Header: /u/u3/gcmpack/MITgcm/pkg/timeave/TIMEAVE_STATV.h,v 1.6.2.1 2003/10/02 18:18:34 adcroft Exp $
2 jmc 1.1 C $Name: $
3 edhill 1.7
4     #include "TIMEAVE_OPTIONS.h"
5 jmc 1.3
6     #ifdef ALLOW_TIMEAVE
7    
8     CBOP
9     C !ROUTINE: TIMEAVE_STATV.h
10     C !INTERFACE:
11     C include "TIMEAVE_STATV.h"
12     C !DESCRIPTION: \bw
13     C *================================================================*
14     C | TIMEAVE_STATV.h
15     C | o Time averages of model state-variables
16     C | (common block TAVE_STATEVARS)
17     C *================================================================*
18     C | Time average of state variables is (generally) centered on the
19     C | middle of the time step (time average interval = TimeAve_half)
20     C | Time average of intermediate and tandancy variables is centered
21     C | on the time step (time average interval=TimeAve_full)
22     C *================================================================*
23     C \ev
24     CEOP
25    
26     C TimeAve_* :: time of temporal integration (s) *** for each thread ***
27     C TimeAve_half :: half time_step multiple (used for state variables)
28     C TimeAve_full :: full time_step multiple (used for for intermediate var.)
29     C etatave :: surface displacement (r unit, i.e. ocean:z, atmos:p)
30     C uVeltave :: zonal velocity (m/s, i=1 held at western face)
31     C vVeltave :: meridional velocity (m/s, j=1 held at southern face)
32     C wVeltave :: vertical velocity ([r]/s, i.e.: ocean:m/s atmos:Pa/s)
33     C thetatave :: potential temperature (oC, held at pressure/tracer point)
34     C salttave :: salinity (ppt, held at pressure/tracer point)
35     C Eta2tave :: eta * eta
36     C TTtave :: theta * theta
37     C UUtave :: uVel * uVel (used to compute the averaged KE)
38     C VVtave :: vVel * vVel (used to compute the averaged KE)
39 jmc 1.5 C UVtave :: uVel * vVel (at vorticity point, i.e. grid-corner)
40 jmc 1.3 C KEtave :: Kinetic Energy
41     C UTtave :: uVel * theta (* hFacW)
42     C VTtave :: vVel * theta (* hFacS)
43     C WTtave :: wVel * theta
44 jmc 1.5 C tDiffRtave :: vertical diffusion flux of Temperature (theta)
45 jmc 1.6 C uZetatave :: uVel*Relativ_Vorticity_3 (computed at v point)
46     C vZetatave :: vVel*Relativ_Vorticity_3 (computed at u point)
47 jmc 1.3 C phiHydtave :: Hydrostatic (ocean) pressure / (atmos) geo- Potential
48 mlosch 1.4 C phiHydLowtave:: Hydrostatic (ocean) pressure / (atmos) geo- Potential
49     C at the fixed boundary: (ocean) bottom pressure
50     C (atmos) geo- Potential
51 jmc 1.3 C ConvectCountTave :: Average number of convective adjustment event
52 jmc 1.1
53     COMMON /TAVE_TIME/ TimeAve_half,TimeAve_full
54     _RL TimeAve_half(Nr,nSx,nSy)
55     _RL TimeAve_full(Nr,nSx,nSy)
56    
57     COMMON /TAVE_STATEVARS/
58 jmc 1.3 & etatave,Eta2tave,
59     & uVeltave,vVeltave,wVeltave,
60     & thetatave,salttave,
61 jmc 1.5 & TTtave,UUtave,VVtave,UVtave,
62     & UTtave,VTtave,WTtave,TdiffRtave,
63 mlosch 1.4 & phiHydtave,
64     & phiHydLowtave,phiHydLow2Tave,
65     & ConvectCountTave
66 jmc 1.3 c & ,KEtave
67     _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)
69 jmc 1.1 _RL uVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
70     _RL vVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
71 jmc 1.3 _RL wVeltave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
72 jmc 1.1 _RL thetatave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
73     _RL salttave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
74 adcroft 1.2 _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)
76     _RL VVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
77 jmc 1.5 _RL UVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
78 jmc 1.3 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)
80     _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)
82 jmc 1.5 _RL TdiffRtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
83 jmc 1.6 #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 jmc 1.1 _RL phiHydtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
88 mlosch 1.4 _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 jmc 1.1 _RL ConvectCountTave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
91 jmc 1.3
92     #ifdef NONLIN_FRSURF
93     C hUtave :: average zonal flow (=hFacW*uVel) (still in m/s !)
94     C hVtave :: average merid.flow (=hFacS*vVel) (still in m/s !)
95     C hFacCtave :: average thickness fraction of open water, Center
96     C hFacWtave :: average thickness fraction of open water, West side
97     C hFacStave :: average thickness fraction of open water, South side
98    
99     COMMON /TAVE_THICKNESS/
100     & hUtave, hVtave
101     c & , hFacCtave, hFacWtave, hFacStave
102     _RL hUtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
103     _RL hVtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
104     c _RL hFacCtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
105     c _RL hFacWtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
106     c _RL hFacStave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
107     #endif /* NONLIN_FRSURF */
108    
109     #endif /* ALLOW_TIMEAVE */
  ViewVC Help
Powered by ViewVC 1.1.22