pkg/radtrans/RADTRANS_PARAMS.h

b55e95f1ff Oliv*0001 #ifdef ALLOW_RADTRANS
                0002
                0003 CBOP
                0004 C     !ROUTINE: RADTRANS_PARAMS.h
                0005 C     !INTERFACE:
                0006 C #include RADTRANS_PARAMS.h
                0007
                0008 C     !DESCRIPTION:
                0009 C Contains parameters for the radtrans package
                0010 C
                0011 C Requires: RADTRANS_SIZE.h
                0012
d9e107d180 Oliv*0013 C  RT_loadFieldsEarly :: whether forcing fields need to be read early
                0014 C                        for initialization
                0015
                0016       COMMON/radtrans_forcing_params_l/
                0017      &    RT_loadFieldsEarly
                0018
                0019       LOGICAL RT_loadFieldsEarly
                0020
b55e95f1ff Oliv*0021 C Radtrans forcing parameters work just like the parameters in the exf
                0022 C package.  The forcing files are as follows:
                0023 C
                0024 C   RT_EdFile  :: downward direct irradiance below sea surface [W/m^2]
                0025 C                 per waveband, not taking into account ice cover
                0026 C   RT_EsFile  :: downward diffuse irradiance below sea surface [W/m^2]
                0027 C                 per waveband, not taking into account ice cover
                0028 C   RT_iceFile :: fraction of the sea surface covered by ice
                0029 C                 used to reduce incoming irradiances
d9e107d180 Oliv*0030 C
                0031 C Parameters for interpolation are in RADTRANS_EXF_PARAMS.h
b55e95f1ff Oliv*0032
                0033       COMMON/radtrans_forcing_c/
                0034      &    RT_E_mask, RT_EdFile, RT_EsFile
                0035       COMMON/radtrans_forcing_i/
                0036      &    RT_E_startdate1, RT_E_startdate2
                0037       COMMON/radtrans_forcing_r/
a720384a8b Oliv*0038      &    RT_E_startTime, RT_E_period, RT_E_RepCycle,
b55e95f1ff Oliv*0039      &    RT_Ed_const, RT_Es_const,
                0040      &    RT_Ed_exfremo_intercept, RT_Es_exfremo_intercept,
                0041      &    RT_Ed_exfremo_slope, RT_Es_exfremo_slope,
                0042      &    RT_inscal_Ed, RT_inscal_Es
                0043       CHARACTER*128  RT_EdFile(nlam)
                0044       CHARACTER*128  RT_EsFile(nlam)
                0045       CHARACTER*1 RT_E_mask
                0046       INTEGER RT_E_startdate1
                0047       INTEGER RT_E_startdate2
                0048       _RL RT_E_StartTime
                0049       _RL RT_E_period
a720384a8b Oliv*0050       _RL RT_E_RepCycle
b55e95f1ff Oliv*0051       _RL RT_Ed_const(nlam)
                0052       _RL RT_Es_const(nlam)
                0053       _RL RT_Ed_exfremo_intercept(nlam)
                0054       _RL RT_Es_exfremo_intercept(nlam)
                0055       _RL RT_Ed_exfremo_slope(nlam)
                0056       _RL RT_Es_exfremo_slope(nlam)
                0057       _RL RT_inscal_Ed(nlam)
                0058       _RL RT_inscal_Es(nlam)
                0059
                0060       COMMON/RT_forcing_ice_c/
                0061      &    RT_icemask, RT_icefile
                0062       COMMON/RT_forcing_ice_i/
                0063      &    RT_icestartdate1, RT_icestartdate2
                0064       COMMON/RT_forcing_ice_r/
                0065      &    RT_iceStartTime,
a720384a8b Oliv*0066      &    RT_iceperiod, RT_iceRepCycle, RT_iceconst,
b55e95f1ff Oliv*0067      &    RT_ice_exfremo_intercept, RT_ice_exfremo_slope,
                0068      &    RT_inscal_ice
                0069       CHARACTER*128  RT_icefile
                0070       CHARACTER*1 RT_icemask
                0071       INTEGER RT_icestartdate1
                0072       INTEGER RT_icestartdate2
                0073       _RL RT_iceStartTime
                0074       _RL RT_iceperiod
