ocean_p_surf_exit_data_impl Subroutine

private subroutine ocean_p_surf_exit_data_impl(this)

Arguments

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

Called by

proc~~ocean_p_surf_exit_data_impl~~CalledByGraph proc~ocean_p_surf_exit_data_impl ocean_p_surf_exit_data_impl proc~ocean_p_surf_exit_data ocean_p_surf_t%ocean_p_surf_exit_data proc~ocean_p_surf_exit_data->proc~ocean_p_surf_exit_data_impl

Source Code

   subroutine ocean_p_surf_exit_data_impl(this)
      type(ocean_p_surf_t), intent(inout) :: this
      if (allocated(this%eta_ib)) then
         !$acc exit data delete(this%eta_seam, this%eta_ib)
      end if
   end subroutine ocean_p_surf_exit_data_impl