REMORA_FennelBiology.H

Go to the documentation of this file.

#ifndef REMORA_FENNEL_BIOLOGY_H_
#define REMORA_FENNEL_BIOLOGY_H_
 
#include <REMORA_Biology.H>
#include <REMORA_IndexDefines.H>
 
namespace REMORABiology {
 
/**
 * Source of the atmospheric pCO2 used by the surface CO2 gas exchange.
 *
 * ROMS picks one of these with PCO2AIR_DATA / PCO2AIR_SECULAR or neither. The
 * two time-dependent forms date the model clock with remora_caldate.
 */
enum class PCO2AirType {
    constant,  //!< remora.fennel.pCO2air, unchanging
    data,      //!< annual climatology of Laurent et al. (2017)
    secular    //!< secular trend plus harmonics, referenced to 1951
};
 
/**
 * Schmidt-number formulation for the air-sea gas transfer velocity.
 *
 * CO2 offers the Wanninkhof (1992) and (2014) coefficient sets; O2 adds the
 * Keeling et al. (1998) OCMIP set. The choice also selects the leading rate
 * coefficient, 0.31 for 1992 and 0.251 for 2014, so the two must move
 * together and are not independently settable.
 */
enum class CO2SchmidtType {
    wanninkhof1992,
    wanninkhof2014
};
 
enum class O2SchmidtType {
    wanninkhof1992,
    wanninkhof2014,
    ocmip
};
 
struct FennelParameters {
    // Maximum number of iterations to achieve convergence of the nonlinear solution.
    int BioIter = 1;
 
    // Light attenuation due to seawater [1/m].
    amrex::Real AttSW = amrex::Real(0.04);
 
    // Light attenuation by chlorophyll [1/(mg_Chl m2)].
    amrex::Real AttChl = amrex::Real(0.02486);
 
    // Fraction of shortwave radiation that is photosynthetically active.
    amrex::Real PARfrac = amrex::Real(0.43);
 
    // Eppley temperature-limited and light-limited growth tuning parameter.
    amrex::Real Vp0 = amrex::Real(1.0);
 
    // Radiation threshold for nitrification inhibition [Watts/m2].
    amrex::Real I_thNH4 = amrex::Real(0.0095);
 
    // Half-saturation radiation for nitrification inhibition [Watts/m2].
    amrex::Real D_p5NH4 = amrex::Real(0.1);
 
    // Nitrification rate: oxidation of NH4 to NO3 [day-1].
    amrex::Real NitriR = amrex::Real(0.05);
 
    // Inverse half-saturation for phytoplankton NO3 uptake [1/(millimole_N m-3)].
    amrex::Real K_NO3 = amrex::Real(2.0);
 
    // Inverse half-saturation for phytoplankton NH4 uptake [1/(millimole_N m-3)].
    amrex::Real K_NH4 = amrex::Real(2.0);
 
    // Inverse half-saturation for phytoplankton PO4 uptake [1/(millimole_P m-3)].
    amrex::Real K_PO4 = amrex::Real(32.0);
 
    // Zooplankton half-saturation squared constant for ingestion [millimole_N m-3]^2.
    amrex::Real K_Phy = amrex::Real(1.0);
 
    // Maximum chlorophyll to carbon ratio [mg_Chl/mg_C].
    amrex::Real Chl2C_m = amrex::Real(0.0535);
 
    // Chlorophyll minimum threshold value [mg_Chl/m3].
    amrex::Real ChlMin = amrex::Real(0.01);
 
    // Phytoplankton Carbon:Nitrogen ratio [mole_C/mole_N].
    amrex::Real PhyCN = amrex::Real(6.625);
 
    // Phytoplankton Phosphate:Nitrogen ratio [mole_P/mole_N].
    amrex::Real R_P2N = amrex::Real(0.0625);
 
    // Phytoplankton NH4 inhibition parameter [1/(millimole_N)].
    amrex::Real PhyIP = amrex::Real(1.5);
 
