pkg/darwin/DARWIN_RADTRANS.h

8fbfd1f382 Oliv*0001 #ifdef ALLOW_DARWIN
                0002 CBOP
                0003 C    !ROUTINE: DARWIN_RADTRANS.h
                0004 C    !INTERFACE:
                0005 C #include DARWIN_RADTRANS.h
                0006 C
                0007 C    !DESCRIPTION:
                0008 C Contains radtrans-related parameters for the darwin package
                0009 C
                0010 C Requires: RADTRANS_SIZE.h
                0011 C Requires: DARWIN_SIZE.h
                0012
                0013 #ifdef ALLOW_RADTRANS
                0014
5910c7e5d2 Oliv*0015 C     COMMON /DARWIN_RADTRANS_PARAMS_l/ boolean parameters for using radtrans with darwin
                0016 C     darwin_allomSpectra :: enable/disable allometric scaling of plankton absorption and scattering spectra
8fbfd1f382 Oliv*0017       COMMON /DARWIN_RADTRANS_PARAMS_l/
                0018      &    darwin_allomSpectra
                0019       LOGICAL darwin_allomSpectra
5910c7e5d2 Oliv*0020
                0021 C     COMMON /DARWIN_RADTRANS_PARAMS_c/ character parameters for using radtrans with darwin
                0022 C     darwin_waterAbsorbFile    :: filename for reading water absorption and scattering spectra
                0023 C     darwin_phytoAbsorbFile    :: filename for reading plankton absorption and scattering spectra
                0024 C     darwin_particleAbsorbFile :: filename for reading particle absorption and scattering spectra
8fbfd1f382 Oliv*0025       COMMON /DARWIN_RADTRANS_PARAMS_c/
                0026      &    darwin_waterAbsorbFile,
                0027      &    darwin_phytoAbsorbFile,
                0028      &    darwin_particleAbsorbFile
                0029       CHARACTER*256 darwin_waterAbsorbFile
                0030       CHARACTER*256 darwin_phytoAbsorbFile
                0031       CHARACTER*256 darwin_particleAbsorbFile
5910c7e5d2 Oliv*0032
0e8677db3c Oliv*0033 C     COMMON /DARWIN_RADTRANS_PARAMS_r/
5910c7e5d2 Oliv*0034 C     darwin_part_size_P       :: [mmol P/particle]  conversion factor for particle absorption and scattering spectra
                0035 C     darwin_bbmin             :: [1/m]        minimum backscattering ratio
                0036 C     darwin_bbw               :: []           backscattering ratio of water
                0037 C     darwin_lambda_aCDOM      :: [nm]         reference wavelength for CDOM absorption spectra
                0038 C     darwin_Sdom              :: [1/nm]       coefficient for CDOM absorption spectra
                0039 C     darwin_aCDOM_fac         :: []           factor for computing aCDOM from water+Chlorophyll absorption
