setup_laminar_grad Subroutine

  1. laminar_gradients.f90
  2. laminar_gradients
  3. setup_laminar_grad

public subroutine setup_laminar_grad()

Setup pointer to the gradient of U, v, w, Temperature with respect to x, y, and z

Arguments

None

Calls

proc~~setup_laminar_grad~~CallsGraph proc~setup_laminar_grad setup_laminar_grad debugcall debugcall proc~setup_laminar_grad->debugcall

Called by

proc~~setup_laminar_grad~~CalledByGraph proc~setup_laminar_grad setup_laminar_grad proc~setup_gradients setup_gradients proc~setup_gradients->proc~setup_laminar_grad proc~setup_solver setup_solver proc~setup_solver->proc~setup_gradients proc~setup_all setup_all proc~setup_all->proc~setup_gradients proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

setup_laminar_grad

Source Code

    subroutine setup_laminar_grad()
      !< Setup pointer to the gradient of U, v, w, Temperature
      !< with respect to x, y, and z

      implicit none

      DebugCall('setup_laminar_grad')

      gradu_x(0:imx, 0:jmx, 0:kmx) => gradqp_x(:, :, :, 1)
      gradv_x(0:imx, 0:jmx, 0:kmx) => gradqp_x(:, :, :, 2)
      gradw_x(0:imx, 0:jmx, 0:kmx) => gradqp_x(:, :, :, 3)
      gradT_x(0:imx, 0:jmx, 0:kmx) => gradqp_x(:, :, :, 4)

      gradu_y(0:imx, 0:jmx, 0:kmx) => gradqp_y(:, :, :, 1)
      gradv_y(0:imx, 0:jmx, 0:kmx) => gradqp_y(:, :, :, 2)
      gradw_y(0:imx, 0:jmx, 0:kmx) => gradqp_y(:, :, :, 3)
      gradT_y(0:imx, 0:jmx, 0:kmx) => gradqp_y(:, :, :, 4)

      gradu_z(0:imx, 0:jmx, 0:kmx) => gradqp_z(:, :, :, 1)
      gradv_z(0:imx, 0:jmx, 0:kmx) => gradqp_z(:, :, :, 2)
      gradw_z(0:imx, 0:jmx, 0:kmx) => gradqp_z(:, :, :, 3)
      gradT_z(0:imx, 0:jmx, 0:kmx) => gradqp_z(:, :, :, 4)

    end subroutine setup_laminar_grad