ocean_kappa_shear_exit_data_impl Subroutine

private subroutine ocean_kappa_shear_exit_data_impl(this)

Arguments

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

Called by

proc~~ocean_kappa_shear_exit_data_impl~~CalledByGraph proc~ocean_kappa_shear_exit_data_impl ocean_kappa_shear_exit_data_impl proc~ocean_kappa_shear_exit_data ocean_kappa_shear_t%ocean_kappa_shear_exit_data proc~ocean_kappa_shear_exit_data->proc~ocean_kappa_shear_exit_data_impl

Source Code

   subroutine ocean_kappa_shear_exit_data_impl(this)
      type(ocean_kappa_shear_t), intent(inout) :: this
      if (allocated(this%kd_corner)) then
         !$acc exit data delete(this%kd_corner)
      end if
      if (allocated(this%f_corner)) then
         !$acc exit data delete(this%f_corner)
      end if
      if (allocated(this%tke_int)) then
         !$acc exit data delete(this%tke_int)
      end if
      if (allocated(this%kd_int)) then
         !$acc exit data delete(this%kd_int)
      end if
      if (allocated(this%f_centre)) then
         !$acc exit data delete(this%f_centre)
      end if
   end subroutine ocean_kappa_shear_exit_data_impl