destroy_update Subroutine

  1. update.f90
  2. update
  3. destroy_update

public subroutine destroy_update()

Dellocate memory from all variables

Arguments

None

Calls

proc~~destroy_update~~CallsGraph proc~destroy_update destroy_update proc~destroy_lusgs destroy_lusgs proc~destroy_update->proc~destroy_lusgs interface~dealloc dealloc proc~destroy_update->interface~dealloc proc~destroy_plusgs destroy_plusgs proc~destroy_update->proc~destroy_plusgs proc~destroy_lusgs->interface~dealloc proc~dealloc_rank2_real dealloc_rank2_real interface~dealloc->proc~dealloc_rank2_real proc~dealloc_rank4_real dealloc_rank4_real interface~dealloc->proc~dealloc_rank4_real proc~dealloc_rank1_integer dealloc_rank1_integer interface~dealloc->proc~dealloc_rank1_integer proc~dealloc_rank2_integer dealloc_rank2_integer interface~dealloc->proc~dealloc_rank2_integer proc~dealloc_rank1_real dealloc_rank1_real interface~dealloc->proc~dealloc_rank1_real proc~dealloc_rank3_integer dealloc_rank3_integer interface~dealloc->proc~dealloc_rank3_integer proc~dealloc_rank3_real dealloc_rank3_real interface~dealloc->proc~dealloc_rank3_real proc~dealloc_rank5_real dealloc_rank5_real interface~dealloc->proc~dealloc_rank5_real proc~dealloc_rank6_real dealloc_rank6_real interface~dealloc->proc~dealloc_rank6_real proc~destroy_plusgs->interface~dealloc

Called by

proc~~destroy_update~~CalledByGraph proc~destroy_update destroy_update proc~destroy_solver destroy_solver proc~destroy_solver->proc~destroy_update 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_update

Source Code

      subroutine destroy_update()
        !< Dellocate memory from all variables
        implicit none

        select case (time_step_accuracy)
          case ("none")
            ! Do nothing
            continue
          case ("RK2", "RK4")
            call dealloc(U_store)
            call dealloc(R_store)
          case ("TVDRK2","TVDRK3", "TVDRK4")
            call dealloc(U_store)
          case ("implicit")
            call destroy_lusgs()
          case ("plusgs")
            call destroy_plusgs()
          case default
            Fatal_error
        end select
        call dealloc(u1)
        call dealloc(u2)
        call dealloc(R)
        call dealloc(aux)

      end subroutine destroy_update