pbc2d_Generic_Model Function

  1. SELF_Model.f90
  2. SELF_Model
  3. pbc2d_Generic_Model

public pure function pbc2d_Generic_Model(this, dsdx, nhat) result(extDsdx)

Arguments

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

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


Contents

Source Code

pbc2d_Generic_Model

Source Code

  pure function pbc2d_Generic_Model(this,dsdx,nhat) result(extDsdx)
    class(Model),intent(in) :: this
    real(prec),intent(in) :: dsdx(1:this%nvar,1:2)
    real(prec),intent(in) :: nhat(1:2)
    real(prec) :: extDsdx(1:this%nvar,1:2)

    extDsdx = dsdx
    if(.false.) extDsdx(1,1) = extDsdx(1,1)+nhat(1) ! suppress unused-dummy-argument warning for default implementation

  endfunction pbc2d_Generic_Model