hbc3d_Generic_Model Function

  1. SELF_Model.f90
  2. SELF_Model
  3. hbc3d_Generic_Model

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

Arguments

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

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


Contents

Source Code

hbc3d_Generic_Model

Source Code

  pure function hbc3d_Generic_Model(this,s,nhat) result(exts)
    class(Model),intent(in) :: this
    real(prec),intent(in) :: s(1:this%nvar)
    real(prec),intent(in) :: nhat(1:3)
    real(prec) :: exts(1:this%nvar)

    exts = 0.0_prec
    if(.false.) then ! suppress unused-dummy-argument warnings for default implementation
      exts = s; exts(1) = exts(1)+nhat(1)
    endif

  endfunction hbc3d_Generic_Model