source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/yoeclop.F90 @ 2174

Last change on this file since 2174 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: 3.1 KB
Line 
1MODULE YOECLOP
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!     * YOECLOP* PARAMETERS FOR CLOUD OPTICAL PROPERTIES
11!     ------------------------------------------------------------------
12
13REAL(KIND=JPRB) :: RYFWCA(4)
14REAL(KIND=JPRB) :: RYFWCB(4)
15REAL(KIND=JPRB) :: RYFWCC(4)
16REAL(KIND=JPRB) :: RYFWCD(4)
17REAL(KIND=JPRB) :: RYFWCE(4)
18REAL(KIND=JPRB) :: RYFWCF(4)
19REAL(KIND=JPRB) :: REBCUA(4)
20REAL(KIND=JPRB) :: REBCUB(4)
21REAL(KIND=JPRB) :: REBCUC(4)
22REAL(KIND=JPRB) :: REBCUD(4)
23REAL(KIND=JPRB) :: REBCUE(4)
24REAL(KIND=JPRB) :: REBCUF(4)
25REAL(KIND=JPRB) :: RASWCA(4)
26REAL(KIND=JPRB) :: RASWCB(4)
27REAL(KIND=JPRB) :: RASWCC(4)
28REAL(KIND=JPRB) :: RASWCD(4)
29REAL(KIND=JPRB) :: RASWCE(4)
30REAL(KIND=JPRB) :: RASWCF(4)
31REAL(KIND=JPRB) :: REBCUG
32REAL(KIND=JPRB) :: REBCUH
33REAL(KIND=JPRB) :: REBCUI(6)
34REAL(KIND=JPRB) :: REBCUJ(6)
35REAL(KIND=JPRB) :: REFFIA
36REAL(KIND=JPRB) :: REFFIB
37REAL(KIND=JPRB) :: RTIW
38REAL(KIND=JPRB) :: RRIW
39
40!        * E.C.M.W.F. PHYSICS PACKAGE *
41
42!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
43
44!  NAME     TYPE     PURPOSE
45!  ----  :  ----   : ---------------------------------------------------
46!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
47
48! RYFWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
49! RYFWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
50! RYFWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
51! RYFWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
52! RYFWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
53! RYFWCF :  REAL   : ASSYMETRY FACTOR
54
55!*    SLINGO (1989) WATER CLOUD OPTICAL PROPERTIES
56
57! RASWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
58! RASWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
59! RASWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
60! RASWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
61! RASWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
62! RASWCF :  REAL   : ASSYMETRY FACTOR
63
64!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
65
66! REBCUA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
67! REBCUB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
68! REBCUC :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
69! REBCUD :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
70! REBCUE :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
71! REBCUF :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
72! REBCUG :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
73! REBCUH :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
74! REBCUI :  REAL   : C7 IN LW MASS ABSORPTION COEFFICIENT FORMULA
75! REBCUJ :  REAL   : C8 IN LW MASS ABSORPTION COEFFICIENT FORMULA
76
77! REFFIA :  REAL   : C9  IN EFFECTIVE RADIUS FORMULA
78! REFFIB :  REAL   : C10 IN EFFECTIVE RADIUS FORMULA
79
80!*    TRANSITION BETWEEN LIQUID AND SOLID WATER
81
82! RTIW   :  REAL   : TEMPERATURE THRESHOLD
83! RRIW   :  REAL   : TRANSITION RANGE
84!     -----------------------------------------------------------------
85
86
87!$OMP THREADPRIVATE(raswca,raswcb,raswcc,raswcd,raswce,raswcf,rebcua)
88!$OMP THREADPRIVATE(rebcub,rebcuc,rebcud,rebcue,rebcuf,rebcug,rebcuh)
89!$OMP THREADPRIVATE(rebcui,rebcuj,reffia,reffib,rriw,rtiw,ryfwca)
90!$OMP THREADPRIVATE(ryfwcb,ryfwcc,ryfwcd,ryfwce,ryfwcf)
91
92END MODULE YOECLOP
Note: See TracBrowser for help on using the repository browser.