source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yoeaerop.F90 @ 3847

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

Modifications pour OpenMP


OpenMP modifications

  • 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.4 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!     ------------------------------------------------------------------
33
34!$OMP THREADPRIVATE(alf_bc,alf_dd,alf_fa,alf_om,alf_ss,alf_su,asy_bc,asy_dd)
35!$OMP THREADPRIVATE(asy_fa,asy_om,asy_ss,asy_su,omg_bc,omg_dd,omg_fa,omg_om,omg_ss,omg_su)
36
37END MODULE YOEAEROP
38
Note: See TracBrowser for help on using the repository browser.