ocean_obc_destroy Subroutine

   subroutine ocean_obc_destroy(this)
      class(ocean_obc_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%parent_eta_west)) deallocate (this%parent_eta_west)
      if (allocated(this%parent_eta_east)) deallocate (this%parent_eta_east)
      if (allocated(this%parent_eta_south)) deallocate (this%parent_eta_south)
      if (allocated(this%parent_eta_north)) deallocate (this%parent_eta_north)
      if (allocated(this%parent_u_west)) deallocate (this%parent_u_west)
      if (allocated(this%parent_u_east)) deallocate (this%parent_u_east)
      if (allocated(this%parent_v_south)) deallocate (this%parent_v_south)
      if (allocated(this%parent_v_north)) deallocate (this%parent_v_north)
      if (allocated(this%parent_T_west)) deallocate (this%parent_T_west)
      if (allocated(this%parent_T_east)) deallocate (this%parent_T_east)
      if (allocated(this%parent_T_south)) deallocate (this%parent_T_south)
      if (allocated(this%parent_T_north)) deallocate (this%parent_T_north)
      if (allocated(this%parent_S_west)) deallocate (this%parent_S_west)
      if (allocated(this%parent_S_east)) deallocate (this%parent_S_east)
      if (allocated(this%parent_S_south)) deallocate (this%parent_S_south)
      if (allocated(this%parent_S_north)) deallocate (this%parent_S_north)
   end subroutine ocean_obc_destroy