setup_kkl_grad Subroutine

  1. kkl_gradients.f90
  2. kkl_gradients
  3. setup_kkl_grad

public subroutine setup_kkl_grad()

Setup Pointer to the main array which stores gradient all variables with x, y, z

Arguments

None

Calls

proc~~setup_kkl_grad~~CallsGraph proc~setup_kkl_grad setup_kkl_grad debugcall debugcall proc~setup_kkl_grad->debugcall

Called by

proc~~setup_kkl_grad~~CalledByGraph proc~setup_kkl_grad setup_kkl_grad proc~setup_gradients setup_gradients proc~setup_gradients->proc~setup_kkl_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_kkl_grad

Source Code

    subroutine setup_kkl_grad()
      !< Setup Pointer to the main array which stores gradient 
      !< all variables with x, y, z

      implicit none

      DebugCall('setup_kkl_grad')

      gradtk_x(0:imx, 0:jmx, 0:kmx) => gradqp_x(:, :, :, 5)
      gradtkl_x(0:imx, 0:jmx, 0:kmx) => gradqp_x(:, :, :, 6)

      gradtk_y(0:imx, 0:jmx, 0:kmx) => gradqp_y(:, :, :, 5)
      gradtkl_y(0:imx, 0:jmx, 0:kmx) => gradqp_y(:, :, :, 6)

      gradtk_z(0:imx, 0:jmx, 0:kmx) => gradqp_z(:, :, :, 5)
      gradtkl_z(0:imx, 0:jmx, 0:kmx) => gradqp_z(:, :, :, 6)

    end subroutine setup_kkl_grad