/[MITgcm]/MITgcm/model/inc/DYNVARS.h
ViewVC logotype

Annotation of /MITgcm/model/inc/DYNVARS.h

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

Revision 1.22 - (hide annotations) (download)
Thu Oct 9 04:19:18 2003 UTC (20 years, 7 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint51o_pre, checkpoint51l_post, checkpoint51n_post, checkpoint51n_pre, checkpoint51l_pre, checkpoint51i_post, checkpoint51o_post, checkpoint51m_post
Branch point for: tg2-branch, checkpoint51n_branch
Changes since 1.21: +4 -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.22 C $Header: /u/u3/gcmpack/MITgcm/model/inc/DYNVARS.h,v 1.21.2.1 2003/10/02 18:10:45 edhill Exp $
2 jmc 1.16 C $Name: $
3 edhill 1.22
4     #include "PACKAGES_CONFIG.h"
5    
6 cnh 1.17 CBOP
7     C !ROUTINE: DYNVARS.h
8     C !INTERFACE:
9     C include "DYNVARS.h"
10     C !DESCRIPTION:
11     C \bv
12     C *==========================================================*
13     C | DYNVARS.h
14     C | o Dynamical model variables (common block DYNVARS_R)
15     C *==========================================================*
16     C | The value and two levels of time tendency are held for
17     C | each prognostic variable.
18     C *==========================================================*
19     C \ev
20     CEOP
21 cnh 1.1 C
22 jmc 1.12 C etaN - free-surface r-anomaly (r unit) at current time level
23 cnh 1.1 C uVel - zonal velocity (m/s, i=1 held at western face)
24     C vVel - meridional velocity (m/s, j=1 held at southern face)
25     C theta - potential temperature (oC, held at pressure/tracer point)
26     C salt - salinity (ppt, held at pressure/tracer point)
27 cnh 1.4 C gX, gXNM1 - Time tendencies at current and prvious time levels.
28     C uVelD - D grid zonal velocity
29     C vVelD - D grid meridional velocity
30 jmc 1.16 C etaH - surface r-anomaly, advanced in time consistently
31     C with 2.D flow divergence (Exact-Conservation):
32     C etaH^n+1 = etaH^n - delta_t*Div.(H^n U^n)
33     C note: a) used with "exactConserv" but strictly necessary for NonLinFreeSurf
34     C b) same as etaN but not necessarely at the same time, e.g.:
35     C implicDiv2DFlow=0 => etaH=etaN ; =1 => etaH=etaNm1 ;
36 adcroft 1.9
37 adcroft 1.13 COMMON /DYNVARS_R/
38 jmc 1.16 & etaN, etaH,
39 adcroft 1.13 & uVel,vVel,wVel,theta,salt,
40 adcroft 1.8 & gu,gv,gt,gs,guNm1,gvNm1,gtNm1,gsNm1
41 adcroft 1.13 _RL etaN (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
42 jmc 1.16 _RL etaH (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
43 cnh 1.5 _RL uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
44     _RL vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
45 adcroft 1.10 _RL wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
46 cnh 1.5 _RL theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
47     _RL salt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
48     _RL gu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
49     _RL gv(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
50     _RL gt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
51     _RL gs(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
52     _RL guNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
53     _RL gvNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
54     _RL gtNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
55     _RL gsNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
56 heimbach 1.15
57 cnh 1.7 #ifdef INCLUDE_CD_CODE
58 cnh 1.4 COMMON /DYNVARS_CD/
59     & uVelD, vVelD,
60 jmc 1.16 & etaNm1,
61 jmc 1.21 & uNM1, vNM1
62 cnh 1.5 _RL uVeld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
63     _RL vVeld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
64 jmc 1.16 _RL etaNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
65 cnh 1.5 _RL uNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
66     _RL vNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
67 cnh 1.4 #endif
68 heimbach 1.15
69 adcroft 1.14 #ifdef ALLOW_NONHYDROSTATIC
70     COMMON /DYNVARS_NH/ phi_nh
71     _RL phi_nh(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
72     #endif /* ALLOW_NONHYDROSTATIC */
73 heimbach 1.15
74 heimbach 1.19 cph(
75     cph the following block will eventually move to a separate
76     cph header file containing requires anomaly fields of control vars.
77     cph
78 heimbach 1.15 #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_DIFFKR_CONTROL))
79     COMMON /DYNVARS_DIFFKR/
80     & diffKr
81     _RL diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
82     #endif
83     #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_KAPGM_CONTROL))
84     COMMON /DYNVARS_KAPGM/
85     & kapgm
86     _RL kapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
87     #endif
88 heimbach 1.19 #if (defined (ALLOW_AUTODIFF_TAMC) && defined (ALLOW_BOTTOMDRAG_CONTROL))
89     COMMON /DYNVARS_BOTTOMDRAG/
90     & bottomdragfld
91     _RL bottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
92     #endif
93     cph
94     cph)
95 mlosch 1.18
96 jmc 1.20 C diagnostic variables:
97     C phiHydLow :: Phi-Hydrostatic at r-lower boundary
98     C (bottom in z-coordinates, top in p-coordinates)
99     C totPhiHyd :: total hydrostatic Potential (anomaly, for now),
100     C at cell center level ; includes surface contribution.
101     C (for diagnostic + used in Z-coord with EOS_funct_P)
102     COMMON /DYNVARS_DIAG/ phiHydLow, totPhiHyd
103 mlosch 1.18 _RL phiHydLow(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
104 jmc 1.20 _RL totPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
  ViewVC Help
Powered by ViewVC 1.1.22