destroy_local Subroutine

public subroutine destroy_local(p)

Arguments

Type IntentOptional Attributes Name
type(local_t) :: p

Contents

Source Code

destroy_local

Source Code

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