cleanup Subroutine

public subroutine cleanup()

Uses

  • proc~~cleanup~~UsesGraph proc~cleanup cleanup module~modgvec_analyze MODgvec_Analyze proc~cleanup->module~modgvec_analyze module~modgvec_globals MODgvec_Globals proc~cleanup->module~modgvec_globals module~modgvec_mpi MODgvec_MPI proc~cleanup->module~modgvec_mpi module~modgvec_output MODgvec_Output proc~cleanup->module~modgvec_output module~modgvec_readintools MODgvec_ReadInTools proc~cleanup->module~modgvec_readintools module~modgvec_restart MODgvec_Restart proc~cleanup->module~modgvec_restart module~modgvec_rungvec MODgvec_rungvec proc~cleanup->module~modgvec_rungvec module~modgvec_analyze->module~modgvec_globals iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env module~modgvec_readintools->module~modgvec_globals module~modgvec_restart->module~modgvec_globals module~modgvec_mhd3d MODgvec_MHD3D module~modgvec_rungvec->module~modgvec_mhd3d module~modgvec_mhd3d->module~modgvec_globals module~modgvec_mhd3d_minimize MODgvec_MHD3D_minimize module~modgvec_mhd3d->module~modgvec_mhd3d_minimize module~modgvec_mhd3d_minimize->module~modgvec_globals module~modgvec_sol_var_mhd3d MODgvec_sol_var_MHD3D module~modgvec_mhd3d_minimize->module~modgvec_sol_var_mhd3d module~modgvec_sol_var_mhd3d->module~modgvec_globals module~modgvec_c_sol_var MODgvec_c_sol_var module~modgvec_sol_var_mhd3d->module~modgvec_c_sol_var module~modgvec_c_sol_var->module~modgvec_globals

Arguments

None

Calls

proc~~cleanup~~CallsGraph proc~cleanup cleanup finalizeanalyze finalizeanalyze proc~cleanup->finalizeanalyze finalizeoutput finalizeoutput proc~cleanup->finalizeoutput finalizerestart finalizerestart proc~cleanup->finalizerestart proc~finalizereadin FinalizeReadIn proc~cleanup->proc~finalizereadin proc~par_finalize par_Finalize proc~cleanup->proc~par_finalize interface~ignoredstrings IgnoredStrings proc~finalizereadin->interface~ignoredstrings interface~ignoredstrings->interface~ignoredstrings

Source Code

SUBROUTINE cleanup()
  ! MODULES
  USE MODgvec_Globals    , ONLY: n_warnings_occured
  USE MODgvec_MPI        , ONLY: par_finalize
  USE MODgvec_ReadInTools, ONLY: FinalizeReadIn
  USE MODgvec_Analyze    , ONLY: FinalizeAnalyze
  USE MODgvec_Output     , ONLY: FinalizeOutput
  USE MODgvec_Restart    , ONLY: FinalizeRestart
  USE MODgvec_ReadInTools, ONLY: FinalizeReadIn
  USE MODgvec_rungvec,     ONLY: functional
  ! CODE ------------------------------------------------------------------------------------------------------------------------!
  IF (ALLOCATED(functional)) THEN
    CALL functional%free()
    DEALLOCATE(functional)
  END IF
  CALL FinalizeAnalyze()
  CALL FinalizeOutput()
  CALL FinalizeRestart()
  CALL FinalizeReadIn()

  CALL par_finalize()
  initialized = .FALSE.
  n_warnings_occured = 0
END SUBROUTINE cleanup