a720384a8b Oliv*0075       _RL RT_iceRepCycle
b55e95f1ff Oliv*0076       _RL RT_iceconst
                0077       _RL RT_ice_exfremo_intercept
                0078       _RL RT_ice_exfremo_slope
                0079       _RL RT_inscal_ice
                0080
                0081 C other run-time parameters
                0082 C
                0083 C  RT_refract_water  :: refractive index of water
                0084 C  RT_rmud_max       :: cutoff for inverse cosine of solar zenith angle
                0085 C  RT_wbRefWLs       :: reference wavelengths for wavebands [nm]
                0086 C  RT_wbEdges        :: waveband edges [nm]
                0087 C  RT_rmus           :: mean inverse cosine of zenith angle for downward
                0088 C                       diffuse irradiance
                0089 C  RT_rmuu           :: mean inverse cosine of zenith angle for upward
                0090 C                       diffuse irradiance
                0091 C  RT_rd             :: mean upward scattering fraction for downward
                0092 C                       diffuse irradiance
                0093 C  RT_ru             :: mean downward scattering fraction for upward
                0094 C                       diffuse irradiance
                0095 C  RT_sfcIrrThresh   :: minimum irradiance for radiative transfer
                0096 C                       computations [W/m^2]
                0097 C  RT_kmax           :: maximum depth index for radtrans computations
32b1bea918 Oliv*0098 C  RT_useOASIMrmud   :: flag for using cosine of solar zenith angle from oasim pkg
e8b7a8749d Oliv*0099 C  RT_useMeanCosSolz :: flag for using mean daytime cosine of solar zenith angle
                0100 C  RT_useNoonSolz    :: flag for using noon solar zenith angle;
                0101 C                       if false use angle at actual time
b55e95f1ff Oliv*0102
                0103       COMMON/radtrans_params_r/
                0104      &    RT_refract_water,
                0105      &    RT_rmud_max,
                0106      &    RT_wbRefWLs,
                0107      &    RT_wbEdges,
                0108      &    RT_wbWidths,
                0109      &    RT_wbTotalWidth,
                0110      &    RT_WtouEins,
                0111      &    RT_rmus, RT_rmuu, RT_rd, RT_ru,
0222db53b0 Oliv*0112      &    RT_sfcIrrThresh,
                0113      &    RT_oasimWgt
b55e95f1ff Oliv*0114       _RL RT_refract_water
                0115       _RL RT_rmud_max
                0116       _RL RT_wbRefWLs(nlam)
                0117       _RL RT_wbEdges(nlam+1)
                0118       _RL RT_wbWidths(nlam)
                0119       _RL RT_wbTotalWidth
                0120       _RL RT_WtouEins(nlam)
                0121       _RL RT_rmus, RT_rmuu, RT_rd, RT_ru
                0122       _RL RT_sfcIrrThresh
0222db53b0 Oliv*0123       _RL RT_oasimWgt(nlam)
b55e95f1ff Oliv*0124
                0125       COMMON/radtrans_params_i/ RT_kmax
                0126       INTEGER RT_kmax
                0127
                0128       COMMON/radtrans_params_l/
0222db53b0 Oliv*0129      &    RT_useOASIMrmud,
b55e95f1ff Oliv*0130      &    RT_useMeanCosSolz,
e8b7a8749d Oliv*0131      &    RT_useNoonSolz,
b55e95f1ff Oliv*0132      &    RT_useSEAICE,
                0133      &    RT_haveIce
0222db53b0 Oliv*0134       LOGICAL RT_useOASIMrmud
b55e95f1ff Oliv*0135       LOGICAL RT_useMeanCosSolz
e8b7a8749d Oliv*0136       LOGICAL RT_useNoonSolz
b55e95f1ff Oliv*0137       LOGICAL RT_useSEAICE
                0138       LOGICAL RT_haveIce
                0139 CEOP
                0140
                0141 #endif /* ALLOW_RADTRANS */