erf-model · asalmgren · Jan 9, 2024 · Jan 4, 2024 · Jan 4, 2024 · Jan 4, 2024
diff --git a/Docs/sphinx_doc/Inputs.rst b/Docs/sphinx_doc/Inputs.rst
@@ -172,7 +172,8 @@ This automatically activates **erf.use_terrain**. By default, the
 problem-specific terrain is initialized to be flat at an elevation of z=0.
 These inputs are used to automatically generate the staggered z levels used to
 calculate the grid metric transformation. Alternatively, arbitrary z levels may
-be specified with the **erf.terrain_z_levels** parameter.
+be specified with the **erf.terrain_z_levels** parameter, which should vary
+from 0 (at the surface) to the domain height.
 
 .. _list-of-parameters-3:
 

diff --git a/Exec/ABL/prob.H b/Exec/ABL/prob.H
@@ -68,11 +68,6 @@ public:
         amrex::Array4<amrex::Real const> const& mf_v,
         const SolverChoice& sc) override;
 
-    void init_custom_terrain (
-        const amrex::Geometry& geom,
-        amrex::MultiFab& z_phys_nd,
-        const amrex::Real& time) override;
-
 protected:
     std::string name() override { return "ABL"; }
 

diff --git a/Exec/ABL/prob.cpp b/Exec/ABL/prob.cpp
@@ -164,28 +164,3 @@ Problem::init_custom_pert(
     }
   });
 }
-
-void
-Problem::init_custom_terrain(
-    const Geometry& /*geom*/,
-    MultiFab& z_phys_nd,
-    const Real& /*time*/)
-{
-    // Number of ghost cells
-    int ngrow = z_phys_nd.nGrow();
-
-    for ( MFIter mfi(z_phys_nd, TilingIfNotGPU()); mfi.isValid(); ++mfi )
-    {
-        // Grown box with no z range
-        amrex::Box xybx = mfi.growntilebox(ngrow);
-        xybx.setRange(2,0);
-
-        Array4<Real> z_arr = z_phys_nd.array(mfi);
-
-        ParallelFor(xybx, [=] AMREX_GPU_DEVICE (int i, int j, int) {
-
-            // Flat terrain with z = 0 at k = 0
-            z_arr(i,j,0) = 0.;
-        });
-    }
-}
diff --git a/Exec/ABL_input_sounding/prob.H b/Exec/ABL_input_sounding/prob.H
@@ -67,11 +67,6 @@ public:
         amrex::Array4<amrex::Real const> const& mf_v,
         const SolverChoice& sc) override;
 
-    void init_custom_terrain (
-        const amrex::Geometry& geom,
-        amrex::MultiFab& z_phys_nd,
-        const amrex::Real& time) override;
-
 protected:
     std::string name() override { return "ABL with input sounding"; }
 

diff --git a/Exec/ABL_input_sounding/prob.cpp b/Exec/ABL_input_sounding/prob.cpp
@@ -157,28 +157,3 @@ Problem::init_custom_pert(
     }
   });
 }
-
-void
-Problem::init_custom_terrain(
-    const Geometry& /*geom*/,
-    MultiFab& z_phys_nd,
-    const Real& /*time*/)
-{
-    // Number of ghost cells
-    int ngrow = z_phys_nd.nGrow();
-
-    for ( MFIter mfi(z_phys_nd, TilingIfNotGPU()); mfi.isValid(); ++mfi )
-    {
-        // Grown box with no z range
-        amrex::Box xybx = mfi.growntilebox(ngrow);
-        xybx.setRange(2,0);
-
-        Array4<Real> z_arr = z_phys_nd.array(mfi);
-
-        ParallelFor(xybx, [=] AMREX_GPU_DEVICE (int i, int j, int) {
-
-            // Flat terrain with z = 0 at k = 0
-            z_arr(i,j,0) = 0.;
-        });
-    }
-}
diff --git a/Exec/DevTests/MiguelDev/prob.H b/Exec/DevTests/MiguelDev/prob.H
@@ -57,11 +57,6 @@ public:
         amrex::Array4<amrex::Real const> const& mf_v,
         const SolverChoice& sc) override;
 
