extrapolate_cell_averages_to_faces Subroutine

  1. face_interpolant.f90
  2. face_interpolant
  3. extrapolate_cell_averages_to_faces

private subroutine extrapolate_cell_averages_to_faces(qp, dims)

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in), dimension(-2:dims%imx+2, -2:dims%jmx+2, -2:dims%kmx+2, 1:dims%n_var):: qp

Store primitive variable at cell center
type(extent), intent(in) :: dims

Extent of the domain:imx,jmx,kmx

Calls

proc~~extrapolate_cell_averages_to_faces~~CallsGraph proc~extrapolate_cell_averages_to_faces extrapolate_cell_averages_to_faces debugcall debugcall proc~extrapolate_cell_averages_to_faces->debugcall

Called by

proc~~extrapolate_cell_averages_to_faces~~CalledByGraph proc~extrapolate_cell_averages_to_faces extrapolate_cell_averages_to_faces proc~compute_face_interpolant compute_face_interpolant proc~compute_face_interpolant->proc~extrapolate_cell_averages_to_faces proc~get_total_conservative_residue get_total_conservative_Residue proc~get_total_conservative_residue->proc~compute_face_interpolant proc~get_next_solution get_next_solution proc~get_next_solution->proc~get_total_conservative_residue proc~iterate_one_more_time_step iterate_one_more_time_step proc~iterate_one_more_time_step->proc~get_next_solution program~main main program~main->proc~iterate_one_more_time_step

Contents

Source Code

extrapolate_cell_averages_to_faces

Source Code

        subroutine extrapolate_cell_averages_to_faces(qp, dims)
            implicit none
            type(extent), intent(in) :: dims
            !< Extent of the domain:imx,jmx,kmx
            real(wp), dimension(-2:dims%imx+2, -2:dims%jmx+2, -2:dims%kmx+2, 1:dims%n_var), intent(in):: qp
            !< Store primitive variable at cell center

            DebugCall('extrapolate_cell_averages_to_faces')

            x_qp_left(:, :, :, :) = qp(-1:dims%imx, 1:dims%jmx-1, 1:dims%kmx-1, 1:dims%n_var)
            x_qp_right(:, :, :, :) = qp(0:dims%imx+1, 1:dims%jmx-1, 1:dims%kmx-1, 1:dims%n_var)
            y_qp_left(:, :, :, :) = qp(1:dims%imx-1, -1:dims%jmx, 1:dims%kmx-1, 1:dims%n_var)
            y_qp_right(:, :, :, :) = qp(1:dims%imx-1, 0:dims%jmx+1, 1:dims%kmx-1, 1:dims%n_var)
            z_qp_left(:, :, :, :) = qp(1:dims%imx-1, 1:dims%jmx-1, -1:dims%kmx, 1:dims%n_var)
            z_qp_right(:, :, :, :) = qp(1:dims%imx-1, 1:dims%jmx-1, 0:dims%kmx+1, 1:dims%n_var)
        end subroutine extrapolate_cell_averages_to_faces