File indexing completed on 2023-08-29 05:10:28 UTC
view on githubraw file Latest commit b038e3cc on 2023-08-28 16:15:16 UTC
89474f9a5c Mart*0001 #ifdef ALLOW_GGL90
0002
0003
0004
0005
0006
9293d3c672 Hajo*0007
89474f9a5c Mart*0008
0009
0010
0011
0012
9293d3c672 Hajo*0013
89474f9a5c Mart*0014
0015
0016
0017
a8850cd0fd Jean*0018
89474f9a5c Mart*0019
a8850cd0fd Jean*0020
89474f9a5c Mart*0021
0022
0023
0024
0025
0026
6ab314cf42 Mart*0027
0028
b038e3cc4f Mart*0029
0030
0031
a8850cd0fd Jean*0032
89474f9a5c Mart*0033
0034
ab33ce9f77 Gael*0035
0036
b038e3cc4f Mart*0037
0038
1d389ab3d9 Jean*0039
0040
31f96e9372 Jean*0041
0042
89474f9a5c Mart*0043
31a3206180 Mart*0044
57a618d609 Mart*0045
0046
31a3206180 Mart*0047
0048
9293d3c672 Hajo*0049
0050
0051
89474f9a5c Mart*0052
0053
0054
0055
0320e25227 Mart*0056
0057
89474f9a5c Mart*0058
0059
a8850cd0fd Jean*0060
89474f9a5c Mart*0061
0062
0063
0064
0065
0066 _RL SQRTTWO
0067 PARAMETER ( SQRTTWO = 1.41421356237310D0 )
0068 _RL GGL90eps
0069 PARAMETER ( GGL90eps = 2.23D-16 )
0070
0071 CHARACTER*(MAX_LEN_FNAM) GGL90TKEFile
0072 COMMON /GGL90_PARMS_C/ GGL90TKEFile
0073
0074 _RL GGL90ck, GGL90ceps
0075 _RL GGL90alpha, GGL90m2
76f580e1f0 Mart*0076 _RL GGL90diffTKEh
89474f9a5c Mart*0077 _RL GGL90mixingLengthMin
6ab314cf42 Mart*0078 _RL GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom
89474f9a5c Mart*0079 _RL GGL90viscMax, GGL90diffMax
016b84c482 Mart*0080 _RL GGL90dumpFreq
004d5ee949 Davi*0081 INTEGER mxlMaxFlag
b038e3cc4f Mart*0082 INTEGER adMxlMaxFlag
a8850cd0fd Jean*0083 COMMON /GGL90_PARMS_R/
89474f9a5c Mart*0084 & GGL90ck, GGL90ceps,
0085 & GGL90alpha, GGL90m2,
76f580e1f0 Mart*0086 & GGL90diffTKEh,
89474f9a5c Mart*0087 & GGL90mixingLengthMin,
6ab314cf42 Mart*0088 & GGL90TKEmin, GGL90TKEsurfMin, GGL90TKEbottom,
89474f9a5c Mart*0089 & GGL90viscMax, GGL90diffMax,
b038e3cc4f Mart*0090 & GGL90dumpFreq, mxlMaxFlag, adMxlMaxFlag
89474f9a5c Mart*0091
f6b150f7f1 Gael*0092 _RL GGL90TKE (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0093 _RL GGL90viscArU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0094 _RL GGL90viscArV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0095 _RL GGL90diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
89474f9a5c Mart*0096 COMMON /GGL90_FIELDS/ GGL90TKE,
f6b150f7f1 Gael*0097 & GGL90viscArU, GGL90viscArV, GGL90diffKr
89474f9a5c Mart*0098
0099 LOGICAL GGL90isOn, GGL90mixingMaps, GGL90writeState
1d389ab3d9 Jean*0100 LOGICAL GGL90_dirichlet, mxlSurfFlag, calcMeanVertShear
0101 LOGICAL useIDEMIX
9293d3c672 Hajo*0102 LOGICAL useLANGMUIR
89474f9a5c Mart*0103 COMMON /GGL90_PARMS_L/
ab33ce9f77 Gael*0104 & GGL90isOn, GGL90mixingMaps, GGL90writeState,
1d389ab3d9 Jean*0105 & GGL90_dirichlet, mxlSurfFlag, calcMeanVertShear,
9293d3c672 Hajo*0106 & useIDEMIX, useLANGMUIR
89474f9a5c Mart*0107
004d5ee949 Davi*0108 #ifdef ALLOW_GGL90_SMOOTH
f6b150f7f1 Gael*0109 COMMON /GGL90_CORNER/ mskCor
004d5ee949 Davi*0110 _RL mskCor(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0111 #endif
0112
31a3206180 Mart*0113 #ifdef ALLOW_GGL90_IDEMIX
0320e25227 Mart*0114
31f96e9372 Jean*0115
0320e25227 Mart*0116
0117
0118
0119
0120
31f96e9372 Jean*0121
0320e25227 Mart*0122
0123
0124
0125
31f96e9372 Jean*0126
0127
0128
0129
0130
0131
0132
0133
0320e25227 Mart*0134
31f96e9372 Jean*0135 _RL IDEMIX_tau_v, IDEMIX_tau_h, IDEMIX_gamma, IDEMIX_jstar
0320e25227 Mart*0136 _RL IDEMIX_mu0, IDEMIX_diff_min
0137 _RL IDEMIX_mixing_efficiency, IDEMIX_diff_max
0138 _RL IDEMIX_frac_F_b, IDEMIX_frac_F_s
0139
31f96e9372 Jean*0140
0320e25227 Mart*0141
31f96e9372 Jean*0142
0143
0320e25227 Mart*0144
0145
0146
31f96e9372 Jean*0147
0320e25227 Mart*0148
31f96e9372 Jean*0149 _RL IDEMIX_E (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0150 _RL IDEMIX_F_B(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
0151 _RL IDEMIX_F_S(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy)
31a3206180 Mart*0152
31f96e9372 Jean*0153 COMMON /GGL90_IDEMIX_VARS/ IDEMIX_E, IDEMIX_F_b, IDEMIX_F_S
0154
0155 COMMON /GGL90_IDEMIX_R/
0156 & IDEMIX_tau_v, IDEMIX_tau_h, IDEMIX_gamma, IDEMIX_jstar,
0157 & IDEMIX_mu0, IDEMIX_mixing_efficiency, IDEMIX_diff_max,
0158 & IDEMIX_diff_min, IDEMIX_frac_F_b, IDEMIX_frac_F_s
31a3206180 Mart*0159
a8850cd0fd Jean*0160 CHARACTER*(MAX_LEN_FNAM)
0161 & IDEMIX_tidal_file, IDEMIX_wind_file
0320e25227 Mart*0162 COMMON /GLL90_IDEMIX_C/
0163 & IDEMIX_tidal_file, IDEMIX_wind_file
0164
a8850cd0fd Jean*0165 LOGICAL IDEMIX_include_GM, IDEMIX_include_GM_bottom
0320e25227 Mart*0166 COMMON /GLL90_IDEMIX_L/
a8850cd0fd Jean*0167 & IDEMIX_include_GM, IDEMIX_include_GM_bottom
31a3206180 Mart*0168 #endif /* ALLOW_GGL90_IDEMIX */
0169
9293d3c672 Hajo*0170 #ifdef ALLOW_GGL90_LANGMUIR
0171
0172
0173
0174 _RL LC_Gamma, LC_num, LC_lambda
0175 COMMON /GGL90_LCPARA/ LC_Gamma, LC_num, LC_lambda
0176 #endif /* ALLOW_GGL90_LANGMUIR */
0177
89474f9a5c Mart*0178 #endif /* ALLOW_GGL90 */