pbc1d_Prescribed_Model Function

  1. SELF_Model.f90
  2. SELF_Model
  3. pbc1d_Prescribed_Model

public pure function pbc1d_Prescribed_Model(this, x, t) result(extDsdx)

Arguments

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

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


Contents

Source Code

pbc1d_Prescribed_Model

Source Code

  pure function pbc1d_Prescribed_Model(this,x,t) result(extDsdx)
    class(Model),intent(in) :: this
    real(prec),intent(in) :: x
    real(prec),intent(in) :: t
    real(prec) :: extDsdx(1:this%nvar)

    extDsdx = 0.0_prec
    if(.false.) extDsdx(1) = extDsdx(1)+x+t ! suppress unused-dummy-argument warnings for default implementation

  endfunction pbc1d_Prescribed_Model