ocean_state_destroy Subroutine

   subroutine ocean_state_destroy(this)
      class(ocean_state_t), intent(inout) :: this
      this%is_init = .false.
      call this%restart%destroy()
#ifndef RDB_NO_NETCDF
      call this%data_input%destroy()
#endif
      call this%diag%destroy()
      call this%sponge%destroy()
      call ocean_bc_state_destroy(this%bc)
      call this%obc%destroy()
      call this%ice%destroy()
      call this%p_surf%destroy()
      call this%tides%destroy()
      call this%vcoord%destroy()
      call this%eos%destroy()
      call this%meke%destroy()
      call this%varmix%destroy()
      call this%redi%destroy()
      call this%gm%destroy()
      call this%mle%destroy()
      call this%slopes%destroy()
      call this%lateral_mix%destroy()
      call this%epbl%destroy()
      call this%wavespeed%destroy()
      call this%kshear%destroy()
      call this%vmix_tidal%destroy()
      call this%hvisc%destroy()
      call this%bdrag%destroy()
      call this%tdrag%destroy()
      call this%cavity_flux%destroy()
      call this%surface_flux%destroy()
      call this%surface_stress%destroy()
      call this%vert_advect%destroy()
      call this%hdiff_tracer%destroy()
      call this%vdiff%destroy()
      call this%vmix%destroy()
      call this%pressure_force%destroy()
      call this%coriolis_adv%destroy()
      call this%continuity%destroy()
      call this%dyn%destroy()
      call this%multilayer%destroy()
      call this%metrics%destroy()
      call this%barotropic%destroy()
   end subroutine ocean_state_destroy