    // Phytoplankton initial slope of P-I curve [1/(Watts m-2 day)].
    amrex::Real PhyIS = amrex::Real(0.025);
 
    // Phytoplankton minimum threshold value [millimole_N/m3].
    amrex::Real PhyMin = amrex::Real(0.01);
 
    // Phytoplankton mortality rate [1/day].
    amrex::Real PhyMR = amrex::Real(0.15);
 
    // Zooplankton Nitrogen assimilation efficiency.
    amrex::Real ZooAE_N = amrex::Real(0.75);
 
    // Zooplankton Carbon:Nitrogen ratio [mole_C/mole_N].
    amrex::Real ZooCN = amrex::Real(6.625);
 
    // Basal metabolism of zooplankton [1/day].
    amrex::Real ZooBM = amrex::Real(0.1);
 
    // Zooplankton specific excretion rate [1/day].
    amrex::Real ZooER = amrex::Real(0.1);
 
    // Zooplankton maximum growth rate [1/day].
    amrex::Real ZooGR = amrex::Real(0.6);
 
    // Zooplankton minimum threshold value [millimole_N/m3].
    amrex::Real ZooMin = amrex::Real(0.01);
 
    // Zooplankton mortality rate [1/day].
    amrex::Real ZooMR = amrex::Real(0.025);
 
    // Large nitrogen detritus remineralization rate [day-1].
    amrex::Real LDeRRN = amrex::Real(0.01);
 
    // Large detritus remineralization rate C-fraction [day-1].
    amrex::Real LDeRRC = amrex::Real(0.01);
 
    // Coagulation rate: aggregation rate of SDeN + Phyt ==> LDeN [day-1].
    amrex::Real CoagR = amrex::Real(0.005);
 
    // Small nitrogen detritus remineralization rate [day-1].
    amrex::Real SDeRRN = amrex::Real(0.1);
 
    // Small detritus remineralization rate C-fraction [day-1].
    amrex::Real SDeRRC = amrex::Real(0.03);
 
    // Vertical sinking velocity for phytoplankton [m/day].
    amrex::Real wPhy = amrex::Real(0.1);
 
    // Vertical sinking velocity for large detritus [m/day].
    amrex::Real wLDet = amrex::Real(1.0);
 
    // Vertical sinking velocity for small detritus [m/day].
    amrex::Real wSDet = amrex::Real(0.1);
 
    // River nitrogen detritus remineralization rate [1/day].
    amrex::Real RDeRRN = amrex::Real(0.03);
 
    // River carbon detritus remineralization rate [1/day].
    amrex::Real RDeRRC = amrex::Real(0.03);
 
    // CO2 partial pressure in the air (parts per million by volume). Used when
    // pco2air_type is constant; otherwise the value is computed from the date.
    amrex::Real pCO2air = amrex::Real(370.0);
 
    // Enable ROMS PO4 option, adding phosphate as an active biological tracer.
    bool po4 = false;
 
    // Enable ROMS CARBON option, adding large and small carbon detritus,
    // total inorganic carbon, and alkalinity tracers.
    bool carbon = false;
 
    // Enable one additional biological tracer for dissolved oxygen. OXYGEN can
    // be activated independently of the CARBON option in ROMS.
    bool oxygen = false;
 
    // Enable ROMS ODU option, adding dissolved oxygen demand units.
    bool odu = false;
 
    // Runtime analogue of ROMS DENITRIFICATION bottom remineralization option.
    bool denitrification = false;
 
    // Runtime analogue of ROMS BIO_SEDIMENT bottom remineralization option.
    bool bio_sediment = true;
 
    // Enable ROMS RIVER_DON option, adding a river dissolved organic nitrogen
    // pool that remineralizes to NH4, plus its carbon counterpart when carbon
    // is on. Neither pool sinks, matching ROMS.
    bool river_don = false;
 