1c72adde5c Oliv*0040 C     darwin_rCDOM             :: [mmol C/m3]  recalcitrant CDOM concentration
                0041 C                                              (with #define DARWIN_CDOM_UNITS_CARBON)
5910c7e5d2 Oliv*0042 C     darwin_rCDOM             :: [mmol P/m3]  recalcitrant CDOM concentration
1c72adde5c Oliv*0043 C                                              (with #undef DARWIN_CDOM_UNITS_CARBON)
5910c7e5d2 Oliv*0044 C     darwin_RPOC              :: [mmol C/m3]  recalcitrant POC concentration
                0045 C-
                0046 C     darwin_aCarCell          :: [mg C/cell]  coefficient coefficient for scaling plankton spectra
                0047 C     darwin_bCarCell          :: []           coefficient coefficient for scaling plankton spectra
                0048 C     darwin_absorpSlope       :: []           slope for scaled absorption spectra
                0049 C     darwin_bbbSlope          :: []           slope for scaled backscattering ratio spectra
                0050 C     darwin_scatSwitchSizeLog :: [log10(um)]  log of size for switching slopes
                0051 C     darwin_scatSlopeSmall    :: []           slope for small plankton
                0052 C     darwin_scatSlopeLarge    :: []           slope for large plankton
8fbfd1f382 Oliv*0053       COMMON /DARWIN_RADTRANS_PARAMS_r/
                0054      &    darwin_part_size_P,
                0055      &    darwin_bbmin,
                0056      &    darwin_bbw,
                0057      &    darwin_lambda_aCDOM,
                0058      &    darwin_Sdom,
                0059      &    darwin_aCDOM_fac,
e1251af904 Oliv*0060      &    darwin_rCDOM,
                0061      &    darwin_RPOC,
8fbfd1f382 Oliv*0062      &    darwin_aCarCell,
                0063      &    darwin_bCarCell,
                0064      &    darwin_absorpSlope,
                0065      &    darwin_bbbSlope,
                0066      &    darwin_scatSwitchSizeLog,
                0067      &    darwin_scatSlopeSmall,
                0068      &    darwin_scatSlopeLarge
                0069       _RL darwin_part_size_P
                0070       _RL darwin_bbmin
                0071       _RL darwin_bbw
                0072       _RL darwin_lambda_aCDOM
                0073       _RL darwin_Sdom
                0074       _RL darwin_aCDOM_fac
e1251af904 Oliv*0075       _RL darwin_rCDOM
                0076       _RL darwin_RPOC
8fbfd1f382 Oliv*0077       _RL darwin_aCarCell
                0078       _RL darwin_bCarCell
                0079       _RL darwin_absorpSlope
                0080       _RL darwin_bbbSlope
                0081       _RL darwin_scatSwitchSizeLog(nlam)
                0082       _RL darwin_scatSlopeSmall(nlam)
                0083       _RL darwin_scatSlopeLarge(nlam)
                0084
bbcb16c4fd Oliv*0085 C     COMMON /DARWIN_RT_DEPPARAMS_r/
                0086 C     aw               :: [m^-1]             absorption coefficient for water
                0087 C     bw               :: [m^-1]             total scattering coefficient for water
                0088 C     aphy_chl_type    :: [m^2 (mg Chl)^-1]  phytoplankton Chl-specific absorption coefficient by optical type
                0089 C     aphy_chl_ps_type :: [m^2 (mg Chl)^-1]  part of aphy_chl_type that is available for phtosynthesis
                0090 C     aphy_mgC_type    :: [m^2 (mg C)^-1]    plankton carbon-specific absorption coefficient by optical type
                0091 C     bphy_mgC_type    :: [m^2 (mg C)^-1]    carbon-specific total scttering coefficient by optical type
                0092 C     bbphy_mgC_type   :: [m^2 (mg C)^-1]    carbon-specific backscattering coefficient by optical type
                0093 C     asize            :: [um]               reference cell diameter for aphy_chl_type
                0094 C     apsize           :: [um]               reference cell diameter for aphy_chl_ps_type
                0095 C     asize_mgC        :: [um]               reference cell diameter for aphy_mgC_type
                0096 C     bsize            :: [um]               reference cell diameter for bphy_mgC_type
                0097 C     bbsize           :: [um]               reference cell diameter for bbphy_mgC_type
                0098 C     apart            :: [m^-1]             absorption coefficient for detritus read in from file
                0099 C     bpart            :: [m^-1]             total scattering coefficient for detritus read in from file
                0100 C     bbpart           :: [m^-1]             backscattering coefficient for detritus read in from file
                0101 C     apart_P          :: [m^2 (mmol P)^-1]  P-specific absorption coefficient for detritus
                0102 C     bpart_P          :: [m^2 (mmol P)^-1]  P-specific total scattering coefficient for detritus
                0103 C     bbpart_P         :: [m^2 (mmol P)^-1]  P-specific backscattering coefficient for detritus
                0104 C     exCDOM           :: [ ]                wavelength-dependent part of CDOM absorption spectrum
8fbfd1f382 Oliv*0105       COMMON /DARWIN_RT_DEPPARAMS_r/
                0106      &    aw,
                0107      &    bw,
                0108      &    aphy_chl_type,
                0109      &    aphy_chl_ps_type,
f61b1017e2 Oliv*0110      &    aphy_mgC_type,
8fbfd1f382 Oliv*0111      &    bphy_mgC_type,
                0112      &    bbphy_mgC_type,
                0113      &    asize,
                0114      &    apsize,
f61b1017e2 Oliv*0115      &    asize_mgC,
8fbfd1f382 Oliv*0116      &    bsize,
                0117      &    bbsize,
                0118      &    apart,
                0119      &    bpart,
                0120      &    bbpart,
                0121      &    apart_P,
                0122      &    bpart_P,
                0123      &    bbpart_P,
                0124      &    exCDOM
                0125       _RL aw(nlam)
                0126       _RL bw(nlam)
                0127       _RL aphy_chl_type(nopt,nlam)
                0128       _RL aphy_chl_ps_type(nopt,nlam)
f61b1017e2 Oliv*0129       _RL aphy_mgC_type(nopt,nlam)
8fbfd1f382 Oliv*0130       _RL bphy_mgC_type(nopt,nlam)
                0131       _RL bbphy_mgC_type(nopt,nlam)
                0132       _RL asize(nopt)
                0133       _RL apsize(nopt)
f61b1017e2 Oliv*0134       _RL asize_mgC(nopt)
8fbfd1f382 Oliv*0135       _RL bsize(nopt)
                0136       _RL bbsize(nopt)
                0137       _RL apart(nlam)
                0138       _RL bpart(nlam)
                0139       _RL bbpart(nlam)
                0140       _RL apart_P(nlam)
                0141       _RL bpart_P(nlam)
                0142       _RL bbpart_P(nlam)
                0143       _RL exCDOM(nlam)
                0144
5910c7e5d2 Oliv*0145 C     COMMON /DARWIN_RADTRANS_TRAITS_r/
d37d18cf65 Oliv*0146 C     aphy_chl    :: [m^2 (mg Chl)^-1]  phytoplankton Chl-specific absorption coefficient
                0147 C     aphy_chl_ps :: [m^2 (mg Chl)^-1]  part of aphy_chl that is used in photosynthesis
                0148 C     aphy_mgC    :: [m^2 (mg C)^-1]    plankton carbon-specific absorption coefficient
                0149 C     bphy_mgC    :: [m^2 (mg C)^-1]    carbon-specific total scattering coefficient
                0150 C     bbphy_mgC   :: [m^2 (mg C)^-1]    carbon-specific backscattering coefficient
8fbfd1f382 Oliv*0151       COMMON /DARWIN_RADTRANS_TRAITS_r/
                0152      &    aphy_chl,
                0153      &    aphy_chl_ps,
f61b1017e2 Oliv*0154      &    aphy_mgC,
8fbfd1f382 Oliv*0155      &    bphy_mgC,
                0156      &    bbphy_mgC
                0157       _RL aphy_chl(nplank,nlam)
                0158       _RL aphy_chl_ps(nplank,nlam)
f61b1017e2 Oliv*0159       _RL aphy_mgC(nplank,nlam)
8fbfd1f382 Oliv*0160       _RL bphy_mgC(nplank,nlam)
                0161       _RL bbphy_mgC(nplank,nlam)
                0162
                0163 #endif /* ALLOW_RADTRANS */
                0164
bbcb16c4fd Oliv*0165 C     COMMON /DARWIN_RT_DEPTRAITS_r/
                0166 C     alphachl :: [mmol C m^2 (uEin mg Chl)^-1]  Chlorophyll-specific initial slope for photosynthesis
8fbfd1f382 Oliv*0167       COMMON /DARWIN_RT_DEPTRAITS_r/
                0168      &    alphachl
                0169       _RL alphachl(nplank,nlam)
                0170
                0171 CEOP
                0172 #endif /* ALLOW_DARWIN */