GCC Code Coverage Report

Directory: ./
File: rad/susrtcop.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 101 0.0%
Branches: 0 6 0.0%
Line Branch Exec Source
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
416