finalize_gvec_to_jorek Subroutine

public subroutine finalize_gvec_to_jorek()

Uses

  • proc~~finalize_gvec_to_jorek~~UsesGraph proc~finalize_gvec_to_jorek finalize_gvec_to_jorek module~modgvec_gvec_to_jorek_vars MODgvec_gvec_to_jorek_Vars proc~finalize_gvec_to_jorek->module~modgvec_gvec_to_jorek_vars module~modgvec_readstate MODgvec_ReadState proc~finalize_gvec_to_jorek->module~modgvec_readstate module~modgvec_base MODgvec_base module~modgvec_gvec_to_jorek_vars->module~modgvec_base module~modgvec_fbase MODgvec_fBase module~modgvec_gvec_to_jorek_vars->module~modgvec_fbase module~modgvec_globals MODgvec_Globals module~modgvec_gvec_to_jorek_vars->module~modgvec_globals module~modgvec_readstate->module~modgvec_globals module~modgvec_base->module~modgvec_fbase module~modgvec_base->module~modgvec_globals module~modgvec_sbase MODgvec_sBase module~modgvec_base->module~modgvec_sbase module~modgvec_sgrid MODgvec_sGrid module~modgvec_base->module~modgvec_sgrid module~modgvec_fbase->module~modgvec_globals iso_fortran_env iso_fortran_env module~modgvec_globals->iso_fortran_env module~modgvec_sbase->module~modgvec_globals module~modgvec_sbase->module~modgvec_sgrid module~sll_m_bsplines sll_m_bsplines module~modgvec_sbase->module~sll_m_bsplines module~sll_m_spline_interpolator_1d sll_m_spline_interpolator_1d module~modgvec_sbase->module~sll_m_spline_interpolator_1d module~sll_m_spline_matrix sll_m_spline_matrix module~modgvec_sbase->module~sll_m_spline_matrix module~modgvec_sgrid->module~modgvec_globals module~sll_m_bsplines_base sll_m_bsplines_base module~sll_m_bsplines->module~sll_m_bsplines_base module~sll_m_bsplines_non_uniform sll_m_bsplines_non_uniform module~sll_m_bsplines->module~sll_m_bsplines_non_uniform module~sll_m_bsplines_uniform sll_m_bsplines_uniform module~sll_m_bsplines->module~sll_m_bsplines_uniform module~sll_m_working_precision sll_m_working_precision module~sll_m_bsplines->module~sll_m_working_precision module~sll_m_spline_interpolator_1d->module~sll_m_spline_matrix module~sll_m_boundary_condition_descriptors sll_m_boundary_condition_descriptors module~sll_m_spline_interpolator_1d->module~sll_m_boundary_condition_descriptors module~sll_m_spline_interpolator_1d->module~sll_m_bsplines_base module~sll_m_spline_1d sll_m_spline_1d module~sll_m_spline_interpolator_1d->module~sll_m_spline_1d module~sll_m_spline_interpolator_1d->module~sll_m_working_precision module~sll_m_spline_matrix_banded sll_m_spline_matrix_banded module~sll_m_spline_matrix->module~sll_m_spline_matrix_banded module~sll_m_spline_matrix_base sll_m_spline_matrix_base module~sll_m_spline_matrix->module~sll_m_spline_matrix_base module~sll_m_spline_matrix_dense sll_m_spline_matrix_dense module~sll_m_spline_matrix->module~sll_m_spline_matrix_dense module~sll_m_spline_matrix->module~sll_m_working_precision module~sll_m_bsplines_base->module~sll_m_working_precision module~sll_m_bsplines_non_uniform->module~sll_m_bsplines_base module~sll_m_bsplines_non_uniform->module~sll_m_working_precision module~sll_m_bsplines_uniform->module~sll_m_bsplines_base module~sll_m_bsplines_uniform->module~sll_m_working_precision module~sll_m_spline_1d->module~sll_m_bsplines_base module~sll_m_spline_1d->module~sll_m_working_precision module~sll_m_spline_matrix_banded->iso_fortran_env module~sll_m_spline_matrix_banded->module~sll_m_spline_matrix_base module~sll_m_spline_matrix_banded->module~sll_m_working_precision module~sll_m_spline_matrix_base->module~sll_m_working_precision module~sll_m_spline_matrix_dense->iso_fortran_env module~sll_m_spline_matrix_dense->module~sll_m_spline_matrix_base module~sll_m_spline_matrix_dense->module~sll_m_working_precision

Finalize Module

Arguments

None

Calls

proc~~finalize_gvec_to_jorek~~CallsGraph proc~finalize_gvec_to_jorek finalize_gvec_to_jorek finalize_readstate finalize_readstate proc~finalize_gvec_to_jorek->finalize_readstate sdeallocate sdeallocate proc~finalize_gvec_to_jorek->sdeallocate

Source Code

SUBROUTINE finalize_gvec_to_jorek
! MODULES
USE MODgvec_gvec_to_jorek_Vars
USE MODgvec_readState, ONLY: finalize_readState
IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT VARIABLES
!-----------------------------------------------------------------------------------------------------------------------------------
! OUTPUT VARIABLES
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
!===================================================================================================================================
  CALL Finalize_ReadState()
  SDEALLOCATE(s_pos)
  SDEALLOCATE(thet_pos)
  SDEALLOCATE(zeta_pos)
  !SDEALLOCATE(data_1D)
  SDEALLOCATE(data_scalar3D)
  SDEALLOCATE(data_scalar2D)
  !SDEALLOCATE(data_vector3D)

  CALL out_base%free()
  DEALLOCATE(out_base)

  CALL X1_fbase_nyq%free()
  CALL X2_fbase_nyq%free()
  CALL LA_fbase_nyq%free()
  CALL fbase_zeta%free()
  DEALLOCATE(X1_fbase_nyq)
  DEALLOCATE(X2_fbase_nyq)
  DEALLOCATE(LA_fbase_nyq)
  DEALLOCATE(fbase_zeta)


END SUBROUTINE finalize_gvec_to_jorek