Wrapper for air-sea fluxes calculations

INTERFACE:

   subroutine airsea_fluxes(method,sst,airt,u10,v10,precip, &
                            evap,taux,tauy,qe,qh)

DESCRIPTION:

A wrapper around the different methods for calculating momentum fluxes and sensible and latent heat fluxes at the air-sea interface. To have a complete air-sea exchange also the short wave radiation and back-wave radiation must be calculated.

USES:

   IMPLICIT NONE

INPUT PARAMETERS:

   integer, intent(in)                 :: method
   REALTYPE, intent(in)                :: sst,airt,u10,v10,precip

INPUT/OUTPUT PARAMETERS:

   REALTYPE, intent(inout)             :: evap

OUTPUT PARAMETERS:

   REALTYPE, intent(out)               :: taux,tauy,qe,qh

REVISION HISTORY:

   Original author(s): Karsten Bolding
   $Log: airsea_fluxes.F90,v $
   Revision 1.1  2007-09-25 10:06:10  kbk
   modularized the airsea module - added Fairall method