setup_interpolant_scheme Subroutine

  1. face_interpolant.f90
  2. face_interpolant
  3. setup_interpolant_scheme

public subroutine setup_interpolant_scheme(dims)

Arguments

Type IntentOptional AttributesName
type(extent), intent(in) :: dims

Extent of the domain:imx,jmx,kmx

Calls

proc~~setup_interpolant_scheme~~CallsGraph proc~setup_interpolant_scheme setup_interpolant_scheme interface~alloc alloc proc~setup_interpolant_scheme->interface~alloc proc~alloc_rank2_real alloc_rank2_real interface~alloc->proc~alloc_rank2_real proc~alloc_rank4_real alloc_rank4_real interface~alloc->proc~alloc_rank4_real proc~alloc_rank3_real alloc_rank3_real interface~alloc->proc~alloc_rank3_real proc~alloc_rank2_integer alloc_rank2_integer interface~alloc->proc~alloc_rank2_integer proc~alloc_rank1_integer alloc_rank1_integer interface~alloc->proc~alloc_rank1_integer proc~alloc_rank6_real alloc_rank6_real interface~alloc->proc~alloc_rank6_real proc~alloc_rank5_real alloc_rank5_real interface~alloc->proc~alloc_rank5_real proc~alloc_rank3_integer alloc_rank3_integer interface~alloc->proc~alloc_rank3_integer proc~alloc_rank1_real alloc_rank1_real interface~alloc->proc~alloc_rank1_real

Called by

proc~~setup_interpolant_scheme~~CalledByGraph proc~setup_interpolant_scheme setup_interpolant_scheme proc~setup_scheme setup_scheme proc~setup_scheme->proc~setup_interpolant_scheme proc~setup_solver setup_solver proc~setup_solver->proc~setup_scheme proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

setup_interpolant_scheme

Source Code

        subroutine setup_interpolant_scheme(dims)
            implicit none
            type(extent), intent(in) :: dims
            !< Extent of the domain:imx,jmx,kmx

            call alloc(x_qp_left, 0, dims%imx+1, 1, dims%jmx-1, 1, dims%kmx-1, 1, dims%n_var, &
                    errmsg='Error: Unable to allocate memory for x_qp_left.')
            call alloc(x_qp_right, 0, dims%imx+1, 1, dims%jmx-1, 1, dims%kmx-1, 1, dims%n_var, &
                    errmsg='Error: Unable to allocate memory for x_qp_right.')
            call alloc(y_qp_left, 1, dims%imx-1, 0, dims%jmx+1, 1, dims%kmx-1, 1, dims%n_var, &
                    errmsg='Error: Unable to allocate memory for y_qp_left.')
            call alloc(y_qp_right, 1, dims%imx-1, 0, dims%jmx+1, 1, dims%kmx-1, 1, dims%n_var, &
                    errmsg='Error: Unable to allocate memory for y_qp_right.')
            call alloc(z_qp_left, 1, dims%imx-1, 1, dims%jmx-1, 0, dims%kmx+1, 1, dims%n_var, &
                    errmsg='Error: Unable to allocate memory for z_qp_left.')
            call alloc(z_qp_right, 1, dims%imx-1, 1, dims%jmx-1, 0, dims%kmx+1, 1, dims%n_var, &
                    errmsg='Error: Unable to allocate memory for z_qp_right.')
            call alloc(pdif, 0, dims%imx, 0, dims%jmx, 0, dims%kmx, &
                    errmsg='Error: Unable to allocate memory for pdif')

        end subroutine setup_interpolant_scheme