ocean_surfstress_destroy Subroutine

private subroutine ocean_surfstress_destroy(this)

Type Bound

ocean_surface_stress_t

Arguments

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

Calls

proc~~ocean_surfstress_destroy~~CallsGraph proc~ocean_surfstress_destroy ocean_surface_stress_t%ocean_surfstress_destroy proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~ocean_surfstress_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine ocean_surfstress_destroy(this)
      class(ocean_surface_stress_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%tau_x)) deallocate (this%tau_x)
      if (allocated(this%tau_y)) deallocate (this%tau_y)
      if (allocated(this%stress_mag)) deallocate (this%stress_mag)
      if (allocated(this%stress_shelf)) deallocate (this%stress_shelf)
      call this%du_stress%destroy()
      call this%dv_stress%destroy()
   end subroutine ocean_surfstress_destroy