subroutine wind_ero_bare
    
      implicit none

      
      return 
      end subroutine wind_ero_bare