-    void init_custom_terrain (
-        const amrex::Geometry& geom,
-        amrex::MultiFab& z_phys_nd,
-        const amrex::Real& time) override;
-
 protected:
     std::string name() override { return "ABL test"; }
 

diff --git a/Exec/DevTests/MiguelDev/prob.cpp b/Exec/DevTests/MiguelDev/prob.cpp
@@ -140,31 +140,3 @@ Problem::init_custom_pert(
   });
 
 }
-
-void
-Problem::init_custom_terrain(
-    const Geometry& /*geom*/,
-    MultiFab& z_phys_nd,
-    const Real& /*time*/)
-{
-    // Number of ghost cells
-    int ngrow = z_phys_nd.nGrow();
-
-    // Bottom of domain
-    int k0 = 0;
-
-    for ( MFIter mfi(z_phys_nd, TilingIfNotGPU()); mfi.isValid(); ++mfi )
-    {
-        // Grown box with no z range
-        Box xybx = mfi.growntilebox(ngrow);
-        xybx.setRange(2,0);
-
-        Array4<Real> const& z_arr = z_phys_nd.array(mfi);
-
-        ParallelFor(xybx, [=] AMREX_GPU_DEVICE (int i, int j, int) {
-
-            // Flat terrain with z = 0 at k = 0
-            z_arr(i,j,k0) = 0.0;
-        });
-    }
-}
diff --git a/Exec/DevTests/MultiBlock/prob.H b/Exec/DevTests/MultiBlock/prob.H
@@ -46,11 +46,6 @@ public:
         amrex::Array4<amrex::Real const> const& mf_v,
         const SolverChoice& sc) override;
 
-    void init_custom_terrain (
-        const amrex::Geometry& geom,
-        amrex::MultiFab& z_phys_nd,
-        const amrex::Real& time) override;
-
 protected:
     std::string name() override { return "MultiBlock"; }
 

diff --git a/Exec/DevTests/MultiBlock/prob.cpp b/Exec/DevTests/MultiBlock/prob.cpp
@@ -111,31 +111,3 @@ Problem::init_custom_pert(
 
   amrex::Gpu::streamSynchronize();
 }
-
-void
-Problem::init_custom_terrain(
-    const Geometry& /*geom*/,
-    MultiFab& z_phys_nd,
-    const Real& /*time*/)
-{
-    // Number of ghost cells
-    int ngrow = z_phys_nd.nGrow();
-
-    // Bottom of domain
-    int k0 = 0;
-
-    for ( MFIter mfi(z_phys_nd, TilingIfNotGPU()); mfi.isValid(); ++mfi )
-    {
-        // Grown box with no z range
-        amrex::Box xybx = mfi.growntilebox(ngrow);
-        xybx.setRange(2,0);
-
-        Array4<Real> const& z_arr = z_phys_nd.array(mfi);
-
-        ParallelFor(xybx, [=] AMREX_GPU_DEVICE (int i, int j, int) {
-
-            // Flat terrain with z = 0 at k = 0
-            z_arr(i,j,k0) = 0.0;
-        });
-    }
-}
diff --git a/Exec/LLJ/prob.H b/Exec/LLJ/prob.H
@@ -39,11 +39,6 @@ public:
         amrex::Array4<amrex::Real const> const& mf_v,
         const SolverChoice& sc) override;
 
-    void init_custom_terrain (
-        const amrex::Geometry& geom,
-        amrex::MultiFab& z_phys_nd,
-        const amrex::Real& time) override;
-
 protected:
     std::string name() override { return "Low-Level Jet"; }
 

