ocean_slopes_exit_data_impl Subroutine

private subroutine ocean_slopes_exit_data_impl(this)

Arguments

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

Called by

proc~~ocean_slopes_exit_data_impl~~CalledByGraph proc~ocean_slopes_exit_data_impl ocean_slopes_exit_data_impl proc~ocean_slopes_exit_data ocean_slopes_t%ocean_slopes_exit_data proc~ocean_slopes_exit_data->proc~ocean_slopes_exit_data_impl

Source Code

   subroutine ocean_slopes_exit_data_impl(this)
      type(ocean_slopes_t), intent(inout) :: this
      if (.not. this%is_init) return
      !$acc exit data delete(this%bathy)
      !$acc exit data delete(this%t_fill, this%s_fill, this%e_int)
      !$acc exit data delete(this%n2_u, this%n2_v)
      !$acc exit data delete(this%slope_x, this%slope_y)
   end subroutine ocean_slopes_exit_data_impl