ocean_surfflux_exit_data_impl Subroutine

private subroutine ocean_surfflux_exit_data_impl(this)

Arguments

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

Called by

proc~~ocean_surfflux_exit_data_impl~~CalledByGraph proc~ocean_surfflux_exit_data_impl ocean_surfflux_exit_data_impl proc~ocean_surfflux_exit_data ocean_surface_flux_t%ocean_surfflux_exit_data proc~ocean_surfflux_exit_data->proc~ocean_surfflux_exit_data_impl

Source Code

   subroutine ocean_surfflux_exit_data_impl(this)
      type(ocean_surface_flux_t), intent(inout) :: this
      if (this%use_components) then
         !$acc exit data delete(this%q_sw, this%q_lw, this%q_lat, this%q_sens, &
         !$acc&                 this%heat_added, this%heat_cavity, this%evap, &
         !$acc&                 this%lprec, this%fprec, &
         !$acc&                 this%vprec, this%lrunoff, this%frunoff, this%seaice_melt, &
         !$acc&                 this%heat_content_lprec, this%heat_content_fprec, &
         !$acc&                 this%heat_content_vprec, this%heat_content_lrunoff, &
         !$acc&                 this%heat_content_frunoff, this%heat_content_seaice_melt, &
         !$acc&                 this%heat_content_massin, this%heat_content_massout, &
         !$acc&                 this%salt_flux, this%salt_cavity, &
         !$acc&                 this%p_surf_atm, this%p_surf)
      end if
      !$acc exit data delete(this%Q_heat, this%Q_salt)
   end subroutine ocean_surfflux_exit_data_impl