tem_eval_cylindricalWave Function

public function tem_eval_cylindricalWave(me, coord, time, n) result(res)

Calculate the function values for the cylindrical wave.

Arguments

Type IntentOptional Attributes Name
type(tem_cylindricalWave_type) :: me

Spacetime function to evaluate
real(kind=rk), intent(in) :: coord(n,3)

barycentric Ids of an elements. 1st index goes over number of elements and 2nd index goes over x,y,z coordinates
real(kind=rk), intent(in) :: time

The current physical time
integer, intent(in) :: n

Number of arrays to return

Return Value real(kind=rk), (n)

return value


Contents

Source Code

tem_eval_cylindricalWave

Source Code

  function tem_eval_cylindricalWave(me, coord, time, n)  result(res)
    !> Spacetime function to evaluate
    type(tem_cylindricalWave_type) :: me
    !> Number of arrays to return
    integer, intent(in) :: n
    !> barycentric Ids of an elements.
    !! 1st index goes over number of elements and
    !! 2nd index goes over x,y,z coordinates
    real(kind=rk), intent( in ) :: coord(n,3)
    !> The current physical time
    real(kind=rk), intent( in )  :: time
    !> return value
    real(kind=rk) :: res(n)
    ! ---------------------------------------------------------------------------
    real(kind=rk) :: polar(n,2)
    integer :: i
    ! ---------------------------------------------------------------------------

    res = 0.0_rk

  end function tem_eval_cylindricalWave