AdditionalInit_LinearShallowWater2D_t Subroutine

  1. SELF_LinearShallowWater2D_t.f90
  2. self_LinearShallowWater2D_t
  3. AdditionalInit_LinearShallowWater2D_t

public subroutine AdditionalInit_LinearShallowWater2D_t(this)

Arguments

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

Contents

Source Code

AdditionalInit_LinearShallowWater2D_t

Source Code

  subroutine AdditionalInit_LinearShallowWater2D_t(this)
    implicit none
    class(LinearShallowWater2D_t),intent(inout) :: this

    call this%fCori%Init(this%geometry%x%interp, &
                         1,this%mesh%nElem)

  endsubroutine AdditionalInit_LinearShallowWater2D_t