destroy_laminar_grad Subroutine

  1. laminar_gradients.f90
  2. laminar_gradients
  3. destroy_laminar_grad

public subroutine destroy_laminar_grad()

Unlink the laminar gradient pointers

Arguments

None

Calls

proc~~destroy_laminar_grad~~CallsGraph proc~destroy_laminar_grad destroy_laminar_grad debugcall debugcall proc~destroy_laminar_grad->debugcall

Called by

proc~~destroy_laminar_grad~~CalledByGraph proc~destroy_laminar_grad destroy_laminar_grad proc~destroy_gradients destroy_gradients proc~destroy_gradients->proc~destroy_laminar_grad proc~destroy_all destroy_all proc~destroy_all->proc~destroy_gradients proc~destroy_solver destroy_solver proc~destroy_solver->proc~destroy_gradients proc~finish_run finish_run proc~finish_run->proc~destroy_solver proc~abort_run abort_run proc~abort_run->proc~destroy_solver program~main main program~main->proc~finish_run

Contents

Source Code

destroy_laminar_grad

Source Code

    subroutine destroy_laminar_grad()
      !< Unlink the laminar gradient pointers

      implicit none

      DebugCall('destroy_laminar_grad')

      nullify(gradu_x)
      nullify(gradv_x)
      nullify(gradw_x)
      nullify(gradT_x)

      nullify(gradu_y)
      nullify(gradv_y)
      nullify(gradw_y)
      nullify(gradT_y)

      nullify(gradu_z)
      nullify(gradv_z)
      nullify(gradw_z)
      nullify(gradT_z)

    end subroutine destroy_laminar_grad