File indexing completed on 2022-07-07 05:09:08 UTC
view on githubraw file Latest commit 94a8024b on 2022-07-06 19:35:20 UTC
0a9ee580a2 Patr*0001
0002
0003
0004
0005
0006
0007
d1d6b963cf Patr*0008
0009 #ifdef ALLOW_AUTODIFF_MONITOR
0010
99a99bb452 Jean*0011 COMMON /g_DYNVARS_R/
0012 & g_EtaN,
0013 & g_Uvel, g_Vvel, g_Wvel,
0014 & g_Theta, g_Salt,
0015 & g_Gu, g_Gv, g_Gt, g_Gs,
507fbacc22 Gael*0016 #ifdef ALLOW_ADAMSBASHFORTH_3
99a99bb452 Jean*0017 & g_GuNm, g_GvNm, g_GtNm, g_GsNm
507fbacc22 Gael*0018 #else
99a99bb452 Jean*0019 & g_GuNm1, g_GvNm1, g_GtNm1, g_GsNm1
507fbacc22 Gael*0020 #endif
99a99bb452 Jean*0021 _RL g_Etan(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0022 _RL g_Gs(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0023 _RL g_Gt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0024 _RL g_Gu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0025 _RL g_Gv(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0026 _RL g_Salt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0027 _RL g_Theta(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0028 _RL g_Uvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0029 _RL g_Vvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0030 _RL g_Wvel(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
507fbacc22 Gael*0031 #ifdef ALLOW_ADAMSBASHFORTH_3
99a99bb452 Jean*0032 _RL g_GtNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
0033 _RL g_GsNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
0034 _RL g_GuNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
0035 _RL g_GvNm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,2)
507fbacc22 Gael*0036 #else
99a99bb452 Jean*0037 _RL g_GtNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0038 _RL g_GsNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0039 _RL g_GuNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0040 _RL g_GvNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
507fbacc22 Gael*0041 #endif
4813417b41 Patr*0042
99a99bb452 Jean*0043 COMMON /g_DYNVARS_R_2/
0044 & g_EtaH
0045 _RL g_EtaH(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
832d5360e3 Patr*0046
751c7f53a4 Patr*0047 #ifdef ALLOW_AUTODIFF_MONITOR_DIAG
99a99bb452 Jean*0048
0049 COMMON /g_DYNVARS_DIAG/
0050 & g_RhoInSitu, g_TotPhiHyd
0051 _RL g_RhoInSitu(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0052 _RL g_TotPhiHyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
751c7f53a4 Patr*0053 #endif
0054
99a99bb452 Jean*0055 #ifdef ALLOW_DIFFKR_CONTROL
0056 COMMON /g_DYNVARS_DIFFKR/
0057 & g_diffKr
0058 _RL g_diffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0a9ee580a2 Patr*0059 #endif
4813417b41 Patr*0060
99a99bb452 Jean*0061 #ifdef ALLOW_CD_CODE
0062 COMMON /g_DYNVARS_CD/
0063 & g_UvelD, g_VvelD,
0064 & g_EtaNm1,
0065 & g_Unm1, g_Vnm1
0066 _RL g_UvelD(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0067 _RL g_VvelD(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0068 _RL g_EtaNm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0069 _RL g_Unm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0070 _RL g_Vnm1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
6b0737411d Patr*0071 #endif
0072
99a99bb452 Jean*0073 COMMON /g_FFIELDS_fu/ g_fu
0074 COMMON /g_FFIELDS_fv/ g_fv
0075 COMMON /g_FFIELDS_Qnet/ g_Qnet
0076 COMMON /g_FFIELDS_Qsw/ g_Qsw
0077 COMMON /g_FFIELDS_EmPmR/ g_EmPmR
0078 COMMON /g_FFIELDS_saltFlux/ g_saltFlux
0079 COMMON /g_FFIELDS_SST/ g_SST
0080 COMMON /g_FFIELDS_SSS/ g_SSS
0081 COMMON /g_FFIELDS_lambdaThetaClimRelax/ g_lambdaThetaClimRelax
0082 COMMON /g_FFIELDS_lambdaSaltClimRelax/ g_lambdaSaltClimRelax
96243313d2 Patr*0083 _RS g_fu (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0084 _RS g_fv (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0085 _RS g_Qnet (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0086 _RS g_Qsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0087 _RS g_EmPmR (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0088 _RS g_saltFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0089 _RS g_SST (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0090 _RS g_SSS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0091 _RS g_lambdaThetaClimRelax
0092 & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0093 _RS g_lambdaSaltClimRelax
0094 & (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
57f8365940 Jean*0095
96243313d2 Patr*0096 #ifdef ATMOSPHERIC_LOADING
99a99bb452 Jean*0097 COMMON /g_FFIELDS_pload/ g_pload
0098 COMMON /g_FFIELDS_sIceLoad/ g_sIceLoad
96243313d2 Patr*0099 _RS g_pload (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0100 _RS g_sIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0101 #endif
d1d6b963cf Patr*0102
5116830959 Patr*0103 #ifdef ALLOW_KAPGM_CONTROL
94a8024bbe Jean*0104 COMMON /g_GM_INP_K3D_GM/
5116830959 Patr*0105 & g_kapgm
0106 _RL g_kapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
0107 #endif
7e2482cabc Gael*0108 #ifdef ALLOW_KAPREDI_CONTROL
94a8024bbe Jean*0109 COMMON /g_GM_INP_K3D_REDI/
7e2482cabc Gael*0110 & g_kapredi
0111 _RL g_kapredi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
759aceba5f Jean*0112 #endif
9274434acc Jean*0113 #ifdef ALLOW_BOTTOMDRAG_CONTROL
99a99bb452 Jean*0114 COMMON /g_CTRL_FIELDS_BOTTOMDRAG/
bad79706a2 Gael*0115 & g_bottomdragfld
0116 _RL g_bottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0117 #endif
d16bbb9f5b Patr*0118
0a9ee580a2 Patr*0119 #ifdef ALLOW_EXF
99a99bb452 Jean*0120 _RL g_ustress(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0121 _RL g_vstress(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0122 COMMON /g_exf_stress_r/ g_ustress, g_vstress
0123 _RL g_uwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0124 _RL g_vwind (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0125 COMMON /g_exf_atm_wind_r/ g_uwind, g_vwind
0126 _RL g_hflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0127 _RL g_sflux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0128 COMMON /g_exf_netflux_r/ g_hflux, g_sflux
34a7c76e08 Patr*0129 # ifdef ALLOW_ATM_TEMP
99a99bb452 Jean*0130 _RL g_atemp (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0131 _RL g_aqh (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0132 _RL g_hs (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0133 _RL g_hl (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0134 _RL g_lwflux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0135 _RL g_evap (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0136 _RL g_precip (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0137 _RL g_snowprecip(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0138 COMMON /g_exf_atm_temp_r/ g_atemp, g_aqh, g_hs, g_hl,
57f8365940 Jean*0139 & g_lwflux, g_evap, g_precip, g_snowprecip
0140 # endif /* ALLOW_ATM_TEMP */
99a99bb452 Jean*0141 # if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
0142 _RL g_swflux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0143 COMMON /g_exf_swflux_r/ g_swflux
0144 # endif
34a7c76e08 Patr*0145 # ifdef ALLOW_DOWNWARD_RADIATION
99a99bb452 Jean*0146 _RL g_swdown (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0147 _RL g_lwdown (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0148 COMMON /g_exf_rad_down_r/ g_swdown, g_lwdown
34a7c76e08 Patr*0149 # endif
b56b667948 Patr*0150 # ifdef ALLOW_CLIMSST_RELAXATION
99a99bb452 Jean*0151 _RL g_climsst(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0152 COMMON /g_exf_clim_sst_r/ g_climsst
b56b667948 Patr*0153 # endif
0154 # ifdef ALLOW_CLIMSSS_RELAXATION
99a99bb452 Jean*0155 _RL g_climsss(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0156 COMMON /g_exf_clim_sss_r/ g_climsss
b56b667948 Patr*0157 # endif
57f8365940 Jean*0158 #endif /* ALLOW_EXF */
0a9ee580a2 Patr*0159
f2ec7cf2fc Patr*0160 #ifdef ALLOW_SEAICE
99a99bb452 Jean*0161 _RL g_area (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0162 _RL g_heff (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0163 _RL g_hsnow (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0164 _RL g_uice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0165 _RL g_vice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0166 COMMON /g_SEAICE_DYNVARS_1/
50f21b0e6c Mart*0167 & g_area, g_heff, g_hsnow, g_uice, g_vice
f2ec7cf2fc Patr*0168 #endif
0169
1c2b1fa3bc Mart*0170 #ifdef ALLOW_DEPTH_CONTROL
0171 _RS g_hfacc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
0172 _RS g_hfacs(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
0173 _RS g_hfacw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
0174 _RS g_recip_hfacc(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
0175 _RS g_recip_hfacs(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
0176 _RS g_recip_hfacw(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:nr,nSx,nSy)
0177 _RS g_r_low (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0178 _RS g_recip_rcol(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
0179 common /g_grid_var_rs/
0180 & g_hfacc, g_hfacw, g_hfacs,
0181 & g_recip_hfacc, g_recip_hfacw, g_recip_hfacs,
0182 & g_r_low, g_recip_rcol
0183 #endif /* ALLOW_DEPTH_CONTROL */
0184
e5b217c517 Patr*0185 #endif /* ALLOW_AUTODIFF_MONITOR */