diff --git a/Exec/LLJ/prob.cpp b/Exec/LLJ/prob.cpp
@@ -42,28 +42,3 @@ Problem::init_custom_pert(
 {
   amrex::Print() << "Dummy function..Needed for linking" << std::endl;
 }
-
-void
-Problem::init_custom_terrain(
-    const Geometry& /*geom*/,
-    MultiFab& z_phys_nd,
-    const Real& /*time*/)
-{
-    // Number of ghost cells
-    int ngrow = z_phys_nd.nGrow();
-
-    for ( MFIter mfi(z_phys_nd, TilingIfNotGPU()); mfi.isValid(); ++mfi )
-    {
-        // Grown box with no z range
-        amrex::Box xybx = mfi.growntilebox(ngrow);
-        xybx.setRange(2,0);
-
-        Array4<Real> z_arr = z_phys_nd.array(mfi);
-
-        ParallelFor(xybx, [=] AMREX_GPU_DEVICE (int i, int j, int) {
-
-            // Flat terrain with z = 0 at k = 0
-            z_arr(i,j,0) = 0.;
-        });
-    }
-}
diff --git a/Exec/Radiation/prob.H b/Exec/Radiation/prob.H
@@ -46,11 +46,6 @@ public:
         amrex::Array4<amrex::Real const> const& mf_v,
         const SolverChoice& sc) override;
 
-    void init_custom_terrain (
-        const amrex::Geometry& geom,
-        amrex::MultiFab& z_phys_nd,
-        const amrex::Real& time) override;
-
     void erf_init_rayleigh (
         amrex::Vector<amrex::Real>& tau,
         amrex::Vector<amrex::Real>& ubar,

diff --git a/Exec/Radiation/prob.cpp b/Exec/Radiation/prob.cpp
@@ -212,34 +212,6 @@ Problem::init_custom_pert(
   amrex::Gpu::streamSynchronize();
 }
 
-void
-Problem::init_custom_terrain(
-    const Geometry& /*geom*/,
-    MultiFab& z_phys_nd,
-    const Real& /*time*/)
-{
-    // Number of ghost cells
-    int ngrow = z_phys_nd.nGrow();
-
-    // Bottom of domain
-    int k0 = 0;
-
-    for ( MFIter mfi(z_phys_nd, TilingIfNotGPU()); mfi.isValid(); ++mfi )
-    {
-        // Grown box with no z range
-        amrex::Box xybx = mfi.growntilebox(ngrow);
-        xybx.setRange(2,0);
-
-        Array4<Real> const& z_arr = z_phys_nd.array(mfi);
-
-        ParallelFor(xybx, [=] AMREX_GPU_DEVICE (int i, int j, int) {
-
-            // Flat terrain with z = 0 at k = 0
-            z_arr(i,j,k0) = 0.0;
-        });
-    }
-}
-
 void
 Problem::erf_init_rayleigh(
     amrex::Vector<amrex::Real>& tau,

diff --git a/Exec/RegTests/Bubble/prob.H b/Exec/RegTests/Bubble/prob.H
@@ -72,11 +72,6 @@ public:
                                   std::unique_ptr<amrex::MultiFab>& z_phys_nd,
                                   amrex::Geometry const& geom) override;
 
-    void init_custom_terrain (
-        const amrex::Geometry& geom,
-        amrex::MultiFab& z_phys_nd,
-        const amrex::Real& time) override;
-
     AMREX_FORCE_INLINE
     AMREX_GPU_HOST_DEVICE
     amrex::Real compute_theta (const amrex::Real T_b, const amrex::Real p_b);

diff --git a/Exec/RegTests/Bubble/prob.cpp b/Exec/RegTests/Bubble/prob.cpp
@@ -457,31 +457,3 @@ Problem::init_custom_pert(
 
     amrex::Gpu::streamSynchronize();
 }
-
-void
-Problem::init_custom_terrain(
-    const Geometry& /*geom*/,
-    MultiFab& z_phys_nd,
-    const Real& /*time*/)
-{
-    // Number of ghost cells
-    int ngrow = z_phys_nd.nGrow();
-
-    // Bottom of domain
-    int k0 = 0;
-
-    for ( MFIter mfi(z_phys_nd, TilingIfNotGPU()); mfi.isValid(); ++mfi )
-    {
-        // Grown box with no z range
-        amrex::Box xybx = mfi.growntilebox(ngrow);
-        xybx.setRange(2,0);
-
-        Array4<Real> const& z_arr = z_phys_nd.array(mfi);
-
-        ParallelFor(xybx, [=] AMREX_GPU_DEVICE (int i, int j, int) {
-
-            // Flat terrain with z = 0 at k = 0
-            z_arr(i,j,k0) = 0.0;
-        });
-    }
-}
diff --git a/Exec/RegTests/CouetteFlow/prob.H b/Exec/RegTests/CouetteFlow/prob.H
@@ -41,11 +41,6 @@ public:
         amrex::Array4<amrex::Real const> const& mf_v,
         const SolverChoice& sc) override;
 
