get_segment_inputs Subroutine

public subroutine get_segment_inputs(me, t0, x0_rotating)

Gets the initial states of a segment

Type Bound

segment

Arguments

Type IntentOptional Attributes Name
class(segment), intent(in) :: me
real(kind=wp), intent(out), optional :: t0
real(kind=wp), intent(out), optional, dimension(6) :: x0_rotating

rotating frame

Called by

proc~~get_segment_inputs~~CalledByGraph proc~get_segment_inputs segment%get_segment_inputs proc~halo_solver_main halo_solver_main proc~halo_solver_main->proc~get_segment_inputs

Source Code

    subroutine get_segment_inputs(me,t0,x0_rotating)

    implicit none

    class(segment),intent(in) :: me
    real(wp),intent(out),optional :: t0
    real(wp),dimension(6),intent(out),optional :: x0_rotating !! rotating frame

    if (present(t0)) t0 = me%data%t0
    if (present(x0_rotating)) x0_rotating = me%data%x0_rotating

    end subroutine get_segment_inputs