SUBROUTINE  read_lookup_data

! PURPOSE: To read in data used to construct lookup table and
!          associated wind speed


USE lookup_kara_mod


IMPLICIT NONE

INTEGER i

     
! Read in data used to construct lookup table

OPEN(UNIT=23, FILE='lookup_data.dat', STATUS='OLD', ACTION='READ')

READ(23,*) (ustar_lookup(i),i=1,xdim)

READ(23,*) (tdif_lookup(i),i=1,ydim)

CLOSE(23)




! Read in lookup table wind speed
          
OPEN (UNIT=24, FILE='uten.dat', STATUS='OLD', ACTION='READ')

READ(24,*) uten_lookup

CLOSE(24)


RETURN
END SUBROUTINE read_lookup_data