Directory: | ./ |
---|---|
File: | rad/su_aerop.f90 |
Date: | 2022-01-11 19:19:34 |
Exec | Total | Coverage | |
---|---|---|---|
Lines: | 298 | 298 | 100.0% |
Branches: | 578 | 580 | 99.7% |
Line | Branch | Exec | Source |
---|---|---|---|
1 | 1 | SUBROUTINE SU_AEROP | |
2 | |||
3 | !**** *SU_AEROP* - INITIALIZE MODULES YOEAEROP | ||
4 | |||
5 | ! PURPOSE. | ||
6 | ! -------- | ||
7 | ! INITIALIZE YOEAEROP THE MODULE THAT CONTAINS THE | ||
8 | ! OPTICAL PROPERTIES FOR THE PROGNOSTIC AEROSOLS | ||
9 | |||
10 | !** INTERFACE. | ||
11 | ! ---------- | ||
12 | ! *CALL* *SU_AEROP | ||
13 | |||
14 | ! EXPLICIT ARGUMENTS : | ||
15 | ! -------------------- | ||
16 | ! NONE | ||
17 | |||
18 | ! IMPLICIT ARGUMENTS : | ||
19 | ! -------------------- | ||
20 | ! YOEAEROP | ||
21 | |||
22 | ! METHOD. | ||
23 | ! ------- | ||
24 | ! SEE DOCUMENTATION | ||
25 | |||
26 | ! EXTERNALS. | ||
27 | ! ---------- | ||
28 | |||
29 | ! REFERENCE. | ||
30 | ! ---------- | ||
31 | ! ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS | ||
32 | |||
33 | ! AUTHOR. | ||
34 | ! ------- | ||
35 | ! JEAN-JACQUES MORCRETTE *ECMWF* | ||
36 | ! from O.BOUCHER's stand-alone codes (LOA, 2005-03) | ||
37 | |||
38 | ! MODIFICATIONS. | ||
39 | ! -------------- | ||
40 | ! ORIGINAL : 2005-03-25 | ||
41 | |||
42 | ! ------------------------------------------------------------------ | ||
43 | |||
44 | USE PARKIND1 ,ONLY : JPRB | ||
45 | USE YOMHOOK ,ONLY : LHOOK, DR_HOOK | ||
46 | |||
47 | USE YOEAEROP , ONLY : ALF_SU, ASY_SU, OMG_SU, ALF_OM, ASY_OM, OMG_OM, & | ||
48 | & ALF_DD, ASY_DD, OMG_DD, ALF_SS, ASY_SS, OMG_SS, ALF_BC, ASY_BC, OMG_BC, & | ||
49 | & ALF_FA, ASY_FA, OMG_FA | ||
50 | |||
51 | IMPLICIT NONE | ||
52 | |||
53 | REAL(KIND=JPRB) :: ZHOOK_HANDLE | ||
54 | ! ---------------------------------------------------------------- | ||
55 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('SU_AEROP',0,ZHOOK_HANDLE) |
56 | |||
57 | |||
58 | !* 1. PARAMETERS RELATED TO OPTICAL PROPERTIES | ||
59 | ! ---------------------------------------- | ||
60 | |||
61 | ! All arrays are given in three blocks: | ||
62 | ! first, for 16 wavelengths relevant to observations | ||
63 | ! 340, 380, 400, 440, 469, 500, 532, 555, 645, 670, 800, 858, 865, 1240, 1640, 2130 | ||
64 | |||
65 | !( not done yet, depends whether SW6 or RRTM_SW is used, to be computed for RRTM_LW) | ||
66 | ! second, for the spectral intervals of the SW radiation scheme | ||
67 | ! third, for the spectral intervals of the LW radiation scheme | ||
68 | |||
69 | ! For sulfates (_SU) and organic matters (_OM), values are given as function | ||
70 | ! of RH (12 values) for the 8 wavelengths | ||
71 | ! For sea-salt (_SS), 3 bins are considered (0.03, 0.50, 5.0, 20.) | ||
72 | ! For desert dust (_DD), 3 bins are considered (0.03, 0.55, 0.9, 20.) | ||
73 | ! | ||
74 | ! IF BIN LIMITS ARE CHANGED, MAKE SURE THAT THE RELEVANT SEDIMENTATION SPEEDS ARE | ||
75 | ! RECOMPUTED ACCORDINGLY | ||
76 | |||
77 | ! RH 0. 10. 20. 30. 40. 50. | ||
78 | ! 60. 70. 80. 85. 90. 95. | ||
79 | |||
80 | 1 | ALF_FA(:) =0.0_JPRB | |
81 | 1 | ASY_FA(:) =0.0_JPRB | |
82 | 1 | OMG_FA(:) =0.0_JPRB | |
83 | |||
84 | ! alpha_aer_bc | ||
85 | ALF_BC( :) = (/ & | ||
86 | & 14.237_JPRB, 14.237_JPRB, & | ||
87 | & 14.237_JPRB, 12.619_JPRB, 12.000_JPRB, 10.684_JPRB, 9.840_JPRB, 9.412_JPRB, 9.000_JPRB, & | ||
88 | 1 | & 7.212_JPRB, 5.677_JPRB, 5.500_JPRB, 5.113_JPRB, 5.000_JPRB, 5.000_JPRB, 5.000_JPRB /) | |
89 | |||
90 | ! cg_aer_bc | ||
91 | ASY_BC( :) = (/ & | ||
92 | & .398_JPRB, .398_JPRB, & | ||
93 | & .398_JPRB, .379_JPRB, .353_JPRB, .350_JPRB, .341_JPRB, .335_JPRB, .300_JPRB, & | ||
94 | 1 | & .296_JPRB, .263_JPRB, .250_JPRB, .248_JPRB, .200_JPRB, .200_JPRB, .200_JPRB /) | |
95 | |||
96 | ! om_aer_bc | ||
97 | OMG_BC( :) = (/ & | ||
98 | & .270_JPRB, .270_JPRB, & | ||
99 | & .270_JPRB, .251_JPRB, .240_JPRB, .226_JPRB, .213_JPRB, .206_JPRB, .180_JPRB, & | ||
100 | 1 | & .166_JPRB, .132_JPRB, .120_JPRB, .118_JPRB, .100_JPRB, .100_JPRB, .100_JPRB /) | |
101 | |||
102 | ! alpha_aer_sulfate | ||
103 | ALF_SU( :,1) = (/ & | ||
104 | & 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 9.168_JPRB,10.246_JPRB, & | ||
105 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 11.685_JPRB,13.796_JPRB,17.504_JPRB,20.617_JPRB,26.335_JPRB,42.574_JPRB /) |
106 | ALF_SU( :,2) = (/ & | ||
107 | & 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 9.168_JPRB,10.246_JPRB, & | ||
108 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 11.685_JPRB,13.796_JPRB,17.504_JPRB,20.617_JPRB,26.335_JPRB,42.574_JPRB /) |
109 | ALF_SU( :,3) = (/ & | ||
110 | & 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 9.168_JPRB,10.246_JPRB, & | ||
111 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 11.685_JPRB,13.796_JPRB,17.504_JPRB,20.617_JPRB,26.335_JPRB,42.574_JPRB /) |
112 | ALF_SU( :,4) = (/ & | ||
113 | & 6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 8.115_JPRB, 9.094_JPRB, & | ||
114 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 10.407_JPRB,12.344_JPRB,15.773_JPRB,18.661_JPRB,24.014_JPRB,39.387_JPRB /) |
115 | ALF_SU( :,5) = (/ & | ||
116 | & 6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 8.115_JPRB, 9.094_JPRB, & | ||
117 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 10.407_JPRB,12.344_JPRB,15.773_JPRB,18.661_JPRB,24.014_JPRB,39.387_JPRB /) |
118 | |||
119 | ALF_SU( :,6) = (/ & | ||
120 | & 5.009_JPRB, 5.009_JPRB, 5.009_JPRB, 5.009_JPRB, 6.779_JPRB, 7.626_JPRB, & | ||
121 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 8.769_JPRB,10.466_JPRB,13.501_JPRB,16.072_JPRB,20.889_JPRB,34.944_JPRB /) |
122 | ALF_SU( :,7) = (/ & | ||
123 | & 4.548_JPRB, 4.548_JPRB, 4.548_JPRB, 4.548_JPRB, 6.171_JPRB, 6.956_JPRB, & | ||
124 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 8.016_JPRB, 9.597_JPRB,12.438_JPRB,14.852_JPRB,19.397_JPRB,32.764_JPRB /) |
125 | |||
126 | ALF_SU( :,8) = (/ & | ||
127 | & 4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 5.858_JPRB, 6.609_JPRB, & | ||
128 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 7.626_JPRB, 9.145_JPRB,11.882_JPRB,14.211_JPRB,18.609_JPRB,31.596_JPRB /) |
129 | ALF_SU( :,9) = (/ & | ||
130 | & 4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 5.858_JPRB, 6.609_JPRB, & | ||
131 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 7.626_JPRB, 9.145_JPRB,11.882_JPRB,14.211_JPRB,18.609_JPRB,31.596_JPRB /) |
132 | |||
133 | ALF_SU(:,10) = (/ & | ||
134 | & 3.053_JPRB, 3.053_JPRB, 3.053_JPRB, 3.053_JPRB, 4.191_JPRB, 4.758_JPRB, & | ||
135 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 5.532_JPRB, 6.700_JPRB, 8.836_JPRB,10.671_JPRB,14.193_JPRB,24.859_JPRB /) |
136 | ALF_SU(:,11) = (/ & | ||
137 | & 2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.992_JPRB, 3.416_JPRB, & | ||
138 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 3.999_JPRB, 4.886_JPRB, 6.532_JPRB, 7.958_JPRB,10.735_JPRB,19.336_JPRB /) |
139 | ALF_SU(:,12) = (/ & | ||
140 | & 2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.992_JPRB, 3.416_JPRB, & | ||
141 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 3.999_JPRB, 4.886_JPRB, 6.532_JPRB, 7.958_JPRB,10.735_JPRB,19.336_JPRB /) |
142 | |||
143 | ALF_SU(:,13) = (/ & | ||
144 | & 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, & | ||
145 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /) |
146 | ALF_SU(:,14) = (/ & | ||
147 | & 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, & | ||
148 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /) |
149 | ALF_SU(:,15) = (/ & | ||
150 | & 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, & | ||
151 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /) |
152 | ALF_SU(:,16) = (/ & | ||
153 | & 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, & | ||
154 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /) |
155 | |||
156 | ! cg_aer_sulfate | ||
157 | ASY_SU( :,1) = (/ & | ||
158 | & 0.640_JPRB, .640_JPRB, .640_JPRB, .640_JPRB, .695_JPRB, .704_JPRB, & | ||
159 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .713_JPRB, .723_JPRB, .734_JPRB, .744_JPRB, .754_JPRB, .775_JPRB /) |
160 | ASY_SU( :,2) = (/ & | ||
161 | & 0.640_JPRB, .640_JPRB, .640_JPRB, .640_JPRB, .695_JPRB, .704_JPRB, & | ||
162 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .713_JPRB, .723_JPRB, .734_JPRB, .744_JPRB, .754_JPRB, .775_JPRB /) |
163 | ASY_SU( :,3) = (/ & | ||
164 | & 0.640_JPRB, .640_JPRB, .640_JPRB, .640_JPRB, .695_JPRB, .704_JPRB, & | ||
165 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .713_JPRB, .723_JPRB, .734_JPRB, .744_JPRB, .754_JPRB, .775_JPRB /) |
166 | ASY_SU( :,4) = (/ & | ||
167 | & .632_JPRB, .632_JPRB, .632_JPRB, .632_JPRB, .687_JPRB, .696_JPRB, & | ||
168 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .705_JPRB, .716_JPRB, .728_JPRB, .738_JPRB, .749_JPRB, .771_JPRB /) |
169 | ASY_SU( :,5) = (/ & | ||
170 | & .632_JPRB, .632_JPRB, .632_JPRB, .632_JPRB, .687_JPRB, .696_JPRB, & | ||
171 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .705_JPRB, .716_JPRB, .728_JPRB, .738_JPRB, .749_JPRB, .771_JPRB /) |
172 | |||
173 | ASY_SU( :,6) = (/ & | ||
174 | & .620_JPRB, .620_JPRB, .620_JPRB, .620_JPRB, .674_JPRB, .683_JPRB, & | ||
175 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .693_JPRB, .704_JPRB, .717_JPRB, .728_JPRB, .740_JPRB, .764_JPRB /) |
176 | ASY_SU( :,7) = (/ & | ||
177 | & .613_JPRB, .613_JPRB, .613_JPRB, .613_JPRB, .667_JPRB, .677_JPRB, & | ||
178 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .687_JPRB, .698_JPRB, .711_JPRB, .722_JPRB, .735_JPRB, .760_JPRB /) |
179 | |||
180 | ASY_SU( :,8) = (/ & | ||
181 | & .609_JPRB, .609_JPRB, .609_JPRB, .609_JPRB, .664_JPRB, .673_JPRB, & | ||
182 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .683_JPRB, .694_JPRB, .708_JPRB, .719_JPRB, .733_JPRB, .758_JPRB /) |
183 | ASY_SU( :,9) = (/ & | ||
184 | & .609_JPRB, .609_JPRB, .609_JPRB, .609_JPRB, .664_JPRB, .673_JPRB, & | ||
185 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .683_JPRB, .694_JPRB, .708_JPRB, .719_JPRB, .733_JPRB, .758_JPRB /) |
186 | |||
187 | ASY_SU(:,10) = (/ & | ||
188 | & .584_JPRB, .584_JPRB, .584_JPRB, .584_JPRB, .637_JPRB, .647_JPRB, & | ||
189 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .658_JPRB, .670_JPRB, .686_JPRB, .698_JPRB, .713_JPRB, .742_JPRB /) |
190 | ASY_SU(:,11) = (/ & | ||
191 | & .558_JPRB, .558_JPRB, .558_JPRB, .558_JPRB, .609_JPRB, .620_JPRB, & | ||
192 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .631_JPRB, .644_JPRB, .661_JPRB, .674_JPRB, .691_JPRB, .723_JPRB /) |
193 | ASY_SU(:,12) = (/ & | ||
194 | & .558_JPRB, .558_JPRB, .558_JPRB, .558_JPRB, .609_JPRB, .620_JPRB, & | ||
195 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .631_JPRB, .644_JPRB, .661_JPRB, .674_JPRB, .691_JPRB, .723_JPRB /) |
196 | |||
197 | ASY_SU(:,13) = (/ & | ||
198 | & .546_JPRB, .546_JPRB, .546_JPRB, .546_JPRB, .596_JPRB, .606_JPRB, & | ||
199 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .618_JPRB, .632_JPRB, .649_JPRB, .663_JPRB, .680_JPRB, .714_JPRB /) |
200 | ASY_SU(:,14) = (/ & | ||
201 | & .546_JPRB, .546_JPRB, .546_JPRB, .546_JPRB, .596_JPRB, .606_JPRB, & | ||
202 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .618_JPRB, .632_JPRB, .649_JPRB, .663_JPRB, .680_JPRB, .714_JPRB /) |
203 | ASY_SU(:,15) = (/ & | ||
204 | & .546_JPRB, .546_JPRB, .546_JPRB, .546_JPRB, .596_JPRB, .606_JPRB, & | ||
205 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .618_JPRB, .632_JPRB, .649_JPRB, .663_JPRB, .680_JPRB, .714_JPRB /) |
206 | ASY_SU(:,16) = (/ & | ||
207 | & .546_JPRB, .546_JPRB, .546_JPRB, .546_JPRB, .596_JPRB, .606_JPRB, & | ||
208 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .618_JPRB, .632_JPRB, .649_JPRB, .663_JPRB, .680_JPRB, .714_JPRB /) |
209 | |||
210 | ! om_aer_sulfate | ||
211 | OMG_SU( :,1) = (/ & | ||
212 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
213 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
214 | OMG_SU( :,2) = (/ & | ||
215 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
216 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
217 | OMG_SU( :,3) = (/ & | ||
218 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
219 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
220 | OMG_SU( :,4) = (/ & | ||
221 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
222 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
223 | OMG_SU( :,5) = (/ & | ||
224 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
225 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
226 | OMG_SU( :,6) = (/ & | ||
227 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
228 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
229 | OMG_SU( :,7) = (/ & | ||
230 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
231 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
232 | |||
233 | OMG_SU( :,8) = (/ & | ||
234 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
235 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
236 | OMG_SU( :,9) = (/ & | ||
237 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
238 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
239 | OMG_SU(:,10) = (/ & | ||
240 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
241 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
242 | OMG_SU(:,11) = (/ & | ||
243 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
244 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
245 | OMG_SU(:,12) = (/ & | ||
246 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
247 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
248 | OMG_SU(:,13) = (/ & | ||
249 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
250 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
251 | OMG_SU(:,14) = (/ & | ||
252 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
253 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
254 | OMG_SU(:,15) = (/ & | ||
255 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
256 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
257 | OMG_SU(:,16) = (/ & | ||
258 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & | ||
259 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
260 | |||
261 | |||
262 | ! alpha_aer_om (organic matter) | ||
263 | ALF_OM( :,1) = (/ & | ||
264 | & 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 7.408_JPRB, 8.294_JPRB, & | ||
265 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 9.468_JPRB,11.168_JPRB,14.087_JPRB,16.688_JPRB,21.321_JPRB,24.076_JPRB /) |
266 | ALF_OM( :,2) = (/ & | ||
267 | & 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 7.408_JPRB, 8.294_JPRB, & | ||
268 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 9.468_JPRB,11.168_JPRB,14.087_JPRB,16.688_JPRB,21.321_JPRB,24.076_JPRB /) |
269 | ALF_OM( :,3) = (/ & | ||
270 | & 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 7.408_JPRB, 8.294_JPRB, & | ||
271 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 9.468_JPRB,11.168_JPRB,14.087_JPRB,16.688_JPRB,21.321_JPRB,24.076_JPRB /) |
272 | ALF_OM( :,4) = (/ & | ||
273 | & 4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 6.612_JPRB, 7.425_JPRB, & | ||
274 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 8.508_JPRB,10.084_JPRB,12.810_JPRB,15.257_JPRB,19.652_JPRB,22.764_JPRB /) |
275 | ALF_OM( :,5) = (/ & | ||
276 | & 4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 6.612_JPRB, 7.425_JPRB, & | ||
277 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 8.508_JPRB,10.084_JPRB,12.810_JPRB,15.257_JPRB,19.652_JPRB,22.764_JPRB /) |
278 | |||
279 | ALF_OM( :,6) = (/ & | ||
280 | & 3.664_JPRB, 3.664_JPRB, 3.664_JPRB, 3.664_JPRB, 5.585_JPRB, 6.298_JPRB, & | ||
281 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 7.253_JPRB, 8.652_JPRB,11.097_JPRB,13.314_JPRB,17.340_JPRB,20.901_JPRB /) |
282 | ALF_OM( :,7) = (/ & | ||
283 | & 3.331_JPRB, 3.331_JPRB, 3.331_JPRB, 3.331_JPRB, 5.111_JPRB, 5.775_JPRB, & | ||
284 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 6.667_JPRB, 7.979_JPRB,10.281_JPRB,12.380_JPRB,16.211_JPRB,19.964_JPRB /) |
285 | |||
286 | ALF_OM( :,8) = (/ & | ||
287 | & 3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 4.865_JPRB, 5.502_JPRB, & | ||
288 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 6.361_JPRB, 7.625_JPRB, 9.851_JPRB,11.885_JPRB,15.608_JPRB,19.454_JPRB /) |
289 | ALF_OM( :,9) = (/ & | ||
290 | & 3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 4.865_JPRB, 5.502_JPRB, & | ||
291 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 6.361_JPRB, 7.625_JPRB, 9.851_JPRB,11.885_JPRB,15.608_JPRB,19.454_JPRB /) |
292 | |||
293 | ALF_OM(:,10) = (/ & | ||
294 | & 2.248_JPRB, 2.248_JPRB, 2.248_JPRB, 2.248_JPRB, 3.537_JPRB, 4.027_JPRB, & | ||
295 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 4.692_JPRB, 5.682_JPRB, 7.451_JPRB, 9.094_JPRB,12.150_JPRB,16.386_JPRB /) |
296 | ALF_OM(:,11) = (/ & | ||
297 | & 1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 2.559_JPRB, 2.931_JPRB, & | ||
298 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 3.439_JPRB, 4.203_JPRB, 5.587_JPRB, 6.888_JPRB, 9.348_JPRB,13.658_JPRB /) |
299 | ALF_OM(:,12) = (/ & | ||
300 | & 1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 2.559_JPRB, 2.931_JPRB, & | ||
301 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 3.439_JPRB, 4.203_JPRB, 5.587_JPRB, 6.888_JPRB, 9.348_JPRB,13.658_JPRB /) |
302 | |||
303 | ALF_OM(:,13) = (/ & | ||
304 | & 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, & | ||
305 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /) |
306 | ALF_OM(:,14) = (/ & | ||
307 | & 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, & | ||
308 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /) |
309 | ALF_OM(:,15) = (/ & | ||
310 | & 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, & | ||
311 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /) |
312 | ALF_OM(:,16) = (/ & | ||
313 | & 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, & | ||
314 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /) |
315 | |||
316 | ASY_OM( :,1) = (/ & | ||
317 | & .644_JPRB, .644_JPRB, .644_JPRB, .644_JPRB, .676_JPRB, .684_JPRB, & | ||
318 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .692_JPRB, .700_JPRB, .711_JPRB, .718_JPRB, .726_JPRB, .543_JPRB /) |
319 | ASY_OM( :,2) = (/ & | ||
320 | & .644_JPRB, .644_JPRB, .644_JPRB, .644_JPRB, .676_JPRB, .684_JPRB, & | ||
321 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .692_JPRB, .700_JPRB, .711_JPRB, .718_JPRB, .726_JPRB, .543_JPRB /) |
322 | ASY_OM( :,3) = (/ & | ||
323 | & .644_JPRB, .644_JPRB, .644_JPRB, .644_JPRB, .676_JPRB, .684_JPRB, & | ||
324 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .692_JPRB, .700_JPRB, .711_JPRB, .718_JPRB, .726_JPRB, .543_JPRB /) |
325 | ASY_OM( :,4) = (/ & | ||
326 | & .635_JPRB, .635_JPRB, .635_JPRB, .635_JPRB, .669_JPRB, .676_JPRB, & | ||
327 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .685_JPRB, .694_JPRB, .705_JPRB, .713_JPRB, .721_JPRB, .538_JPRB /) |
328 | ASY_OM( :,5) = (/ & | ||
329 | & .635_JPRB, .635_JPRB, .635_JPRB, .635_JPRB, .669_JPRB, .676_JPRB, & | ||
330 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .685_JPRB, .694_JPRB, .705_JPRB, .713_JPRB, .721_JPRB, .538_JPRB /) |
331 | |||
332 | ASY_OM( :,6) = (/ & | ||
333 | & .623_JPRB, .623_JPRB, .623_JPRB, .623_JPRB, .657_JPRB, .665_JPRB, & | ||
334 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .674_JPRB, .684_JPRB, .696_JPRB, .704_JPRB, .714_JPRB, .529_JPRB /) |
335 | ASY_OM( :,7) = (/ & | ||
336 | & .616_JPRB, .616_JPRB, .616_JPRB, .616_JPRB, .651_JPRB, .659_JPRB, & | ||
337 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .668_JPRB, .678_JPRB, .691_JPRB, .699_JPRB, .710_JPRB, .524_JPRB /) |
338 | |||
339 | ASY_OM( :,8) = (/ & | ||
340 | & .612_JPRB, .612_JPRB, .612_JPRB, .612_JPRB, .647_JPRB, .655_JPRB, & | ||
341 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .664_JPRB, .675_JPRB, .688_JPRB, .696_JPRB, .707_JPRB, .521_JPRB /) |
342 | ASY_OM( :,9) = (/ & | ||
343 | & .612_JPRB, .612_JPRB, .612_JPRB, .612_JPRB, .647_JPRB, .655_JPRB, & | ||
344 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .664_JPRB, .675_JPRB, .688_JPRB, .696_JPRB, .707_JPRB, .521_JPRB /) |
345 | |||
346 | ASY_OM(:,10) = (/ & | ||
347 | & .586_JPRB, .586_JPRB, .586_JPRB, .586_JPRB, .623_JPRB, .632_JPRB, & | ||
348 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .641_JPRB, .653_JPRB, .667_JPRB, .677_JPRB, .690_JPRB, .502_JPRB /) |
349 | ASY_OM(:,11) = (/ & | ||
350 | & .559_JPRB, .559_JPRB, .559_JPRB, .559_JPRB, .597_JPRB, .606_JPRB, & | ||
351 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .617_JPRB, .629_JPRB, .645_JPRB, .656_JPRB, .670_JPRB, .482_JPRB /) |
352 | ASY_OM(:,12) = (/ & | ||
353 | & .559_JPRB, .559_JPRB, .559_JPRB, .559_JPRB, .597_JPRB, .606_JPRB, & | ||
354 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .617_JPRB, .629_JPRB, .645_JPRB, .656_JPRB, .670_JPRB, .482_JPRB /) |
355 | |||
356 | ASY_OM(:,13) = (/ & | ||
357 | & .546_JPRB, .546_JPRB, .546_JPRB, .546_JPRB, .584_JPRB, .594_JPRB, & | ||
358 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .605_JPRB, .617_JPRB, .634_JPRB, .645_JPRB, .660_JPRB, .472_JPRB /) |
359 | ASY_OM(:,14) = (/ & | ||
360 | & .546_JPRB, .546_JPRB, .546_JPRB, .546_JPRB, .584_JPRB, .594_JPRB, & | ||
361 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .605_JPRB, .617_JPRB, .634_JPRB, .645_JPRB, .660_JPRB, .472_JPRB /) |
362 | ASY_OM(:,15) = (/ & | ||
363 | & .546_JPRB, .546_JPRB, .546_JPRB, .546_JPRB, .584_JPRB, .594_JPRB, & | ||
364 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .605_JPRB, .617_JPRB, .634_JPRB, .645_JPRB, .660_JPRB, .472_JPRB /) |
365 | ASY_OM(:,16) = (/ & | ||
366 | & .546_JPRB, .546_JPRB, .546_JPRB, .546_JPRB, .584_JPRB, .594_JPRB, & | ||
367 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .605_JPRB, .617_JPRB, .634_JPRB, .645_JPRB, .660_JPRB, .472_JPRB /) |
368 | |||
369 | OMG_OM( :,1) = (/ & | ||
370 | & .971_JPRB, .971_JPRB, .971_JPRB, .971_JPRB, .980_JPRB, .982_JPRB, & | ||
371 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .984_JPRB, .987_JPRB, .989_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
372 | OMG_OM( :,2) = (/ & | ||
373 | & .971_JPRB, .971_JPRB, .971_JPRB, .971_JPRB, .980_JPRB, .982_JPRB, & | ||
374 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .984_JPRB, .987_JPRB, .989_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
375 | OMG_OM( :,3) = (/ & | ||
376 | & .971_JPRB, .971_JPRB, .971_JPRB, .971_JPRB, .980_JPRB, .982_JPRB, & | ||
377 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .984_JPRB, .987_JPRB, .989_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
378 | OMG_OM( :,4) = (/ & | ||
379 | & .971_JPRB, .971_JPRB, .971_JPRB, .971_JPRB, .980_JPRB, .982_JPRB, & | ||
380 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .985_JPRB, .987_JPRB, .990_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
381 | OMG_OM( :,5) = (/ & | ||
382 | & .971_JPRB, .971_JPRB, .971_JPRB, .971_JPRB, .980_JPRB, .982_JPRB, & | ||
383 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .985_JPRB, .987_JPRB, .990_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
384 | |||
385 | OMG_OM( :,6) = (/ & | ||
386 | & .970_JPRB, .970_JPRB, .970_JPRB, .970_JPRB, .980_JPRB, .982_JPRB, & | ||
387 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .984_JPRB, .987_JPRB, .990_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
388 | OMG_OM( :,7) = (/ & | ||
389 | & .970_JPRB, .970_JPRB, .970_JPRB, .970_JPRB, .980_JPRB, .982_JPRB, & | ||
390 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .984_JPRB, .987_JPRB, .990_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
391 | |||
392 | OMG_OM( :,8) = (/ & | ||
393 | & .969_JPRB, .969_JPRB, .969_JPRB, .969_JPRB, .980_JPRB, .982_JPRB, & | ||
394 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .984_JPRB, .987_JPRB, .990_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
395 | OMG_OM( :,9) = (/ & | ||
396 | & .969_JPRB, .969_JPRB, .969_JPRB, .969_JPRB, .980_JPRB, .982_JPRB, & | ||
397 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .984_JPRB, .987_JPRB, .990_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
398 | |||
399 | OMG_OM(:,10) = (/ & | ||
400 | & .967_JPRB, .967_JPRB, .967_JPRB, .967_JPRB, .979_JPRB, .981_JPRB, & | ||
401 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .984_JPRB, .986_JPRB, .989_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
402 | OMG_OM(:,11) = (/ & | ||
403 | & .964_JPRB, .964_JPRB, .964_JPRB, .964_JPRB, .977_JPRB, .979_JPRB, & | ||
404 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .982_JPRB, .985_JPRB, .989_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
405 | OMG_OM(:,12) = (/ & | ||
406 | & .964_JPRB, .964_JPRB, .964_JPRB, .964_JPRB, .977_JPRB, .979_JPRB, & | ||
407 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .982_JPRB, .985_JPRB, .989_JPRB, .991_JPRB, .993_JPRB, 1.000_JPRB /) |
408 | |||
409 | OMG_OM(:,13) = (/ & | ||
410 | & .962_JPRB, .962_JPRB, .962_JPRB, .962_JPRB, .976_JPRB, .979_JPRB, & | ||
411 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .982_JPRB, .985_JPRB, .988_JPRB, .990_JPRB, .993_JPRB, .999_JPRB /) |
412 | OMG_OM(:,14) = (/ & | ||
413 | & .962_JPRB, .962_JPRB, .962_JPRB, .962_JPRB, .976_JPRB, .979_JPRB, & | ||
414 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .982_JPRB, .985_JPRB, .988_JPRB, .990_JPRB, .993_JPRB, .999_JPRB /) |
415 | OMG_OM(:,15) = (/ & | ||
416 | & .962_JPRB, .962_JPRB, .962_JPRB, .962_JPRB, .976_JPRB, .979_JPRB, & | ||
417 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .982_JPRB, .985_JPRB, .988_JPRB, .990_JPRB, .993_JPRB, .999_JPRB /) |
418 | OMG_OM(:,16) = (/ & | ||
419 | & .962_JPRB, .962_JPRB, .962_JPRB, .962_JPRB, .976_JPRB, .979_JPRB, & | ||
420 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .982_JPRB, .985_JPRB, .988_JPRB, .990_JPRB, .993_JPRB, .999_JPRB /) |
421 | |||
422 | |||
423 | !alpha_aer_dd (desert dust) | ||
424 | ! bin1, bin2, bin3 | ||
425 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD( :,1) = (/ 2.210_JPRB, 1.011_JPRB, .398_JPRB /) |
426 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD( :,2) = (/ 2.210_JPRB, 1.011_JPRB, .398_JPRB /) |
427 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD( :,3) = (/ 2.210_JPRB, 1.011_JPRB, .398_JPRB /) |
428 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD( :,4) = (/ 2.357_JPRB, .985_JPRB, .398_JPRB /) |
429 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD( :,5) = (/ 2.453_JPRB, 0.949_JPRB, 0.404_JPRB /) |
430 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD( :,6) = (/ 2.549_JPRB, .901_JPRB, .414_JPRB /) |
431 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD( :,7) = (/ 2.605_JPRB, .877_JPRB, .423_JPRB /) |
432 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD( :,8) = (/ 2.635_JPRB, 0.869_JPRB, 0.428_JPRB /) |
433 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD( :,9) = (/ 2.596_JPRB, 0.978_JPRB, 0.428_JPRB /) |
434 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD(:,10) = (/ 2.555_JPRB, 1.039_JPRB, .424_JPRB /) |
435 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD(:,11) = (/ 2.227_JPRB, 1.360_JPRB, .404_JPRB /) |
436 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD(:,12) = (/ 2.058_JPRB, 1.460_JPRB, 0.405_JPRB /) |
437 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD(:,13) = (/ 2.041_JPRB, 1.474_JPRB, .405_JPRB /) |
438 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD(:,14) = (/ 1.117_JPRB, 1.523_JPRB, 0.502_JPRB /) |
439 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD(:,15) = (/ 0.583_JPRB, 1.117_JPRB, 0.596_JPRB /) |
440 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ALF_DD(:,16) = (/ 0.263_JPRB, 0.705_JPRB, 0.607_JPRB /) |
441 | |||
442 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD( :,1) = (/ .673_JPRB, .745_JPRB, .799_JPRB /) |
443 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD( :,2) = (/ .673_JPRB, .745_JPRB, .799_JPRB /) |
444 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD( :,3) = (/ .673_JPRB, .745_JPRB, .799_JPRB /) |
445 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD( :,4) = (/ .691_JPRB, .712_JPRB, .792_JPRB /) |
446 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD( :,5) = (/ 0.704_JPRB, 0.679_JPRB, 0.791_JPRB /) |
447 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD( :,6) = (/ .715_JPRB, .640_JPRB, .786_JPRB /) |
448 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD( :,7) = (/ .726_JPRB, .605_JPRB, .782_JPRB /) |
449 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD( :,8) = (/ 0.731_JPRB, 0.591_JPRB, 0.782_JPRB /) |
450 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD( :,9) = (/ 0.741_JPRB, 0.606_JPRB, 0.756_JPRB /) |
451 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD(:,10) = (/ .740_JPRB, .617_JPRB, .738_JPRB /) |
452 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD(:,11) = (/ .732_JPRB, .698_JPRB, .687_JPRB /) |
453 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD(:,12) = (/ 0.725_JPRB, 0.722_JPRB, 0.679_JPRB /) |
454 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD(:,13) = (/ .723_JPRB, .722_JPRB, .669_JPRB /) |
455 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD(:,14) = (/ 0.645_JPRB, 0.755_JPRB, 0.682_JPRB /) |
456 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD(:,15) = (/ 0.556_JPRB, 0.716_JPRB, 0.718_JPRB /) |
457 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | ASY_DD(:,16) = (/ 0.392_JPRB, 0.652_JPRB, 0.730_JPRB /) |
458 | |||
459 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD( :,1) = (/ .974_JPRB, .944_JPRB, .894_JPRB /) |
460 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD( :,2) = (/ .974_JPRB, .944_JPRB, .894_JPRB /) |
461 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD( :,3) = (/ .974_JPRB, .944_JPRB, .894_JPRB /) |
462 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD( :,4) = (/ .978_JPRB, .947_JPRB, .900_JPRB /) |
463 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD( :,5) = (/ 0.980_JPRB, 0.947_JPRB, 0.905_JPRB /) |
464 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD( :,6) = (/ .985_JPRB, .957_JPRB, .926_JPRB /) |
465 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD( :,7) = (/ .988_JPRB, .963_JPRB, .938_JPRB /) |
466 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD( :,8) = (/ 0.987_JPRB, 0.960_JPRB, 0.933_JPRB /) |
467 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD( :,9) = (/ 0.990_JPRB, 0.973_JPRB, 0.946_JPRB /) |
468 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD(:,10) = (/ .996_JPRB, .990_JPRB, .978_JPRB /) |
469 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD(:,11) = (/ .997_JPRB, .994_JPRB, .982_JPRB /) |
470 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD(:,12) = (/ 0.992_JPRB, 0.988_JPRB, 0.958_JPRB /) |
471 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD(:,13) = (/ .997_JPRB, .996_JPRB, .984_JPRB /) |
472 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD(:,14) = (/ 0.996_JPRB, 0.997_JPRB, 0.989_JPRB /) |
473 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD(:,15) = (/ 0.995_JPRB, 0.997_JPRB, 0.994_JPRB /) |
474 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 3 times.
|
4 | OMG_DD(:,16) = (/ 0.994_JPRB, 0.997_JPRB, 0.996_JPRB /) |
475 | |||
476 | |||
477 | !-- For sea-salt, XX( RH, wavelength, binNo) | ||
478 | |||
479 | ! BIN No. 1 | ||
480 | ! optical thickness | ||
481 | ALF_SS( :, 1, 1) = (/ & | ||
482 | & 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 3.482_JPRB, 3.940_JPRB, & | ||
483 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 4.572_JPRB, 5.358_JPRB, 6.455_JPRB, 7.261_JPRB, 8.565_JPRB,11.796_JPRB /) |
484 | ALF_SS( :, 2, 1) = (/ & | ||
485 | & 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 3.482_JPRB, 3.940_JPRB, & | ||
486 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 4.572_JPRB, 5.358_JPRB, 6.455_JPRB, 7.261_JPRB, 8.565_JPRB,11.796_JPRB /) |
487 | ALF_SS( :, 3, 1) = (/ & | ||
488 | & 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 3.482_JPRB, 3.940_JPRB, & | ||
489 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 4.572_JPRB, 5.358_JPRB, 6.455_JPRB, 7.261_JPRB, 8.565_JPRB,11.796_JPRB /) |
490 | ALF_SS( :, 4, 1) = (/ & | ||
491 | & 1.143_JPRB, 1.143_JPRB, 1.143_JPRB, 1.143_JPRB, 3.393_JPRB, 3.761_JPRB, & | ||
492 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 4.436_JPRB, 5.291_JPRB, 6.530_JPRB, 7.452_JPRB, 8.917_JPRB,12.189_JPRB /) |
493 | ALF_SS( :, 5, 1) = (/ & | ||
494 | & 1.031_JPRB, 1.031_JPRB, 1.031_JPRB, 1.031_JPRB, 3.266_JPRB, 3.589_JPRB, & | ||
495 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 4.286_JPRB, 5.165_JPRB, 6.472_JPRB, 7.496_JPRB, 9.102_JPRB,12.541_JPRB /) |
496 | |||
497 | ALF_SS( :, 6, 1) = (/ & | ||
498 | & .927_JPRB, .927_JPRB, .927_JPRB, .927_JPRB, 3.124_JPRB, 3.387_JPRB, & | ||
499 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 4.083_JPRB, 4.985_JPRB, 6.361_JPRB, 7.426_JPRB, 9.175_JPRB,12.904_JPRB /) |
500 | ALF_SS( :, 7, 1) = (/ & | ||
501 | & .830_JPRB, .830_JPRB, .830_JPRB, .830_JPRB, 2.943_JPRB, 3.174_JPRB, & | ||
502 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 3.855_JPRB, 4.761_JPRB, 6.156_JPRB, 7.300_JPRB, 9.170_JPRB,13.236_JPRB /) |
503 | |||
504 | ALF_SS( :, 8, 1) = (/ & | ||
505 | & 0.763_JPRB, 0.763_JPRB, 0.763_JPRB, 0.763_JPRB, 2.806_JPRB, 3.012_JPRB, & | ||
506 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 3.691_JPRB, 4.578_JPRB, 5.999_JPRB, 7.146_JPRB, 9.085_JPRB,13.416_JPRB /) |
507 | ALF_SS( :, 9, 1) = (/ & | ||
508 | & 0.545_JPRB, 0.545_JPRB, 0.545_JPRB, 0.545_JPRB, 2.301_JPRB, 2.434_JPRB, & | ||
509 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 3.035_JPRB, 3.857_JPRB, 5.227_JPRB, 6.386_JPRB, 8.466_JPRB,13.570_JPRB /) |
510 | |||
511 | ALF_SS( :,10, 1) = (/ & | ||
512 | & .500_JPRB, .500_JPRB, .500_JPRB, .500_JPRB, 2.162_JPRB, 2.283_JPRB, & | ||
513 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 2.869_JPRB, 3.662_JPRB, 5.004_JPRB, 6.147_JPRB, 8.239_JPRB,13.447_JPRB /) |
514 | ALF_SS( :,11, 1) = (/ & | ||
515 | & .314_JPRB, .314_JPRB, .314_JPRB, .314_JPRB, 1.575_JPRB, 1.648_JPRB, & | ||
516 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 2.106_JPRB, 2.754_JPRB, 3.898_JPRB, 4.910_JPRB, 6.855_JPRB,12.275_JPRB /) |
517 | ALF_SS( :,12, 1) = (/ & | ||
518 | & 0.252_JPRB, 0.252_JPRB, 0.252_JPRB, 0.252_JPRB, 1.350_JPRB, 1.417_JPRB, & | ||
519 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.836_JPRB, 2.425_JPRB, 3.458_JPRB, 4.416_JPRB, 6.229_JPRB,11.532_JPRB /) |
520 | |||
521 | ALF_SS( :,13, 1) = (/ & | ||
522 | & .246_JPRB, .246_JPRB, .246_JPRB, .246_JPRB, 1.325_JPRB, 1.391_JPRB, & | ||
523 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.805_JPRB, 2.388_JPRB, 3.408_JPRB, 4.357_JPRB, 6.157_JPRB,11.438_JPRB /) |
524 | ALF_SS( :,14, 1) = (/ & | ||
525 | & 0.078_JPRB, 0.078_JPRB, 0.078_JPRB, 0.078_JPRB, 0.516_JPRB, 0.557_JPRB, & | ||
526 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.759_JPRB, 1.059_JPRB, 1.601_JPRB, 2.125_JPRB, 3.232_JPRB, 6.884_JPRB /) |
527 | ALF_SS( :,15, 1) = (/ & | ||
528 | & 0.028_JPRB, 0.028_JPRB, 0.028_JPRB, 0.028_JPRB, 0.213_JPRB, 0.237_JPRB, & | ||
529 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.327_JPRB, 0.466_JPRB, 0.746_JPRB, 1.037_JPRB, 1.666_JPRB, 3.881_JPRB /) |
530 | ALF_SS( :,16, 1) = (/ & | ||
531 | & 0.010_JPRB, 0.010_JPRB, 0.010_JPRB, 0.010_JPRB, 0.086_JPRB, 0.099_JPRB, & | ||
532 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.141_JPRB, 0.207_JPRB, 0.338_JPRB, 0.472_JPRB, 0.773_JPRB, 2.013_JPRB /) |
533 | |||
534 | |||
535 | |||
536 | |||
537 | |||
538 | |||
539 | ! assymetry factor | ||
540 | ASY_SS( :, 1, 1) = (/ & | ||
541 | & .698_JPRB, .698_JPRB, .698_JPRB, .698_JPRB, .707_JPRB, .754_JPRB, & | ||
542 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .756_JPRB, .755_JPRB, .750_JPRB, .744_JPRB, .732_JPRB, .717_JPRB /) |
543 | ASY_SS( :, 2, 1) = (/ & | ||
544 | & .698_JPRB, .698_JPRB, .698_JPRB, .698_JPRB, .707_JPRB, .754_JPRB, & | ||
545 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .756_JPRB, .755_JPRB, .750_JPRB, .744_JPRB, .732_JPRB, .717_JPRB /) |
546 | ASY_SS( :, 3, 1) = (/ & | ||
547 | & .698_JPRB, .698_JPRB, .698_JPRB, .698_JPRB, .707_JPRB, .754_JPRB, & | ||
548 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .756_JPRB, .755_JPRB, .750_JPRB, .744_JPRB, .732_JPRB, .717_JPRB /) |
549 | ASY_SS( :, 4, 1) = (/ & | ||
550 | & .682_JPRB, .682_JPRB, .682_JPRB, .682_JPRB, .711_JPRB, .755_JPRB, & | ||
551 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .759_JPRB, .762_JPRB, .760_JPRB, .757_JPRB, .747_JPRB, .724_JPRB /) |
552 | ASY_SS( :, 5, 1) = (/ & | ||
553 | & 0.670_JPRB, 0.670_JPRB, 0.670_JPRB, 0.670_JPRB, 0.711_JPRB, 0.753_JPRB, & | ||
554 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.759_JPRB, 0.763_JPRB, 0.765_JPRB, 0.763_JPRB, 0.756_JPRB, 0.733_JPRB /) |
555 | |||
556 | ASY_SS( :, 6, 1) = (/ & | ||
557 | & .659_JPRB, .659_JPRB, .659_JPRB, .659_JPRB, .709_JPRB, .749_JPRB, & | ||
558 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .756_JPRB, .763_JPRB, .767_JPRB, .767_JPRB, .764_JPRB, .743_JPRB /) |
559 | ASY_SS( :, 7, 1) = (/ & | ||
560 | & .645_JPRB, .645_JPRB, .645_JPRB, .645_JPRB, .705_JPRB, .743_JPRB, & | ||
561 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .752_JPRB, .761_JPRB, .767_JPRB, .770_JPRB, .768_JPRB, .751_JPRB /) |
562 | |||
563 | ASY_SS( :, 8, 1) = (/ & | ||
564 | & 0.633_JPRB, 0.633_JPRB, 0.633_JPRB, 0.633_JPRB, 0.701_JPRB, 0.738_JPRB, & | ||
565 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.749_JPRB, 0.758_JPRB, 0.767_JPRB, 0.769_JPRB, 0.771_JPRB, 0.758_JPRB /) |
566 | ASY_SS( :, 9, 1) = (/ & | ||
567 | & 0.581_JPRB, 0.581_JPRB, 0.581_JPRB, 0.581_JPRB, 0.679_JPRB, 0.715_JPRB, & | ||
568 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.729_JPRB, 0.743_JPRB, 0.757_JPRB, 0.764_JPRB, 0.772_JPRB, 0.772_JPRB /) |
569 | |||
570 | ASY_SS( :,10, 1) = (/ & | ||
571 | & .569_JPRB, .569_JPRB, .569_JPRB, .569_JPRB, .672_JPRB, .707_JPRB, & | ||
572 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .723_JPRB, .738_JPRB, .753_JPRB, .761_JPRB, .771_JPRB, .774_JPRB /) |
573 | ASY_SS( :,11, 1) = (/ & | ||
574 | & .513_JPRB, .513_JPRB, .513_JPRB, .513_JPRB, .633_JPRB, .667_JPRB, & | ||
575 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .685_JPRB, .704_JPRB, .726_JPRB, .740_JPRB, .756_JPRB, .774_JPRB /) |
576 | ASY_SS( :,12, 1) = (/ & | ||
577 | & 0.475_JPRB, 0.475_JPRB, 0.475_JPRB, 0.475_JPRB, 0.609_JPRB, 0.644_JPRB, & | ||
578 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.667_JPRB, 0.688_JPRB, 0.712_JPRB, 0.727_JPRB, 0.746_JPRB, 0.770_JPRB /) |
579 | |||
580 | ASY_SS( :,13, 1) = (/ & | ||
581 | & .470_JPRB, .470_JPRB, .470_JPRB, .470_JPRB, .606_JPRB, .641_JPRB, & | ||
582 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .665_JPRB, .686_JPRB, .710_JPRB, .726_JPRB, .745_JPRB, .769_JPRB /) |
583 | ASY_SS( :,14, 1) = (/ & | ||
584 | & 0.230_JPRB, 0.230_JPRB, 0.230_JPRB, 0.230_JPRB, 0.473_JPRB, 0.506_JPRB, & | ||
585 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.539_JPRB, 0.568_JPRB, 0.601_JPRB, 0.627_JPRB, 0.664_JPRB, 0.716_JPRB /) |
586 | ASY_SS( :,15, 1) = (/ & | ||
587 | & 0.128_JPRB, 0.128_JPRB, 0.128_JPRB, 0.128_JPRB, 0.276_JPRB, 0.311_JPRB, & | ||
588 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.357_JPRB, 0.413_JPRB, 0.482_JPRB, 0.522_JPRB, 0.566_JPRB, 0.635_JPRB /) |
589 | ASY_SS( :,16, 1) = (/ & | ||
590 | & 0.076_JPRB, 0.076_JPRB, 0.076_JPRB, 0.076_JPRB, 0.158_JPRB, 0.179_JPRB, & | ||
591 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.206_JPRB, 0.242_JPRB, 0.297_JPRB, 0.343_JPRB, 0.417_JPRB, 0.540_JPRB /) |
592 | |||
593 | ! single scattering albedo | ||
594 | OMG_SS( :, 1, 1) = (/ & | ||
595 | & .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, 1.000_JPRB, & | ||
596 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
597 | OMG_SS( :, 2, 1) = (/ & | ||
598 | & .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, 1.000_JPRB, & | ||
599 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
600 | OMG_SS( :, 3, 1) = (/ & | ||
601 | & .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, 1.000_JPRB, & | ||
602 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
603 | OMG_SS( :, 4, 1) = (/ & | ||
604 | & .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, 1.000_JPRB, & | ||
605 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
606 | OMG_SS( :, 5, 1) = (/ & | ||
607 | & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, & | ||
608 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
609 | |||
610 | OMG_SS( :, 6, 1) = (/ & | ||
611 | & .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, 1.000_JPRB, & | ||
612 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
613 | OMG_SS( :, 7, 1) = (/ & | ||
614 | & .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, 1.000_JPRB, & | ||
615 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
616 | |||
617 | OMG_SS( :, 8, 1) = (/ & | ||
618 | & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, & | ||
619 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
620 | OMG_SS( :, 9, 1) = (/ & | ||
621 | & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, & | ||
622 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
623 | |||
624 | OMG_SS( :,10, 1) = (/ & | ||
625 | & .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, .999_JPRB, 1.000_JPRB, & | ||
626 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
627 | OMG_SS( :,11, 1) = (/ & | ||
628 | & .998_JPRB, .998_JPRB, .998_JPRB, .998_JPRB, .999_JPRB, 1.000_JPRB, & | ||
629 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
630 | OMG_SS( :,12, 1) = (/ & | ||
631 | & 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB, 1.000_JPRB, & | ||
632 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
633 | |||
634 | OMG_SS( :,13, 1) = (/ & | ||
635 | & .998_JPRB, .998_JPRB, .998_JPRB, .998_JPRB, .999_JPRB, 1.000_JPRB, & | ||
636 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
637 | OMG_SS( :,14, 1) = (/ & | ||
638 | & 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.999_JPRB, & | ||
639 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.999_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
640 | OMG_SS( :,15, 1) = (/ & | ||
641 | & 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.997_JPRB, 0.999_JPRB, & | ||
642 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
643 | OMG_SS( :,16, 1) = (/ & | ||
644 | & 0.988_JPRB, 0.988_JPRB, 0.988_JPRB, 0.988_JPRB, 0.995_JPRB, 0.998_JPRB, & | ||
645 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) |
646 | |||
647 | ! BIN No. 2 | ||
648 | ALF_SS( :, 1, 2) = (/ & | ||
649 | & .137_JPRB, .137_JPRB, .137_JPRB, .137_JPRB, .264_JPRB, .309_JPRB, & | ||
650 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .351_JPRB, .406_JPRB, .494_JPRB, .567_JPRB, .697_JPRB, 1.031_JPRB /) |
651 | ALF_SS( :, 2, 2) = (/ & | ||
652 | & .137_JPRB, .137_JPRB, .137_JPRB, .137_JPRB, .264_JPRB, .309_JPRB, & | ||
653 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .351_JPRB, .406_JPRB, .494_JPRB, .567_JPRB, .697_JPRB, 1.031_JPRB /) |
654 | ALF_SS( :, 3, 2) = (/ & | ||
655 | & .137_JPRB, .137_JPRB, .137_JPRB, .137_JPRB, .264_JPRB, .309_JPRB, & | ||
656 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .351_JPRB, .406_JPRB, .494_JPRB, .567_JPRB, .697_JPRB, 1.031_JPRB /) |
657 | ALF_SS( :, 4, 2) = (/ & | ||
658 | & .140_JPRB, .140_JPRB, .140_JPRB, .140_JPRB, .268_JPRB, .313_JPRB, & | ||
659 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .356_JPRB, .411_JPRB, .496_JPRB, .568_JPRB, .697_JPRB, 1.035_JPRB /) |
660 | ALF_SS( :, 5, 2) = (/ & | ||
661 | & 0.141_JPRB, 0.141_JPRB, 0.141_JPRB, 0.141_JPRB, 0.272_JPRB, 0.317_JPRB, & | ||
662 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.360_JPRB, 0.415_JPRB, 0.500_JPRB, 0.571_JPRB, 0.697_JPRB, 1.033_JPRB /) |
663 | |||
664 | ALF_SS( :, 6, 2) = (/ & | ||
665 | & .143_JPRB, .143_JPRB, .143_JPRB, .143_JPRB, .274_JPRB, .322_JPRB, & | ||
666 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .365_JPRB, .420_JPRB, .505_JPRB, .574_JPRB, .699_JPRB, 1.033_JPRB /) |
667 | ALF_SS( :, 7, 2) = (/ & | ||
668 | & .144_JPRB, .144_JPRB, .144_JPRB, .144_JPRB, .279_JPRB, .326_JPRB, & | ||
669 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .370_JPRB, .425_JPRB, .510_JPRB, .578_JPRB, .701_JPRB, 1.032_JPRB /) |
670 | |||
671 | ALF_SS( :, 8, 2) = (/ & | ||
672 | & 0.144_JPRB, 0.144_JPRB, 0.144_JPRB, 0.144_JPRB, 0.281_JPRB, 0.329_JPRB, & | ||
673 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.373_JPRB, 0.429_JPRB, 0.514_JPRB, 0.584_JPRB, 0.707_JPRB, 1.032_JPRB /) |
674 | ALF_SS( :, 9, 2) = (/ & | ||
675 | & 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.290_JPRB, 0.337_JPRB, & | ||
676 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.384_JPRB, 0.443_JPRB, 0.530_JPRB, 0.602_JPRB, 0.724_JPRB, 1.041_JPRB /) |
677 | |||
678 | ALF_SS( :,10, 2) = (/ & | ||
679 | & .147_JPRB, .147_JPRB, .147_JPRB, .147_JPRB, .292_JPRB, .340_JPRB, & | ||
680 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .385_JPRB, .446_JPRB, .533_JPRB, .606_JPRB, .728_JPRB, 1.047_JPRB /) |
681 | ALF_SS( :,11, 2) = (/ & | ||
682 | & .146_JPRB, .146_JPRB, .146_JPRB, .146_JPRB, .299_JPRB, .345_JPRB, & | ||
683 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .395_JPRB, .459_JPRB, .551_JPRB, .628_JPRB, .758_JPRB, 1.078_JPRB /) |
684 | ALF_SS( :,12, 2) = (/ & | ||
685 | & 0.147_JPRB, 0.147_JPRB, 0.147_JPRB, 0.147_JPRB, 0.300_JPRB, 0.348_JPRB, & | ||
686 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.397_JPRB, 0.459_JPRB, 0.559_JPRB, 0.634_JPRB, 0.768_JPRB, 1.095_JPRB /) |
687 | |||
688 | ALF_SS( :,13, 2) = (/ & | ||
689 | & .147_JPRB, .147_JPRB, .147_JPRB, .147_JPRB, .301_JPRB, .348_JPRB, & | ||
690 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .398_JPRB, .459_JPRB, .559_JPRB, .635_JPRB, .769_JPRB, 1.098_JPRB /) |
691 | ALF_SS( :,14, 2) = (/ & | ||
692 | & 0.148_JPRB, 0.148_JPRB, 0.148_JPRB, 0.148_JPRB, 0.305_JPRB, 0.349_JPRB, & | ||
693 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.403_JPRB, 0.466_JPRB, 0.566_JPRB, 0.651_JPRB, 0.802_JPRB, 1.167_JPRB /) |
694 | ALF_SS( :,15, 2) = (/ & | ||
695 | & 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.302_JPRB, 0.351_JPRB, & | ||
696 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.399_JPRB, 0.461_JPRB, 0.563_JPRB, 0.651_JPRB, 0.805_JPRB, 1.183_JPRB /) |
697 | ALF_SS( :,16, 2) = (/ & | ||
698 | & 0.155_JPRB, 0.155_JPRB, 0.155_JPRB, 0.155_JPRB, 0.305_JPRB, 0.348_JPRB, & | ||
699 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.402_JPRB, 0.472_JPRB, 0.576_JPRB, 0.657_JPRB, 0.793_JPRB, 1.187_JPRB /) |
700 | |||
701 | ! assymetry factor | ||
702 | ASY_SS( :, 1, 2) = (/ & | ||
703 | & .741_JPRB, .741_JPRB, .741_JPRB, .741_JPRB, .755_JPRB, .778_JPRB, & | ||
704 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .782_JPRB, .789_JPRB, .796_JPRB, .801_JPRB, .809_JPRB, .819_JPRB /) |
705 | ASY_SS( :, 2, 2) = (/ & | ||
706 | & .741_JPRB, .741_JPRB, .741_JPRB, .741_JPRB, .755_JPRB, .778_JPRB, & | ||
707 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .782_JPRB, .789_JPRB, .796_JPRB, .801_JPRB, .809_JPRB, .819_JPRB /) |
708 | ASY_SS( :, 3, 2) = (/ & | ||
709 | & .741_JPRB, .741_JPRB, .741_JPRB, .741_JPRB, .755_JPRB, .778_JPRB, & | ||
710 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .782_JPRB, .789_JPRB, .796_JPRB, .801_JPRB, .809_JPRB, .819_JPRB /) |
711 | ASY_SS( :, 4, 2) = (/ & | ||
712 | & .739_JPRB, .739_JPRB, .739_JPRB, .739_JPRB, .750_JPRB, .776_JPRB, & | ||
713 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .779_JPRB, .784_JPRB, .792_JPRB, .795_JPRB, .802_JPRB, .816_JPRB /) |
714 | ASY_SS( :, 5, 2) = (/ & | ||
715 | & 0.737_JPRB, 0.737_JPRB, 0.737_JPRB, 0.737_JPRB, 0.747_JPRB, 0.773_JPRB, & | ||
716 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.778_JPRB, 0.782_JPRB, 0.788_JPRB, 0.791_JPRB, 0.798_JPRB, 0.812_JPRB /) |
717 | |||
718 | ASY_SS( :, 6, 2) = (/ & | ||
719 | & .734_JPRB, .734_JPRB, .734_JPRB, .734_JPRB, .745_JPRB, .772_JPRB, & | ||
720 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .775_JPRB, .780_JPRB, .785_JPRB, .789_JPRB, .795_JPRB, .807_JPRB /) |
721 | ASY_SS( :, 7, 2) = (/ & | ||
722 | & .732_JPRB, .732_JPRB, .732_JPRB, .732_JPRB, .744_JPRB, .770_JPRB, & | ||
723 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .775_JPRB, .778_JPRB, .784_JPRB, .787_JPRB, .793_JPRB, .804_JPRB /) |
724 | |||
725 | ASY_SS( :, 8, 2) = (/ & | ||
726 | & 0.730_JPRB, 0.730_JPRB, 0.730_JPRB, 0.730_JPRB, 0.742_JPRB, 0.770_JPRB, & | ||
727 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.773_JPRB, 0.779_JPRB, 0.782_JPRB, 0.785_JPRB, 0.790_JPRB, 0.802_JPRB /) |
728 | ASY_SS( :, 9, 2) = (/ & | ||
729 | & 0.723_JPRB, 0.723_JPRB, 0.723_JPRB, 0.723_JPRB, 0.739_JPRB, 0.766_JPRB, & | ||
730 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.771_JPRB, 0.776_JPRB, 0.780_JPRB, 0.783_JPRB, 0.786_JPRB, 0.794_JPRB /) |
731 | |||
732 | ASY_SS( :,10, 2) = (/ & | ||
733 | & .720_JPRB, .720_JPRB, .720_JPRB, .720_JPRB, .737_JPRB, .765_JPRB, & | ||
734 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .770_JPRB, .774_JPRB, .780_JPRB, .782_JPRB, .785_JPRB, .793_JPRB /) |
735 | ASY_SS( :,11, 2) = (/ & | ||
736 | & .705_JPRB, .705_JPRB, .705_JPRB, .705_JPRB, .730_JPRB, .758_JPRB, & | ||
737 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .763_JPRB, .770_JPRB, .775_JPRB, .777_JPRB, .781_JPRB, .787_JPRB /) |
738 | ASY_SS( :,12, 2) = (/ & | ||
739 | & 0.701_JPRB, 0.701_JPRB, 0.701_JPRB, 0.701_JPRB, 0.727_JPRB, 0.757_JPRB, & | ||
740 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.760_JPRB, 0.767_JPRB, 0.773_JPRB, 0.776_JPRB, 0.780_JPRB, 0.788_JPRB /) |
741 | |||
742 | ASY_SS( :,13, 2) = (/ & | ||
743 | & .701_JPRB, .701_JPRB, .701_JPRB, .701_JPRB, .726_JPRB, .756_JPRB, & | ||
744 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .760_JPRB, .766_JPRB, .773_JPRB, .776_JPRB, .780_JPRB, .787_JPRB /) |
745 | ASY_SS( :,14, 2) = (/ & | ||
746 | & 0.671_JPRB, 0.671_JPRB, 0.671_JPRB, 0.671_JPRB, 0.701_JPRB, 0.731_JPRB, & | ||
747 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.738_JPRB, 0.747_JPRB, 0.753_JPRB, 0.759_JPRB, 0.767_JPRB, 0.779_JPRB /) |
748 | ASY_SS( :,15, 2) = (/ & | ||
749 | & 0.642_JPRB, 0.642_JPRB, 0.642_JPRB, 0.642_JPRB, 0.675_JPRB, 0.711_JPRB, & | ||
750 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.716_JPRB, 0.723_JPRB, 0.733_JPRB, 0.742_JPRB, 0.751_JPRB, 0.764_JPRB /) |
751 | ASY_SS( :,16, 2) = (/ & | ||
752 | & 0.662_JPRB, 0.662_JPRB, 0.662_JPRB, 0.662_JPRB, 0.653_JPRB, 0.690_JPRB, & | ||
753 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.699_JPRB, 0.709_JPRB, 0.720_JPRB, 0.724_JPRB, 0.730_JPRB, 0.748_JPRB /) |
754 | |||
755 | ! single scattering albedo | ||
756 | OMG_SS( :, 1, 2) = (/ & | ||
757 | & .990_JPRB, .990_JPRB, .990_JPRB, .990_JPRB, .986_JPRB, .994_JPRB, & | ||
758 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .995_JPRB, .996_JPRB, .997_JPRB, .997_JPRB, .998_JPRB, .999_JPRB /) |
759 | OMG_SS( :, 2, 2) = (/ & | ||
760 | & .990_JPRB, .990_JPRB, .990_JPRB, .990_JPRB, .986_JPRB, .994_JPRB, & | ||
761 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .995_JPRB, .996_JPRB, .997_JPRB, .997_JPRB, .998_JPRB, .999_JPRB /) |
762 | OMG_SS( :, 3, 2) = (/ & | ||
763 | & .990_JPRB, .990_JPRB, .990_JPRB, .990_JPRB, .986_JPRB, .994_JPRB, & | ||
764 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .995_JPRB, .996_JPRB, .997_JPRB, .997_JPRB, .998_JPRB, .999_JPRB /) |
765 | OMG_SS( :, 4, 2) = (/ & | ||
766 | & .991_JPRB, .991_JPRB, .991_JPRB, .991_JPRB, .987_JPRB, .995_JPRB, & | ||
767 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .995_JPRB, .996_JPRB, .997_JPRB, .997_JPRB, .998_JPRB, .999_JPRB /) |
768 | OMG_SS( :, 5, 2) = (/ & | ||
769 | & 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.988_JPRB, 0.995_JPRB, & | ||
770 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.996_JPRB, 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.999_JPRB /) |
771 | |||
772 | OMG_SS( :, 6, 2) = (/ & | ||
773 | & .992_JPRB, .992_JPRB, .992_JPRB, .992_JPRB, .989_JPRB, .996_JPRB, & | ||
774 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .996_JPRB, .997_JPRB, .997_JPRB, .997_JPRB, .998_JPRB, .999_JPRB /) |
775 | OMG_SS( :, 7, 2) = (/ & | ||
776 | & .993_JPRB, .993_JPRB, .993_JPRB, .993_JPRB, .989_JPRB, .996_JPRB, & | ||
777 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .996_JPRB, .997_JPRB, .997_JPRB, .998_JPRB, .998_JPRB, .999_JPRB /) |
778 | |||
779 | OMG_SS( :, 8, 2) = (/ & | ||
780 | & 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.990_JPRB, 0.996_JPRB, & | ||
781 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.996_JPRB, 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /) |
782 | OMG_SS( :, 9, 2) = (/ & | ||
783 | & 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.991_JPRB, 0.997_JPRB, & | ||
784 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /) |
785 | |||
786 | OMG_SS( :,10, 2) = (/ & | ||
787 | & .994_JPRB, .994_JPRB, .994_JPRB, .994_JPRB, .992_JPRB, .997_JPRB, & | ||
788 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .997_JPRB, .997_JPRB, .998_JPRB, .998_JPRB, .999_JPRB, .999_JPRB /) |
789 | OMG_SS( :,11, 2) = (/ & | ||
790 | & .995_JPRB, .995_JPRB, .995_JPRB, .995_JPRB, .993_JPRB, .997_JPRB, & | ||
791 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .998_JPRB, .998_JPRB, .998_JPRB, .998_JPRB, .999_JPRB, .999_JPRB /) |
792 | OMG_SS( :,12, 2) = (/ & | ||
793 | & 0.995_JPRB, 0.995_JPRB, 0.995_JPRB, 0.995_JPRB, 0.993_JPRB, 0.998_JPRB, & | ||
794 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB /) |
795 | |||
796 | OMG_SS( :,13, 2) = (/ & | ||
797 | & .995_JPRB, .995_JPRB, .995_JPRB, .995_JPRB, .993_JPRB, .998_JPRB, & | ||
798 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .998_JPRB, .998_JPRB, .998_JPRB, .999_JPRB, .999_JPRB, .999_JPRB /) |
799 | OMG_SS( :,14, 2) = (/ & | ||
800 | & 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.995_JPRB, 0.998_JPRB, & | ||
801 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.998_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB /) |
802 | OMG_SS( :,15, 2) = (/ & | ||
803 | & 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.996_JPRB, 0.999_JPRB, & | ||
804 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB /) |
805 | OMG_SS( :,16, 2) = (/ & | ||
806 | & 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.997_JPRB, 0.999_JPRB, & | ||
807 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, 1.000_JPRB /) |
808 | |||
809 | ! BIN No. 3 | ||
810 | ALF_SS( :, 1, 3) = (/ & | ||
811 | & .038_JPRB, .038_JPRB, .038_JPRB, .038_JPRB, .078_JPRB, .091_JPRB, & | ||
812 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .105_JPRB, .122_JPRB, .148_JPRB, .170_JPRB, .208_JPRB, .308_JPRB /) |
813 | ALF_SS( :, 2, 3) = (/ & | ||
814 | & .038_JPRB, .038_JPRB, .038_JPRB, .038_JPRB, .078_JPRB, .091_JPRB, & | ||
815 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .105_JPRB, .122_JPRB, .148_JPRB, .170_JPRB, .208_JPRB, .308_JPRB /) |
816 | ALF_SS( :, 3, 3) = (/ & | ||
817 | & .038_JPRB, .038_JPRB, .038_JPRB, .038_JPRB, .078_JPRB, .091_JPRB, & | ||
818 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .105_JPRB, .122_JPRB, .148_JPRB, .170_JPRB, .208_JPRB, .308_JPRB /) |
819 | ALF_SS( :, 4, 3) = (/ & | ||
820 | & .038_JPRB, .038_JPRB, .038_JPRB, .038_JPRB, .079_JPRB, .091_JPRB, & | ||
821 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .105_JPRB, .122_JPRB, .149_JPRB, .171_JPRB, .209_JPRB, .308_JPRB /) |
822 | ALF_SS( :, 5, 3) = (/ & | ||
823 | & 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.079_JPRB, 0.092_JPRB, & | ||
824 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.105_JPRB, 0.122_JPRB, 0.149_JPRB, 0.171_JPRB, 0.210_JPRB, 0.309_JPRB /) |
825 | |||
826 | ALF_SS( :, 6, 3) = (/ & | ||
827 | & .039_JPRB, .039_JPRB, .039_JPRB, .039_JPRB, .079_JPRB, .092_JPRB, & | ||
828 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .105_JPRB, .123_JPRB, .149_JPRB, .171_JPRB, .209_JPRB, .309_JPRB /) |
829 | ALF_SS( :, 7, 3) = (/ & | ||
830 | & .039_JPRB, .039_JPRB, .039_JPRB, .039_JPRB, .079_JPRB, .092_JPRB, & | ||
831 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .105_JPRB, .123_JPRB, .149_JPRB, .172_JPRB, .210_JPRB, .310_JPRB /) |
832 | |||
833 | ALF_SS( :, 8, 3) = (/ & | ||
834 | & 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.079_JPRB, 0.092_JPRB, & | ||
835 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.106_JPRB, 0.123_JPRB, 0.150_JPRB, 0.172_JPRB, 0.210_JPRB, 0.310_JPRB /) |
836 | ALF_SS( :, 9, 3) = (/ & | ||
837 | & 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.080_JPRB, 0.093_JPRB, & | ||
838 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.106_JPRB, 0.123_JPRB, 0.151_JPRB, 0.172_JPRB, 0.211_JPRB, 0.311_JPRB /) |
839 | |||
840 | ALF_SS( :,10, 3) = (/ & | ||
841 | & .039_JPRB, .039_JPRB, .039_JPRB, .039_JPRB, .080_JPRB, .093_JPRB, & | ||
842 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .107_JPRB, .124_JPRB, .151_JPRB, .173_JPRB, .212_JPRB, .311_JPRB /) |
843 | ALF_SS( :,11, 3) = (/ & | ||
844 | & .040_JPRB, .040_JPRB, .040_JPRB, .040_JPRB, .081_JPRB, .094_JPRB, & | ||
845 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .108_JPRB, .124_JPRB, .152_JPRB, .174_JPRB, .212_JPRB, .314_JPRB /) |
846 | ALF_SS( :,12, 3) = (/ & | ||
847 | & 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.081_JPRB, 0.094_JPRB, & | ||
848 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.108_JPRB, 0.126_JPRB, 0.152_JPRB, 0.174_JPRB, 0.213_JPRB, 0.314_JPRB /) |
849 | |||
850 | ALF_SS( :,13, 3) = (/ & | ||
851 | & .040_JPRB, .040_JPRB, .040_JPRB, .040_JPRB, .081_JPRB, .094_JPRB, & | ||
852 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .108_JPRB, .126_JPRB, .152_JPRB, .174_JPRB, .213_JPRB, .314_JPRB /) |
853 | ALF_SS( :,14, 3) = (/ & | ||
854 | & 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.082_JPRB, 0.096_JPRB, & | ||
855 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.109_JPRB, 0.127_JPRB, 0.156_JPRB, 0.178_JPRB, 0.215_JPRB, 0.318_JPRB /) |
856 | ALF_SS( :,15, 3) = (/ & | ||
857 | & 0.043_JPRB, 0.043_JPRB, 0.043_JPRB, 0.043_JPRB, 0.084_JPRB, 0.097_JPRB, & | ||
858 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.112_JPRB, 0.131_JPRB, 0.159_JPRB, 0.180_JPRB, 0.218_JPRB, 0.324_JPRB /) |
859 | ALF_SS( :,16, 3) = (/ & | ||
860 | & 0.042_JPRB, 0.042_JPRB, 0.042_JPRB, 0.042_JPRB, 0.086_JPRB, 0.102_JPRB, & | ||
861 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.115_JPRB, 0.131_JPRB, 0.157_JPRB, 0.181_JPRB, 0.225_JPRB, 0.326_JPRB /) |
862 | |||
863 | ! assymetry factor | ||
864 | ASY_SS( :, 1, 3) = (/ & | ||
865 | & .803_JPRB, .803_JPRB, .803_JPRB, .803_JPRB, .810_JPRB, .828_JPRB, & | ||
866 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .831_JPRB, .834_JPRB, .837_JPRB, .839_JPRB, .842_JPRB, .845_JPRB /) |
867 | ASY_SS( :, 2, 3) = (/ & | ||
868 | & .803_JPRB, .803_JPRB, .803_JPRB, .803_JPRB, .810_JPRB, .828_JPRB, & | ||
869 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .831_JPRB, .834_JPRB, .837_JPRB, .839_JPRB, .842_JPRB, .845_JPRB /) |
870 | ASY_SS( :, 3, 3) = (/ & | ||
871 | & .803_JPRB, .803_JPRB, .803_JPRB, .803_JPRB, .810_JPRB, .828_JPRB, & | ||
872 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .831_JPRB, .834_JPRB, .837_JPRB, .839_JPRB, .842_JPRB, .845_JPRB /) |
873 | ASY_SS( :, 4, 3) = (/ & | ||
874 | & .800_JPRB, .800_JPRB, .800_JPRB, .800_JPRB, .808_JPRB, .827_JPRB, & | ||
875 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .830_JPRB, .832_JPRB, .836_JPRB, .838_JPRB, .840_JPRB, .844_JPRB /) |
876 | ASY_SS( :, 5, 3) = (/ & | ||
877 | & 0.799_JPRB, 0.799_JPRB, 0.799_JPRB, 0.799_JPRB, 0.807_JPRB, 0.826_JPRB, & | ||
878 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.829_JPRB, 0.832_JPRB, 0.834_JPRB, 0.837_JPRB, 0.840_JPRB, 0.845_JPRB /) |
879 | ASY_SS( :, 6, 3) = (/ & | ||
880 | & .796_JPRB, .796_JPRB, .796_JPRB, .796_JPRB, .806_JPRB, .824_JPRB, & | ||
881 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .828_JPRB, .830_JPRB, .834_JPRB, .836_JPRB, .839_JPRB, .843_JPRB /) |
882 | ASY_SS( :, 7, 3) = (/ & | ||
883 | & .795_JPRB, .795_JPRB, .795_JPRB, .795_JPRB, .804_JPRB, .823_JPRB, & | ||
884 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .826_JPRB, .829_JPRB, .833_JPRB, .835_JPRB, .837_JPRB, .842_JPRB /) |
885 | |||
886 | ASY_SS( :, 8, 3) = (/ & | ||
887 | & 0.794_JPRB, 0.794_JPRB, 0.794_JPRB, 0.794_JPRB, 0.803_JPRB, 0.822_JPRB, & | ||
888 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.826_JPRB, 0.829_JPRB, 0.832_JPRB, 0.834_JPRB, 0.837_JPRB, 0.841_JPRB /) |
889 | ASY_SS( :, 9, 3) = (/ & | ||
890 | & 0.788_JPRB, 0.788_JPRB, 0.788_JPRB, 0.788_JPRB, 0.800_JPRB, 0.819_JPRB, & | ||
891 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.823_JPRB, 0.825_JPRB, 0.829_JPRB, 0.832_JPRB, 0.835_JPRB, 0.840_JPRB /) |
892 | |||
893 | ASY_SS( :,10, 3) = (/ & | ||
894 | & .786_JPRB, .786_JPRB, .786_JPRB, .786_JPRB, .800_JPRB, .818_JPRB, & | ||
895 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .822_JPRB, .824_JPRB, .829_JPRB, .831_JPRB, .834_JPRB, .838_JPRB /) |
896 | ASY_SS( :,11, 3) = (/ & | ||
897 | & .779_JPRB, .779_JPRB, .779_JPRB, .779_JPRB, .794_JPRB, .813_JPRB, & | ||
898 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .817_JPRB, .820_JPRB, .824_JPRB, .827_JPRB, .830_JPRB, .836_JPRB /) |
899 | ASY_SS( :,12, 3) = (/ & | ||
900 | & 0.774_JPRB, 0.774_JPRB, 0.774_JPRB, 0.774_JPRB, 0.791_JPRB, 0.810_JPRB, & | ||
901 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.815_JPRB, 0.819_JPRB, 0.822_JPRB, 0.826_JPRB, 0.829_JPRB, 0.833_JPRB /) |
902 | |||
903 | ASY_SS( :,13, 3) = (/ & | ||
904 | & .774_JPRB, .774_JPRB, .774_JPRB, .774_JPRB, .791_JPRB, .809_JPRB, & | ||
905 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .814_JPRB, .819_JPRB, .821_JPRB, .825_JPRB, .829_JPRB, .834_JPRB /) |
906 | ASY_SS( :,14, 3) = (/ & | ||
907 | & 0.754_JPRB, 0.754_JPRB, 0.754_JPRB, 0.754_JPRB, 0.774_JPRB, 0.795_JPRB, & | ||
908 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.799_JPRB, 0.805_JPRB, 0.813_JPRB, 0.816_JPRB, 0.819_JPRB, 0.826_JPRB /) |
909 | ASY_SS( :,15, 3) = (/ & | ||
910 | & 0.751_JPRB, 0.751_JPRB, 0.751_JPRB, 0.751_JPRB, 0.762_JPRB, 0.784_JPRB, & | ||
911 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.790_JPRB, 0.797_JPRB, 0.802_JPRB, 0.804_JPRB, 0.808_JPRB, 0.819_JPRB /) |
912 | ASY_SS( :,16, 3) = (/ & | ||
913 | & 0.708_JPRB, 0.708_JPRB, 0.708_JPRB, 0.708_JPRB, 0.752_JPRB, 0.778_JPRB, & | ||
914 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.781_JPRB, 0.783_JPRB, 0.788_JPRB, 0.792_JPRB, 0.801_JPRB, 0.808_JPRB /) |
915 | |||
916 | ! single scattering albedo | ||
917 | OMG_SS( :, 1, 3) = (/ & | ||
918 | & .980_JPRB, .980_JPRB, .980_JPRB, .980_JPRB, .982_JPRB, .992_JPRB, & | ||
919 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .993_JPRB, .994_JPRB, .996_JPRB, .996_JPRB, .997_JPRB, .998_JPRB /) |
920 | OMG_SS( :, 2, 3) = (/ & | ||
921 | & .980_JPRB, .980_JPRB, .980_JPRB, .980_JPRB, .982_JPRB, .992_JPRB, & | ||
922 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .993_JPRB, .994_JPRB, .996_JPRB, .996_JPRB, .997_JPRB, .998_JPRB /) |
923 | OMG_SS( :, 3, 3) = (/ & | ||
924 | & .980_JPRB, .980_JPRB, .980_JPRB, .980_JPRB, .982_JPRB, .992_JPRB, & | ||
925 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .993_JPRB, .994_JPRB, .996_JPRB, .996_JPRB, .997_JPRB, .998_JPRB /) |
926 | OMG_SS( :, 4, 3) = (/ & | ||
927 | & .981_JPRB, .981_JPRB, .981_JPRB, .981_JPRB, .981_JPRB, .991_JPRB, & | ||
928 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .993_JPRB, .994_JPRB, .996_JPRB, .996_JPRB, .997_JPRB, .998_JPRB /) |
929 | OMG_SS( :, 5, 3) = (/ & | ||
930 | & 0.981_JPRB, 0.981_JPRB, 0.981_JPRB, 0.981_JPRB, 0.981_JPRB, 0.991_JPRB, & | ||
931 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.993_JPRB, 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.998_JPRB /) |
932 | |||
933 | OMG_SS( :, 6, 3) = (/ & | ||
934 | & .981_JPRB, .981_JPRB, .981_JPRB, .981_JPRB, .981_JPRB, .991_JPRB, & | ||
935 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .993_JPRB, .994_JPRB, .995_JPRB, .996_JPRB, .997_JPRB, .998_JPRB /) |
936 | OMG_SS( :, 7, 3) = (/ & | ||
937 | & .982_JPRB, .982_JPRB, .982_JPRB, .982_JPRB, .990_JPRB, .992_JPRB, & | ||
938 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .993_JPRB, .994_JPRB, .995_JPRB, .996_JPRB, .997_JPRB, .998_JPRB /) |
939 | |||
940 | OMG_SS( :, 8, 3) = (/ & | ||
941 | & 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.990_JPRB, 0.992_JPRB, & | ||
942 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.993_JPRB, 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.998_JPRB /) |
943 | OMG_SS( :, 9, 3) = (/ & | ||
944 | & 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.990_JPRB, 0.992_JPRB, & | ||
945 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.993_JPRB, 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.998_JPRB /) |
946 | |||
947 | OMG_SS( :,10, 3) = (/ & | ||
948 | & .983_JPRB, .983_JPRB, .983_JPRB, .983_JPRB, .987_JPRB, .992_JPRB, & | ||
949 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .993_JPRB, .994_JPRB, .996_JPRB, .996_JPRB, .997_JPRB, .998_JPRB /) |
950 | OMG_SS( :,11, 3) = (/ & | ||
951 | & .985_JPRB, .985_JPRB, .985_JPRB, .985_JPRB, .990_JPRB, .993_JPRB, & | ||
952 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .994_JPRB, .995_JPRB, .996_JPRB, .996_JPRB, .997_JPRB, .998_JPRB /) |
953 | OMG_SS( :,12, 3) = (/ & | ||
954 | & 0.985_JPRB, 0.985_JPRB, 0.985_JPRB, 0.985_JPRB, 0.990_JPRB, 0.993_JPRB, & | ||
955 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB /) |
956 | |||
957 | OMG_SS( :,13, 3) = (/ & | ||
958 | & .986_JPRB, .986_JPRB, .986_JPRB, .986_JPRB, .990_JPRB, .993_JPRB, & | ||
959 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & .994_JPRB, .995_JPRB, .996_JPRB, .996_JPRB, .997_JPRB, .998_JPRB /) |
960 | OMG_SS( :,14, 3) = (/ & | ||
961 | & 0.989_JPRB, 0.989_JPRB, 0.989_JPRB, 0.989_JPRB, 0.991_JPRB, 0.994_JPRB, & | ||
962 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.999_JPRB /) |
963 | OMG_SS( :,15, 3) = (/ & | ||
964 | & 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.994_JPRB, 0.996_JPRB, & | ||
965 |
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 12 times.
|
13 | & 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /) |
966 | OMG_SS( :,16, 3) = (/ & | ||
967 | & 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.995_JPRB, 0.997_JPRB, & | ||
968 |
2/2✓ Branch 0 taken 12 times.
✓ Branch 1 taken 1 times.
|
13 | & 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /) |
969 | |||
970 | ! ---------------------------------------------------------------- | ||
971 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | IF (LHOOK) CALL DR_HOOK('SU_AEROP',1,ZHOOK_HANDLE) |
972 | 1 | END SUBROUTINE SU_AEROP | |
973 |