Sets the this % interior attribute using the eqn attribute, geometry (for physical positions), and provided simulation time.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(MappedScalar1D_t), | intent(inout) | :: | this | |||
| real(kind=prec), | intent(in) | :: | time |
subroutine SetInteriorFromEquation_MappedScalar1D_t(this,time)
!! Sets the this % interior attribute using the eqn attribute,
!! geometry (for physical positions), and provided simulation time.
implicit none
class(MappedScalar1D_t),intent(inout) :: this
real(prec),intent(in) :: time
! Local
integer :: iVar
do ivar = 1,this%nvar
this%interior(:,:,ivar) = this%eqn(ivar)%evaluate(this%geometry%x%interior)
enddo
endsubroutine SetInteriorFromEquation_MappedScalar1D_t