SetInteriorFromEquation_MappedScalar1D Subroutine

  1. SELF_MappedScalar_1D.f90
  2. SELF_MappedScalar_1D
  3. SetInteriorFromEquation_MappedScalar1D

public subroutine SetInteriorFromEquation_MappedScalar1D(this, time)

Sets the this % interior attribute using the eqn attribute, geometry (for physical positions), and provided simulation time.

Arguments

TypeIntentOptionalAttributesName
class(MappedScalar1D), intent(inout) :: this
real(kind=prec), intent(in) :: time

Calls

proc~~setinteriorfromequation_mappedscalar1d~~CallsGraph proc~setinteriorfromequation_mappedscalar1d SetInteriorFromEquation_MappedScalar1D interface~hipmemcpy hipMemcpy proc~setinteriorfromequation_mappedscalar1d->interface~hipmemcpy proc~gpucheck gpuCheck proc~setinteriorfromequation_mappedscalar1d->proc~gpucheck

Contents

Source Code

SetInteriorFromEquation_MappedScalar1D

Source Code

  subroutine SetInteriorFromEquation_MappedScalar1D(this,time)
    !!  Sets the this % interior attribute using the eqn attribute,
    !!  geometry (for physical positions), and provided simulation time.
    implicit none
    class(MappedScalar1D),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
    call gpuCheck(hipMemcpy(this%interior_gpu,c_loc(this%interior),sizeof(this%interior),hipMemcpyHostToDevice))

  endsubroutine SetInteriorFromEquation_MappedScalar1D