/[MITgcm]/MITgcm/pkg/gmredi/GMREDI.h
ViewVC logotype

Annotation of /MITgcm/pkg/gmredi/GMREDI.h

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

Revision 1.11 - (hide annotations) (download)
Fri Jul 18 20:06:45 2003 UTC (20 years, 11 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint57m_post, checkpoint52l_pre, hrcube4, hrcube5, checkpoint57g_pre, checkpoint57b_post, checkpoint52d_pre, checkpoint57g_post, checkpoint56b_post, checkpoint52j_pre, checkpoint51o_pre, checkpoint54d_post, checkpoint54e_post, checkpoint51l_post, checkpoint57d_post, checkpoint57i_post, checkpoint52l_post, checkpoint52k_post, checkpoint55, checkpoint54, checkpoint57, checkpoint56, checkpoint53, checkpoint52, checkpoint52f_post, checkpoint57n_post, checkpoint54f_post, checkpoint51f_post, checkpoint51d_post, checkpoint51t_post, checkpoint51n_post, checkpoint55i_post, checkpoint57l_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint55c_post, checkpoint51j_post, checkpoint52e_pre, checkpoint57f_post, checkpoint52e_post, checkpoint51n_pre, checkpoint53d_post, checkpoint57a_post, checkpoint57h_pre, checkpoint52b_pre, checkpoint54b_post, checkpoint57h_post, checkpoint51l_pre, checkpoint52m_post, checkpoint55g_post, checkpoint51q_post, checkpoint52b_post, checkpoint52c_post, checkpoint51h_pre, checkpoint57c_post, checkpoint52f_pre, checkpoint55d_post, checkpoint54a_pre, checkpoint53c_post, checkpoint55d_pre, checkpoint57c_pre, checkpoint55j_post, branchpoint-genmake2, checkpoint54a_post, checkpoint55h_post, checkpoint51r_post, checkpoint51i_post, checkpoint57e_post, checkpoint55b_post, checkpoint53a_post, checkpoint55f_post, checkpoint52d_post, checkpoint53g_post, eckpoint57e_pre, checkpoint52a_pre, checkpoint52i_post, checkpoint51i_pre, checkpoint52h_pre, checkpoint56a_post, checkpoint53f_post, checkpoint57h_done, checkpoint52j_post, checkpoint57j_post, checkpoint57f_pre, branch-netcdf, checkpoint52n_post, checkpoint53b_pre, checkpoint56c_post, checkpoint51e_post, checkpoint57a_pre, checkpoint55a_post, checkpoint51o_post, checkpoint57k_post, checkpoint51f_pre, checkpoint53b_post, checkpoint52a_post, checkpoint51g_post, ecco_c52_e35, checkpoint51m_post, checkpoint53d_pre, checkpoint55e_post, checkpoint54c_post, checkpoint51p_post, checkpoint51u_post
Branch point for: branch-genmake2, branch-nonh, tg2-branch, netcdf-sm0, checkpoint51n_branch
Changes since 1.10: +3 -3 lines
File MIME type: text/plain 
Retain TAMC compatibility:
- avoid "_d" constructs in PARAMETER declarations
- avoid interrupting lines by comment lines
1 heimbach 1.11 C $Header: /u/gcmpack/MITgcm/pkg/gmredi/GMREDI.h,v 1.10 2003/01/13 19:02:45 jmc Exp $
2 jmc 1.10 C $Name: $
3 adcroft 1.1
4     #ifdef ALLOW_GMREDI
5 heimbach 1.2
6     C Package flag
7 adcroft 1.4 logical GMREDIisON
8 jmc 1.6 logical GM_AdvForm
9 jmc 1.7 logical GM_AdvSeparate
10 jmc 1.6 logical GM_ExtraDiag
11 jmc 1.7 COMMON /GM_PACKAGE/ GMREDIisON,
12     & GM_AdvForm, GM_AdvSeparate,
13     & GM_ExtraDiag
14 adcroft 1.1
15     C GM/Redi parameters
16 jmc 1.10 C GM_Small_Number :: epsilon used in computing the slope
17     C GM_slopeSqCutoff :: slope^2 cut-off value
18 jmc 1.6 _RL GM_isopycK
19 adcroft 1.1 _RL GM_background_K
20     _RL GM_maxSlope
21 jmc 1.6 _RL GM_Kmin_horiz
22 jmc 1.10 _RL GM_Small_Number
23     _RL GM_slopeSqCutoff
24 adcroft 1.1 _RL GM_Visbeck_alpha
25     _RL GM_Visbeck_length
26     _RL GM_Visbeck_depth
27     _RL GM_Visbeck_maxval_K
28     CHARACTER*(MAX_LEN_FNAM) GM_taper_scheme
29     _RL GM_Scrit
30     _RL GM_Sd
31 jmc 1.6 COMMON /GM_PARAMS/ GM_isopycK, GM_background_K,
32 adcroft 1.1 & GM_maxSlope,
33 jmc 1.6 & GM_Kmin_horiz,
34 jmc 1.10 & GM_Small_Number, GM_slopeSqCutoff,
35 adcroft 1.1 & GM_Visbeck_alpha,
36     & GM_Visbeck_length,
37     & GM_Visbeck_depth,
38     & GM_Visbeck_maxval_K,
39     & GM_taper_scheme,
40     & GM_Scrit,
41     & GM_Sd
42    
43 heimbach 1.9 _RL op5
44     _RL op25
45 heimbach 1.11 PARAMETER( op5 = 0.5D0 )
46     PARAMETER( op25 = 0.25D0 )
47 adcroft 1.1
48     C More GM/Redi parameters diagnosed from previous block
49     C (not directly user configured)
50     _RL GM_rMaxSlope
51 jmc 1.6 _RL GM_skewflx
52     _RL GM_advect
53     COMMON /GM_PARAMS2/ GM_rMaxSlope,
54     & GM_skewflx, GM_advect
55 adcroft 1.1
56     C GM/Redi tensor elements
57    
58     C Bottom row of tensor corresponds to W points
59     C Kwx is K_31 element, X direction at W point
60     C Kwy is K_32 element, Y direction at W point
61     C Kwz is K_33 element, Z direction at W point
62 heimbach 1.3 _RL Kwx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
63     _RL Kwy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
64     _RL Kwz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
65 adcroft 1.1 COMMON /GM_Wtensor/ Kwx,Kwy,Kwz
66    
67     #ifdef GM_NON_UNITY_DIAGONAL
68 jmc 1.6 C Horizontal part of the tensor
69 adcroft 1.1 C Kux is K_11 element, X direction at U point
70     C Kvy is K_22 element, Y direction at V point
71 heimbach 1.3 _RL Kux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
72     _RL Kvy(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
73 jmc 1.6 COMMON /GM_HorTensor/ Kux,Kvy
74 adcroft 1.1 #else
75     _RL Kux,Kvy
76     PARAMETER(Kux=1.,Kvy=1.)
77 jmc 1.6 #endif
78    
79     #ifdef GM_EXTRA_DIAGONAL
80     C First/second rows of tensor corresponds to U/V points
81     C Kuz is K_13 element, Z direction at U point
82     C Kvz is K_23 element, Z direction at V point
83     _RL Kuz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
84     _RL Kvz(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
85     COMMON /GM_UVtensor/ Kuz,Kvz
86     #else
87     _RL Kuz,Kvz
88     PARAMETER(Kuz=1.,Kvz=1.)
89     #endif
90    
91     #ifdef GM_BOLUS_ADVEC
92     C GM advection formulation: bolus velocities are derived from 2
93     C streamfunctions PsiX and PsiY :
94     _RL GM_PsiX(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
95     _RL GM_PsiY(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
96     COMMON /GM_BOLUS/ GM_PsiX,GM_PsiY
97 adcroft 1.1 #endif
98    
99     #ifdef GM_VISBECK_VARIABLE_K
100     C GM mixing/stirring coefficient (spatially variable in horizontal
101     C for Visbeck et al. parameterization)
102 heimbach 1.3 _RL VisbeckK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
103 adcroft 1.1 COMMON /GM_Visbeck/ VisbeckK
104     #endif
105    
106     #endif /* ALLOW_GMREDI */
  ViewVC Help
Powered by ViewVC 1.1.22