source: LMDZ5/trunk/libf/phylmd/rrtm/surdi.F90 @ 1990

Last change on this file since 1990 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM


Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 3.0 KB
Line 
1SUBROUTINE SURDI
2
3!**** *SURDI*   - INITIALIZE COMMON YOERDI CONTROLLING RADINT
4
5!     PURPOSE.
6!     --------
7!           INITIALIZE YOERDI, THE COMMON THAT CONTROLS THE
8!           RADIATION INTERFACE
9
10!**   INTERFACE.
11!     ----------
12!        CALL *SURDI* FROM *SURAD*
13!              -----        -----
14
15!        EXPLICIT ARGUMENTS :
16!        --------------------
17!        NONE
18
19!        IMPLICIT ARGUMENTS :
20!        --------------------
21!        COMMON YOERDI
22
23!     METHOD.
24!     -------
25!        SEE DOCUMENTATION
26
27!     EXTERNALS.
28!     ----------
29!        NONE
30
31!     REFERENCE.
32!     ----------
33!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS MODEL
34
35!     AUTHOR.
36!     -------
37!        Original  JEAN-JACQUES MORCRETTE  *ECMWF*
38!        Modified   P. Viterbo   99-03-26    Tiling of the land surface
39!        Modified   P. Viterbo   24-05-2004  surf library
40
41!     MODIFICATIONS.
42!     --------------
43!        ORIGINAL : 88-12-15
44!        M.Hamrud      01-Oct-2003 CY28 Cleaning
45!        JJMorcrette   2004-10-07 Gas concentrations
46!     ------------------------------------------------------------------
47
48USE PARKIND1  ,ONLY : JPRB
49USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
50
51USE YOERDI   , ONLY : RRAE     ,&
52 & RCARDI   ,RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
53 & RCFC12   ,REPCLC   ,REPH2O   ,RSUNDUR  ,&
54 & RCCO2    ,RCCH4    ,RCN2O    ,RCCFC11  ,RCCFC12
55
56IMPLICIT NONE
57
58REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZO3MWG
59REAL(KIND=JPRB) :: ZHOOK_HANDLE
60
61!      ----------------------------------------------------------------
62
63!*       1.    SET DEFAULT VALUES.
64!              -------------------
65
66IF (LHOOK) CALL DR_HOOK('SURDI',0,ZHOOK_HANDLE)
67RRAE = 0.1277E-02_JPRB
68
69!* Threshold for computing sunshine duration (W/m2)
70RSUNDUR=120._JPRB
71
72!*  For sea ice, monthly values are based on Ebert and Curry, 1993, Table 2.
73!   We take dry snow albedo as the representative value for non-summer
74!   months, and bare sea-ice as the representative value for summer
75!   months. The values for Antarctic are shifted six-months.
76! All computations brought back to *SUSWN*
77
78!*  Concentration of the various trace gases (IPCC/SACC values for 1990)
79!        CO2         CH4        N2O        CFC11       CFC12
80!      353ppmv     1.72ppmv   310ppbv     280pptv     484pptv
81
82ZAIRMWG = 28.970_JPRB
83ZCO2MWG = 44.011_JPRB
84ZCH4MWG = 16.043_JPRB
85ZN2OMWG = 44.013_JPRB
86ZO3MWG  = 47.9982_JPRB
87ZC11MWG = 137.3686_JPRB
88ZC12MWG = 120.9140_JPRB
89
90!RCARDI  = 353.E-06_JPRB*ZCO2MWG/ZAIRMWG
91!RCH4    = 1.72E-06_JPRB*ZCH4MWG/ZAIRMWG
92!RN2O    = 310.E-09_JPRB*ZN2OMWG/ZAIRMWG
93!RO3     =   1.E-06_JPRB*ZO3MWG /ZAIRMWG
94!RCFC11  = 280.E-12_JPRB*ZC11MWG/ZAIRMWG
95!RCFC12  = 484.E-12_JPRB*ZC12MWG/ZAIRMWG
96
97RCARDI  = RCCO2   * ZCO2MWG/ZAIRMWG
98RCH4    = RCCH4   * ZCH4MWG/ZAIRMWG
99RN2O    = RCN2O   * ZN2OMWG/ZAIRMWG
100RO3     = 1.E-06_JPRB*ZO3MWG /ZAIRMWG
101RCFC11  = RCCFC11 * ZC11MWG/ZAIRMWG
102RCFC12  = RCCFC12 * ZC12MWG/ZAIRMWG
103
104REPCLC=1.E-12_JPRB
105REPH2O=1.E-12_JPRB
106
107!     -----------------------------------------------------------------
108
109IF (LHOOK) CALL DR_HOOK('SURDI',1,ZHOOK_HANDLE)
110END SUBROUTINE SURDI
Note: See TracBrowser for help on using the repository browser.