sfl_boozer_free Subroutine

private subroutine sfl_boozer_free(sf)

finalize sfl boozer class

Type Bound

t_sfl_boozer

Arguments

Type IntentOptional Attributes Name
class(t_sfl_boozer), intent(inout) :: sf

self

Source Code

SUBROUTINE sfl_boozer_free(sf)
  ! MODULES
  IMPLICIT NONE
  CLASS(t_sfl_boozer), INTENT(INOUT) :: sf !! self
  !=================================================================================================================================
  DEALLOCATE(sf%rho_pos,sf%lambda,sf%nu,sf%iota,sf%phiPrime)
  CALL sf%nu_fbase%free()
  DEALLOCATE(sf%nu_fbase)
  DEALLOCATE(sf%hmap_xv)
  NULLIFY(sf%hmap)
  sf%initialized=.FALSE.
END SUBROUTINE sfl_boozer_free