| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(local_t) | :: | p |
subroutine destroy_local(p)
type(local_t) :: p
call ps_clean_annotation(p%annotation)
call delete(p%grid)
call destroy_radfunc(p%vlocal)
call destroy_radfunc(p%chlocal)
end subroutine destroy_local