File indexing completed on 2024-12-17 18:37:19 UTC
view on githubraw file Latest commit 01ed6603 on 2024-02-09 18:54:26 UTC
87dd4f7d5f Oliv*0001 #ifdef ALLOW_OASIM
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016 COMMON/oasim_forcing_exf_params_l/
01ed660396 Oliv*0017 & useOasimYearlyFields
0018 LOGICAL useOasimYearlyFields
87dd4f7d5f Oliv*0019
0020
0021
0022 COMMON/oasim_forcing_exf_params_i/
0023 & oasim_timeInterp
0024 INTEGER oasim_timeInterp
0025
0026
0027 COMMON /oasim_fields_c/
0028 & aerTaufile,
0029 & asympfile,
0030 & ssalbfile,
0031 & cldcovfile,
0032 & cldlwpfile,
0033 & cldrefile,
0034 & presfile,
0035 & oawindfile,
0036 & relhumfile,
0037 & ozonefile,
0038 & wvfile,
0039 & afile,
0040 & btfile,
0041 & bbfile
0042
0043 CHARACTER*128 aerTaufile
0044 CHARACTER*128 asympfile
0045 CHARACTER*128 ssalbfile
0046 CHARACTER*128 cldcovfile
0047 CHARACTER*128 cldlwpfile
0048 CHARACTER*128 cldrefile
0049 CHARACTER*128 presfile
0050 CHARACTER*128 oawindfile
0051 CHARACTER*128 relhumfile
0052 CHARACTER*128 ozonefile
0053 CHARACTER*128 wvfile
0054 CHARACTER*128 afile
0055 CHARACTER*128 btfile
0056 CHARACTER*128 bbfile
0057
0058
0059
0060 _RL aerTauStartTime
0061
0062 COMMON/oasim_forcing_aerTau_c/
0063 & aerTaumask
0064 COMMON/oasim_forcing_aerTau_i/
0065 & aerTaustartdate1, aerTaustartdate2
0066 COMMON/oasim_forcing_aerTau_r/
0067 & aerTauStartTime,
0068 & aerTauperiod, aerTauRepCycle, aerTauconst,
0069 & aerTau_exfremo_intercept, aerTau_exfremo_slope,
0070 & aerTau_inscal
0071 CHARACTER*1 aerTaumask
0072 INTEGER aerTaustartdate1
0073 INTEGER aerTaustartdate2
0074 _RL aerTauperiod
0075 _RL aerTauRepCycle
0076 _RL aerTauconst(nlt)
0077 _RL aerTau_exfremo_intercept(nlt)
0078 _RL aerTau_exfremo_slope(nlt)
0079 _RL aerTau_inscal(nlt)
0080
0081 #ifdef USE_EXF_INTERPOLATION
0082 COMMON/oasim_interp_aerTau_i/
0083 & aerTau_nlon, aerTau_nlat, aerTau_interpMethod
0084 COMMON/oasim_interp_aerTau_r/
0085 & aerTau_lon0, aerTau_lat0, aerTau_lon_inc, aerTau_lat_inc
0086 INTEGER aerTau_interpMethod, aerTau_nlon, aerTau_nlat
0087 _RL aerTau_lon0
0088 _RL aerTau_lat0
0089 _RL aerTau_lon_inc
0090 _RL aerTau_lat_inc(MAX_LAT_INC)
0091 #endif
0092
0093
0094
0095 _RL asympStartTime
0096
0097 COMMON/oasim_forcing_asymp_c/
0098 & asympmask
0099 COMMON/oasim_forcing_asymp_i/
0100 & asympstartdate1, asympstartdate2
0101 COMMON/oasim_forcing_asymp_r/
0102 & asympStartTime,
0103 & asympperiod, asympRepCycle, asympconst,
0104 & asymp_exfremo_intercept, asymp_exfremo_slope,
0105 & asymp_inscal
0106 CHARACTER*1 asympmask
0107 INTEGER asympstartdate1
0108 INTEGER asympstartdate2
0109 _RL asympperiod
0110 _RL asympRepCycle
0111 _RL asympconst(nlt)
0112 _RL asymp_exfremo_intercept(nlt)
0113 _RL asymp_exfremo_slope(nlt)
0114 _RL asymp_inscal(nlt)
0115
0116 #ifdef USE_EXF_INTERPOLATION
0117 COMMON/oasim_interp_asymp_i/
0118 & asymp_nlon, asymp_nlat, asymp_interpMethod
0119 COMMON/oasim_interp_asymp_r/
0120 & asymp_lon0, asymp_lat0, asymp_lon_inc, asymp_lat_inc
0121 INTEGER asymp_interpMethod, asymp_nlon, asymp_nlat
0122 _RL asymp_lon0
0123 _RL asymp_lat0
0124 _RL asymp_lon_inc
0125 _RL asymp_lat_inc(MAX_LAT_INC)
0126 #endif
0127
0128
0129
0130 _RL ssalbStartTime
0131
0132 COMMON/oasim_forcing_ssalb_c/
0133 & ssalbmask
0134 COMMON/oasim_forcing_ssalb_i/
0135 & ssalbstartdate1, ssalbstartdate2
0136 COMMON/oasim_forcing_ssalb_r/
0137 & ssalbStartTime,
0138 & ssalbperiod, ssalbRepCycle, ssalbconst,
0139 & ssalb_exfremo_intercept, ssalb_exfremo_slope,
0140 & ssalb_inscal
0141 CHARACTER*1 ssalbmask
0142 INTEGER ssalbstartdate1
0143 INTEGER ssalbstartdate2
0144 _RL ssalbperiod
0145 _RL ssalbRepCycle
0146 _RL ssalbconst(nlt)
0147 _RL ssalb_exfremo_intercept(nlt)
0148 _RL ssalb_exfremo_slope(nlt)
0149 _RL ssalb_inscal(nlt)
0150
0151 #ifdef USE_EXF_INTERPOLATION
0152 COMMON/oasim_interp_ssalb_i/
0153 & ssalb_nlon, ssalb_nlat, ssalb_interpMethod
0154 COMMON/oasim_interp_ssalb_r/
0155 & ssalb_lon0, ssalb_lat0, ssalb_lon_inc, ssalb_lat_inc
0156 INTEGER ssalb_interpMethod, ssalb_nlon, ssalb_nlat
0157 _RL ssalb_lon0
0158 _RL ssalb_lat0
0159 _RL ssalb_lon_inc
0160 _RL ssalb_lat_inc(MAX_LAT_INC)
0161 #endif
0162
0163
0164
0165 _RL cldcovStartTime
0166
0167 COMMON/oasim_forcing_cldcov_c/
0168 & cldcovmask
0169 COMMON/oasim_forcing_cldcov_i/
0170 & cldcovstartdate1, cldcovstartdate2
0171 COMMON/oasim_forcing_cldcov_r/
0172 & cldcovStartTime,
0173 & cldcovperiod, cldcovRepCycle, cldcovconst,
0174 & cldcov_exfremo_intercept, cldcov_exfremo_slope,
0175 & cldcov_inscal
0176 CHARACTER*1 cldcovmask
0177 INTEGER cldcovstartdate1
0178 INTEGER cldcovstartdate2
0179 _RL cldcovperiod
0180 _RL cldcovRepCycle
0181 _RL cldcovconst
0182 _RL cldcov_exfremo_intercept
0183 _RL cldcov_exfremo_slope
0184 _RL cldcov_inscal
0185
0186 #ifdef USE_EXF_INTERPOLATION
0187 COMMON/oasim_interp_cldcov_i/
0188 & cldcov_nlon, cldcov_nlat, cldcov_interpMethod
0189 COMMON/oasim_interp_cldcov_r/
0190 & cldcov_lon0, cldcov_lat0, cldcov_lon_inc, cldcov_lat_inc
0191 INTEGER cldcov_interpMethod, cldcov_nlon, cldcov_nlat
0192 _RL cldcov_lon0
0193 _RL cldcov_lat0
0194 _RL cldcov_lon_inc
0195 _RL cldcov_lat_inc(MAX_LAT_INC)
0196 #endif
0197
0198
0199
0200 _RL cldlwpStartTime
0201
0202 COMMON/oasim_forcing_cldlwp_c/
0203 & cldlwpmask
0204 COMMON/oasim_forcing_cldlwp_i/
0205 & cldlwpstartdate1, cldlwpstartdate2
0206 COMMON/oasim_forcing_cldlwp_r/
0207 & cldlwpStartTime,
0208 & cldlwpperiod, cldlwpRepCycle, cldlwpconst,
0209 & cldlwp_exfremo_intercept, cldlwp_exfremo_slope,
0210 & cldlwp_inscal
0211 CHARACTER*1 cldlwpmask
0212 INTEGER cldlwpstartdate1
0213 INTEGER cldlwpstartdate2
0214 _RL cldlwpperiod
0215 _RL cldlwpRepCycle
0216 _RL cldlwpconst
0217 _RL cldlwp_exfremo_intercept
0218 _RL cldlwp_exfremo_slope
0219 _RL cldlwp_inscal
0220
0221 #ifdef USE_EXF_INTERPOLATION
0222 COMMON/oasim_interp_cldlwp_i/
0223 & cldlwp_nlon, cldlwp_nlat, cldlwp_interpMethod
0224 COMMON/oasim_interp_cldlwp_r/
0225 & cldlwp_lon0, cldlwp_lat0, cldlwp_lon_inc, cldlwp_lat_inc
0226 INTEGER cldlwp_interpMethod, cldlwp_nlon, cldlwp_nlat
0227 _RL cldlwp_lon0
0228 _RL cldlwp_lat0
0229 _RL cldlwp_lon_inc
0230 _RL cldlwp_lat_inc(MAX_LAT_INC)
0231 #endif
0232
0233
0234
0235 _RL cldreStartTime
0236
0237 COMMON/oasim_forcing_cldre_c/
0238 & cldremask
0239 COMMON/oasim_forcing_cldre_i/
0240 & cldrestartdate1, cldrestartdate2
0241 COMMON/oasim_forcing_cldre_r/
0242 & cldreStartTime,
0243 & cldreperiod, cldreRepCycle, cldreconst,
0244 & cldre_exfremo_intercept, cldre_exfremo_slope,
0245 & cldre_inscal
0246 CHARACTER*1 cldremask
0247 INTEGER cldrestartdate1
0248 INTEGER cldrestartdate2
0249 _RL cldreperiod
0250 _RL cldreRepCycle
0251 _RL cldreconst
0252 _RL cldre_exfremo_intercept
0253 _RL cldre_exfremo_slope
0254 _RL cldre_inscal
0255
0256 #ifdef USE_EXF_INTERPOLATION
0257 COMMON/oasim_interp_cldre_i/
0258 & cldre_nlon, cldre_nlat, cldre_interpMethod
0259 COMMON/oasim_interp_cldre_r/
0260 & cldre_lon0, cldre_lat0, cldre_lon_inc, cldre_lat_inc
0261 INTEGER cldre_interpMethod, cldre_nlon, cldre_nlat
0262 _RL cldre_lon0
0263 _RL cldre_lat0
0264 _RL cldre_lon_inc
0265 _RL cldre_lat_inc(MAX_LAT_INC)
0266 #endif
0267
0268
0269
0270 _RL presStartTime
0271
0272 COMMON/oasim_forcing_pres_c/
0273 & presmask
0274 COMMON/oasim_forcing_pres_i/
0275 & presstartdate1, presstartdate2
0276 COMMON/oasim_forcing_pres_r/
0277 & presStartTime,
0278 & presperiod, presRepCycle, presconst,
0279 & pres_exfremo_intercept, pres_exfremo_slope,
0280 & pres_inscal
0281 CHARACTER*1 presmask
0282 INTEGER presstartdate1
0283 INTEGER presstartdate2
0284 _RL presperiod
0285 _RL presRepCycle
0286 _RL presconst
0287 _RL pres_exfremo_intercept
0288 _RL pres_exfremo_slope
0289 _RL pres_inscal
0290
0291 #ifdef USE_EXF_INTERPOLATION
0292 COMMON/oasim_interp_pres_i/
0293 & pres_nlon, pres_nlat, pres_interpMethod
0294 COMMON/oasim_interp_pres_r/
0295 & pres_lon0, pres_lat0, pres_lon_inc, pres_lat_inc
0296 INTEGER pres_interpMethod, pres_nlon, pres_nlat
0297 _RL pres_lon0
0298 _RL pres_lat0
0299 _RL pres_lon_inc
0300 _RL pres_lat_inc(MAX_LAT_INC)
0301 #endif
0302
0303
0304
0305 _RL oawindStartTime
0306
0307 COMMON/oasim_forcing_oawind_c/
0308 & oawindmask
0309 COMMON/oasim_forcing_oawind_i/
0310 & oawindstartdate1, oawindstartdate2
0311 COMMON/oasim_forcing_oawind_r/
0312 & oawindStartTime,
0313 & oawindperiod, oawindRepCycle, oawindconst,
0314 & oawind_exfremo_intercept, oawind_exfremo_slope,
0315 & oawind_inscal
0316 CHARACTER*1 oawindmask
0317 INTEGER oawindstartdate1
0318 INTEGER oawindstartdate2
0319 _RL oawindperiod
0320 _RL oawindRepCycle
0321 _RL oawindconst
0322 _RL oawind_exfremo_intercept
0323 _RL oawind_exfremo_slope
0324 _RL oawind_inscal
0325
0326 #ifdef USE_EXF_INTERPOLATION
0327 COMMON/oasim_interp_oawind_i/
0328 & oawind_nlon, oawind_nlat, oawind_interpMethod
0329 COMMON/oasim_interp_oawind_r/
0330 & oawind_lon0, oawind_lat0, oawind_lon_inc, oawind_lat_inc
0331 INTEGER oawind_interpMethod, oawind_nlon, oawind_nlat
0332 _RL oawind_lon0
0333 _RL oawind_lat0
0334 _RL oawind_lon_inc
0335 _RL oawind_lat_inc(MAX_LAT_INC)
0336 #endif
0337
0338
0339
0340 _RL relhumStartTime
0341
0342 COMMON/oasim_forcing_relhum_c/
0343 & relhummask
0344 COMMON/oasim_forcing_relhum_i/
0345 & relhumstartdate1, relhumstartdate2
0346 COMMON/oasim_forcing_relhum_r/
0347 & relhumStartTime,
0348 & relhumperiod, relhumRepCycle, relhumconst,
0349 & relhum_exfremo_intercept, relhum_exfremo_slope,
0350 & relhum_inscal
0351 CHARACTER*1 relhummask
0352 INTEGER relhumstartdate1
0353 INTEGER relhumstartdate2
0354 _RL relhumperiod
0355 _RL relhumRepCycle
0356 _RL relhumconst
0357 _RL relhum_exfremo_intercept
0358 _RL relhum_exfremo_slope
0359 _RL relhum_inscal
0360
0361 #ifdef USE_EXF_INTERPOLATION
0362 COMMON/oasim_interp_relhum_i/
0363 & relhum_nlon, relhum_nlat, relhum_interpMethod
0364 COMMON/oasim_interp_relhum_r/
0365 & relhum_lon0, relhum_lat0, relhum_lon_inc, relhum_lat_inc
0366 INTEGER relhum_interpMethod, relhum_nlon, relhum_nlat
0367 _RL relhum_lon0
0368 _RL relhum_lat0
0369 _RL relhum_lon_inc
0370 _RL relhum_lat_inc(MAX_LAT_INC)
0371 #endif
0372
0373
0374
0375 _RL ozoneStartTime
0376
0377 COMMON/oasim_forcing_ozone_c/
0378 & ozonemask
0379 COMMON/oasim_forcing_ozone_i/
0380 & ozonestartdate1, ozonestartdate2
0381 COMMON/oasim_forcing_ozone_r/
0382 & ozoneStartTime,
0383 & ozoneperiod, ozoneRepCycle, ozoneconst,
0384 & ozone_exfremo_intercept, ozone_exfremo_slope,
0385 & ozone_inscal
0386 CHARACTER*1 ozonemask
0387 INTEGER ozonestartdate1
0388 INTEGER ozonestartdate2
0389 _RL ozoneperiod
0390 _RL ozoneRepCycle
0391 _RL ozoneconst
0392 _RL ozone_exfremo_intercept
0393 _RL ozone_exfremo_slope
0394 _RL ozone_inscal
0395
0396 #ifdef USE_EXF_INTERPOLATION
0397 COMMON/oasim_interp_ozone_i/
0398 & ozone_nlon, ozone_nlat, ozone_interpMethod
0399 COMMON/oasim_interp_ozone_r/
0400 & ozone_lon0, ozone_lat0, ozone_lon_inc, ozone_lat_inc
0401 INTEGER ozone_interpMethod, ozone_nlon, ozone_nlat
0402 _RL ozone_lon0
0403 _RL ozone_lat0
0404 _RL ozone_lon_inc
0405 _RL ozone_lat_inc(MAX_LAT_INC)
0406 #endif
0407
0408
0409
0410 _RL wvStartTime
0411
0412 COMMON/oasim_forcing_wv_c/
0413 & wvmask
0414 COMMON/oasim_forcing_wv_i/
0415 & wvstartdate1, wvstartdate2
0416 COMMON/oasim_forcing_wv_r/
0417 & wvStartTime,
0418 & wvperiod, wvRepCycle, wvconst,
0419 & wv_exfremo_intercept, wv_exfremo_slope,
0420 & wv_inscal
0421 CHARACTER*1 wvmask
0422 INTEGER wvstartdate1
0423 INTEGER wvstartdate2
0424 _RL wvperiod
0425 _RL wvRepCycle
0426 _RL wvconst
0427 _RL wv_exfremo_intercept
0428 _RL wv_exfremo_slope
0429 _RL wv_inscal
0430
0431 #ifdef USE_EXF_INTERPOLATION
0432 COMMON/oasim_interp_wv_i/
0433 & wv_nlon, wv_nlat, wv_interpMethod
0434 COMMON/oasim_interp_wv_r/
0435 & wv_lon0, wv_lat0, wv_lon_inc, wv_lat_inc
0436 INTEGER wv_interpMethod, wv_nlon, wv_nlat
0437 _RL wv_lon0
0438 _RL wv_lat0
0439 _RL wv_lon_inc
0440 _RL wv_lat_inc(MAX_LAT_INC)
0441 #endif
0442
0443 #endif /* ALLOW_OASIM */
0444
