ocean_boundary_data_constant_t Derived Type

type, public, extends(ocean_boundary_data_source_t) :: ocean_boundary_data_constant_t

Trivial backend: writes user-supplied constant scalars straight to bc%west/east/south/north’s clamped_* fields. For fixed-inflow tests and as a polymorphic-dispatch sanity check.


Inherits

type~~ocean_boundary_data_constant_t~~InheritsGraph type~ocean_boundary_data_constant_t ocean_boundary_data_constant_t type~ocean_boundary_data_source_t ocean_boundary_data_source_t type~ocean_boundary_data_constant_t->type~ocean_boundary_data_source_t

Inherited by

type~~ocean_boundary_data_constant_t~~InheritedByGraph type~ocean_boundary_data_constant_t ocean_boundary_data_constant_t type~ocean_engine_t ocean_engine_t type~ocean_engine_t->type~ocean_boundary_data_constant_t bc_source type~ocean_handle_t ocean_handle_t type~ocean_handle_t->type~ocean_engine_t engine

Components

Type Visibility Attributes Name Initial
real(kind=wp), public :: eta_east = 0.0_wp
real(kind=wp), public :: eta_north = 0.0_wp
real(kind=wp), public :: eta_south = 0.0_wp
real(kind=wp), public :: eta_west = 0.0_wp
real(kind=wp), public :: u_east = 0.0_wp
real(kind=wp), public :: u_west = 0.0_wp
real(kind=wp), public :: v_north = 0.0_wp
real(kind=wp), public :: v_south = 0.0_wp

Type-Bound Procedures

procedure, public :: destroy => constant_destroy

procedure, public :: update => constant_update

Source Code

   type, extends(ocean_boundary_data_source_t) :: ocean_boundary_data_constant_t
      !! Trivial backend: writes user-supplied constant scalars straight
      !! to `bc%west/east/south/north`'s `clamped_*` fields. For
      !! fixed-inflow tests and as a polymorphic-dispatch sanity check.
      real(wp) :: u_west = 0.0_wp, u_east = 0.0_wp
      real(wp) :: v_south = 0.0_wp, v_north = 0.0_wp
      real(wp) :: eta_west = 0.0_wp, eta_east = 0.0_wp
      real(wp) :: eta_south = 0.0_wp, eta_north = 0.0_wp
   contains
      procedure :: update => constant_update
      procedure :: destroy => constant_destroy
   end type ocean_boundary_data_constant_t