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

Last change on this file since 1990 was 1990, checked in by Laurent Fairhead, 10 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: 1.2 KB
Line 
1MODULE YOEAEROP
2
3USE PARKIND1  ,ONLY : JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    ** *YOEAEROP* - OPTICAL PROPERTIES FOR PROGNOSTIC AEROSOLS
11!     ------------------------------------------------------------------
12
13REAL(KIND=JPRB) :: ALF_BC(16)     , ASY_BC(16)     , OMG_BC(16)
14REAL(KIND=JPRB) :: ALF_DD(3,16)   , ASY_DD(3,16)   , OMG_DD(3,16)
15REAL(KIND=JPRB) :: ALF_FA(16)     , ASY_FA(16)     , OMG_FA(16)
16REAL(KIND=JPRB) :: ALF_OM(12,16)  , ASY_OM(12,16)  , OMG_OM(12,16)
17REAL(KIND=JPRB) :: ALF_SS(12,16,3), ASY_SS(12,16,3), OMG_SS(12,16,3)
18REAL(KIND=JPRB) :: ALF_SU(12,16)  , ASY_SU(12,16)  , OMG_SU(12,16)
19
20!     ------------------------------------------------------------------
21! 3 refers to 3 bins, 16 to 16 SW channel radiances, 12 to 12 reference RH
22! BC is for black carbon
23! DD is for desert dust
24! FA is fort flying ash
25! OM is for organic matter
26! SS is for sea-salt
27! SU is for sulfate
28
29! ALF is alpha , the mass extinction coefficient   in m2/g
30! ASY is g     , the assymetry factor                ND
31! OMG is pizero, the single scattering albedo        ND
32!     ------------------------------------------------------------------
33END MODULE YOEAEROP
34
Note: See TracBrowser for help on using the repository browser.