ocean_cavity_flux_exit_data_impl Subroutine

private subroutine ocean_cavity_flux_exit_data_impl(this)

Arguments

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

Called by

proc~~ocean_cavity_flux_exit_data_impl~~CalledByGraph proc~ocean_cavity_flux_exit_data_impl ocean_cavity_flux_exit_data_impl proc~ocean_cavity_flux_exit_data ocean_cavity_flux_t%ocean_cavity_flux_exit_data proc~ocean_cavity_flux_exit_data->proc~ocean_cavity_flux_exit_data_impl

Source Code

   subroutine ocean_cavity_flux_exit_data_impl(this)
      type(ocean_cavity_flux_t), intent(inout) :: this
      !$acc exit data delete(this%f_cor, this%active, this%t_far, this%s_far, &
      !$acc&                 this%u_far, this%v_far, this%ustar, this%t_b, &
      !$acc&                 this%s_b, this%melt, this%q_ocean, this%gamma_t, &
      !$acc&                 this%gamma_s, this%status, this%comp_scale)
   end subroutine ocean_cavity_flux_exit_data_impl