AdditionalInit_LinearShallowWater2D Subroutine

  1. SELF_LinearShallowWater2D.f90
  2. self_LinearShallowWater2D
  3. AdditionalInit_LinearShallowWater2D

public subroutine AdditionalInit_LinearShallowWater2D(this)

Arguments

TypeIntentOptionalAttributesName
class(LinearShallowWater2D), intent(inout) :: this

Calls

proc~~additionalinit_linearshallowwater2d~~CallsGraph proc~additionalinit_linearshallowwater2d AdditionalInit_LinearShallowWater2D proc~additionalinit_linearshallowwater2d_t AdditionalInit_LinearShallowWater2D_t proc~additionalinit_linearshallowwater2d->proc~additionalinit_linearshallowwater2d_t

Contents

Source Code

AdditionalInit_LinearShallowWater2D

Source Code

  subroutine AdditionalInit_LinearShallowWater2D(this)
    implicit none
    class(LinearShallowWater2D),intent(inout) :: this
    ! Local
    procedure(SELF_bcMethod),pointer :: bcfunc

    ! Call parent _t AdditionalInit (registers CPU BCs + initializes fCori)
    call AdditionalInit_LinearShallowWater2D_t(this)

    ! Re-register with GPU-accelerated versions
    bcfunc => hbc2d_NoNormalFlow_LinearShallowWater2D_GPU_wrapper
    call this%hyperbolicBCs%RegisterBoundaryCondition( &
      SELF_BC_NONORMALFLOW,"no_normal_flow",bcfunc)

    bcfunc => hbc2d_Radiation_LinearShallowWater2D_GPU_wrapper
    call this%hyperbolicBCs%RegisterBoundaryCondition( &
      SELF_BC_RADIATION,"radiation",bcfunc)

  endsubroutine AdditionalInit_LinearShallowWater2D