pbc3d_Generic_Model Function

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

Arguments

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

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


Contents

Source Code


Source Code

  pure function pbc3d_Generic_Model(this,dsdx,nhat) result(extDsdx)
    class(Model),intent(in) :: this
    real(prec),intent(in) :: dsdx(1:this%nvar,1:3)
    real(prec),intent(in) :: nhat(1:3)
    real(prec) :: extDsdx(1:this%nvar,1:3)
    ! Local
    integer :: ivar

    do ivar = 1,this%nvar
      extDsdx(ivar,1:3) = dsdx(ivar,1:3)
    enddo

  endfunction pbc3d_Generic_Model