ocean_lateral_mix_exit_data_impl Subroutine

private subroutine ocean_lateral_mix_exit_data_impl(this)

Arguments

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

Calls

proc~~ocean_lateral_mix_exit_data_impl~~CallsGraph proc~ocean_lateral_mix_exit_data_impl ocean_lateral_mix_exit_data_impl proc~scratch_3d_buffer_exit_data_impl scratch_3d_buffer_exit_data_impl proc~ocean_lateral_mix_exit_data_impl->proc~scratch_3d_buffer_exit_data_impl

Called by

proc~~ocean_lateral_mix_exit_data_impl~~CalledByGraph proc~ocean_lateral_mix_exit_data_impl ocean_lateral_mix_exit_data_impl proc~ocean_lateral_mix_exit_data ocean_lateral_mix_t%ocean_lateral_mix_exit_data proc~ocean_lateral_mix_exit_data->proc~ocean_lateral_mix_exit_data_impl

Source Code

   subroutine ocean_lateral_mix_exit_data_impl(this)
      type(ocean_lateral_mix_t), intent(inout) :: this
      if (.not. this%is_init) return
      call scratch_3d_buffer_exit_data_impl(this%vort_corner)
      !$acc exit data delete(this%nu4_face_y, this%nu4_face_x)
      !$acc exit data delete(this%ah_face_y, this%ah_face_x)
   end subroutine ocean_lateral_mix_exit_data_impl