RECMWF_AERO Subroutine

subroutine RECMWF_AERO(KST, KEND, KPROMA, KTDIA, KLEV, KMODE, PALBD, PALBP, PAPRS, PAPRSF, PCCO2, PCLFR, PQO3, PAER, PDP, PEMIS, PMU0, PQ, PQS, PQIWP, PQLWP, PSLM, PT, PTS, PREF_LIQ, PREF_ICE, PREF_LIQ_PI, PREF_ICE_PI, PEMTD, PEMTU, PTRSO, PTH, PCTRSO, PCEMTR, PTRSOD, PLWFC, PLWFT, PSWFC, PSWFT, PSFSWDIR, PSFSWDIF, PFSDNN, PFSDNV, PPIZA_TOT, PCGA_TOT, PTAU_TOT, PPIZA_NAT, PCGA_NAT, PTAU_NAT, PTAU_LW_TOT, PTAU_LW_NAT, PFLUX, PFLUC, PTOAB, PTOACB, PFSDN, PFSUP, PFSCDN, PFSCUP, PFSCCDN, PFSCCUP, PFLCCDN, PFLCCUP, PTOPSWADAERO, PSOLSWADAERO, PTOPSWAD0AERO, PSOLSWAD0AERO, PTOPSWAIAERO, PSOLSWAIAERO, PTOPSWCFAERO, PSOLSWCFAERO, PSWADAERO, PTOPLWADAERO, PSOLLWADAERO, PTOPLWAD0AERO, PSOLLWAD0AERO, PTOPLWAIAERO, PSOLLWAIAERO, PLWADAERO, volmip_solsw, flag_volc_surfstrat, ok_ade, ok_aie, ok_volcan, flag_aerosol, flag_aerosol_strat, flag_aer_feedback)

*** RECMWF - METEO-FRANCE RADIATION INTERFACE TO ECMWF RADIATION SCHEME

• INTERFACE. ----------

  0.1 ARGUMENTS. ----------

INCLUDE "clesphys.h"

   1.    PREPARATORY WORK
          ----------------

--OB 1.0 INITIALIZATIONS --------------

   1.1    LOCAL CONSTANTS
            ---------------

   2.1    FULL-LEVEL QUANTITIES

   2.2    HALF-LEVEL QUANTITIES

   2.3     QUANTITIES AT BOUNDARIES

   3.1     SOLAR ZENITH ANGLE IS EARTH'S CURVATURE
            CORRECTED

!!! A REVOIR MPL 20091201: enleve cette correction pour comparer a AR4 4.1 CALL TO ACTUAL RADIATION SCHEME

----now we make multiple calls to the radiation according to which ----aerosol flags are on

SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4 SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4 SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4 SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4 SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4 4.2 TRANSFORM FLUXES TO MODEL HISTORICAL VARIABLES

     5.1    STORAGE OF TRANSMISSIVITY AND EMISSIVITIES
            IN KPROMA-LONG ARRAYS

     7.3   RECONSTRUCT FLUXES FOR DIAGNOSTICS

8.0 DIAGNOSTICS ---Now we copy back the correct fields to proceed to the next timestep

Arguments