hbc2d_NoNormalFlow_LinearShallowWater2D_t Function

  1. SELF_LinearShallowWater2D_t.f90
  2. self_LinearShallowWater2D_t
  3. hbc2d_NoNormalFlow_LinearShallowWater2D_t

public pure function hbc2d_NoNormalFlow_LinearShallowWater2D_t(this, s, nhat) result(exts)

Arguments

TypeIntentOptionalAttributesName
class(LinearShallowWater2D_t), intent(in) :: this
real(kind=prec), intent(in) :: s(1:this%nvar)
real(kind=prec), intent(in) :: nhat(1:2)

Return Value real(kind=prec)(1:this%nvar)


Contents

Source Code

hbc2d_NoNormalFlow_LinearShallowWater2D_t

Source Code

  pure function hbc2d_NoNormalFlow_LinearShallowWater2D_t(this,s,nhat) result(exts)
    class(LinearShallowWater2D_t),intent(in) :: this
    real(prec),intent(in) :: s(1:this%nvar)
    real(prec),intent(in) :: nhat(1:2)
    real(prec) :: exts(1:this%nvar)
    ! Local
    integer :: ivar

    exts(1) = (nhat(2)**2-nhat(1)**2)*s(1)-2.0_prec*nhat(1)*nhat(2)*s(2) ! u
    exts(2) = (nhat(1)**2-nhat(2)**2)*s(2)-2.0_prec*nhat(1)*nhat(2)*s(1) ! v
    exts(3) = s(3) ! eta

  endfunction hbc2d_NoNormalFlow_LinearShallowWater2D_t