source1d_Model Function

  1. SELF_Model.f90
  2. SELF_Model
  3. source1d_Model

public pure function source1d_Model(this, s, dsdx) result(source)

Arguments

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

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


Contents

Source Code

source1d_Model

Source Code

  pure function source1d_Model(this,s,dsdx) result(source)
    class(Model),intent(in) :: this
    real(prec),intent(in) :: s(1:this%nvar)
    real(prec),intent(in) :: dsdx(1:this%nvar)
    real(prec) :: source(1:this%nvar)
    ! Local
    integer :: ivar

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

  endfunction source1d_Model