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

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

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

Revision 1.11 - (show 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 C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/gmredi/GMREDI.h,v 1.11 2003/07/18 20:06:45 heimbach Exp $
2 C $Name: $
3
4 #ifdef ALLOW_GMREDI
5
6 C Package flag
7 logical GMREDIisON
8 logical GM_AdvForm
9 logical GM_AdvSeparate
10 logical GM_ExtraDiag
11 COMMON /GM_PACKAGE/ GMREDIisON,
12 & GM_AdvForm, GM_AdvSeparate,
13 & GM_ExtraDiag
14
15 C GM/Redi parameters
16 C GM_Small_Number :: epsilon used in computing the slope
17 C GM_slopeSqCutoff :: slope^2 cut-off value
18 _RL GM_isopycK
19 _RL GM_background_K
20 _RL GM_maxSlope
21 _RL GM_Kmin_horiz
22 _RL GM_Small_Number
23 _RL GM_slopeSqCutoff
24 _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 COMMON /GM_PARAMS/ GM_isopycK, GM_background_K,
32 & GM_maxSlope,
33 & GM_Kmin_horiz,
34 & GM_Small_Number, GM_slopeSqCutoff,
35 & 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 _RL op5
44 _RL op25
45 PARAMETER( op5 = 0.5D0 )
46 PARAMETER( op25 = 0.25D0 )
47
48 C More GM/Redi parameters diagnosed from previous block
49 C (not directly user configured)
50 _RL GM_rMaxSlope
51 _RL GM_skewflx
52 _RL GM_advect
53 COMMON /GM_PARAMS2/ GM_rMaxSlope,
54 & GM_skewflx, GM_advect
55
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 _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 COMMON /GM_Wtensor/ Kwx,Kwy,Kwz
66
67 #ifdef GM_NON_UNITY_DIAGONAL
68 C Horizontal part of the tensor
69 C Kux is K_11 element, X direction at U point
70 C Kvy is K_22 element, Y direction at V point
71 _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 COMMON /GM_HorTensor/ Kux,Kvy
74 #else
75 _RL Kux,Kvy
76 PARAMETER(Kux=1.,Kvy=1.)
77 #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 #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 _RL VisbeckK(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
103 COMMON /GM_Visbeck/ VisbeckK
104 #endif
105
106 #endif /* ALLOW_GMREDI */
  ViewVC Help
Powered by ViewVC 1.1.22