Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Model), | intent(in) | :: | this | |||
real(kind=prec), | intent(in) | :: | dsdx(1:this%nvar,1:3) | |||
real(kind=prec), | intent(in) | :: | nhat(1:3) |
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