source: LMDZ5/branches/testing/libf/phylmd/rrtm/yoesrtcop.F90 @ 2435

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

Merged trunk changes r1997:2055 into testing branch
  • 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: 4.8 KB
RevLine 
[1989]1MODULE YOESRTCOP
2
3USE PARKIND1  ,ONLY : JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    ** *YOESRTCOP* - CLOUD OPTICAL PROPERTIES FOR SRTM
11!     ------------------------------------------------------------------
12
13!-- CLOUD OPTICAL PROPERTIES
14
15!-- coefficients and parameters related to SRTM_SW 14 sp.int.
16
17REAL(KIND=JPRB) :: RSYFWA(14)
18REAL(KIND=JPRB) :: RSYFWB(14)
19REAL(KIND=JPRB) :: RSYFWC(14)
20REAL(KIND=JPRB) :: RSYFWD(14)
21REAL(KIND=JPRB) :: RSYFWE(14)
22REAL(KIND=JPRB) :: RSYFWF(14)
23
24REAL(KIND=JPRB) :: RSECIA(14)
25REAL(KIND=JPRB) :: RSECIB(14)
26REAL(KIND=JPRB) :: RSECIC(14)
27REAL(KIND=JPRB) :: RSECID(14)
28REAL(KIND=JPRB) :: RSECIE(14)
29REAL(KIND=JPRB) :: RSECIF(14)
30
31REAL(KIND=JPRB) :: RSASWA(14)
32REAL(KIND=JPRB) :: RSASWB(14)
33REAL(KIND=JPRB) :: RSASWC(14)
34REAL(KIND=JPRB) :: RSASWD(14)
35REAL(KIND=JPRB) :: RSASWE(14)
36REAL(KIND=JPRB) :: RSASWF(14)
37
38REAL(KIND=JPRB) :: RSFUA0(14)
39REAL(KIND=JPRB) :: RSFUA1(14)
40REAL(KIND=JPRB) :: RSFUB0(14)
41REAL(KIND=JPRB) :: RSFUB1(14)
42REAL(KIND=JPRB) :: RSFUB2(14)
43REAL(KIND=JPRB) :: RSFUB3(14)
44REAL(KIND=JPRB) :: RSFUC0(14)
45REAL(KIND=JPRB) :: RSFUC1(14)
46REAL(KIND=JPRB) :: RSFUC2(14)
47REAL(KIND=JPRB) :: RSFUC3(14)
48
49REAL(KIND=JPRB) :: RSFLA0(14)
50REAL(KIND=JPRB) :: RSFLA1(14)
51REAL(KIND=JPRB) :: RSFLB0(14)
52REAL(KIND=JPRB) :: RSFLB1(14)
53REAL(KIND=JPRB) :: RSFLB2(14)
54REAL(KIND=JPRB) :: RSFLB3(14)
55REAL(KIND=JPRB) :: RSFLC0(14)
56REAL(KIND=JPRB) :: RSFLC1(14)
57REAL(KIND=JPRB) :: RSFLC2(14)
58REAL(KIND=JPRB) :: RSFLC3(14)
59REAL(KIND=JPRB) :: RSFLD0(14)
60REAL(KIND=JPRB) :: RSFLD1(14)
61REAL(KIND=JPRB) :: RSFLD2(14)
62REAL(KIND=JPRB) :: RSFLD3(14)
63
64REAL(KIND=JPRB) :: RSSSIE(14)
65REAL(KIND=JPRB) :: RSSSIF(14)
66REAL(KIND=JPRB) :: RSSSIH(14)
67REAL(KIND=JPRB) :: RSSSIK(14)
68REAL(KIND=JPRB) :: RSSSIA(14)
69REAL(KIND=JPRB) :: RSSSIG(14)
70
71!        * E.C.M.W.F. PHYSICS PACKAGE *
72
73!     J.-J. MORCRETTE       E.C.M.W.F.      03-03-07
74
75!  NAME     TYPE     PURPOSE
76!  ----  :  ----   : ---------------------------------------------------
77!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
78
79! RSYFWA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
80! RSYFWB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
81! RSYFWC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
82! RSYFWD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
83! RSYFWE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
84! RSYFWF :  REAL   : ASSYMETRY FACTOR
85
86!*    SLINGO (1989) WATER CLOUD OPTICAL PROPERTIES
87
88! RSASWA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
89! RSASWB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
90! RSASWC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
91! RSASWD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
92! RSASWE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
93! RSASWF :  REAL   : ASSYMETRY FACTOR
94
95!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
96
97! RSECIA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
98! RSECIB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
99! RSECIC :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
100! RSECID :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
101! RSECIE :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
102! RSECIF :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
103! RSECIG :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
104! RSECIH :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
105
106!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM SUN-SHINE (1995)
107
108! RSSSIE :  REAL   : E IN SINGLE SCATTERING ALBEDO FORMULA
109! RSSSIF :  REAL   : F IN SINGLE SCATTERING ALBEDO FORMULA
110! RSSSIH :  REAL   : H IN ASSYMETRY FACTOR FORMULA
111! RSSSIK :  REAL   : K IN ASSYMETRY FACTOR FORMULA
112! RSSSIA :  REAL   : ALPHA IN SSA CORRECTION FACTOR FORMULA
113! RSSSIG :  REAL   : GAMMA IN ASSYMETRY CORRECTION FACTOR FORMULA
114
115!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU-LIOU (1993)
116
117! RSFLA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
118! RSFLB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
119! RSFLC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
120! RSFLD  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
121
122!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU (1996) & FU ET AL. (1998)
123
124! RSFUA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
125! RSFUB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
126! RSFUC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
127
128!     -----------------------------------------------------------------
[2056]129!$OMP THREADPRIVATE(rsaswa,rsaswb,rsaswc,rsaswd,rsaswe,rsaswf,rsecia,rsecib)
130!$OMP THREADPRIVATE(rsecic,rsecid,rsecie,rsecif,rsfla0,rsfla1,rsflb0,rsflb1)
131!$OMP THREADPRIVATE(rsflb2,rsflb3,rsflc0,rsflc1,rsflc2,rsflc3,rsfld0,rsfld1)
132!$OMP THREADPRIVATE(rsfld2,rsfld3,rsfua0,rsfua1,rsfub0,rsfub1,rsfub2,rsfub3)
133!$OMP THREADPRIVATE(rsfuc0,rsfuc1,rsfuc2,rsfuc3,rsssia,rsssie,rsssif,rsssig)
134!$OMP THREADPRIVATE(rsssih,rsssik,rsyfwa,rsyfwb,rsyfwc,rsyfwd,rsyfwe,rsyfwf)
[1989]135END MODULE YOESRTCOP
136
Note: See TracBrowser for help on using the repository browser.