hbc2d_Prescribed_Model Function

public pure function hbc2d_Prescribed_Model(this, x, t) result(exts)

Arguments

TypeIntentOptionalAttributesName
class(Model), intent(in) :: this
real(kind=prec), intent(in) :: x(1:2)
real(kind=prec), intent(in) :: t

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


Contents


Source Code

  pure function hbc2d_Prescribed_Model(this,x,t) result(exts)
    class(Model),intent(in) :: this
    real(prec),intent(in) :: x(1:2)
    real(prec),intent(in) :: t
    real(prec) :: exts(1:this%nvar)
    ! Local
    integer :: ivar

    do ivar = 1,this%nvar
      exts(ivar) = 0.0_prec
    enddo

  endfunction hbc2d_Prescribed_Model