source: LMDZ5/branches/LMDZ_tree_FC/libf/phymar/yoesw.F90 @ 5452

Last change on this file since 5452 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR

Integration of MAR physics
File size: 8.6 KB
Line 
1MODULE YOESW
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11!*    ** *YOESW* - COEFFICIENTS FOR SHORTWAVE RADIATION TRANSFER
12!     ------------------------------------------------------------------
13
14REAL_B :: APAD(6,3,7)
15REAL_B :: BPAD(6,3,7)
16REAL_B :: RRAY(6,6)
17REAL_B :: RSUN(6)
18REAL_B :: RPDH1
19REAL_B :: RPDU1
20REAL_B :: RPNH
21REAL_B :: RPNU
22REAL_B :: RSWCE(6)
23REAL_B :: RSWCP(6)
24REAL_B :: RTDH2O
25REAL_B :: RTDUMG
26REAL_B :: RTH2O
27REAL_B :: RTUMG
28REAL_B :: D(6,3)
29REAL_B :: REXPO3(6,2,7)
30INTEGER_M :: NEXPO3(6)
31
32REAL_B :: RYFWCA(6)
33REAL_B :: RYFWCB(6)
34REAL_B :: RYFWCC(6)
35REAL_B :: RYFWCD(6)
36REAL_B :: RYFWCE(6)
37REAL_B :: RYFWCF(6)
38
39REAL_B :: REBCUA(6)
40REAL_B :: REBCUB(6)
41REAL_B :: REBCUC(6)
42REAL_B :: REBCUD(6)
43REAL_B :: REBCUE(6)
44REAL_B :: REBCUF(6)
45REAL_B :: REBCUG(16)
46REAL_B :: REBCUH(16)
47REAL_B :: REBCUI(6)
48REAL_B :: REBCUJ(6)
49
50REAL_B :: RASWCA(6)
51REAL_B :: RASWCB(6)
52REAL_B :: RASWCC(6)
53REAL_B :: RASWCD(6)
54REAL_B :: RASWCE(6)
55REAL_B :: RASWCF(6)
56
57REAL_B :: RFUETA(16,3)
58REAL_B :: RFULIO(16,3)
59REAL_B :: RLINLI(16,5)
60
61REAL_B :: RFUAA0(6)
62REAL_B :: RFUAA1(6)
63REAL_B :: RFUBB0(6)
64REAL_B :: RFUBB1(6)
65REAL_B :: RFUBB2(6)
66REAL_B :: RFUBB3(6)
67REAL_B :: RFUCC0(6)
68REAL_B :: RFUCC1(6)
69REAL_B :: RFUCC2(6)
70REAL_B :: RFUCC3(6)
71
72REAL_B :: RFLAA0(6)
73REAL_B :: RFLAA1(6)
74REAL_B :: RFLBB0(6)
75REAL_B :: RFLBB1(6)
76REAL_B :: RFLBB2(6)
77REAL_B :: RFLBB3(6)
78REAL_B :: RFLCC0(6)
79REAL_B :: RFLCC1(6)
80REAL_B :: RFLCC2(6)
81REAL_B :: RFLCC3(6)
82REAL_B :: RFLDD0(6)
83REAL_B :: RFLDD1(6)
84REAL_B :: RFLDD2(6)
85REAL_B :: RFLDD3(6)
86
87REAL_B :: RHSAVI(16,3)
88
89REAL_B :: RSUSHE(6)
90REAL_B :: RSUSHF(6)
91REAL_B :: RSUSHH(6)
92REAL_B :: RSUSHK(6)
93REAL_B :: RSUSHA(6)
94REAL_B :: RSUSHG(6)
95REAL_B :: RSUSHFA(4)
96REAL_B :: RSUSHC
97REAL_B :: RSUSHD
98
99REAL_B :: REFFIA
100REAL_B :: REFFIB
101REAL_B :: RTIW
102REAL_B :: RRIW
103REAL_B :: RROMA(6)
104REAL_B :: RROMB(6)
105REAL_B :: RRASY(6)
106
107REAL_B :: RHSRA(6)
108REAL_B :: RHSRB(6)
109REAL_B :: RHSRC(6)
110REAL_B :: RHSRD(6)
111REAL_B :: RHSRE(6)
112REAL_B :: RHSRF(6)
113REAL_B :: RHSRTA
114REAL_B :: RHSRTB
115
116REAL_B :: RTAUA(6,6)
117REAL_B :: RPIZA(6,6)
118REAL_B :: RCGA(6,6)
119REAL_B :: RAER(6,6)
120
121REAL_B :: RALBICE_AR(12,6)
122REAL_B :: RALBICE_AN(12,6)
123REAL_B :: RTWEIGHT(8)
124REAL_B :: RWEIGHT(6,8)
125INTEGER_M :: NTYPS
126REAL_B :: RWEIGS(6)
127REAL_B :: RWEIGV(6)
128
129REAL_B :: RADJUST
130
131LOGICAL LO3ONLY
132
133
134!        * E.C.M.W.F. PHYSICS PACKAGE *
135
136!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
137
138!  NAME     TYPE     PURPOSE
139!  ----  :  ----   : ---------------------------------------------------
140!  APAD  :  REAL     PADE APPROXIMANTS NUMERATOR
141!  BPAD  :  REAL     PADE APPROXIMANTS DENOMINATOR
142!  D     :  REAL     TRANSMISSION LIMIT FOR INFINITE ABSORBER AMOUNT
143!  RRAY  :  REAL     RAYLEIGH SCATTERING COEFFICIENTS
144!  RSUN  :  REAL     SOLAR FRACTION IN SPECTRAL INTERVALS
145!  RPDH1 :  1 + EXPONENT PRESSURE DEPENDENCE H2O
146!  RPDU1 :  1 + EXPONENT PRESSURE DEPENDENCE UNIFORMLY MIXED GASES
147!  RPNH  :  REFERENCE PRESSURE FACTOR FOR H2O
148!  RPNU  :  REFERENCE PRESSURE FACTOR FOR UNIFORMLY MIXED GASES
149!  RSWCE :  E-TYPE, H2O CONTINUUM ABSORPTION COEFFICIENT
150!  RSWCP :  P-TYPE, H2O CONTINUUM ABSORPTION COEFFICIENT
151!  RTDH2O:  EXPONENT TEMPERATURE DEPENDENCE H2O
152!  RTDUMG:  EXPONENT TEMPERATURE DEPENDENCE UNIFORMLY MIXED GASES
153!  RTH2O :  REFERENCE TEMPERATURE H2O
154!  RTUMG :  REFERENCE TEMPERATURE UNIFORMLY MIXED GASES
155!     -----------------------------------------------------------------
156
157!        * E.C.M.W.F. PHYSICS PACKAGE *
158
159!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
160
161!  NAME     TYPE     PURPOSE
162!  ----  :  ----   : ---------------------------------------------------
163!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
164
165! RYFWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
166! RYFWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
167! RYFWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
168! RYFWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
169! RYFWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
170! RYFWCF :  REAL   : ASSYMETRY FACTOR
171
172!*    SLINGO (1989) WATER CLOUD OPTICAL PROPERTIES
173
174! RASWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
175! RASWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
176! RASWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
177! RASWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
178! RASWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
179! RASWCF :  REAL   : ASSYMETRY FACTOR
180
181!*   SAVIJARVI (1998) WATER CLOUD OPTICAL PROPERTIES (RRTM)
182
183! RHSAVI : REAL    : MASS ABSORPTION COEFFICIENTS (POLYNOMIAL DEVELOPM)
184
185!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
186
187! REBCUA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
188! REBCUB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
189! REBCUC :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
190! REBCUD :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
191! REBCUE :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
192! REBCUF :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
193! REBCUG :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
194! REBCUH :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
195! REBCUI :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT SPECTRAL FORMULA
196! REBCUJ :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT SPECTRAL FORMULA
197
198!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM SUN-SHINE (1995)
199
200! RSHSUE :  REAL   : E IN SINGLE SCATTERING ALBEDO FORMULA
201! RSHSUF :  REAL   : F IN SINGLE SCATTERING ALBEDO FORMULA
202! RSHSUH :  REAL   : H IN ASSYMETRY FACTOR FORMULA
203! RSHSUK :  REAL   : K IN ASSYMETRY FACTOR FORMULA
204! RSHSUA :  REAL   : ALPHA IN SSA CORRECTION FACTOR FORMULA
205! RSHSUG :  REAL   : GAMMA IN ASSYMETRY CORRECTION FACTOR FORMULA
206! RSHSUFA:  REAL   : COEFFICIENTS IN TEMPERATURE CORRECTION FACTOR
207
208! REFFIA :  REAL   : C9  IN EFFECTIVE RADIUS FORMULA
209! REFFIB :  REAL   : C10 IN EFFECTIVE RADIUS FORMULA
210
211!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU-LIOU (1993)
212
213! RFULIO :  REAL   : COEFFICIENTS IN EXPRESSION FOR LW EXTINCTION COEFF.
214! RFLAA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
215! RFLBB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
216! RFLCC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
217! RFLDD  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
218
219!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU (1996) & FU ET AL. (1998)
220
221! RFUETA :  REAL   : COEFFICIENTS IN EXPRESSION FOR LW EXTINCTION COEFF.
222! RFUAA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
223! RFUBB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
224! RFUCC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
225
226!*    TRANSITION BETWEEN LIQUID AND SOLID WATER
227
228! RTIW   :  REAL   : TEMPERATURE THRESHOLD
229! RRIW   :  REAL   : TRANSITION RANGE
230
231!*    RAIN OPTICAL PROPERTIES FROM SAVIJARVI (1996)
232
233! RROMA  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
234! RROMB  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
235! RRASY  :  REAL   : COEFFICIENTS FOR ASSYMETRY FACTOR
236! RHSRA  :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
237! RHSRB  :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
238! RHSRC  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
239! RHSRD  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
240! RHSRE  :  REAL   : COEFFICIENTS FOR ASSYMETRY FACTOR
241! RHSRF  :  REAL   : COEFFICIENTS FOR ASSYMETRY FACTOR
242! RHSRTA :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
243! RHSRTB :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
244!     -----------------------------------------------------------------
245
246!        * E.C.M.W.F. PHYSICS PACKAGE *
247
248!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
249
250!  NAME     TYPE     PURPOSE
251!  ----  :  ----   : -------
252!  RTAUA :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
253!  RPIZA :  REAL     S.W. SINGLE SCATTERING ALBEDO
254!  RCGA  :  REAL     S.W. ASSYMETRY FACTOR
255!  RAER  :  REAL     L.W. ABSORPTION COEFFICIENTS
256!     -----------------------------------------------------------------
257
258!        * E.C.M.W.F. PHYSICS PACKAGE *
259
260!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
261
262!  NAME     TYPE     PURPOSE
263!  ----  :  ----   : -------
264!RTWEIGHT:  REAL     S.W. INTEGRATED WEIGHT
265! RWEIGHT:  REAL     S.W. SPECTR WEIGHT
266!                     1 - ocean (flat response)
267!                     2 - sea-ice (as snow or ice depending on month)
268!                     3 - wet skin (flat)
269!                     4 - vegetation low and snow-free (BR, 1986)
270!                     5 - snow on low vegetation       (Warren, 1982)
271!                     6 - vegetation high and snow-free (BR, 1986)
272!                     7 - snow under high vegetation   (Warren, 1982)
273!                     8 - bare soil (Briegleb, Ramanathan, 1986)
274! RALBICE_AN : REAL : monthly sea-ice albedo in SW spectral intervals
275!                     for Antarctica
276! RALBICE_AN : REAL : for Arctic
277!     -----------------------------------------------------------------
278END MODULE YOESW
Note: See TracBrowser for help on using the repository browser.