File indexing completed on 2025-07-08 05:10:40 UTC
view on githubraw file Latest commit 00c7090d on 2025-07-07 16:10:22 UTC
4c563c2ee9 Chri*0001
3b540d7094 Jean*0002
4c563c2ee9 Chri*0003
0004
0005
0006
0007
3b540d7094 Jean*0008
0009
4c563c2ee9 Chri*0010
6060ec2938 Dimi*0011
14c6f9452b Jean*0012
4c563c2ee9 Chri*0013
0014
0015
924557e60a Chri*0016
6060ec2938 Dimi*0017
0018
0019
0020
0021
4c84b0c69e Patr*0022
6060ec2938 Dimi*0023
0024
0025
0026
0027
4c84b0c69e Patr*0028
6c510a0118 Jean*0029
6060ec2938 Dimi*0030
0031
6c510a0118 Jean*0032
6060ec2938 Dimi*0033
8f02cfbf56 Dimi*0034
0035
0036
4c84b0c69e Patr*0037
ba0b047096 Mart*0038
cbf60149f1 Jean*0039
ba0b047096 Mart*0040
3e01d879d6 Jean*0041
0042
0043
2d2cc93d4f Jean*0044
0045
6060ec2938 Dimi*0046
0047
0048
4c84b0c69e Patr*0049
6060ec2938 Dimi*0050
0051
0052
0053
0054
4c84b0c69e Patr*0055
6060ec2938 Dimi*0056
0057
0058
ba0b047096 Mart*0059
6060ec2938 Dimi*0060
0061
7e00d7e8f9 Jean*0062
0ca98629d3 Patr*0063
7e00d7e8f9 Jean*0064
0ca98629d3 Patr*0065
8e1649be57 Jean*0066
0067
6285e7ac4f Jean*0068
0069
395b093796 Mart*0070
6285e7ac4f Jean*0071
0072
9cd260ffd3 Jean*0073
b52bf74a5e Jean*0074
0075
9cd260ffd3 Jean*0076
0077
0078
0079
434645f3d4 Jean*0080
43af9695da Gael*0081
0082
ac957095b5 Patr*0083
0084
4c84b0c69e Patr*0085
96243313d2 Patr*0086 COMMON /FFIELDS_fu/ fu
0087 COMMON /FFIELDS_fv/ fv
0088 COMMON /FFIELDS_Qnet/ Qnet
0089 COMMON /FFIELDS_Qsw/ Qsw
0090 COMMON /FFIELDS_EmPmR/ EmPmR
0091 COMMON /FFIELDS_saltFlux/ saltFlux
0092 COMMON /FFIELDS_SST/ SST
0093 COMMON /FFIELDS_SSS/ SSS
0094 COMMON /FFIELDS_lambdaThetaClimRelax/ lambdaThetaClimRelax
0095 COMMON /FFIELDS_lambdaSaltClimRelax/ lambdaSaltClimRelax
8e1649be57 Jean*0096 COMMON /FFIELDS_phiTide/ phiTide2d
3b540d7094 Jean*0097 COMMON /FFIELDS_pLoad/ pLoad
96243313d2 Patr*0098 COMMON /FFIELDS_sIceLoad/ sIceLoad
395b093796 Mart*0099
42bd47f06f Chri*0100 _RS fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0101 _RS fv (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
4edf45584c Alis*0102 _RS Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
2dcaa8b9a5 Patr*0103 _RS Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
9d424e3559 Alis*0104 _RS EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
3e01d879d6 Jean*0105 _RS saltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
ab42872a05 Alis*0106 _RS SST (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0107 _RS SSS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
96243313d2 Patr*0108 _RS lambdaThetaClimRelax(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0109 _RS lambdaSaltClimRelax(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
8e1649be57 Jean*0110 _RS phiTide2d(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
3b540d7094 Jean*0111 _RS pLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
b52bf74a5e Jean*0112 _RS sIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
4c84b0c69e Patr*0113
701e10a905 Mart*0114
0115
0116
0117
0118 COMMON /FFIELDS_INSITU_TEMP/ gcmSST
0119 _RL gcmSST(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0120
9cd260ffd3 Jean*0121 #ifdef ALLOW_ADDFLUID
0122 COMMON /FFIELDS_ADD_FLUID/ addMass
0123 _RL addMass(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
ac957095b5 Patr*0124 #endif
434645f3d4 Jean*0125 #ifdef ALLOW_FRICTION_HEATING
0126 COMMON /FFIELDS_frictionHeat/ frictionHeating
0127 _RS frictionHeating(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0128 #endif
90929f8806 Patr*0129 #ifdef ALLOW_GEOTHERMAL_FLUX
0130
0131
0132
0133
0134 COMMON /FFIELDS_geothermal/ geothermalFlux
0135 _RS geothermalFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0136 #endif
7e00d7e8f9 Jean*0137 #ifdef ALLOW_BALANCE_FLUXES
0138
0139
0140 COMMON /FFIELDS_W2BALANCE/ weight2BalanceFlx
0141 _RS weight2BalanceFlx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0142 #endif
3b540d7094 Jean*0143
00c7090dc0 Mart*0144 #ifdef SHORTWAVE_HEATING
0145
0146
0147
0148
0149
0150
0151 COMMON /FFIELDS_SWFRAC/ SWFrac3D
0152 _RS SWFrac3D(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr+1,nSx,nSy)
0153 #endif
9cd260ffd3 Jean*0154
43af9695da Gael*0155 #ifdef ALLOW_EDDYPSI
434645f3d4 Jean*0156
0157
0158
0159
0160
0161 COMMON /FFIELDS_eddyPsi_RS/ eddyPsiX, eddyPsiY
43af9695da Gael*0162 _RS eddyPsiX (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0163 _RS eddyPsiY (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
434645f3d4 Jean*0164
0165 COMMON /FFIELDS_eddyPsi_RL/
0166 & tauxEddy, tauyEddy, uEulerMean, vEulerMean
0167 _RL tauxEddy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0168 _RL tauyEddy (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0169 _RL uEulerMean(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0170 _RL vEulerMean(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0171 #endif /* ALLOW_EDDYPSI */
ac957095b5 Patr*0172
3b540d7094 Jean*0173 #ifndef EXCLUDE_FFIELDS_LOAD
632bf64d87 Jean*0174
1e273d1bf5 Jean*0175
0176
0177
0178
0179
0180
0181
0182
3b540d7094 Jean*0183
1e273d1bf5 Jean*0184
7b35cd391f Jean*0185
0186 COMMON /FFIELDS_I/ loadedRec
0187 INTEGER loadedRec(nSx,nSy)
650cc6304d Patr*0188
0189 COMMON /TDFIELDS/
0190 & taux0, tauy0, Qnet0, EmPmR0, SST0, SSS0,
1e273d1bf5 Jean*0191 & taux1, tauy1, Qnet1, EmPmR1, SST1, SSS1,
0192 & saltFlux0, saltFlux1
650cc6304d Patr*0193 #ifdef SHORTWAVE_HEATING
0194 & , Qsw0, Qsw1
3b540d7094 Jean*0195 #endif
8d218e2b5b suya*0196 #ifdef ALLOW_GEOTHERMAL_FLUX
80db5290f0 Jean*0197 & , geothFlux0, geothFlux1
8d218e2b5b suya*0198 #endif
650cc6304d Patr*0199 #ifdef ATMOSPHERIC_LOADING
3b540d7094 Jean*0200 & , pLoad0, pLoad1
650cc6304d Patr*0201 #endif
0202
0203 _RS taux0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0204 _RS tauy0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0205 _RS Qnet0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0206 _RS EmPmR0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
1e273d1bf5 Jean*0207 _RS saltFlux0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
650cc6304d Patr*0208 _RS SST0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0209 _RS SSS0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0210 _RS taux1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0211 _RS tauy1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0212 _RS Qnet1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0213 _RS EmPmR1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
1e273d1bf5 Jean*0214 _RS saltFlux1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
650cc6304d Patr*0215 _RS SST1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0216 _RS SSS1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0217 #ifdef SHORTWAVE_HEATING
0218 _RS Qsw0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
80db5290f0 Jean*0219 _RS Qsw1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
650cc6304d Patr*0220 #endif
8d218e2b5b suya*0221 #ifdef ALLOW_GEOTHERMAL_FLUX
80db5290f0 Jean*0222 _RS geothFlux0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0223 _RS geothFlux1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0224 #endif
0225 #ifdef ATMOSPHERIC_LOADING
0226 _RS pLoad0 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0227 _RS pLoad1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
8d218e2b5b suya*0228 #endif
3b540d7094 Jean*0229 #endif /* EXCLUDE_FFIELDS_LOAD */
650cc6304d Patr*0230
7e1abc4cce Jean*0231
0232
0233
0234
4c84b0c69e Patr*0235
ba0b047096 Mart*0236
7e1abc4cce Jean*0237
ba0b047096 Mart*0238
4c84b0c69e Patr*0239
7e1abc4cce Jean*0240
0241
4c84b0c69e Patr*0242
7e1abc4cce Jean*0243
0244
538310b333 Jean*0245
0246
0247
0248
0249
0250
0251
0252
0253
0254
0255
7e1abc4cce Jean*0256
0257 COMMON /SURFACE_FORCING/
0258 & surfaceForcingU,
0259 & surfaceForcingV,
0260 & surfaceForcingT,
3b540d7094 Jean*0261 & surfaceForcingS,
538310b333 Jean*0262 & adjustColdSST_diag
7e1abc4cce Jean*0263 _RL surfaceForcingU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0264 _RL surfaceForcingV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0265 _RL surfaceForcingT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0266 _RL surfaceForcingS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
538310b333 Jean*0267 _RL adjustColdSST_diag(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
434645f3d4 Jean*0268
14c6f9452b Jean*0269
0270
0271
0272
0273 COMMON /FFIELDS_bottomStress/ botDragU, botDragV
0274 _RS botDragU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0275 _RS botDragV (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0276
434645f3d4 Jean*0277