ocean_dyn_exit_data_impl Subroutine

private subroutine ocean_dyn_exit_data_impl(this)

Arguments

Type IntentOptional Attributes Name
type(ocean_dyn_t), intent(inout) :: this

Calls

proc~~ocean_dyn_exit_data_impl~~CallsGraph proc~ocean_dyn_exit_data_impl ocean_dyn_exit_data_impl proc~barotropic_workstate_exit_data_impl barotropic_workstate_exit_data_impl proc~ocean_dyn_exit_data_impl->proc~barotropic_workstate_exit_data_impl proc~bt_wide_exit_data bt_wide_t%bt_wide_exit_data proc~ocean_dyn_exit_data_impl->proc~bt_wide_exit_data proc~bt_wide_exit_data_impl bt_wide_exit_data_impl proc~bt_wide_exit_data->proc~bt_wide_exit_data_impl proc~ocean_metrics_exit_data ocean_metrics_t%ocean_metrics_exit_data proc~bt_wide_exit_data_impl->proc~ocean_metrics_exit_data proc~ocean_metrics_exit_data_impl ocean_metrics_exit_data_impl proc~ocean_metrics_exit_data->proc~ocean_metrics_exit_data_impl

Called by

proc~~ocean_dyn_exit_data_impl~~CalledByGraph proc~ocean_dyn_exit_data_impl ocean_dyn_exit_data_impl proc~ocean_dyn_exit_data ocean_dyn_t%ocean_dyn_exit_data proc~ocean_dyn_exit_data->proc~ocean_dyn_exit_data_impl

Source Code

   subroutine ocean_dyn_exit_data_impl(this)
      type(ocean_dyn_t), intent(inout) :: this
      if (allocated(this%bt_wide)) call this%bt_wide%exit_data()
      ! avr_* are eagerly allocated + mapped at setup (only when the
      ! accel_visc_rem knob is on), so guard the delete on allocation —
      ! symmetric with the enter_data copyin.
      if (allocated(this%avr_u0)) then
         !$acc exit data delete(this%avr_u0, this%avr_v0)
      end if
      call barotropic_workstate_exit_data_impl(this%bt_work)
   end subroutine ocean_dyn_exit_data_impl