subroutine ESMF_DeepDestroy(d) type(ESMF_Deep), intent(inout) :: d ESMF_INIT_SET_DELETED(d) end subroutine ESMF_DeepDestroy