!

! $Id: surdi.F90 2626 2016-09-15 14:20:56Z musat $

!

!**** *SURDI*   - INITIALIZE COMMON YOERDI CONTROLLING RADINT

!     PURPOSE.

!     --------

!           INITIALIZE YOERDI, THE COMMON THAT CONTROLS THE

!           RADIATION INTERFACE

!**   INTERFACE.

!     ----------

!        CALL *SURDI* FROM *SURAD*

!              -----        -----

!        EXPLICIT ARGUMENTS :

!        --------------------

!        NONE

!        IMPLICIT ARGUMENTS :

!        --------------------

!        COMMON YOERDI

!     METHOD.

!     -------

!        SEE DOCUMENTATION

!     EXTERNALS.

!     ----------

!        NONE

!     REFERENCE.

!     ----------

!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS MODEL

!     AUTHOR.

!     -------

!        Original  JEAN-JACQUES MORCRETTE  *ECMWF*

!        Modified   P. Viterbo   99-03-26    Tiling of the land surface

!        Modified   P. Viterbo   24-05-2004  surf library

!     MODIFICATIONS.

!     --------------

!        ORIGINAL : 88-12-15

!        M.Hamrud      01-Oct-2003 CY28 Cleaning

!        JJMorcrette   2004-10-07 Gas concentrations

!     ------------------------------------------------------------------

USE PARKIND1  ,ONLY : JPRB

USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK

USE YOERDI   , ONLY : RRAE     ,&

! & RCARDI   ,RCH4     ,RN2O     ,RO3      ,RCFC11   ,&

! & RCFC12, &

 & REPCLC   ,REPH2O   ,RSUNDUR  ,&

 & RCCO2    ,RCCH4    ,RCN2O    ,RCCFC11  ,RCCFC12

IMPLICIT NONE

!MPL/IM 20160915 on prend GES de phylmd

!#include "clesphys.h"

REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZO3MWG

REAL(KIND=JPRB) :: ZHOOK_HANDLE

!      ----------------------------------------------------------------

!*       1.    SET DEFAULT VALUES.

!              -------------------

!* Threshold for computing sunshine duration (W/m2)

!*  For sea ice, monthly values are based on Ebert and Curry, 1993, Table 2.

!   We take dry snow albedo as the representative value for non-summer

!   months, and bare sea-ice as the representative value for summer

!   months. The values for Antarctic are shifted six-months.

! All computations brought back to *SUSWN*

!*  Concentration of the various trace gases (IPCC/SACC values for 1990)

!        CO2         CH4        N2O        CFC11       CFC12

!      353ppmv     1.72ppmv   310ppbv     280pptv     484pptv

ZAIRMWG = 28.970_JPRB

ZCO2MWG = 44.011_JPRB

ZCH4MWG = 16.043_JPRB

ZN2OMWG = 44.013_JPRB

ZO3MWG  = 47.9982_JPRB

ZC11MWG = 137.3686_JPRB

ZC12MWG = 120.9140_JPRB

!RCARDI  = 353.E-06_JPRB*ZCO2MWG/ZAIRMWG

!RCH4    = 1.72E-06_JPRB*ZCH4MWG/ZAIRMWG

!RN2O    = 310.E-09_JPRB*ZN2OMWG/ZAIRMWG

!RO3     =   1.E-06_JPRB*ZO3MWG /ZAIRMWG

!RCFC11  = 280.E-12_JPRB*ZC11MWG/ZAIRMWG

!RCFC12  = 484.E-12_JPRB*ZC12MWG/ZAIRMWG

!RCARDI  = RCCO2   * ZCO2MWG/ZAIRMWG

!RCH4    = RCCH4   * ZCH4MWG/ZAIRMWG

!RN2O    = RCN2O   * ZN2OMWG/ZAIRMWG

!RO3     = 1.E-06_JPRB*ZO3MWG /ZAIRMWG

!RCFC11  = RCCFC11 * ZC11MWG/ZAIRMWG

!RCFC12  = RCCFC12 * ZC12MWG/ZAIRMWG

!     -----------------------------------------------------------------