destroy_radfunc Subroutine

  1. m_psml_core.F90
  2. m_psml_core
  3. destroy_radfunc

private subroutine destroy_radfunc(rp)

Arguments

Type IntentOptional AttributesName
type(radfunc_t) :: rp

Contents

Source Code

destroy_radfunc

Source Code

subroutine destroy_radfunc(rp)
type(radfunc_t) :: rp

call delete(rp%grid)
if (associated(rp%data)) then
   deallocate(rp%data)
   rp%data => null()
endif
end subroutine destroy_radfunc