    // Enable ROMS TALK_NONCONSERV option. Alkalinity is otherwise diagnostic,
    // a function of salinity alone; with this on it responds to nitrate
    // uptake, nitrification, zooplankton metabolism and remineralization.
    // Requires carbon, since alkalinity is a carbon-block tracer.
    bool talk_nonconserv = false;
 
    // remora.fennel.pco2air_type: constant / data / secular. The two
    // time-dependent forms date the model clock through REMORA_DateClock.H,
    // which is ROMS caldate with time_ref = 0: model time zero is 0001-01-01,
    // and a run is placed at a real date through remora.start_time.
    PCO2AirType pco2air_type = PCO2AirType::constant;
 
    // remora.fennel.co2_schmidt / remora.fennel.oxygen_schmidt.
    CO2SchmidtType co2_schmidt = CO2SchmidtType::wanninkhof1992;
    O2SchmidtType o2_schmidt = O2SchmidtType::wanninkhof1992;
 
    void init_params (const std::string& remora_prefix);
};
 
namespace Fennel {
static constexpr int NumBaseTracers = 7;
static constexpr int NumCarbonTracers = 4;
 
struct Components {
    int no3 = -1;
    int nh4 = -1;
    int chlo = -1;
    int phyt = -1;
    int zoop = -1;
    int lden = -1;
    int sden = -1;
    int rden = -1;
    int po4 = -1;
    int ldec = -1;
    int sdec = -1;
    int tic = -1;
    int talk = -1;
    int rdec = -1;
    int oxyg = -1;
    int odu = -1;
};
 
/** \brief Map the Fennel tracers onto cons components starting at \p base.
 *
 * \p base is REMORA::bio_comp_start(), which is Tracer_comp plus the number of passive
 * (dye) scalars. Passing it explicitly keeps biology working when a run carries dye as
 * well, since the biology block then does not start at Tracer_comp.
 */
inline Components components (FennelParameters const& parameters, int base) noexcept
{
    int comp = base;
    Components c;
    c.no3 = comp++;
    c.nh4 = comp++;
    c.chlo = comp++;
    c.phyt = comp++;
    c.zoop = comp++;
    c.lden = comp++;
    c.sden = comp++;
    c.rden = parameters.river_don ? comp++ : -1;
    c.po4 = parameters.po4 ? comp++ : -1;
    c.ldec = parameters.carbon ? comp++ : -1;
    c.sdec = parameters.carbon ? comp++ : -1;
    c.tic = parameters.carbon ? comp++ : -1;
    c.talk = parameters.carbon ? comp++ : -1;
    c.rdec = (parameters.carbon && parameters.river_don) ? comp++ : -1;
    c.oxyg = parameters.oxygen ? comp++ : -1;
    c.odu = parameters.odu ? comp++ : -1;
    return c;
}
 
inline int num_tracers (FennelParameters const& parameters) noexcept
{
    return NumBaseTracers + (parameters.po4 ? 1 : 0) +
           (parameters.carbon ? NumCarbonTracers : 0) +
           (parameters.river_don ? 1 : 0) +
           ((parameters.river_don && parameters.carbon) ? 1 : 0) +
           (parameters.oxygen ? 1 : 0) + (parameters.odu ? 1 : 0);
}
}
 
 
/** \brief Fennel ecosystem; polymorphism is host-only, kernels capture plain data. */
class FennelBiology final : public Biology {
public:
    std::string name () const override { return "fennel"; }
    void configure (const std::string& remora_prefix) override;
    const BiologyDeclaration& declaration () const noexcept override { return m_declaration; }
    void advance (const BiologyAdvanceContext& context) const override;
 
private:
    FennelParameters m_parameters;
    BiologyDeclaration m_declaration;
    int m_use_cpp = 1;
    int m_debug = 0;
    int m_debug_i = 2;
    int m_debug_j = 2;
#ifdef REMORA_USE_FENNEL_FORT
    void advance_fortran (const BiologyAdvanceContext& context) const;
#endif
};
 
}
#endif