Destroy grid dimensions.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(grid_dimensions_object), | intent(inout) | :: | self | Grid dimensions object. |
elemental subroutine destroy(self)
!< Destroy grid dimensions.
class(grid_dimensions_object), intent(inout) :: self !< Grid dimensions object.
type(grid_dimensions_object) :: fresh !< Fresh instance of grid dimensions object.
self = fresh
if (allocated(self%block_signature)) then
call self%block_signature%destroy
deallocate(self%block_signature)
endif
endsubroutine destroy