MODULE flux_hur

IMPLICIT NONE
SAVE


INTEGER, PARAMETER :: xdim=46
INTEGER, PARAMETER :: ydim=41
INTEGER, PARAMETER :: zdim=49
REAL, DIMENSION(xdim) :: spd_table
REAL, DIMENSION(ydim) :: tdif_table
REAL, DIMENSION(ydim) :: tair_table
REAL, DIMENSION(zdim) :: ref_ht_table
REAL, DIMENSION(xdim,ydim,zdim) :: cd_table
REAL, DIMENSION(xdim,ydim,zdim) :: ch_table
REAL, DIMENSION(xdim,ydim,zdim) :: ce_table


! xdim: dimension of wind speed array
! ydim: dimension of sea/air temperature difference array
! zdim: dimension of reference height array
! spd_table: wind speed
! tdif_table: Sea surface temp - air temp
! tocn_table: air temperature used to get difference 
! ref_ht_table: reference height
! cd_table: drag coefficients
! ch_table: heat transfer coefficients
! ce_table: moisture transfer coefficients
     

END MODULE flux_hur