subroutine wind_ero_unshelt

      implicit none
      
      
      return
      end subroutine wind_ero_unshelt