ocean_surfflux_destroy Subroutine

private subroutine ocean_surfflux_destroy(this)

Type Bound

ocean_surface_flux_t

Arguments

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

Calls

proc~~ocean_surfflux_destroy~~CallsGraph proc~ocean_surfflux_destroy ocean_surface_flux_t%ocean_surfflux_destroy proc~ocean_surfflux_dealloc_components ocean_surfflux_dealloc_components proc~ocean_surfflux_destroy->proc~ocean_surfflux_dealloc_components

Source Code

   subroutine ocean_surfflux_destroy(this)
      class(ocean_surface_flux_t), intent(inout) :: this
      this%is_init = .false.
      this%q_assembled = 0.0_wp
      if (allocated(this%Q_heat)) deallocate (this%Q_heat)
      if (allocated(this%Q_salt)) deallocate (this%Q_salt)
      call ocean_surfflux_dealloc_components(this)
   end subroutine ocean_surfflux_destroy