Obtain the air-sea fluxes

INTERFACE:

    subroutine do_air_sea(jul,secs)

DESCRIPTION:

Depending on the value of the boolean variable calc_fluxes, the subroutines for the calculation of the fluxes and the short wave radiation are called or the fluxes are directly read in from the namelist airsea.nml as constants or read in from files. Furthermore, the surface freshwater flux is set to a constant value or is read in from a file.

USES:

    IMPLICIT NONE

INPUT PARAMETERS:

    integer, intent(in)                 :: jul,secs

REVISION HISTORY:

    Original author(s): Karsten Bolding
    See log for airsea module