ocean_diag_exit_data Subroutine

private subroutine ocean_diag_exit_data(this)

Detach in reverse order of enter_data. Idempotency-safe via is_init gate — repeated calls without intervening enter_data become no-ops once the manager is destroyed.

Type Bound

ocean_diag_t

Arguments

Type IntentOptional Attributes Name
class(ocean_diag_t), intent(inout) :: this

Calls

proc~~ocean_diag_exit_data~~CallsGraph proc~ocean_diag_exit_data ocean_diag_t%ocean_diag_exit_data proc~ocean_diag_exit_data_impl ocean_diag_exit_data_impl proc~ocean_diag_exit_data->proc~ocean_diag_exit_data_impl

Source Code

   subroutine ocean_diag_exit_data(this)
      !! Detach in reverse order of enter_data.  Idempotency-safe via
      !! `is_init` gate — repeated calls without intervening enter_data
      !! become no-ops once the manager is destroyed.
      class(ocean_diag_t), intent(inout) :: this
      select type (this)
      type is (ocean_diag_t)
         call ocean_diag_exit_data_impl(this)
      end select
   end subroutine ocean_diag_exit_data