MODULE flux

IMPLICIT NONE 
SAVE
       
INTEGER, PARAMETER :: xdim=61
INTEGER, PARAMETER :: ydim=41
INTEGER, PARAMETER :: zdim=20
REAL, DIMENSION(xdim) :: spd_table
REAL, DIMENSION(ydim) :: tdif_table
REAL, DIMENSION(ydim) :: tocn_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: ocean temp 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