1 |
|
|
SUBROUTINE SUSRTCOP |
2 |
|
|
|
3 |
|
|
!**** *SUSRTCOP* - INITIALIZE COMMON YOESRTCOP |
4 |
|
|
|
5 |
|
|
! PURPOSE. |
6 |
|
|
! -------- |
7 |
|
|
! INITIALIZE YOESRTCOP, WITH CLOUD OPTICAL PARAMETERS |
8 |
|
|
|
9 |
|
|
!** INTERFACE. |
10 |
|
|
! ---------- |
11 |
|
|
! *CALL* SUSRTCOP |
12 |
|
|
! FROM *SUECRAD* |
13 |
|
|
|
14 |
|
|
! EXPLICIT ARGUMENTS : |
15 |
|
|
! -------------------- |
16 |
|
|
! NONE |
17 |
|
|
|
18 |
|
|
! IMPLICIT ARGUMENTS : |
19 |
|
|
! -------------------- |
20 |
|
|
! COMMON YOESRTCOP |
21 |
|
|
|
22 |
|
|
! METHOD. |
23 |
|
|
! ------- |
24 |
|
|
! SEE DOCUMENTATION |
25 |
|
|
|
26 |
|
|
! EXTERNALS. |
27 |
|
|
! ---------- |
28 |
|
|
! NONE |
29 |
|
|
|
30 |
|
|
! REFERENCE. |
31 |
|
|
! ---------- |
32 |
|
|
! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE |
33 |
|
|
! "INTEGRATED FORECASTING SYSTEM" |
34 |
|
|
|
35 |
|
|
! Fouquart, 1987: NATO ASI, 223-284 |
36 |
|
|
! A. Slingo, 1989: J. Atmos. Sci., 46, 1419-1427 |
37 |
|
|
! Ebert and Curry, 1992: J. Geophys. Res., 97D, 3831-3836 |
38 |
|
|
! Sun and Shine, 1994: Quart. J. Roy. Meteor. Soc., 120, 111-138 |
39 |
|
|
! Fu and Liou, 1993: J. Atmos. Sci., 50, 2008-2025 |
40 |
|
|
! Fu, 1996: J. Climate, 9, 2058-2082 |
41 |
|
|
! Fu et al., 1998: J. Climate, 11, 2223-2237 |
42 |
|
|
|
43 |
|
|
! AUTHOR. |
44 |
|
|
! ------- |
45 |
|
|
! JEAN-JACQUES MORCRETTE *ECMWF* |
46 |
|
|
|
47 |
|
|
! MODIFICATIONS. |
48 |
|
|
! -------------- |
49 |
|
|
! ORIGINAL : 03-03-06 |
50 |
|
|
! M.Hamrud 01-Oct-2003 CY28 Cleaning |
51 |
|
|
|
52 |
|
|
! ------------------------------------------------------------------ |
53 |
|
|
|
54 |
|
|
USE PARKIND1 ,ONLY : JPIM ,JPRB |
55 |
|
|
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
56 |
|
|
|
57 |
|
|
USE YOESRTCOP , ONLY : & |
58 |
|
|
& RSYFWA ,RSYFWB ,RSYFWC ,RSYFWD ,RSYFWE ,RSYFWF & |
59 |
|
|
& , RSECIA ,RSECIB ,RSECIC ,RSECID ,RSECIE ,RSECIF & |
60 |
|
|
& , RSASWA ,RSASWB ,RSASWC ,RSASWD ,RSASWE ,RSASWF & |
61 |
|
|
& , RSSSIE ,RSSSIF ,RSSSIH ,RSSSIK ,RSSSIA ,RSSSIG & |
62 |
|
|
& , RSFUA0 ,RSFUA1 ,RSFUB0 ,RSFUB1 ,RSFUB2 ,RSFUB3 & |
63 |
|
|
& , RSFUC0 ,RSFUC1 ,RSFUC2 ,RSFUC3 & |
64 |
|
|
& , RSFLA0 ,RSFLA1 ,RSFLB0 ,RSFLB1 ,RSFLB2 ,RSFLB3 & |
65 |
|
|
& , RSFLC0 ,RSFLC1 ,RSFLC2 ,RSFLC3 ,RSFLD0 ,RSFLD1 & |
66 |
|
|
& , RSFLD2 ,RSFLD3 |
67 |
|
|
|
68 |
|
|
IMPLICIT NONE |
69 |
|
|
|
70 |
|
|
INTEGER(KIND=JPIM) :: JNU |
71 |
|
|
|
72 |
|
|
! ----------------------------------------------------------------- |
73 |
|
|
|
74 |
|
|
REAL(KIND=JPRB) :: ZEBCUA14(14) ,ZEBCUB14(14) ,ZEBCUC14(14) ,ZEBCUD14(14)& |
75 |
|
|
& , ZEBCUE14(14) ,ZEBCUF14(14) ,ZYFWCA14(14) ,ZYFWCB14(14)& |
76 |
|
|
& , ZYFWCC14(14) ,ZYFWCD14(14) ,ZYFWCE14(14) ,ZYFWCF14(14)& |
77 |
|
|
& , ZASWCA14(14) ,ZASWCB14(14) ,ZASWCC14(14) ,ZASWCD14(14)& |
78 |
|
|
& , ZASWCE14(14) ,ZASWCF14(14) ,ZSUSHE14(14) ,ZSUSHF14(14)& |
79 |
|
|
& , ZSUSHH14(14) ,ZSUSHK14(14) ,ZSUSHA14(14) ,ZSUSHG14(14)& |
80 |
|
|
& , ZFLAA014(14) ,ZFLAA114(14) ,ZFLBB014(14) ,ZFLBB114(14)& |
81 |
|
|
& , ZFLBB214(14) ,ZFLBB314(14) ,ZFLCC014(14) ,ZFLCC114(14)& |
82 |
|
|
& , ZFLCC214(14) ,ZFLCC314(14) ,ZFLDD014(14) ,ZFLDD114(14)& |
83 |
|
|
& , ZFLDD214(14) ,ZFLDD314(14)& |
84 |
|
|
& , ZFUAA014(14) ,ZFUAA114(14) ,ZFUBB014(14) ,ZFUBB114(14)& |
85 |
|
|
& , ZFUBB214(14) ,ZFUBB314(14) ,ZFUCC014(14) ,ZFUCC114(14)& |
86 |
|
|
& , ZFUCC214(14) ,ZFUCC314(14) |
87 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
88 |
|
|
! ----------------------------------------------------------------- |
89 |
|
|
|
90 |
|
|
!* 1. SHORTWAVE CLOUD OPTICAL PROPERTIES |
91 |
|
|
! ---------------------------------- |
92 |
|
|
|
93 |
|
|
! ------------------------------------------------------------------ |
94 |
|
|
|
95 |
|
|
!* 1.1 FOURTEEN SPECTRAL INTERVALS FOR RRTM_SW |
96 |
|
|
! --------------------------------------- |
97 |
|
|
|
98 |
|
|
! SW : 14 spectral intervals |
99 |
|
|
! 3.846 - 3.077 |
100 |
|
|
! 3.077 - 2.500 |
101 |
|
|
! 2.500 - 2.150 |
102 |
|
|
! 2.150 - 1.942 |
103 |
|
|
! 1.942 - 1.626 |
104 |
|
|
! 1.626 - 1.299 |
105 |
|
|
! 1.299 - 1.242 |
106 |
|
|
! 1.242 - 0.7782 |
107 |
|
|
! 0.7782- 0.6250 |
108 |
|
|
! 0.6250- 0.4415 |
109 |
|
|
! 0.4415- 0.3448 |
110 |
|
|
! 0.3448- 0.2632 |
111 |
|
|
! 0.2632- 0.2000 |
112 |
|
|
! 12.195 - 3.846 |
113 |
|
|
|
114 |
|
|
!* Ice cloud properties - crystal: remapped from Ebert and Curry, 1992 |
115 |
|
|
|
116 |
|
|
IF (LHOOK) CALL DR_HOOK('SUSRTCOP',0,ZHOOK_HANDLE) |
117 |
|
|
ZEBCUA14 = (/ & |
118 |
|
|
& 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB & |
119 |
|
|
& , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB & |
120 |
|
|
& , 3.448E-03_JPRB , 3.448E-03_JPRB /) |
121 |
|
|
|
122 |
|
|
ZEBCUB14 = (/ & |
123 |
|
|
& 2.431_JPRB , 2.431_JPRB , 2.431_JPRB , 2.431_JPRB , 2.431_JPRB , 2.431_JPRB & |
124 |
|
|
& , 2.431_JPRB , 2.431_JPRB , 2.431_JPRB , 2.431_JPRB , 2.431_JPRB , 2.431_JPRB & |
125 |
|
|
& , 2.431_JPRB , 2.431_JPRB /) |
126 |
|
|
|
127 |
|
|
ZEBCUC14 = (/ & |
128 |
|
|
& 0.46658_JPRB , 0.46658_JPRB , 0.03779_JPRB , 0.03779_JPRB , 0.01240_JPRB , 0.01240_JPRB & |
129 |
|
|
& , 0.00011_JPRB , 0.00011_JPRB , 0.00001_JPRB , 0.00001_JPRB , 0.00001_JPRB , 0.00001_JPRB & |
130 |
|
|
& , 0.00001_JPRB , 0.46658_JPRB /) |
131 |
|
|
|
132 |
|
|
ZEBCUD14 = (/ & |
133 |
|
|
& 2.050E-05_JPRB , 2.050E-05_JPRB , 1.284E-03_JPRB , 1.284E-03_JPRB , 6.867E-04_JPRB , 6.867E-04_JPRB & |
134 |
|
|
& , 1.405E-05_JPRB , 1.405E-05_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
135 |
|
|
& , 0.0_JPRB , 2.050E-05_JPRB /) |
136 |
|
|
|
137 |
|
|
ZEBCUE14 = (/ & |
138 |
|
|
& 0.9595_JPRB , 0.9595_JPRB , 0.8172_JPRB , 0.8172_JPRB , 0.7865_JPRB , 0.7865_JPRB & |
139 |
|
|
& , 0.7730_JPRB , 0.7730_JPRB , 0.7661_JPRB , 0.7661_JPRB , 0.7661_JPRB , 0.7661_JPRB & |
140 |
|
|
& , 0.7661_JPRB , 0.9595_JPRB /) |
141 |
|
|
|
142 |
|
|
ZEBCUF14 = (/ & |
143 |
|
|
& 1.076E-04_JPRB , 1.076E-04_JPRB , 7.463E-04_JPRB , 7.463E-04_JPRB , 7.204E-04_JPRB , 7.204E-04_JPRB & |
144 |
|
|
& , 5.665E-04_JPRB , 5.665E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB & |
145 |
|
|
& , 5.851E-04_JPRB , 1.076E-04_JPRB /) |
146 |
|
|
|
147 |
|
|
!* Water cloud properties - from Fouquart (1987) |
148 |
|
|
|
149 |
|
|
ZYFWCA14 = (/ & |
150 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
151 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
152 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
153 |
|
|
|
154 |
|
|
ZYFWCB14 = (/ & |
155 |
|
|
& 1.5_JPRB , 1.5_JPRB , 1.5_JPRB , 1.5_JPRB , 1.5_JPRB , 1.5_JPRB & |
156 |
|
|
& , 1.5_JPRB , 1.5_JPRB , 1.5_JPRB , 1.5_JPRB , 1.5_JPRB , 1.5_JPRB & |
157 |
|
|
& , 1.5_JPRB , 1.5_JPRB /) |
158 |
|
|
|
159 |
|
|
ZYFWCC14 = (/ & |
160 |
|
|
& 0.9988_JPRB , 0.9988_JPRB , 0.9988_JPRB , 0.9988_JPRB , 0.9988_JPRB , 0.9988_JPRB & |
161 |
|
|
& , 0.9988_JPRB , 0.9988_JPRB , 0.9999_JPRB , 0.9999_JPRB , 0.9999_JPRB , 0.9999_JPRB & |
162 |
|
|
& , 0.9999_JPRB , 0.9988_JPRB /) |
163 |
|
|
|
164 |
|
|
ZYFWCD14 = (/ & |
165 |
|
|
& 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB & |
166 |
|
|
& , 2.500E-03_JPRB , 2.500E-03_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB & |
167 |
|
|
& , 5.000E-04_JPRB , 2.500E-03_JPRB /) |
168 |
|
|
|
169 |
|
|
ZYFWCE14 = (/ & |
170 |
|
|
& 0.05_JPRB , 0.05_JPRB , 0.05_JPRB , 0.05_JPRB , 0.05_JPRB , 0.05_JPRB & |
171 |
|
|
& , 0.05_JPRB , 0.05_JPRB , 0.5_JPRB , 0.5_JPRB , 0.5_JPRB , 0.5_JPRB & |
172 |
|
|
& , 0.5_JPRB , 0.05_JPRB /) |
173 |
|
|
|
174 |
|
|
ZYFWCF14 = (/ & |
175 |
|
|
& 0.910_JPRB , 0.910_JPRB , 0.910_JPRB , 0.910_JPRB , 0.910_JPRB , 0.910_JPRB & |
176 |
|
|
& , 0.910_JPRB , 0.910_JPRB , 0.865_JPRB , 0.865_JPRB , 0.865_JPRB , 0.865_JPRB & |
177 |
|
|
& , 0.865_JPRB , 0.910_JPRB /) |
178 |
|
|
|
179 |
|
|
!* Water cloud properties - from Slingo (1989) |
180 |
|
|
|
181 |
|
|
ZASWCA14 = (/ & |
182 |
|
|
& -1.023_JPRB , 1.950_JPRB , 1.850_JPRB , 1.970_JPRB , 1.970_JPRB , 2.463_JPRB & |
183 |
|
|
& , 2.551_JPRB , 2.622_JPRB , 2.895_JPRB , 2.672_JPRB , 2.801_JPRB , 2.944_JPRB & |
184 |
|
|
& , 3.094_JPRB ,-1.023_JPRB /) |
185 |
|
|
|
186 |
|
|
ZASWCB14 = (/ & |
187 |
|
|
& 1.933_JPRB , 1.540_JPRB , 1.556_JPRB , 1.501_JPRB , 1.501_JPRB , 1.420_JPRB & |
188 |
|
|
& , 1.401_JPRB , 1.362_JPRB , 1.315_JPRB , 1.320_JPRB , 1.293_JPRB , 1.270_JPRB & |
189 |
|
|
& , 1.252_JPRB , 1.933_JPRB /) |
190 |
|
|
|
191 |
|
|
ZASWCC14 = (/ & |
192 |
|
|
& 2.50E-02_JPRB , 4.49E-01_JPRB , 1.90E-04_JPRB , 1.20E-03_JPRB , 1.20E-03_JPRB , 2.40E-04_JPRB & |
193 |
|
|
& , 6.20E-05_JPRB , 3.30E-06_JPRB ,-1.20E-07_JPRB , 0.0_JPRB , 1.00E-06_JPRB ,-6.50E-07_JPRB & |
194 |
|
|
& , 7.90E-07_JPRB , 2.50E-02_JPRB /) |
195 |
|
|
|
196 |
|
|
ZASWCD14 = (/ & |
197 |
|
|
& 1.22E-02_JPRB , 1.54E-03_JPRB , 2.54E-03_JPRB , 2.16E-03_JPRB , 2.16E-03_JPRB , 8.56E-04_JPRB & |
198 |
|
|
& , 2.60E-04_JPRB , 2.80E-06_JPRB , 4.40E-07_JPRB , 0.0_JPRB , 0.0_JPRB , 4.33E-07_JPRB & |
199 |
|
|
& , 3.69E-07_JPRB , 1.22E-02_JPRB /) |
200 |
|
|
|
201 |
|
|
ZASWCE14 = (/ & |
202 |
|
|
& 0.726_JPRB , 0.831_JPRB , 0.769_JPRB , 0.740_JPRB , 0.740_JPRB , 0.754_JPRB & |
203 |
|
|
& , 0.773_JPRB , 0.806_JPRB , 0.818_JPRB , 0.828_JPRB , 0.836_JPRB , 0.841_JPRB & |
204 |
|
|
& , 0.844_JPRB , 0.726_JPRB /) |
205 |
|
|
|
206 |
|
|
ZASWCF14 = (/ & |
207 |
|
|
& 6.652_JPRB , 6.102_JPRB , 5.171_JPRB , 7.469_JPRB , 7.469_JPRB , 6.555_JPRB & |
208 |
|
|
& , 5.405_JPRB , 3.355_JPRB , 2.989_JPRB , 2.467_JPRB , 2.153_JPRB , 1.680_JPRB & |
209 |
|
|
& , 1.558_JPRB , 6.652_JPRB /) |
210 |
|
|
|
211 |
|
|
!* Ice cloud properties - from Sun and Shine (1995) |
212 |
|
|
|
213 |
|
|
ZSUSHE14 = (/ & |
214 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
215 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
216 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
217 |
|
|
ZSUSHF14 = (/ & |
218 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
219 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
220 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
221 |
|
|
ZSUSHH14 = (/ & |
222 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
223 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
224 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
225 |
|
|
ZSUSHK14 = (/ & |
226 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
227 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
228 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
229 |
|
|
ZSUSHA14 = (/ & |
230 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
231 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
232 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
233 |
|
|
ZSUSHG14 = (/ & |
234 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
235 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
236 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
237 |
|
|
|
238 |
|
|
!* Ice cloud properties - from Fu and Liou (1993) |
239 |
|
|
|
240 |
|
|
ZFLAA014 = (/ & |
241 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
242 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
243 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
244 |
|
|
ZFLAA114 = (/ & |
245 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
246 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
247 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
248 |
|
|
ZFLBB014 = (/ & |
249 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
250 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
251 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
252 |
|
|
ZFLBB114 = (/ & |
253 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
254 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
255 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
256 |
|
|
ZFLBB214 = (/ & |
257 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
258 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
259 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
260 |
|
|
ZFLBB314 = (/ & |
261 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
262 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
263 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
264 |
|
|
ZFLCC014 = (/ & |
265 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
266 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
267 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
268 |
|
|
ZFLCC114 = (/ & |
269 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
270 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
271 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
272 |
|
|
ZFLCC214 = (/ & |
273 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
274 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
275 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
276 |
|
|
ZFLCC314 = (/ & |
277 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
278 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
279 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
280 |
|
|
ZFLDD014 = (/ & |
281 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
282 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
283 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
284 |
|
|
ZFLDD114 = (/ & |
285 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
286 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
287 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
288 |
|
|
ZFLDD214 = (/ & |
289 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
290 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
291 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
292 |
|
|
ZFLDD314 = (/ & |
293 |
|
|
& 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
294 |
|
|
& , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB & |
295 |
|
|
& , 0.0_JPRB , 0.0_JPRB /) |
296 |
|
|
|
297 |
|
|
!* Ice cloud properties - from Fu (1996) |
298 |
|
|
|
299 |
|
|
ZFUAA014 = (/ & |
300 |
|
|
& 1.87598E-04_JPRB, 2.97295E-04_JPRB, 4.89477E-04_JPRB,-8.37325E-06_JPRB,-8.37325E-06_JPRB,-8.05155E-04_JPRB & |
301 |
|
|
& , 6.51659E-05_JPRB, 8.10443E-05_JPRB, 1.61983E-04_JPRB,-9.45458E-05_JPRB,-2.58858E-04_JPRB,-2.66955E-04_JPRB & |
302 |
|
|
& ,-2.36447E-04_JPRB,-2.54823E-04_JPRB /) |
303 |
|
|
|
304 |
|
|
ZFUAA114 = (/ & |
305 |
|
|
& 2.51396E+00_JPRB, 2.48895E+00_JPRB, 2.48776E+00_JPRB, 2.52504E+00_JPRB, 2.52504E+00_JPRB, 2.57600E+00_JPRB & |
306 |
|
|
& , 2.51660E+00_JPRB, 2.51619E+00_JPRB, 2.50746E+00_JPRB, 2.52061E+00_JPRB, 2.53815E+00_JPRB, 2.54179E+00_JPRB & |
307 |
|
|
& , 2.53817E+00_JPRB, 2.52909E+00_JPRB /) |
308 |
|
|
|
309 |
|
|
ZFUBB014 = (/ & |
310 |
|
|
& 1.96793E-01_JPRB, 4.64416E-01_JPRB, 5.83469E-04_JPRB, 2.53234E-03_JPRB, 2.53234E-03_JPRB,-2.85518E-05_JPRB & |
311 |
|
|
& ,-1.48012E-07_JPRB,-1.57963E-07_JPRB,-7.78001E-08_JPRB, 5.08447E-07_JPRB,-1.98529E-07_JPRB,-1.00570E-07_JPRB & |
312 |
|
|
& ,-2.69916E-07_JPRB, 2.60155E-01_JPRB /) |
313 |
|
|
|
314 |
|
|
ZFUBB114 = (/ & |
315 |
|
|
& 5.75235E-03_JPRB, 2.04716E-05_JPRB, 1.18127E-03_JPRB, 1.75078E-03_JPRB, 1.75078E-03_JPRB, 1.71993E-03_JPRB & |
316 |
|
|
& , 9.02355E-05_JPRB, 1.72475E-06_JPRB, 2.53360E-07_JPRB, 2.73206E-08_JPRB, 9.39480E-08_JPRB, 1.60441E-07_JPRB & |
317 |
|
|
& , 2.12909E-07_JPRB, 5.45547E-03_JPRB /) |
318 |
|
|
|
319 |
|
|
ZFUBB214 = (/ & |
320 |
|
|
& -5.29220E-05_JPRB,-4.60375E-07_JPRB,-3.40011E-06_JPRB,-8.00994E-06_JPRB,-8.00994E-06_JPRB,-7.43697E-06_JPRB & |
321 |
|
|
& ,-1.98190E-08_JPRB, 9.02156E-11_JPRB,-1.15489E-10_JPRB, 4.96553E-11_JPRB,-2.54540E-10_JPRB,-2.05663E-10_JPRB & |
322 |
|
|
& ,-2.65397E-10_JPRB,-5.58760E-05_JPRB /) |
323 |
|
|
|
324 |
|
|
ZFUBB314 = (/ & |
325 |
|
|
& 1.76618E-07_JPRB, 2.03198E-09_JPRB, 8.78549E-09_JPRB, 2.31309E-08_JPRB, 2.31309E-08_JPRB, 2.09647E-08_JPRB & |
326 |
|
|
& , 4.01914E-11_JPRB,-3.79423E-13_JPRB, 4.65084E-13_JPRB,-1.86001E-13_JPRB, 1.10876E-12_JPRB, 8.88595E-13_JPRB & |
327 |
|
|
& , 1.12983E-12_JPRB, 1.97086E-07_JPRB /) |
328 |
|
|
|
329 |
|
|
ZFUCC014 = (/ & |
330 |
|
|
& 0.759183_JPRB , 0.919599_JPRB , 0.775916_JPRB , 0.758748_JPRB , 0.758748_JPRB , 0.752528_JPRB & |
331 |
|
|
& , 0.751277_JPRB , 0.752318_JPRB , 0.749693_JPRB , 0.749856_JPRB , 0.743546_JPRB , 0.737809_JPRB & |
332 |
|
|
& , 0.733260_JPRB , 0.799084_JPRB /) |
333 |
|
|
|
334 |
|
|
ZFUCC114 = (/ & |
335 |
|
|
& 4.93765E-03_JPRB, 5.03025E-04_JPRB, 1.74517E-03_JPRB, 2.02709E-03_JPRB, 2.02709E-03_JPRB, 1.95748E-03_JPRB & |
336 |
|
|
& , 1.29824E-03_JPRB, 1.04224E-03_JPRB, 1.05446E-03_JPRB, 8.89161E-04_JPRB, 9.08674E-04_JPRB, 8.97515E-04_JPRB & |
337 |
|
|
& , 9.18317E-04_JPRB, 4.81706E-03_JPRB /) |
338 |
|
|
|
339 |
|
|
ZFUCC214 = (/ & |
340 |
|
|
& -4.84059E-05_JPRB,-5.74771E-06_JPRB,-9.21314E-06_JPRB,-1.17029E-05_JPRB,-1.17029E-05_JPRB,-1.02495E-05_JPRB & |
341 |
|
|
& ,-4.99075E-06_JPRB,-2.26618E-06_JPRB,-2.32576E-06_JPRB,-3.49578E-07_JPRB,-4.65326E-07_JPRB,-2.17099E-07_JPRB & |
342 |
|
|
& ,-4.22974E-07_JPRB,-5.13220E-05_JPRB /) |
343 |
|
|
|
344 |
|
|
ZFUCC314 = (/ & |
345 |
|
|
& 1.65801E-07_JPRB, 2.01731E-08_JPRB, 2.15003E-08_JPRB, 2.95195E-08_JPRB, 2.95195E-08_JPRB, 2.35479E-08_JPRB & |
346 |
|
|
& , 6.33757E-09_JPRB,-3.68283E-09_JPRB,-3.58307E-09_JPRB, 1.09913E-08_JPRB,-1.05786E-08_JPRB,-1.16090E-08_JPRB & |
347 |
|
|
& ,-1.07976E-08_JPRB, 1.84420E-07_JPRB /) |
348 |
|
|
|
349 |
|
|
! ------------------------------------------------------------------ |
350 |
|
|
! ------------------------------------------------------------------ |
351 |
|
|
|
352 |
|
|
! SW : absorption coefficients |
353 |
|
|
|
354 |
|
|
DO JNU=1,14 |
355 |
|
|
RSASWA(JNU)=ZASWCA14(JNU)*1.E-02_JPRB |
356 |
|
|
RSASWB(JNU)=ZASWCB14(JNU) |
357 |
|
|
RSASWC(JNU)=ZASWCC14(JNU) |
358 |
|
|
RSASWD(JNU)=ZASWCD14(JNU) |
359 |
|
|
RSASWE(JNU)=ZASWCE14(JNU) |
360 |
|
|
RSASWF(JNU)=ZASWCF14(JNU)*1.E-03_JPRB |
361 |
|
|
|
362 |
|
|
RSECIA(JNU)=ZEBCUA14(JNU) |
363 |
|
|
RSECIB(JNU)=ZEBCUB14(JNU) |
364 |
|
|
RSECIC(JNU)=ZEBCUC14(JNU) |
365 |
|
|
RSECID(JNU)=ZEBCUD14(JNU) |
366 |
|
|
RSECIE(JNU)=ZEBCUE14(JNU) |
367 |
|
|
RSECIF(JNU)=ZEBCUF14(JNU) |
368 |
|
|
|
369 |
|
|
RSYFWA(JNU)=ZYFWCA14(JNU) |
370 |
|
|
RSYFWB(JNU)=ZYFWCB14(JNU) |
371 |
|
|
RSYFWC(JNU)=ZYFWCC14(JNU) |
372 |
|
|
RSYFWD(JNU)=ZYFWCD14(JNU) |
373 |
|
|
RSYFWE(JNU)=ZYFWCE14(JNU) |
374 |
|
|
RSYFWF(JNU)=ZYFWCF14(JNU) |
375 |
|
|
|
376 |
|
|
RSSSIE(JNU)=ZSUSHE14(JNU)*1.E-02_JPRB |
377 |
|
|
RSSSIF(JNU)=ZSUSHF14(JNU)*1.E-02_JPRB |
378 |
|
|
RSSSIH(JNU)=ZSUSHH14(JNU) |
379 |
|
|
RSSSIK(JNU)=ZSUSHK14(JNU)*1.E-01_JPRB |
380 |
|
|
RSSSIA(JNU)=ZSUSHA14(JNU)*1.E-03_JPRB |
381 |
|
|
RSSSIG(JNU)=ZSUSHG14(JNU)*1.E-01_JPRB |
382 |
|
|
|
383 |
|
|
RSFLA0(JNU)=ZFLAA014(JNU) |
384 |
|
|
RSFLA1(JNU)=ZFLAA114(JNU) |
385 |
|
|
RSFLB0(JNU)=ZFLBB014(JNU) |
386 |
|
|
RSFLB1(JNU)=ZFLBB114(JNU) |
387 |
|
|
RSFLB2(JNU)=ZFLBB214(JNU) |
388 |
|
|
RSFLB3(JNU)=ZFLBB314(JNU) |
389 |
|
|
RSFLC0(JNU)=ZFLCC014(JNU) |
390 |
|
|
RSFLC1(JNU)=ZFLCC114(JNU) |
391 |
|
|
RSFLC2(JNU)=ZFLCC214(JNU) |
392 |
|
|
RSFLC3(JNU)=ZFLCC314(JNU) |
393 |
|
|
RSFLD0(JNU)=ZFLDD014(JNU) |
394 |
|
|
RSFLD1(JNU)=ZFLDD114(JNU) |
395 |
|
|
RSFLD2(JNU)=ZFLDD214(JNU) |
396 |
|
|
RSFLD3(JNU)=ZFLDD314(JNU) |
397 |
|
|
|
398 |
|
|
RSFUA0(JNU)=ZFUAA014(JNU) |
399 |
|
|
RSFUA1(JNU)=ZFUAA114(JNU) |
400 |
|
|
RSFUB0(JNU)=ZFUBB014(JNU) |
401 |
|
|
RSFUB1(JNU)=ZFUBB114(JNU) |
402 |
|
|
RSFUB2(JNU)=ZFUBB214(JNU) |
403 |
|
|
RSFUB3(JNU)=ZFUBB314(JNU) |
404 |
|
|
RSFUC0(JNU)=ZFUCC014(JNU) |
405 |
|
|
RSFUC1(JNU)=ZFUCC114(JNU) |
406 |
|
|
RSFUC2(JNU)=ZFUCC214(JNU) |
407 |
|
|
RSFUC3(JNU)=ZFUCC314(JNU) |
408 |
|
|
|
409 |
|
|
ENDDO |
410 |
|
|
|
411 |
|
|
! ------------------------------------------------------------------ |
412 |
|
|
|
413 |
|
|
IF (LHOOK) CALL DR_HOOK('SUSRTCOP',1,ZHOOK_HANDLE) |
414 |
|
|
END SUBROUTINE SUSRTCOP |
415 |
|
|
|