SUBROUTINE  read_data

! PURPOSE: To read in data used to construct flux table and
!          associated transfer coefficients


USE flux


IMPLICIT NONE

INTEGER i

     
! Read in data used to construct flux table

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

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

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

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

READ(23,*) (ref_ht_table(i),i=1,zdim)

CLOSE(23)




! Read in flux table transfer coefficients
          
OPEN (UNIT=24, FILE='cd.dat', STATUS='OLD', ACTION='READ')

READ(24,*) cd_table

CLOSE(24)


OPEN (UNIT=24, FILE='ch.dat', STATUS='OLD', ACTION='READ')

READ(24,*) ch_table

CLOSE(24)


OPEN (UNIT=24, FILE='ce.dat', STATUS='OLD', ACTION='READ')

READ(24,*) ce_table

CLOSE(24)


   
RETURN
END SUBROUTINE read_data