-    void init_custom_terrain (
-        const amrex::Geometry& geom,
-        amrex::MultiFab& z_phys_nd,
-        const amrex::Real& time) override;
-
 protected:
     std::string name() override { return "Couette Flow"; }
 

diff --git a/Exec/RegTests/CouetteFlow/prob.cpp b/Exec/RegTests/CouetteFlow/prob.cpp
@@ -75,28 +75,3 @@ Problem::init_custom_pert(
     z_vel(i, j, k) = parms.w_0;
   });
 }
-
-void
-Problem::init_custom_terrain(
-    const Geometry& /*geom*/,
-    MultiFab& z_phys_nd,
-    const Real& /*time*/)
-{
-    // Number of ghost cells
-    int ngrow = z_phys_nd.nGrow();
-
-    for ( MFIter mfi(z_phys_nd, TilingIfNotGPU()); mfi.isValid(); ++mfi )
-    {
-        // Grown box with no z range
-        amrex::Box xybx = mfi.growntilebox(ngrow);
-        xybx.setRange(2,0);
-
-        Array4<Real> z_arr = z_phys_nd.array(mfi);
-
-        ParallelFor(xybx, [=] AMREX_GPU_DEVICE (int i, int j, int) {
-
-            // Flat terrain with z = 0 at k = 0
-            z_arr(i,j,0) = 0.;
-        });
-    }
-}
diff --git a/Exec/RegTests/DensityCurrent/prob.H b/Exec/RegTests/DensityCurrent/prob.H
@@ -44,11 +44,6 @@ public:
         amrex::Array4<amrex::Real const> const& mf_v,
         const SolverChoice& sc) override;
 
-    void init_custom_terrain (
-        const amrex::Geometry& geom,
-        amrex::MultiFab& z_phys_nd,
-        const amrex::Real& time) override;
-
 protected:
     std::string name() override { return "Density Current"; }
 

diff --git a/Exec/RegTests/DensityCurrent/prob.cpp b/Exec/RegTests/DensityCurrent/prob.cpp
@@ -148,32 +148,3 @@ Problem::init_custom_pert(
 
   amrex::Gpu::streamSynchronize();
 }
-
-void
-Problem::init_custom_terrain(
-    const Geometry& /*geom*/,
-    MultiFab& z_phys_nd,
-    const Real& /*time*/)
-{
-    // Number of ghost cells
-    int ngrow = z_phys_nd.nGrow();
-
-    // Bottom of domain
-    int k0 = 0;
-
-    for ( MFIter mfi(z_phys_nd, TilingIfNotGPU()); mfi.isValid(); ++mfi )
-    {
-        // Grown box with no z range
-        amrex::Box xybx = mfi.growntilebox(ngrow);
-        xybx.setRange(2,0);
-
-        Array4<Real> const& z_arr = z_phys_nd.array(mfi);
-
-        ParallelFor(xybx, [=] AMREX_GPU_DEVICE (int i, int j, int) {
-
-            // Flat terrain with z = 0 at k = 0
-            z_arr(i,j,k0) = 0.0;
-        });
-    }
-}
-