ocean_p_surf_destroy Subroutine

private subroutine ocean_p_surf_destroy(this)

Type Bound

ocean_p_surf_t

Arguments

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

Source Code

   subroutine ocean_p_surf_destroy(this)
      class(ocean_p_surf_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%eta_ib)) deallocate (this%eta_ib)
      if (allocated(this%eta_seam)) deallocate (this%eta_seam)
   end subroutine ocean_p_surf_destroy