destroy_lctm2015_grad Subroutine

  1. lctm2015_gradients.f90
  2. lctm2015_gradients
  3. destroy_lctm2015_grad

public subroutine destroy_lctm2015_grad()

Nullify all the gradient pointer setup for k-kL model

Arguments

None

Calls

proc~~destroy_lctm2015_grad~~CallsGraph proc~destroy_lctm2015_grad destroy_lctm2015_grad debugcall debugcall proc~destroy_lctm2015_grad->debugcall

Called by

proc~~destroy_lctm2015_grad~~CalledByGraph proc~destroy_lctm2015_grad destroy_lctm2015_grad proc~destroy_gradients destroy_gradients proc~destroy_gradients->proc~destroy_lctm2015_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_lctm2015_grad

Source Code

    subroutine destroy_lctm2015_grad()
      !< Nullify all the gradient pointer setup for k-kL model
      implicit none

      DebugCall('destroy_sst_grad')

      select case(trim(transition))

        case('lctm2015')
          nullify(gradtgm_x)
          nullify(gradtgm_y)
          nullify(gradtgm_z)

        case('bc', 'none')
          !do nothing
          continue

        case DEFAULT
          Fatal_error

      end Select

    end subroutine destroy_lctm2015_grad