setup_scheme Subroutine

  1. ppm.f90
  2. ppm
  3. setup_scheme

public subroutine setup_scheme()

Allocate memoery to all array which store state the face.

Arguments

None

Calls

proc~~setup_scheme~10~~CallsGraph proc~setup_scheme~10 setup_scheme interface~alloc alloc proc~setup_scheme~10->interface~alloc proc~dmsg dmsg proc~setup_scheme~10->proc~dmsg 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

Contents

Source Code

setup_scheme

Source Code

        subroutine setup_scheme()
          !< Allocate memoery to all array which store state
          !< the face.

            implicit none

            call dmsg(1, 'ppm', 'setup_ppm')

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

        end subroutine setup_scheme