ERF_SLM.H

Go to the documentation of this file.

#ifndef ERF_SLM_H
#define ERF_SLM_H
 
#include <string>
#include <vector>
#include <memory>
 
#include <AMReX_FArrayBox.H>
#include <AMReX_Geometry.H>
#include <AMReX_MultiFabUtil.H>
 
#include <ERF_NullSurf.H>
#include <ERF_Constants.H>
#include <ERF_IndexDefines.H>
#include <ERF_DataStruct.H>
 
namespace LsmVar_SLM {
   enum {
      // independent variables
      theta = 0,
      NumVars
  };
}
 
/* See Chen & Dudhia (2001) https://doi.org/10.1175/1520-0493(2001)129<0569:CAALSH>2.0.CO;2 */
class SLM : public NullSurf {
 
    using FabPtr = std::shared_ptr<amrex::MultiFab>;
 
public:
    // Constructor
    SLM () {}
 
    // Destructor
    virtual ~SLM () = default;
 
    // Set thermo and grid properties
    void
    Define (SolverChoice& /*sc*/) override
    {
        // NOTE: We should parse things from sc here,
        //       but they are hard coded because this
        //       is a demonstration for now.
    }
 
    // Initialize data structures
    void
    Init (const int& /*lev*/,
          const amrex::MultiFab& cons_in,
          const amrex::Geometry& geom,
          const amrex::Geometry& /*geom0*/,
          amrex::Vector<amrex::BCRec>& /*domain_bcs_type*/,
          amrex::IntVect& /*refRatio*/,
          const amrex::Real& dt,
          amrex::Vector<amrex::Vector<std::string>>& /*nc_init_file*/) override;
 
    // Wrapper to do all the updating
    void
    Advance (const double& dt) override
    {
        m_dt = dt;
        this->ComputeFluxes();
        this->AdvanceSLM();
        this->ComputeTsurf();
    }
 
    // Compute surface temperature
    void
    ComputeTsurf ();
 
    // Compute diffusive fluxes
    void
    ComputeFluxes ();
 
    // Advance the lsm state vars
    void
    AdvanceSLM ();
 
    // Get state vars from lsm class
    amrex::MultiFab*
    Lsm_Data_Ptr (const int& varIdx) override
    {
        int lsmIdx = LsmVarMap[varIdx];
        AMREX_ALWAYS_ASSERT(lsmIdx < SLM::m_lsm_size && lsmIdx>=0);
        return lsm_fab_vars[lsmIdx].get();
    }
 
    // Get flux vars from lsm class
    amrex::MultiFab*
    Lsm_Flux_Ptr (const int& varIdx) override
    {
        int lsmIdx = LsmVarMap[varIdx];
        AMREX_ALWAYS_ASSERT(lsmIdx < SLM::m_lsm_size && lsmIdx>=0);
        return lsm_fab_flux[lsmIdx].get();
    }
 
    // Get lsm geometry
    amrex::Geometry
    Lsm_Geom ( ) override { return m_lsm_geom; }
 
    // Get number of vars lsm class contains
    int
    Lsm_Data_Size () override { return SLM::m_lsm_size; }
 
    // Get number of fluxes exchanged with the surface layer
    int
    Lsm_Flux_Size () override { return SLM::m_lsm_size; }
 
    // Get variable names
    std::string
    Lsm_DataName (const int& varIdx) override
    {
        int lsmIdx = LsmVarMap[varIdx];
        AMREX_ALWAYS_ASSERT(lsmIdx < SLM::m_lsm_size && lsmIdx>=0);
        return LsmVarName[lsmIdx];
    }
 
    // Get flux variable names
    std::string
    Lsm_FluxName (const int& varIdx) override
    {
        AMREX_ALWAYS_ASSERT(varIdx == LsmVar_SLM::theta);
        return "soil_t_flux";
    }
 
private:
    // number of lsm variables (theta)
    int m_lsm_size = 1;
 
    // LsmVar map (state indices -> LsmVar enum)
    amrex::Vector<int> LsmVarMap;
 
    // Lsm varnames
    amrex::Vector<std::string> LsmVarName;
 
    // geometry for atmosphere
    amrex::Geometry m_geom;
 
    // geometry for lsm
    amrex::Geometry m_lsm_geom;
 
    // timestep
    double m_dt;
 
    // domain klo-1 or lsm khi
    int khi_lsm;
 
    // constants
    // amrex::Real m_fac_cond;
    // amrex::Real m_fac_fus;
    // amrex::Real m_fac_sub;
 
    // independent variables
    amrex::Array<FabPtr, LsmVar_SLM::NumVars> lsm_fab_vars;
 
    // flux array for conjugate transfer
    amrex::Array<FabPtr, LsmVar_SLM::NumVars> lsm_fab_flux;
 
    // Vars that should be parsed
    // ==========================
    // Number of grid points in z
    int m_nz_lsm = 30;
 
    // Size of grid spacing in z
    amrex::Real m_dz_lsm = amrex::Real(0.1); // 3 [m] below surface
 
    // Specific heat
    amrex::Real m_cp_soil =  amrex::Real(1.26e6); // [J/m^3 K]
 
    // Conductivity
    amrex::Real m_k_soil = amrex::Real(0.2); // dry soil [W/m K]
 
    // Theta Dirichlet value at lowest point below surface
    amrex::Real m_theta_dir = amrex::Real(400.0); // [K]
 
    // Thermal diffusivity
    amrex::Real m_d_soil = m_k_soil / m_cp_soil; // [m^2/s]
};
#endif