multilayer_state_exit_data Subroutine

private subroutine multilayer_state_exit_data(this)

Reverse of enter_data. Copy out the prognostic fields and the tracer hTr arrays (so post-run host inspection works), drop scratch + RK saves. Tracer registry tears down per- element first, then the array descriptor — mirror of enter_data order.

Type Bound

multilayer_state_t

Arguments

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

Calls

proc~~multilayer_state_exit_data~~CallsGraph proc~multilayer_state_exit_data multilayer_state_t%multilayer_state_exit_data proc~multilayer_state_exit_data_impl multilayer_state_exit_data_impl proc~multilayer_state_exit_data->proc~multilayer_state_exit_data_impl

Source Code

   subroutine multilayer_state_exit_data(this)
      !! Reverse of `enter_data`.  Copy out the prognostic fields and
      !! the tracer hTr arrays (so post-run host inspection works),
      !! drop scratch + RK saves.  Tracer registry tears down per-
      !! element first, then the array descriptor — mirror of
      !! `enter_data` order.
      class(multilayer_state_t), intent(inout) :: this
      select type (this)
      type is (multilayer_state_t)
         call multilayer_state_exit_data_impl(this)
      end select
   end subroutine multilayer_state_exit_data