[3] | 1 | !!---------------------------------------------------------------------- |
---|
| 2 | !! *** flxrnf_ORCA_R2.h90 *** |
---|
| 3 | !!---------------------------------------------------------------------- |
---|
| 4 | |
---|
| 5 | !!---------------------------------------------------------------------- |
---|
| 6 | !! OLD ORCA R2 runoff specification |
---|
| 7 | !! kept here for memory |
---|
| 8 | !! ( 20/04/2000 ) |
---|
| 9 | !!---------------------------------------------------------------------- |
---|
[247] | 10 | !!---------------------------------------------------------------------- |
---|
| 11 | !! OPA 9.0 , LOCEAN-IPSL (2005) |
---|
| 12 | !! $Header$ |
---|
| 13 | !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt |
---|
| 14 | !!---------------------------------------------------------------------- |
---|
[3] | 15 | !!---------------------------------------------------------------------- |
---|
| 16 | !! * Local declarations |
---|
| 17 | INTEGER :: kt |
---|
| 18 | INTEGER, PARAMETER :: & |
---|
| 19 | jpmois = 12, & ! number of months |
---|
| 20 | jpriv = 120, & ! maximum number of river |
---|
| 21 | jpcoef = 300 ! maximum of river mouth grid-points |
---|
| 22 | INTEGER :: & |
---|
| 23 | ji, jj, jl, jm, & ! dummy loop indices |
---|
| 24 | jn, jr, jc ! " " |
---|
| 25 | INTEGER :: & |
---|
| 26 | i15, imois, iman, & ! temporary integers |
---|
| 27 | inbp, idbd, idmeom, & ! " " |
---|
| 28 | iipt0, iipt1, ijpt0, & ! " " |
---|
| 29 | ijpt1, ii, ij ! " " |
---|
| 30 | INTEGER, DIMENSION(jpriv) :: & |
---|
| 31 | inb ! ??? |
---|
| 32 | INTEGER, DIMENSION(jpcoef,jpriv) :: & |
---|
| 33 | iirnf, ijrnf ! ??? |
---|
| 34 | |
---|
| 35 | REAL(wp) :: & |
---|
| 36 | zconv, zxy, & ! temporary scalars |
---|
| 37 | zrup1, zrup2, zrup3 ! " " |
---|
| 38 | REAL(wp), DIMENSION(jpmois,jpriv) :: & |
---|
| 39 | zrnfm ! ??? |
---|
| 40 | REAL(wp), DIMENSION(jpi, jpj, 5) :: & |
---|
| 41 | zcoefr ! ??? |
---|
[247] | 42 | |
---|
[3] | 43 | ! ==== |
---|
| 44 | ! DATA |
---|
| 45 | ! ==== |
---|
| 46 | |
---|
| 47 | ! I NORTH AMERICA |
---|
| 48 | ! --------------- |
---|
| 49 | |
---|
| 50 | ! 1-Saint Lawrence (Canada) 49N30 67W00 R2 |
---|
| 51 | ! Old=447 km3/year=14165m3/s; CLIPPER=12430m3/s; ratio=1.14 |
---|
| 52 | ! --> 13975.249m3/s |
---|
| 53 | DATA inb(1)/2/ |
---|
| 54 | DATA (iirnf(jc,1),jc=1,jpcoef)/ 110, 110, 298*0 / |
---|
| 55 | DATA (ijrnf(jc,1),jc=1,jpcoef)/ 110, 111, 298*0 / |
---|
| 56 | DATA (zrnfm(jm,1),jm=1,jpmois)/ & |
---|
| 57 | 11718., 11971., 12466., 14980., 19257., 16913., & |
---|
| 58 | 14211., 13119., 13367., 13644., 13463., 12594./ |
---|
| 59 | ! 2-Hudson River (USA) 41N00 77W00 R1 |
---|
| 60 | ! Old=12 km3/year=380m3/s; UNESCO(64-83,p255)=408m3/s |
---|
| 61 | ! --> 407.416687m3/s |
---|
| 62 | DATA inb(2)/1/ |
---|
| 63 | DATA (iirnf(jc,2),jc=1,jpcoef)/ 106, 299*0 / |
---|
| 64 | DATA (ijrnf(jc,2),jc=1,jpcoef)/ 104, 299*0 / |
---|
| 65 | DATA (zrnfm(jm,2),jm=1,jpmois)/ & |
---|
| 66 | 364., 404., 648., 873., 593., 301., & |
---|
| 67 | 205., 171., 205., 290., 379., 456./ |
---|
| 68 | ! 3-Missisipi and Atchafalaya (USA) 29N 90W R1 |
---|
| 69 | ! Old=580 km3/year=18380m3/s; CLIPPER=17599m3/s |
---|
| 70 | ! --> 17599.334m3/s |
---|
| 71 | DATA inb(3)/2/ |
---|
| 72 | DATA (iirnf(jc,3),jc=1,jpcoef)/ 97, 98, 298*0 / |
---|
| 73 | DATA (ijrnf(jc,3),jc=1,jpcoef)/ 97, 97, 298*0 / |
---|
| 74 | DATA (zrnfm(jm,3),jm=1,jpmois)/ & |
---|
| 75 | 19260., 20813., 23026., 28160., 26510., 19650., & |
---|
| 76 | 14181., 10676., 9578., 10167., 11699., 17472./ |
---|
| 77 | ! 4-Brazos (USA) 29N58 95W53 R1 |
---|
| 78 | ! Old=7 km3/year=222m3/s; UNESCO(65-84, p298)=200m3/s |
---|
| 79 | ! --> 199.666656m3/s |
---|
| 80 | DATA inb(4)/1/ |
---|
| 81 | DATA (iirnf(jc,4),jc=1,jpcoef)/ 95, 299*0 / |
---|
| 82 | DATA (ijrnf(jc,4),jc=1,jpcoef)/ 97, 299*0 / |
---|
| 83 | DATA (zrnfm(jm,4),jm=1,jpmois)/ & |
---|
| 84 | 165., 224., 200., 266., 457., 327., & |
---|
| 85 | 143., 69., 102., 132., 160., 151./ |
---|
| 86 | ! 5-Colorado (Mexico) 31N54 114W57 R5 |
---|
| 87 | ! Old=20 km3/year=634m3/s |
---|
| 88 | ! --> 634.m3/s |
---|
| 89 | DATA inb(5)/1/ |
---|
| 90 | DATA (iirnf(jc,5),jc=1,jpcoef)/ 88, 299*0 / |
---|
| 91 | DATA (ijrnf(jc,5),jc=1,jpcoef)/ 94, 299*0 / |
---|
| 92 | DATA (zrnfm(jm,5),jm=1,jpmois)/12*634./ |
---|
| 93 | ! 6-Columbia (USA) 45N60 121W17 R1 |
---|
| 94 | ! Old=251 km3/year=7954m3/s; UNESCO(65-84, p312)=5368m3/s |
---|
| 95 | ! --> 5368.41602m3/s |
---|
| 96 | DATA inb(6)/1/ |
---|
| 97 | DATA (iirnf(jc,6),jc=1,jpcoef)/ 79, 299*0 / |
---|
| 98 | DATA (ijrnf(jc,6),jc=1,jpcoef)/ 110, 299*0 / |
---|
| 99 | DATA (zrnfm(jm,6),jm=1,jpmois)/ & |
---|
| 100 | 4752., 5077., 5633., 6075., 8422., 9822., & |
---|
| 101 | 6350., 4112., 3273., 3251., 3548., 4106./ |
---|
| 102 | ! 7-Fraser (USA) R5 |
---|
| 103 | ! Old=112 km3/year=3550m3/s;not found in UNESCO |
---|
| 104 | ! --> 3549.99976m3/s |
---|
| 105 | DATA inb(7)/1/ |
---|
| 106 | DATA (iirnf(jc,7),jc=1,jpcoef)/ 77, 299*0 / |
---|
| 107 | DATA (ijrnf(jc,7),jc=1,jpcoef)/ 112, 299*0 / |
---|
| 108 | DATA (zrnfm(jm,7),jm=1,jpmois)/12*3550./ |
---|
| 109 | ! 8-Yukon (USA) 63N00 165W00 R3 |
---|
| 110 | ! Old=195 km3/year=6179m3/s; UNESCO(65-77+80-84, p321)=4245; ratio=1.46 |
---|
| 111 | ! --> 6017.24951m3/s |
---|
| 112 | DATA inb(8)/1/ |
---|
| 113 | DATA (iirnf(jc,8),jc=1,jpcoef)/ 58, 299*0 / |
---|
| 114 | DATA (ijrnf(jc,8),jc=1,jpcoef)/ 122, 299*0 / |
---|
| 115 | DATA (zrnfm(jm,8),jm=1,jpmois)/ & |
---|
| 116 | 1459., 1213., 1065., 1100., 9067., 17675., & |
---|
| 117 | 10680., 11271., 8658., 5453., 2649., 1917./ |
---|
| 118 | ! 9-Copper (USA) 61N47 144W45 R2 |
---|
| 119 | ! Old=39 km3/year=1236m3/s; UNESCO(65-84, p317)=1052m3/s; ratio=1.18 |
---|
| 120 | ! --> 1236.25m3/s |
---|
| 121 | DATA inb(9)/1/ |
---|
| 122 | DATA (iirnf(jc,9),jc=1,jpcoef)/ 67, 299*0 / |
---|
| 123 | DATA (ijrnf(jc,9),jc=1,jpcoef)/ 119, 299*0 / |
---|
| 124 | DATA (zrnfm(jm,9),jm=1,jpmois)/ & |
---|
| 125 | 219., 195., 181., 214., 904., 2532., & |
---|
| 126 | 4026., 3627., 1632., 697., 354., 254./ |
---|
| 127 | ! 10-Susitna (USA) R5 |
---|
| 128 | ! Old=40 km3/year=1268m3/s |
---|
| 129 | ! --> 1268.m3/s |
---|
| 130 | DATA inb(10)/1/ |
---|
| 131 | DATA (iirnf(jc,10),jc=1,jpcoef)/ 65, 299*0 / |
---|
| 132 | DATA (ijrnf(jc,10),jc=1,jpcoef)/ 118, 299*0 / |
---|
| 133 | DATA (zrnfm(jm,10),jm=1,jpmois)/12*1268./ |
---|
| 134 | ! 11-McKenzie (Canada) 70N00 135W00 R3 |
---|
| 135 | ! Old=306 km3/year=9697m3/s; UNESCO(67+72+7479+82-84, p168)=8343m3/s; |
---|
| 136 | ! ratio=1.16 |
---|
| 137 | ! --> 9606.66797m3/s |
---|
| 138 | DATA inb(11)/1/ |
---|
| 139 | DATA (iirnf(jc,11),jc=1,jpcoef)/ 69, 299*0 / |
---|
| 140 | DATA (ijrnf(jc,11),jc=1,jpcoef)/ 131, 299*0 / |
---|
| 141 | DATA (zrnfm(jm,11),jm=1,jpmois)/ & |
---|
| 142 | 3644., 3400., 3258., 3546., 14188., 21544., & |
---|
| 143 | 18954., 15487., 11284., 10169., 5901., 3905./ |
---|
| 144 | ! 12-Kuksokwim (USA) 60N00 ~162W30 R4 |
---|
| 145 | ! UNESCO(65-84, p318)=1112m3/s (61N87 158E10, Crooked Creek, inland) |
---|
| 146 | ! --> 1111.99988m3/s |
---|
| 147 | DATA inb(12)/1/ |
---|
| 148 | DATA (iirnf(jc,12),jc=1,jpcoef)/ 60, 299*0 / |
---|
| 149 | DATA (ijrnf(jc,12),jc=1,jpcoef)/ 118, 299*0 / |
---|
| 150 | DATA (zrnfm(jm,12),jm=1,jpmois)/ & |
---|
| 151 | 335., 308., 295., 407., 2415., 2027., & |
---|
| 152 | 1917., 2049., 1585., 1072., 545., 389./ |
---|
| 153 | |
---|
| 154 | DATA inb(13)/0/ |
---|
| 155 | DATA inb(14)/0/ |
---|
| 156 | DATA inb(15)/0/ |
---|
| 157 | |
---|
| 158 | ! Total run-offs(I)=60974.2539m3/s |
---|
| 159 | |
---|
| 160 | ! II SOUTH AMERICA |
---|
| 161 | ! ----------------- |
---|
| 162 | ! 16-Chira (Peru) 4s54 81w08 R2 |
---|
| 163 | ! Old=5 km3/year=158m3/s; UNESCO (65-68, p357)=80.9; ratio=1.95 |
---|
| 164 | ! --> 158.000015m3/s |
---|
| 165 | DATA inb(16)/1/ |
---|
| 166 | DATA (iirnf(jc,16),jc=1,jpcoef)/ 101, 299*0 / |
---|
| 167 | DATA (ijrnf(jc,16),jc=1,jpcoef)/ 66, 299*0 / |
---|
| 168 | DATA (zrnfm(jm,16),jm=1,jpmois)/ & |
---|
| 169 | 70., 105., 564., 582., 230., 94., & |
---|
| 170 | 87., 47., 35., 32., 29., 21./ |
---|
| 171 | ! 17-Magdalena (Colombia) 11N06 74W51 R2 |
---|
| 172 | ! Old=237 km3/year=7510m3/s; UNESCO(71-73+76-79, p348)=6973m3/s; |
---|
| 173 | ! ratio=1.08 |
---|
| 174 | ! --> 7451.58301m3/s |
---|
| 175 | DATA inb(17)/1/ |
---|
| 176 | DATA (iirnf(jc,17),jc=1,jpcoef)/ 104, 299*0 / |
---|
| 177 | DATA (ijrnf(jc,17),jc=1,jpcoef)/ 86, 299*0 / |
---|
| 178 | DATA (zrnfm(jm,17),jm=1,jpmois)/ & |
---|
| 179 | 6598., 4441., 4087., 5445., 7380., 8067., & |
---|
| 180 | 8509., 7428., 7631., 9296., 10588., 9949./ |
---|
| 181 | ! 18-Orinoco (Venezuela) 8N37 62W15! R1 |
---|
| 182 | ! Old=1100 km3/year=34857m3/s; UNESCO(73-75, p364)=28736m3/s; |
---|
| 183 | ! HLA=26371m3/s |
---|
| 184 | ! Data from HLA: 8.1N - 63.3W 1925/89 |
---|
| 185 | ! --> 26371.416 |
---|
| 186 | DATA inb(18)/1/ |
---|
| 187 | DATA (iirnf(jc,18),jc=1,jpcoef)/ 112, 299*0 / |
---|
| 188 | DATA (ijrnf(jc,18),jc=1,jpcoef)/ 86, 299*0 / |
---|
| 189 | DATA (zrnfm(jm,18),jm=1,jpmois)/ & |
---|
| 190 | 10670., 7513., 6344., 6887., 13086., 26699., & |
---|
| 191 | 43938., 59957., 57435., 39951., 27410., 16567./ |
---|
| 192 | ! 19-Amazon (Brazil) 0S05 50W00 R1 |
---|
| 193 | ! Old=6300 km3/year=199634m3/s; CLIPPER=166192m3/s~UNESCO; |
---|
| 194 | ! HLA=184806m3/s |
---|
| 195 | ! UNESCO data are at Obidos which is far inland and therefore does not |
---|
| 196 | ! fully represent the actual discharge |
---|
| 197 | ! Data from HLA: 1.5N - 55.3W 1970/96 |
---|
| 198 | ! --> 184845.484m3/s |
---|
| 199 | DATA inb(19)/2/ |
---|
| 200 | DATA (iirnf(jc,19),jc=1,jpcoef)/ 117, 117, 298*0 / |
---|
| 201 | DATA (ijrnf(jc,19),jc=1,jpcoef)/ 75, 76, 298*0 / |
---|
| 202 | DATA (zrnfm(jm,19),jm=1,jpmois)/ & |
---|
| 203 | 152233., 176415., 199941., 225565., 244016., 244861., & |
---|
| 204 | 230711., 203128., 164531., 128486., 118214., 130045. / |
---|
| 205 | ! 20-Sao Francisco (Brazil) 10S30 36W24 R1 |
---|
| 206 | ! Old=97 km3/year=3074m3/s; UNESCO(77-79, p338)=2645m3/s |
---|
| 207 | ! --> 2645.3335m3/s |
---|
| 208 | DATA inb(20)/1/ |
---|
| 209 | DATA (iirnf(jc,20),jc=1,jpcoef)/ 123, 299*0 / |
---|
| 210 | DATA (ijrnf(jc,20),jc=1,jpcoef)/ 59, 299*0 / |
---|
| 211 | DATA (zrnfm(jm,20),jm=1,jpmois)/ & |
---|
| 212 | 3244., 4116., 5139., 4330., 2323., 1800., & |
---|
| 213 | 1587., 1511., 1593., 1740., 2190., 2171. / |
---|
| 214 | ! 21-Parana+Uruguay(Arg./Uru.) 34S12 58W18 R1 |
---|
| 215 | ! Old=470 km3/year=14893m3/s; UNESCO(p323/324)=22263m3/s |
---|
| 216 | ! --> 22203.168m3/s |
---|
| 217 | DATA inb(21)/2/ |
---|
| 218 | DATA (iirnf(jc,21),jc=1,jpcoef)/ 114, 114, 298*0 / |
---|
| 219 | DATA (ijrnf(jc,21),jc=1,jpcoef)/ 46, 47, 298*0 / |
---|
| 220 | DATA (zrnfm(jm,21),jm=1,jpmois)/ & |
---|
| 221 | 24803., 26836., 24585., 21358., 20041., 21689., & |
---|
| 222 | 22647., 20403., 19627., 21400., 21126., 21923./ |
---|
| 223 | ! 22-Negro (Argentina) 41S02 62W47 R2 |
---|
| 224 | ! Old=30 km3/year=951m3/s; UNESCO(65-79,p330)=765m3/s; ratio=1.24 |
---|
| 225 | ! --> 907.666687m3/s |
---|
| 226 | DATA inb(22)/1/ |
---|
| 227 | DATA (iirnf(jc,22),jc=1,jpcoef)/ 110, 299*0 / |
---|
| 228 | DATA (ijrnf(jc,22),jc=1,jpcoef)/ 43, 299*0 / |
---|
| 229 | DATA (zrnfm(jm,22),jm=1,jpmois)/ & |
---|
| 230 | 882., 587., 519., 482., 623., 984., & |
---|
| 231 | 1120., 1294., 1092., 1166., 1105., 1038./ |
---|
| 232 | ! 23- Tocantins : ~48W00 ~0.5S R4 |
---|
| 233 | ! UNESCO(76-77+80-81, p335)=12167m3/s (station far inland!) |
---|
| 234 | ! --> 12173.082m3/s |
---|
| 235 | DATA inb(23)/1/ |
---|
| 236 | DATA (iirnf(jc,23),jc=1,jpcoef)/118, 299*0 / |
---|
| 237 | DATA (ijrnf(jc,23),jc=1,jpcoef)/ 73, 299*0 / |
---|
| 238 | DATA (zrnfm(jm,23),jm=1,jpmois)/ & |
---|
| 239 | 15507., 24855., 27854., 24257., 15860., 7861., & |
---|
| 240 | 4440., 3082., 2728., 3417., 5511., 10705. / |
---|
| 241 | |
---|
| 242 | DATA inb(24)/0/ |
---|
| 243 | DATA inb(25)/0/ |
---|
| 244 | |
---|
| 245 | ! Total run-offs(II)=256755.75 |
---|
| 246 | ! Total run-offs(I+II)=317730 |
---|
| 247 | |
---|
| 248 | ! III EUROPE |
---|
| 249 | ! ---------- |
---|
| 250 | ! 26-Rhone (France) 43N20 4E50 R1 |
---|
| 251 | ! Old=49 km3/year=1553m3/s; UNESCO(65-83, p512)=1229 |
---|
| 252 | ! --> 1217.16663m3/s |
---|
| 253 | DATA inb(26)/1/ |
---|
| 254 | DATA (iirnf(jc,26),jc=1,jpcoef)/ 150, 299*0 / |
---|
| 255 | DATA (ijrnf(jc,26),jc=1,jpcoef)/ 108, 299*0 / |
---|
| 256 | DATA (zrnfm(jm,26),jm=1,jpmois)/ & |
---|
| 257 | 1385., 1848., 1568., 1311., 1420., 1191., & |
---|
| 258 | 937., 796., 794., 962., 1161., 1233./ |
---|
| 259 | ! 27-Po (Italy) 11N10 1W09 R1 |
---|
| 260 | ! Old=46 km3/year=1458m3/s; UNESCO(65-84, p527)=1550m3/s |
---|
| 261 | ! --> 1550.08337m3/s |
---|
| 262 | DATA inb(27)/1/ |
---|
| 263 | DATA (iirnf(jc,27),jc=1,jpcoef)/ 159, 299*0 / |
---|
| 264 | DATA (ijrnf(jc,27),jc=1,jpcoef)/ 110, 299*0 / |
---|
| 265 | DATA (zrnfm(jm,27),jm=1,jpmois)/ & |
---|
| 266 | 1304., 1605., 1856., 1549., 1958., 1760., & |
---|
| 267 | 1040., 1007., 1615., 1907., 1772., 1228./ |
---|
| 268 | ! 28-Danube (Roumania) 45N20 29E40 R1 |
---|
| 269 | ! Old=206 km3/year=6527m3/s; UNESCO(65-84, p544)=7011m3/s |
---|
| 270 | ! --> 7011.8335m3/s |
---|
| 271 | DATA inb(28)/1/ |
---|
| 272 | DATA (iirnf(jc,28),jc=1,jpcoef)/ 171, 299*0 / |
---|
| 273 | DATA (ijrnf(jc,28),jc=1,jpcoef)/ 106, 299*0 / |
---|
| 274 | DATA (zrnfm(jm,28),jm=1,jpmois)/ & |
---|
| 275 | 6625., 7352., 7986., 9279., 9482., 8618., & |
---|
| 276 | 7586., 6001., 5210., 4989., 4921., 6093./ |
---|
| 277 | |
---|
| 278 | DATA inb(29)/0/ |
---|
| 279 | DATA inb(30)/0/ |
---|
| 280 | |
---|
| 281 | ! Total run-offs(III)=9779.08301m3/s |
---|
| 282 | ! Total run-offs(I+II+III)=327509.094m3/s |
---|
| 283 | |
---|
| 284 | ! IV EURASIAN ARCTIC |
---|
| 285 | ! ------------------ |
---|
| 286 | ! 31-Iana (Russia) R1 |
---|
| 287 | ! Old=29 km3/year=919m3/s; UNESCO(65-72+74+76-84, p463)=936m3/s |
---|
| 288 | ! --> 0m3/s |
---|
| 289 | DATA inb(31)/0/ |
---|
| 290 | DATA (iirnf(jc,31),jc=1,jpcoef)/ 300*0 / |
---|
| 291 | DATA (ijrnf(jc,31),jc=1,jpcoef)/ 300*0 / |
---|
| 292 | DATA (zrnfm(jm,31),jm=1,jpmois)/ & |
---|
| 293 | 2., 1., 0., 0., 917., 3514., & |
---|
| 294 | 2968., 2329., 1322., 178., 36., 8./ |
---|
| 295 | ! 32-Ob (Russia) 66N45 69E30 R1 |
---|
| 296 | ! Old=385 km3/year=12200m3/s; UNESCO(65-84, p478)=12862m3/s |
---|
| 297 | ! --> 12861.5m3/s |
---|
| 298 | DATA inb(32)/2/ |
---|
| 299 | DATA (iirnf(jc,32),jc=1,jpcoef)/ 153, 153, 298*0 / |
---|
| 300 | DATA (ijrnf(jc,32),jc=1,jpcoef)/ 146, 147, 298*0 / |
---|
| 301 | DATA (zrnfm(jm,32),jm=1,jpmois)/ & |
---|
| 302 | 4977., 4150., 3611., 3590., 14723., 33366., & |
---|
| 303 | 30773., 22785., 14701., 9705., 6078., 5879./ |
---|
| 304 | ! 33-Yenesei (Russia) 71N50 82E40 R1 |
---|
| 305 | ! Old=560 km3/year=17745m3/s; UNESCO(65-84, p472)=17462m3/s |
---|
| 306 | ! --> 17461.666m3/s |
---|
| 307 | DATA inb(33)/1/ |
---|
| 308 | DATA (iirnf(jc,33),jc=1,jpcoef)/ 32, 299*0 / |
---|
| 309 | DATA (ijrnf(jc,33),jc=1,jpcoef)/ 147, 299*0 / |
---|
| 310 | DATA (zrnfm(jm,33),jm=1,jpmois)/ & |
---|
| 311 | 6659., 7007., 6895., 7089., 24183., 74965., & |
---|
| 312 | 25325., 15940., 16050., 12678., 6741., 6008./ |
---|
| 313 | ! 34-Severnaya Dvina(Russia)64N32 40E30 R5 |
---|
| 314 | ! Old=106 km3/year=3359m3/s; not in UNESCO data base |
---|
| 315 | ! --> 3359.00024m3/s |
---|
| 316 | DATA inb(34)/1/ |
---|
| 317 | DATA (iirnf(jc,34),jc=1,jpcoef)/ 153, 299*0 / |
---|
| 318 | DATA (ijrnf(jc,34),jc=1,jpcoef)/ 133, 299*0 / |
---|
| 319 | DATA (zrnfm(jm,34),jm=1,jpmois)/12*3359./ |
---|
| 320 | ! 35-Lena (Russia) 72N25 126E40 R1 |
---|
| 321 | ! --> 16192.333m3/s |
---|
| 322 | DATA inb(35)/1/ |
---|
| 323 | DATA (iirnf(jc,35),jc=1,jpcoef)/ 36, 299*0 / |
---|
| 324 | DATA (ijrnf(jc,35),jc=1,jpcoef)/ 137, 299*0 / |
---|
| 325 | DATA (zrnfm(jm,35),jm=1,jpmois)/ & |
---|
| 326 | 2663., 2095., 1629., 1324., 7203., 64230., & |
---|
| 327 | 40810., 28310., 25995., 13299., 3673., 3077./ |
---|
| 328 | ! 36-Kolyma (Russia) 69N30 161E00 R1 |
---|
| 329 | ! Old=71 km3/year=2250m3/s; UNESCO(65-84)=2138m3/s |
---|
| 330 | ! --> 2138.66675m3/s |
---|
| 331 | DATA inb(36)/1/ |
---|
| 332 | DATA (iirnf(jc,36),jc=1,jpcoef)/ 46, 299*0 / |
---|
| 333 | DATA (ijrnf(jc,36),jc=1,jpcoef)/ 128, 299*0 / |
---|
| 334 | DATA (zrnfm(jm,36),jm=1,jpmois)/ & |
---|
| 335 | 131., 92., 76., 65., 2576., 9143., & |
---|
| 336 | 4670., 3727., 3226., 1119., 630., 209./ |
---|
| 337 | ! 37-Indigirka (russia) 70N48 148E54 R1 |
---|
| 338 | ! Old=55 km3/year=1743m3/s; UNESCO(65-68+70+72-84)=1622. |
---|
| 339 | ! --> 1622.00012m3/s |
---|
| 340 | DATA inb(37)/1/ |
---|
| 341 | DATA (iirnf(jc,37),jc=1,jpcoef)/ 42, 299*0 / |
---|
| 342 | DATA (ijrnf(jc,37),jc=1,jpcoef)/ 131, 299*0 / |
---|
| 343 | DATA (zrnfm(jm,37),jm=1,jpmois)/ & |
---|
| 344 | 32., 17., 11., 7., 354., 5629., & |
---|
| 345 | 5210., 4617., 2823., 559., 142., 63./ |
---|
| 346 | |
---|
| 347 | DATA inb(38)/0/ |
---|
| 348 | DATA inb(39)/0/ |
---|
| 349 | DATA inb(40)/0/ |
---|
| 350 | |
---|
| 351 | ! Total run-offs(IV)=40773.6641m3/s |
---|
| 352 | ! Total run-offs(I+II+III+IV)=368282.75m3/s |
---|
| 353 | |
---|
| 354 | ! V ASIA |
---|
| 355 | ! ------ |
---|
| 356 | ! 41-Amur (Russia) 52N56 141E10 R2 |
---|
| 357 | ! Old=325 km3/year=10299m3/s; UNESCO(65-84, p451)=8792m3/s; ratio=1.17 |
---|
| 358 | ! --> 10299.332m3/s |
---|
| 359 | DATA inb(41)/1/ |
---|
| 360 | DATA (iirnf(jc,41),jc=1,jpcoef)/ 33, 299*0 / |
---|
| 361 | DATA (ijrnf(jc,41),jc=1,jpcoef)/ 116, 299*0 / |
---|
| 362 | DATA (zrnfm(jm,41),jm=1,jpmois)/ & |
---|
| 363 | 2108., 1543., 1252., 4088., 15464., 17336., & |
---|
| 364 | 16100., 20801., 21548., 15658., 5188., 2506./ |
---|
| 365 | ! 42-Liaohe (China) 40N40 122E09 R5 |
---|
| 366 | ! Old=6 km3/year=190m3/s; not found in UNESCO data base |
---|
| 367 | ! --> 189.999985m3/s |
---|
| 368 | DATA inb(42)/1/ |
---|
| 369 | DATA (iirnf(jc,42),jc=1,jpcoef)/ 22, 299*0 / |
---|
| 370 | DATA (ijrnf(jc,42),jc=1,jpcoef)/ 104, 299*0 / |
---|
| 371 | DATA (zrnfm(jm,42),jm=1,jpmois)/12*190./ |
---|
| 372 | ! 43-Daling (China) 40N56 121E43 R5 |
---|
| 373 | ! Old=1 km3/year=32m3/s; not found in UNESCO data base |
---|
| 374 | ! --> 31.9999962m3/s |
---|
| 375 | DATA inb(43)/1/ |
---|
| 376 | DATA (iirnf(jc,43),jc=1,jpcoef)/ 24, 299*0 / |
---|
| 377 | DATA (ijrnf(jc,43),jc=1,jpcoef)/ 104, 299*0 / |
---|
| 378 | DATA (zrnfm(jm,43),jm=1,jpmois)/12*32./ |
---|
| 379 | ! 44-Haiho (China) 6N17 1E23 |
---|
| 380 | ! Old=2 km3/year=64m3/s; not found in UNESCO data base |
---|
| 381 | ! --> 63.9999924m3/s |
---|
| 382 | DATA inb(44)/1/ |
---|
| 383 | DATA (iirnf(jc,44),jc=1,jpcoef)/ 28, 299*0 / |
---|
| 384 | DATA (ijrnf(jc,44),jc=1,jpcoef)/ 106, 299*0 / |
---|
| 385 | DATA (zrnfm(jm,44),jm=1,jpmois)/12*64./ |
---|
| 386 | ! 45-Yellow/Huangho (China) 37N32 118E19 R2 |
---|
| 387 | ! Old=49 km3/year=1553m3/s; UNESCO(p371)=1210m3/s; ratio=1.28 |
---|
| 388 | ! --> 1552.5m3/s |
---|
| 389 | DATA inb(45)/1/ |
---|
| 390 | DATA (iirnf(jc,45),jc=1,jpcoef)/ 22, 299*0 / |
---|
| 391 | DATA (ijrnf(jc,45),jc=1,jpcoef)/ 103, 299*0 / |
---|
| 392 | DATA (zrnfm(jm,45),jm=1,jpmois)/ & |
---|
| 393 | 697., 674., 1282., 1206., 1109., 778., & |
---|
| 394 | 1964., 3270., 3668., 2133., 978., 871./ |
---|
| 395 | ! 46-Yangtze (China) 31N48 121E10=Changjiang R2 |
---|
| 396 | ! Old=900 km3/year=28520m3/s; UNESCO(p372)=25032m3/s; ratio=1.14 |
---|
| 397 | ! --> 28519.584m3/s |
---|
| 398 | DATA inb(46)/1/ |
---|
| 399 | DATA (iirnf(jc,46),jc=1,jpcoef)/ 23, 299*0 / |
---|
| 400 | DATA (ijrnf(jc,46),jc=1,jpcoef)/ 98, 299*0 / |
---|
| 401 | DATA (zrnfm(jm,46),jm=1,jpmois)/ & |
---|
| 402 | 10994., 10548., 13254., 24097., 36972., 47197., & |
---|
| 403 | 53891., 42070., 37627., 30762., 22046., 12777./ |
---|
| 404 | ! 47-Pearl/Zhujiang (China) 23N36 106E34=Xijiang R2 |
---|
| 405 | ! Old=302 km3/year=9570m3/s; UNESCO(76,82, p373)=6987m3/s; ratio=1.37 |
---|
| 406 | ! --> 9570.75m3/s |
---|
| 407 | DATA inb(47)/1/ |
---|
| 408 | DATA (iirnf(jc,47),jc=1,jpcoef)/ 22, 299*0 / |
---|
| 409 | DATA (ijrnf(jc,47),jc=1,jpcoef)/ 95, 299*0 / |
---|
| 410 | DATA (zrnfm(jm,47),jm=1,jpmois)/ & |
---|
| 411 | 2357., 2415., 2634., 6446., 14246., 18395., & |
---|
| 412 | 19213., 17558., 12312., 7255., 5864., 6154./ |
---|
| 413 | ! 48-Red/Hungho (Vietnam) 20N17 106E34 R5 |
---|
| 414 | ! Old=123 km3/year=3897m3/s; not in UNESCO data base |
---|
| 415 | ! --> 3897.m3/s |
---|
| 416 | DATA inb(48)/1/ |
---|
| 417 | DATA (iirnf(jc,48),jc=1,jpcoef)/ 16, 299*0 / |
---|
| 418 | DATA (ijrnf(jc,48),jc=1,jpcoef)/ 91, 299*0 / |
---|
| 419 | DATA (zrnfm(jm,48),jm=1,jpmois)/12*3897./ |
---|
| 420 | ! 49-Mekong (Vietnam) 10N33 105E24 R5 |
---|
| 421 | ! Old=470 km3/year=14893m3/s; not in UNESCO data base |
---|
| 422 | ! --> 14893.0029m3/s |
---|
| 423 | DATA inb(49)/2/ |
---|
| 424 | DATA (iirnf(jc,49),jc=1,jpcoef)/ 16, 16, 298*0 / |
---|
| 425 | DATA (ijrnf(jc,49),jc=1,jpcoef)/ 86, 87, 298*0 / |
---|
| 426 | DATA (zrnfm(jm,49),jm=1,jpmois)/12*14893./ |
---|
| 427 | ! 50-Irrawady (Burma) 15N50 95E06 R5 |
---|
| 428 | ! Old=428 km3/year=13563m3/s; not in UNESCO data base |
---|
| 429 | ! --> 13563.m3/s |
---|
| 430 | DATA inb(50)/1/ |
---|
| 431 | DATA (iirnf(jc,50),jc=1,jpcoef)/ 10, 299*0 / |
---|
| 432 | DATA (ijrnf(jc,50),jc=1,jpcoef)/ 90, 299*0 / |
---|
| 433 | DATA (zrnfm(jm,50),jm=1,jpmois)/12*13563./ |
---|
| 434 | ! 51-Ganges+Brahmaputra (Beng.) 22N00 91E00 R1 |
---|
| 435 | ! Old=971 km3/year=30769m3/s; UNESCO(69-70+73-75, p367)=31760m3/s |
---|
| 436 | ! --> 32147.498m3/s |
---|
| 437 | DATA inb(51)/2/ |
---|
| 438 | DATA (iirnf(jc,51),jc=1,jpcoef)/ 7, 8, 298*0 / |
---|
| 439 | DATA (ijrnf(jc,51),jc=1,jpcoef)/ 93, 93, 298*0 / |
---|
| 440 | DATA (zrnfm(jm,51),jm=1,jpmois)/ & |
---|
| 441 | 6623., 6315., 6432., 9410., 17263., 38302., & |
---|
| 442 | 64688., 80338., 84802., 43387., 17888., 10322./ |
---|
| 443 | ! 52-Mehandi (India) R5 |
---|
| 444 | ! Old=67 km3/year=2123m3/s; not in UNESCO data base |
---|
| 445 | ! --> 0m3/s |
---|
| 446 | DATA inb(52)/0/ |
---|
| 447 | DATA (iirnf(jc,52),jc=1,jpcoef)/ 300*0 / |
---|
| 448 | DATA (ijrnf(jc,52),jc=1,jpcoef)/ 300*0 / |
---|
| 449 | DATA (zrnfm(jm,52),jm=1,jpmois)/12*2123./ |
---|
| 450 | ! 53-Damodar (India) R2 |
---|
| 451 | ! Old=10 km3/year=320m3/s; UNESCO(p386)=173m3/s; ratio=1.85 |
---|
| 452 | ! --> 432.916656m3/s |
---|
| 453 | DATA inb(53)/1/ |
---|
| 454 | DATA (iirnf(jc,53),jc=1,jpcoef)/ 6, 299*0 / |
---|
| 455 | DATA (ijrnf(jc,53),jc=1,jpcoef)/ 93, 299*0 / |
---|
| 456 | DATA (zrnfm(jm,53),jm=1,jpmois)/ & |
---|
| 457 | 51., 37., 42., 49., 85., 296., & |
---|
| 458 | 896., 1390., 1591., 542., 172., 44./ |
---|
| 459 | ! 54-Godavari (India) 17N00 81E45 R2 |
---|
| 460 | ! Old=84 km3/year=2662m3/s; UNESCO(p379)=1916m3/s; ratio=1.39 |
---|
| 461 | ! --> 3670.5m3/s |
---|
| 462 | DATA inb(54)/1/ |
---|
| 463 | DATA (iirnf(jc,54),jc=1,jpcoef)/ 3, 299*0 / |
---|
| 464 | DATA (ijrnf(jc,54),jc=1,jpcoef)/ 90, 299*0 / |
---|
| 465 | DATA (zrnfm(jm,54),jm=1,jpmois)/ & |
---|
| 466 | 988., 737., 280., 219., 196., 1691., & |
---|
| 467 | 8063., 14571., 11428., 3953., 1221., 699./ |
---|
| 468 | ! 55-Indus (Pakistan) 24N20 67E47 R2 |
---|
| 469 | ! Old=238 km3/year=7542m3/s; UNESCO (76-79, p428)=2396m3/s; ratio=3.15 |
---|
| 470 | ! --> 7562.m3/s |
---|
| 471 | DATA inb(55)/2/ |
---|
| 472 | DATA (iirnf(jc,55),jc=1,jpcoef)/ 176, 176, 298*0 / |
---|
| 473 | DATA (ijrnf(jc,55),jc=1,jpcoef)/ 93, 94, 298*0 / |
---|
| 474 | DATA (zrnfm(jm,55),jm=1,jpmois)/ & |
---|
| 475 | 988., 737., 1904., 1968., 3625., 6143., & |
---|
| 476 | 15969., 36656., 17173., 3215., 1251., 1115./ |
---|
| 477 | ! 56-Tigris and Euphrates (Iraq) 31N00 47E25 R1 |
---|
| 478 | ! Old=46 km3/year=1458m3/s; UNESCO(76-79, p428)=2396m3/s |
---|
| 479 | ! --> 2248.8335m3/s |
---|
| 480 | DATA inb(56)/1/ |
---|
| 481 | DATA (iirnf(jc,56),jc=1,jpcoef)/ 172, 299*0 / |
---|
| 482 | DATA (ijrnf(jc,56),jc=1,jpcoef)/ 94, 299*0 / |
---|
| 483 | DATA (zrnfm(jm,56),jm=1,jpmois)/ & |
---|
| 484 | 1872., 2127., 2962., 4944., 5036., 3078., & |
---|
| 485 | 1362., 900., 786., 993., 1184., 1742./ |
---|
| 486 | |
---|
| 487 | DATA inb(57)/0/ |
---|
| 488 | DATA inb(58)/0/ |
---|
| 489 | DATA inb(59)/0/ |
---|
| 490 | DATA inb(60)/0/ |
---|
| 491 | |
---|
| 492 | ! Total run-offs (V)=128642.922m3/s |
---|
| 493 | ! Total run-offs (I+II+III+IV+V)=496925.688m3/s |
---|
| 494 | |
---|
| 495 | ! VI AFRICA |
---|
| 496 | ! ---------- |
---|
| 497 | ! 61-Nile (Egypt) 30N10 31E06 R1 |
---|
| 498 | ! Old=30 km3/year=951m3/s; UNESCO(73-84)=1251m3/s |
---|
| 499 | ! --> 1251.33337m3/s |
---|
| 500 | DATA inb(61)/1/ |
---|
| 501 | DATA (iirnf(jc,61),jc=1,jpcoef)/ 176, 299*0 / |
---|
| 502 | DATA (ijrnf(jc,61),jc=1,jpcoef)/ 97, 299*0 / |
---|
| 503 | DATA (zrnfm(jm,61),jm=1,jpmois)/ & |
---|
| 504 | 1239., 1035., 1126., 1110., 1170., 1542., & |
---|
| 505 | 1742., 1559., 1191., 1103., 1075., 1124./ |
---|
| 506 | ! 62-Niger (Nigeria) 5N33 6E33 R1 |
---|
| 507 | ! Old=192 km3/year=6084m3/s; HLA=5545m3/s; |
---|
| 508 | ! Data from HLA: 4.5N - 6 E 1950/87 |
---|
| 509 | ! --> 5545.08301m3/s |
---|
| 510 | DATA inb(62)/1/ |
---|
| 511 | DATA (iirnf(jc,62),jc=1,jpcoef)/ 146, 299*0 / |
---|
| 512 | DATA (ijrnf(jc,62),jc=1,jpcoef)/ 81, 299*0 / |
---|
| 513 | DATA (zrnfm(jm,62),jm=1,jpmois)/ & |
---|
| 514 | 2029., 1804., 1573., 1418., 1494., 2561., & |
---|
| 515 | 5272., 9629., 14951., 16227., 6842., 2741./ |
---|
| 516 | ! 63-Zaire/Congo (Congo) 6S04 12E24 R1 |
---|
| 517 | ! Old=1250 km3/year=39610m3/s; UNESCO(65-83, p149)=41941m3/s; HLA |
---|
| 518 | ! =39720m3/s |
---|
| 519 | ! Data from HLA: 6S - 12 E 1902/96 |
---|
| 520 | ! --> 39719.5m3/s |
---|
| 521 | DATA inb(63)/2/ |
---|
| 522 | DATA (iirnf(jc,63),jc=1,jpcoef)/ 148, 148, 298*0 / |
---|
| 523 | DATA (ijrnf(jc,63),jc=1,jpcoef)/ 63, 64, 298*0 / |
---|
| 524 | DATA (zrnfm(jm,63),jm=1,jpmois)/ & |
---|
| 525 | 47200., 37692., 34374., 36603., 37862., 35588., & |
---|
| 526 | 30966., 30774., 35981., 42825., 51455., 55314./ |
---|
| 527 | ! 64-Orange (Sth Africa) 28S41 16E28 R5 |
---|
| 528 | ! Old=11 km3/year=349m3/s |
---|
| 529 | ! --> 349.000031m3/s |
---|
| 530 | DATA inb(64)/1/ |
---|
| 531 | DATA (iirnf(jc,64),jc=1,jpcoef)/ 150, 299*0 / |
---|
| 532 | DATA (ijrnf(jc,64),jc=1,jpcoef)/ 51, 299*0 / |
---|
| 533 | DATA (zrnfm(jm,64),jm=1,jpmois)/12*349./ |
---|
| 534 | ! 65-Zambesi (Mozambique) 18S55 36E04 R5 |
---|
| 535 | ! Old=223 km3/year=7066m3/s |
---|
| 536 | ! --> 7066.00049m3/s |
---|
| 537 | DATA inb(65)/1/ |
---|
| 538 | DATA (iirnf(jc,65),jc=1,jpcoef)/ 160, 299*0 / |
---|
| 539 | DATA (ijrnf(jc,65),jc=1,jpcoef)/ 56, 299*0 / |
---|
| 540 | DATA (zrnfm(jm,65),jm=1,jpmois)/12*7066./ |
---|
| 541 | ! 66-Limpopo (mozambique) 25S15 33E30 R5 |
---|
| 542 | ! Old=5 km3/year=158m3/s |
---|
| 543 | ! --> 158.m3/s |
---|
| 544 | DATA inb(66)/1/ |
---|
| 545 | DATA (iirnf(jc,66),jc=1,jpcoef)/ 159, 299*0 / |
---|
| 546 | DATA (ijrnf(jc,66),jc=1,jpcoef)/ 52, 299*0 / |
---|
| 547 | DATA (zrnfm(jm,66),jm=1,jpmois)/12*158./ |
---|
| 548 | ! 67-Rufiji (tanzania) 8S00 39E20 R5 |
---|
| 549 | ! Old=9 km3/year=285m3/s |
---|
| 550 | ! --> 285.m3/s |
---|
| 551 | DATA inb(67)/1/ |
---|
| 552 | DATA (iirnf(jc,67),jc=1,jpcoef)/ 162, 299*0 / |
---|
| 553 | DATA (ijrnf(jc,67),jc=1,jpcoef)/ 62, 299*0 / |
---|
| 554 | DATA (zrnfm(jm,67),jm=1,jpmois)/12*285./ |
---|
| 555 | ! Other rivers from the Gulf of Guinea |
---|
| 556 | ! 68-Kouilou (Congo) 4.5S-11.5E (UNESCO=p51) R1 |
---|
| 557 | ! Data from HLA: 4S - 11 E 1953/86 = 919m3/s |
---|
| 558 | ! --> 924.25m3/s |
---|
| 559 | DATA inb(68)/1/ |
---|
| 560 | DATA (iirnf(jc,68),jc=1,jpcoef)/ 147, 299*0 / |
---|
| 561 | DATA (ijrnf(jc,68),jc=1,jpcoef)/ 67, 299*0 / |
---|
| 562 | DATA (zrnfm(jm,68),jm=1,jpmois)/ & |
---|
| 563 | 1115., 1166., 1285., 1462., 1454., 725., & |
---|
| 564 | 480., 378., 327., 400., 1018., 1281./ |
---|
| 565 | ! 69-Nyanga (Gabon) 3S-10E (UNESCO=p66) R1 |
---|
| 566 | ! Data from HLA: 2.8N - 10 E 1952/82 = 264m3/s |
---|
| 567 | ! --> 264.166687m3/s |
---|
| 568 | DATA inb(69)/1/ |
---|
| 569 | DATA (iirnf(jc,69),jc=1,jpcoef)/ 147, 299*0 / |
---|
| 570 | DATA (ijrnf(jc,69),jc=1,jpcoef)/ 68, 299*0 / |
---|
| 571 | DATA (zrnfm(jm,69),jm=1,jpmois)/ & |
---|
| 572 | 126., 99., 143., 253., 316., 300., & |
---|
| 573 | 156., 93., 231., 557., 592., 304./ |
---|
| 574 | ! 70-Ogoue (Gabon) 1S-9E (UNESCO, p69) R1 |
---|
| 575 | ! Data from HLA: .75S - 9 E 1930/90 = 4512m3/s |
---|
| 576 | ! --> 4511.83301m3/s |
---|
| 577 | DATA inb(70)/1/ |
---|
| 578 | DATA (iirnf(jc,70),jc=1,jpcoef)/ 146, 299*0 / |
---|
| 579 | DATA (ijrnf(jc,70),jc=1,jpcoef)/ 72, 299*0 / |
---|
| 580 | DATA (zrnfm(jm,70),jm=1,jpmois)/ & |
---|
| 581 | 4514., 3988., 4622., 5403., 5790., 4145., & |
---|
| 582 | 2616., 1961., 2119., 4304., 7870., 6810./ |
---|
| 583 | ! 71-Sanaga (Cameroun) 3.5N-9.5E (UNESCO, p31) R1 |
---|
| 584 | ! Data from HLA: 3.9N - 9.6E 1944/80 = 1983m3/s |
---|
| 585 | ! --> 1982.58337m3/s |
---|
| 586 | DATA inb(71)/1/ |
---|
| 587 | DATA (iirnf(jc,71),jc=1,jpcoef)/ 146, 299*0 / |
---|
| 588 | DATA (ijrnf(jc,71),jc=1,jpcoef)/ 81, 299*0 / |
---|
| 589 | DATA (zrnfm(jm,71),jm=1,jpmois)/ & |
---|
| 590 | 813., 578., 517., 633., 909., 1278., & |
---|
| 591 | 1928., 2653., 4361., 5470., 3307., 1344./ |
---|
| 592 | ! 72-Nyong (Cameroun) 3.1N-9.5E (UNESCO, p36) R1 |
---|
| 593 | ! Data from HLA: 3.5N - 9.8E 1951/84 = 432m3/s |
---|
| 594 | ! --> 431.166656m3/s |
---|
| 595 | DATA inb(72)/1/ |
---|
| 596 | DATA (iirnf(jc,72),jc=1,jpcoef)/ 146, 299*0 / |
---|
| 597 | DATA (ijrnf(jc,72),jc=1,jpcoef)/ 80, 299*0 / |
---|
| 598 | DATA (zrnfm(jm,72),jm=1,jpmois)/ & |
---|
| 599 | 232., 128., 150., 266., 402., 459., & |
---|
| 600 | 353., 306., 604., 930., 878., 466./ |
---|
| 601 | ! 73-Ntem (Cameroun) 2.5N-9.5E (UNESCO, p36) R1 |
---|
| 602 | ! Data from HLA: 3N - 9.8E 1951/87 = 330m3/s |
---|
| 603 | ! --> 329.75m3/s |
---|
| 604 | DATA inb(73)/1/ |
---|
| 605 | DATA (iirnf(jc,73),jc=1,jpcoef)/ 146, 299*0 / |
---|
| 606 | DATA (ijrnf(jc,73),jc=1,jpcoef)/ 79, 299*0 / |
---|
| 607 | DATA (zrnfm(jm,73),jm=1,jpmois)/ & |
---|
| 608 | 452., 455., 492., 466., 482., 251., & |
---|
| 609 | 151., 108., 87., 133., 395., 485./ |
---|
| 610 | ! 74-Wouri (Cameroun) 4N-9.5E (UNESCO, p34) R1 |
---|
| 611 | ! Data from HLA: 4N - 9.5E 1951/84 = 307m3/s |
---|
| 612 | ! --> 306.583374m3/s |
---|
| 613 | DATA inb(74)/1/ |
---|
| 614 | DATA (iirnf(jc,74),jc=1,jpcoef)/ 145, 299*0 / |
---|
| 615 | DATA (ijrnf(jc,74),jc=1,jpcoef)/ 81, 299*0 / |
---|
| 616 | DATA (zrnfm(jm,74),jm=1,jpmois)/ & |
---|
| 617 | 88., 63., 68., 95., 139., 222., & |
---|
| 618 | 395., 633., 825., 675., 328., 148./ |
---|
| 619 | ! 75-Oueme (Benin) 6.5N-2.5E (UNESCO, p27) R1 |
---|
| 620 | ! Data from HLA: 6.2N - 2.5E 1951/84 =113m3/s |
---|
| 621 | ! --> 112.666664m3/s |
---|
| 622 | DATA inb(75)/1/ |
---|
| 623 | DATA (iirnf(jc,75),jc=1,jpcoef)/ 144, 299*0 / |
---|
| 624 | DATA (ijrnf(jc,75),jc=1,jpcoef)/ 83, 299*0 / |
---|
| 625 | DATA (zrnfm(jm,75),jm=1,jpmois)/ & |
---|
| 626 | 0., 0., 0., 0., 1., 18., & |
---|
| 627 | 96., 324., 531., 319., 58., 5./ |
---|
| 628 | ! 76-Mono(Tepetou,Benin/Togo) 6.25N-1.8E (U, p27) R1 |
---|
| 629 | ! Data from HLA: 6.2N - 1 E 1951/85 = 96m3/s |
---|
| 630 | ! --> 96.4999924m3/s |
---|
| 631 | DATA inb(76)/1/ |
---|
| 632 | DATA (iirnf(jc,76),jc=1,jpcoef)/ 143, 299*0 / |
---|
| 633 | DATA (ijrnf(jc,76),jc=1,jpcoef)/ 83, 299*0 / |
---|
| 634 | DATA (zrnfm(jm,76),jm=1,jpmois)/ & |
---|
| 635 | 2., 1., 1., 4., 8., 44., & |
---|
| 636 | 168., 274., 386., 215., 47., 8./ |
---|
| 637 | ! 77-Comoe (Ivory Coast) 5N-4W (UNESCO, p56) R1 |
---|
| 638 | ! Data from HLA: 5.1N - 4 W 1955/86 = 194m3/s |
---|
| 639 | ! --> 194.25m3/s |
---|
| 640 | DATA inb(77)/1/ |
---|
| 641 | DATA (iirnf(jc,77),jc=1,jpcoef)/ 140, 299*0 / |
---|
| 642 | DATA (ijrnf(jc,77),jc=1,jpcoef)/ 82, 299*0 / |
---|
| 643 | DATA (zrnfm(jm,77),jm=1,jpmois)/ & |
---|
| 644 | 14., 7., 9., 17., 29., 90., & |
---|
| 645 | 145., 349., 740., 688., 198., 45./ |
---|
| 646 | ! 78-Sassandra (Ivory Coast) 5N-6W (UNESCO, p58) R1 |
---|
| 647 | ! Data from HLA: 5N - 6 W 1953/86 = 449m3/s |
---|
| 648 | ! --> 449.333344m3/s |
---|
| 649 | DATA inb(78)/1/ |
---|
| 650 | DATA (iirnf(jc,78),jc=1,jpcoef)/ 139, 299*0 / |
---|
| 651 | DATA (ijrnf(jc,78),jc=1,jpcoef)/ 82, 299*0 / |
---|
| 652 | DATA (zrnfm(jm,78),jm=1,jpmois)/ & |
---|
| 653 | 144., 116., 119., 143., 156., 334., & |
---|
| 654 | 419., 692., 1277., 1190., 553., 249./ |
---|
| 655 | |
---|
| 656 | DATA inb(79)/0/ |
---|
| 657 | DATA inb(80)/0/ |
---|
| 658 | DATA inb(82)/0/ |
---|
| 659 | DATA inb(83)/0/ |
---|
| 660 | DATA inb(84)/0/ |
---|
| 661 | DATA inb(85)/0/ |
---|
| 662 | DATA inb(86)/0/ |
---|
| 663 | DATA inb(87)/0/ |
---|
| 664 | DATA inb(88)/0/ |
---|
| 665 | DATA inb(89)/0/ |
---|
| 666 | DATA inb(90)/0/ |
---|
| 667 | |
---|
| 668 | ! Total run-offs (VI)=63977.m3/s |
---|
| 669 | ! Total run-offs (I+II+III+IV+V+VI)=560902.688m3/s |
---|
| 670 | |
---|
| 671 | ! VII OCEANIA |
---|
| 672 | ! ------------ |
---|
| 673 | ! 91-Murray (Austrlia) 35S34 138E54 R5 |
---|
| 674 | ! Old=22 km3/year=697m3/s |
---|
| 675 | ! --> 696.999939m3/s |
---|
| 676 | DATA inb(91)/1/ |
---|
| 677 | DATA (iirnf(jc,91),jc=1,jpcoef)/ 30, 299*0 / |
---|
| 678 | DATA (ijrnf(jc,91),jc=1,jpcoef)/ 47, 299*0 / |
---|
| 679 | DATA (zrnfm(jm,91),jm=1,jpmois)/12*697./ |
---|
| 680 | ! 92-Haast (N. Zeland) 43S50 169E02 R5 |
---|
| 681 | ! Old=6 km3/year=190m3/s |
---|
| 682 | ! --> 189.999985m3/s |
---|
| 683 | DATA inb(92)/1/ |
---|
| 684 | DATA (iirnf(jc,92),jc=1,jpcoef)/ 48, 299*0 / |
---|
| 685 | DATA (ijrnf(jc,92),jc=1,jpcoef)/ 41, 299*0 / |
---|
| 686 | DATA (zrnfm(jm,92),jm=1,jpmois)/12*190./ |
---|
| 687 | ! 93-Fly (N. Guinea) 8S30 143E05 R5 |
---|
| 688 | ! Old=77 km3/year=2440m3/s |
---|
| 689 | ! --> 2440.m3/s |
---|
| 690 | DATA inb(93)/1/ |
---|
| 691 | DATA (iirnf(jc,93),jc=1,jpcoef)/ 34, 299*0 / |
---|
| 692 | DATA (ijrnf(jc,93),jc=1,jpcoef)/ 62, 299*0 / |
---|
| 693 | DATA (zrnfm(jm,93),jm=1,jpmois)/12*2440./ |
---|
| 694 | ! 94-Purari (N. Guinea) 7S25 145E05 R4 |
---|
| 695 | ! Old=77 km3/year=2440m3/s; UNESCO(77+83,p595)=2727m3/s |
---|
| 696 | ! --> 2727.33325m3/s |
---|
| 697 | DATA inb(94)/1/ |
---|
| 698 | DATA (iirnf(jc,94),jc=1,jpcoef)/ 36, 299*0 / |
---|
| 699 | DATA (ijrnf(jc,94),jc=1,jpcoef)/ 64, 299*0 / |
---|
| 700 | DATA (zrnfm(jm,94),jm=1,jpmois)/ & |
---|
| 701 | 1972., 3067., 2332., 2981., 2693., 2876., & |
---|
| 702 | 2867., 3477., 2195., 2967., 2674., 2627./ |
---|
| 703 | ! 95-Choshui ch''i (taiwan) 24N03 120E23 R2 |
---|
| 704 | ! Old=6 km3/year=190m3/s; UNESCO(65-68, p374)=120m3/s; ratio=1.58 |
---|
| 705 | ! --> 0.m3/s |
---|
| 706 | DATA inb(95)/0/ |
---|
| 707 | DATA (iirnf(jc,95),jc=1,jpcoef)/ 22, 299*0 / |
---|
| 708 | DATA (ijrnf(jc,95),jc=1,jpcoef)/ 94, 299*0 / |
---|
| 709 | DATA (zrnfm(jm,95),jm=1,jpmois)/ & |
---|
| 710 | 65., 63., 83., 100., 177., 535., & |
---|
| 711 | 332., 313., 236., 193., 101., 84./ |
---|
| 712 | ! 96-Kaoping (Taiwan) R5 |
---|
| 713 | ! Old=9 km3/year=285m3/s |
---|
| 714 | ! --> 0.m3/s |
---|
| 715 | DATA inb(96)/0/ |
---|
| 716 | DATA (iirnf(jc,96),jc=1,jpcoef)/ 300*0 / |
---|
| 717 | DATA (ijrnf(jc,96),jc=1,jpcoef)/ 300*0 / |
---|
| 718 | DATA (zrnfm(jm,96),jm=1,jpmois)/12*285./ |
---|
| 719 | ! 97-Tsengwen (Taiwan) R5 |
---|
| 720 | ! Old=2 km3/year=63m3/s |
---|
| 721 | ! --> 0.m3/s |
---|
| 722 | DATA inb(97)/0/ |
---|
| 723 | DATA (iirnf(jc,97),jc=1,jpcoef)/ 300*0 / |
---|
| 724 | DATA (ijrnf(jc,97),jc=1,jpcoef)/ 300*0 / |
---|
| 725 | DATA (zrnfm(jm,97),jm=1,jpmois)/12*63./ |
---|
| 726 | ! 98-Hualien (Taiwan) R5 |
---|
| 727 | ! Old=4 km3/year=127m3/s |
---|
| 728 | ! --> 0.m3/s |
---|
| 729 | DATA inb(98)/0/ |
---|
| 730 | DATA (iirnf(jc,98),jc=1,jpcoef)/ 300*0 / |
---|
| 731 | DATA (ijrnf(jc,98),jc=1,jpcoef)/ 300*0 / |
---|
| 732 | DATA (zrnfm(jm,98),jm=1,jpmois)/12*127./ |
---|
| 733 | ! 99-Peinan (Taiwan) 22N46 121E10 R5 |
---|
| 734 | ! Old=4 km3/year=127m3/s |
---|
| 735 | ! --> 127.000008m3/s |
---|
| 736 | DATA inb(99)/1/ |
---|
| 737 | DATA (iirnf(jc,99),jc=1,jpcoef)/ 23, 299*0 / |
---|
| 738 | DATA (ijrnf(jc,99),jc=1,jpcoef)/ 94, 299*0 / |
---|
| 739 | DATA (zrnfm(jm,99),jm=1,jpmois)/12*127./ |
---|
| 740 | ! 100-Hsiukuluan (Taiwan) R5 |
---|
| 741 | ! Old=4 km3/year=127m3/s |
---|
| 742 | ! --> 0.m3/s |
---|
| 743 | DATA inb(100)/0/ |
---|
| 744 | DATA (iirnf(jc,100),jc=1,jpcoef)/ 300*0 / |
---|
| 745 | DATA (ijrnf(jc,100),jc=1,jpcoef)/ 300*0 / |
---|
| 746 | DATA (zrnfm(jm,100),jm=1,jpmois)/12*127./ |
---|
| 747 | |
---|
| 748 | DATA inb(101)/0/ |
---|
| 749 | DATA inb(102)/0/ |
---|
| 750 | |
---|
| 751 | ! Total run-offs(VII)=6181.33301m3/s |
---|
| 752 | ! Total run-offs(I+II+III+IV+V+VI+VII)= 567084. m3/s |
---|
| 753 | ! = 1.588668056E-6 kg/m2/s |
---|
| 754 | ! = 17883.5586 km3/Year |
---|
| 755 | ! = 0.567083955 Sverdrup |
---|
| 756 | |
---|
| 757 | ! VIII ANTARCTICA |
---|
| 758 | ! --------------- |
---|
| 759 | ! 103 -Antarcti! ice discharge (2 613 Gt/year) (jacobs et al 1992) |
---|
| 760 | ! Data from Jacobs et al 92: =2613 km3/year=82857.686454 m3/s |
---|
| 761 | ! --> 82858 m3/s |
---|
| 762 | DATA inb(103)/295/ |
---|
| 763 | DATA (iirnf(jc,103),jc=1,jpcoef)/ & |
---|
| 764 | 1, 2, 3, 3, 4, 4, 5, 6, 7, 8, & |
---|
| 765 | 9, 9, 10, 11, 12, 13, 14, 14, 15, 16, & |
---|
| 766 | 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, & |
---|
| 767 | 27, 28, 29, 30, 31, 32, 32, 33, 34, 35, & |
---|
| 768 | 35, 36, 36, 37, 38, 39, 40, 40, 41, 42, & |
---|
| 769 | 42, 43, 43, 44, 44, 44, 44, 44, 44, 44, & |
---|
| 770 | 45, 45, 45, 45, 46, 46, 46, 46, 46, 47, & |
---|
| 771 | 47, 47, 47, 47, 48, 48, 48, 48, 48, 49, & |
---|
| 772 | 50, 51, 51, 52, 53, 54, 55, 56, 57, 58, & |
---|
| 773 | 59, 60, 61, 62, 62, 63, 63, 64, 65, 66, & |
---|
| 774 | 66, 67, 67, 68, 69, 69, 70, 71, 71, 72, & |
---|
| 775 | 73, 73, 74, 75, 76, 76, 77, 78, 78, 79, & |
---|
| 776 | 80, 81, 82, 83, 83, 84, 85, 86, 87, 88, & |
---|
| 777 | 88, 89, 89, 90, 91, 92, 93, 94, 95, 96, & |
---|
| 778 | 97, 98, 99, 100, 101, 102, 102, 103, 104, 104, & |
---|
| 779 | 104, 104, 104, 105, 105, 106, 106, 107, 107, 107, & |
---|
| 780 | 108, 108, 109, 109, 110, 110, 111, 111, 112, 112, & |
---|
| 781 | 112, 112, 112, 112, 112, 112, 112, 112, 112, 112, & |
---|
| 782 | 112, 112, 112, 112, 112, 113, 113, 113, 113, 113, & |
---|
| 783 | 114, 114, 114, 114, 115, 115, 115, 115, 115, 116, & |
---|
| 784 | 116, 117, 117, 118, 118, 119, 119, 120, 121, 122, & |
---|
| 785 | 123, 124, 124, 125, 125, 126, 126, 127, 128, 128, & |
---|
| 786 | 129, 130, 130, 131, 132, 132, 133, 133, 133, 133, & |
---|
| 787 | 133, 134, 135, 135, 136, 136, 136, 137, 137, 138, & |
---|
| 788 | 139, 140, 141, 142, 142, 143, 144, 145, 146, 147, & |
---|
| 789 | 148, 149, 150, 151, 152, 153, 154, 155, 156, 156, & |
---|
| 790 | 157, 158, 159, 160, 161, 161, 162, 163, 163, 164, & |
---|
| 791 | 165, 165, 166, 166, 167, 168, 169, 170, 171, 171, & |
---|
| 792 | 172, 173, 173, 174, 175, 176, 177, 177, 178, 178, & |
---|
| 793 | 179, 180, 180, 181, 181, 0, 0, 0, 0, 0 & |
---|
| 794 | / |
---|
| 795 | DATA (ijrnf(jc,103),jc=1,jpcoef)/ & |
---|
| 796 | 19, 20, 20, 21, 21, 22, 22, 22, 22, 22, & |
---|
| 797 | 22, 23, 23, 23, 23, 23, 22, 23, 22, 22, & |
---|
| 798 | 22, 22, 22, 22, 22, 22, 22, 22, 22, 22, & |
---|
| 799 | 22, 22, 22, 22, 22, 21, 22, 21, 21, 20, & |
---|
| 800 | 21, 19, 20, 19, 19, 19, 18, 19, 18, 17, & |
---|
| 801 | 18, 16, 17, 3, 4, 5, 6, 7, 8, 16, & |
---|
| 802 | 3, 8, 9, 16, 3, 9, 10, 15, 16, 3, & |
---|
| 803 | 10, 11, 14, 15, 3, 11, 12, 13, 14, 3, & |
---|
| 804 | 3, 2, 3, 2, 2, 2, 2, 2, 2, 2, & |
---|
| 805 | 2, 2, 2, 2, 3, 3, 4, 4, 4, 4, & |
---|
| 806 | 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, & |
---|
| 807 | 8, 9, 9, 9, 9, 10, 10, 10, 11, 11, & |
---|
| 808 | 11, 11, 11, 10, 11, 10, 10, 10, 10, 10, & |
---|
| 809 | 11, 11, 12, 12, 12, 12, 12, 12, 12, 12, & |
---|
| 810 | 12, 12, 12, 12, 12, 12, 13, 13, 13, 14, & |
---|
| 811 | 15, 16, 17, 17, 18, 18, 19, 19, 20, 21, & |
---|
| 812 | 21, 22, 22, 23, 23, 24, 24, 25, 8, 9, & |
---|
| 813 | 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, & |
---|
| 814 | 20, 21, 22, 25, 26, 7, 8, 22, 23, 26, & |
---|
| 815 | 7, 23, 24, 26, 6, 7, 24, 25, 26, 5, & |
---|
| 816 | 6, 4, 5, 3, 4, 2, 3, 2, 2, 2, & |
---|
| 817 | 2, 2, 3, 3, 4, 4, 5, 5, 5, 6, & |
---|
| 818 | 6, 6, 7, 7, 7, 8, 8, 9, 10, 11, & |
---|
| 819 | 12, 12, 12, 13, 13, 14, 15, 15, 16, 16, & |
---|
| 820 | 16, 16, 16, 16, 17, 17, 17, 17, 17, 17, & |
---|
| 821 | 17, 17, 17, 17, 17, 17, 17, 17, 17, 18, & |
---|
| 822 | 18, 18, 18, 18, 18, 19, 19, 19, 20, 20, & |
---|
| 823 | 20, 21, 21, 22, 22, 22, 22, 22, 21, 22, & |
---|
| 824 | 21, 20, 21, 20, 20, 20, 19, 20, 18, 19, & |
---|
| 825 | 18, 18, 19, 19, 20, 0, 0, 0, 0, 0 & |
---|
| 826 | / |
---|
| 827 | DATA (zrnfm(jm,103),jm=1,jpmois)/12*82858./ |
---|
| 828 | |
---|
| 829 | ! Total run-offs(VIII)=82858 m3/s |
---|
| 830 | ! Total run-offs(I+II+III+IV+V+VI+VII+VIII)= 649941. m3/s |
---|
| 831 | ! = 0.649940955 Sverdrup |
---|
| 832 | |
---|
| 833 | |
---|
| 834 | DATA (inb(jr),jr=104,jpriv)/17*0/ |
---|
| 835 | |
---|
| 836 | !!---------------------------------------------------------------------- |
---|
| 837 | !! OPA 8.5, LODYC-IPSL (2002) |
---|
| 838 | !!---------------------------------------------------------------------- |
---|
| 839 | |
---|
| 840 | IF( kt == nit000 ) THEN |
---|
| 841 | IF(lwp) WRITE(numout,*) |
---|
| 842 | IF(lwp) WRITE(numout,*) 'flxrnf : runoff + orca2' |
---|
| 843 | IF(lwp) WRITE(numout,*) '~~~~~~' |
---|
| 844 | IF(lwp) WRITE(numout,*) ' nrunoff = ', nrunoff |
---|
| 845 | IF(lwp) WRITE(numout,*) |
---|
| 846 | ENDIF |
---|
| 847 | |
---|
| 848 | ! 0. initialization and indexes modification for zoom version |
---|
| 849 | ! -------------------------------------------------------------- |
---|
| 850 | |
---|
| 851 | |
---|
| 852 | ! conversion factor m3/s --> kg/m2/s *e1t*e2t |
---|
| 853 | |
---|
| 854 | zconv = rauw |
---|
| 855 | |
---|
| 856 | IF( kt == nit000 ) THEN |
---|
| 857 | ! Set runoffs and upstream coeff to zero |
---|
| 858 | runoff (:,:) = 0.e0 |
---|
| 859 | upsrnfh(:,:) = 0.e0 |
---|
| 860 | upsrnfz(:) = 0.e0 |
---|
| 861 | upsadv (:,:) = 0.e0 |
---|
| 862 | zcoefr(:,:,:) = 0.e0 |
---|
| 863 | |
---|
| 864 | IF( nrunoff == 0 ) THEN |
---|
| 865 | IF(lwp) WRITE(numout,*) |
---|
| 866 | IF(lwp) WRITE(numout,*) ' NO RUNOFF in this simulation ' |
---|
| 867 | IF(lwp) WRITE(numout,*) |
---|
| 868 | ENDIF |
---|
| 869 | ENDIF |
---|
| 870 | |
---|
| 871 | ! 1. initialization of the runoff array |
---|
| 872 | ! ------------------------------------- |
---|
| 873 | |
---|
| 874 | IF( nrunoff == 1 .OR. nrunoff == 2) THEN |
---|
| 875 | |
---|
| 876 | iman = jpmois |
---|
| 877 | |
---|
| 878 | i15 = nday / 16 |
---|
| 879 | |
---|
| 880 | imois = nmonth + i15 - 1 |
---|
| 881 | IF( imois == 0) imois = iman |
---|
| 882 | IF( nleapy == 1 .AND. MOD( nyear, 4 ) == 0 ) THEN |
---|
| 883 | ! Number of Day Between Data |
---|
| 884 | idbd = nbiss(imois) |
---|
| 885 | ELSEIF( nleapy > 1 ) THEN |
---|
| 886 | idbd = nleapy |
---|
| 887 | ELSE |
---|
| 888 | idbd = nobis(imois) |
---|
| 889 | ENDIF |
---|
| 890 | ! Number of days between imois, 15 and the end of month |
---|
| 891 | idmeom = idbd - 15 |
---|
| 892 | |
---|
| 893 | ! 1.1 Calendar computation |
---|
| 894 | |
---|
| 895 | ! nrnf1 number of the first array record used in the simulation |
---|
| 896 | ! nrnf2 number of the last array record |
---|
| 897 | |
---|
| 898 | nrnf1 = imois |
---|
| 899 | nrnf2 = nrnf1 + 1 |
---|
| 900 | nrnf1 = MOD( nrnf1, iman ) |
---|
| 901 | IF( nrnf1 == 0 ) nrnf1 = iman |
---|
| 902 | nrnf2 = MOD( nrnf2, iman ) |
---|
| 903 | IF( nrnf2 == 0 ) nrnf2 = iman |
---|
| 904 | |
---|
| 905 | IF( kt == nit000 ) THEN |
---|
| 906 | IF(lwp) WRITE(numout,*) |
---|
| 907 | IF(lwp) WRITE(numout,*) 'flxrnf routine' |
---|
| 908 | IF(lwp) WRITE(numout,*) 'first array record used nrnf1 ',nrnf1 |
---|
| 909 | IF(lwp) WRITE(numout,*) 'last array record used nrnf2 ',nrnf2 |
---|
| 910 | ENDIF |
---|
| 911 | |
---|
| 912 | zxy = FLOAT( nday + idmeom - idbd * i15 ) / idbd |
---|
| 913 | |
---|
| 914 | DO jr = 1, jpriv-1 |
---|
| 915 | inbp = inb(jr) |
---|
| 916 | IF( inbp /= 0 ) THEN |
---|
| 917 | DO jl = 1, inbp |
---|
| 918 | ii = iirnf(jl,jr) - nimpp + 1 - jpizoom + 1 |
---|
| 919 | ij = ijrnf(jl,jr) - njmpp + 1 - jpjzoom + 1 |
---|
| 920 | iipt0 = MAX( 1, MIN( ii, jpi ) ) |
---|
| 921 | iipt1 = MAX( 0, MIN( ii, jpi-1 ) ) |
---|
| 922 | ijpt0 = MAX( 1, MIN( ij, jpj ) ) |
---|
| 923 | ijpt1 = MAX( 0, MIN( ij, jpj-1 ) ) |
---|
| 924 | DO jj = ijpt0, ijpt1 |
---|
| 925 | DO ji = iipt0, iipt1 |
---|
| 926 | runoff(ji,jj) = runoff(ji,jj) & |
---|
| 927 | + ( (1.-zxy) * zrnfm(nrnf1,jr) & |
---|
| 928 | + zxy * zrnfm(nrnf2,jr) ) / FLOAT(inbp) |
---|
| 929 | END DO |
---|
| 930 | END DO |
---|
| 931 | END DO |
---|
| 932 | ENDIF |
---|
| 933 | END DO |
---|
| 934 | |
---|
| 935 | |
---|
| 936 | ! 2. conversion in mm/day |
---|
| 937 | ! ----------------------- |
---|
| 938 | ! C a u t i o n : upward water flux, runoff is negative |
---|
| 939 | |
---|
| 940 | runoff(:,:) = -zconv * runoff(:,:) / ( e1t(:,:) * e2t(:,:) ) |
---|
| 941 | |
---|
| 942 | |
---|
| 943 | ! 3. advectve coefficient |
---|
| 944 | ! ----------------------- |
---|
| 945 | |
---|
| 946 | ! Creates the array coef that contains the coefficient to affect to |
---|
| 947 | ! the upstream scheme. advection scheme will be: |
---|
| 948 | ! coefr * upstream + (1- coefr) centered |
---|
| 949 | ! coefr must be between 0 and 1. |
---|
| 950 | ! 3 values are used: maximum = zrup1, between zrup2, small zrup3. |
---|
| 951 | ! |
---|
| 952 | IF( nrunoff == 2 .AND. kt == nit000 ) THEN |
---|
| 953 | |
---|
| 954 | zrup1 = 0.5 |
---|
| 955 | zrup2 = 0.25 |
---|
| 956 | zrup3 = 0.125 |
---|
| 957 | DO jr = 1, jpriv-1 |
---|
| 958 | inbp = inb(jr) |
---|
| 959 | IF( inbp /= 0) THEN |
---|
| 960 | DO jl = 1, inbp |
---|
| 961 | ! --> zrup1 (originally, = 1 = all upstream). |
---|
| 962 | ! ji,jj |
---|
| 963 | ii = iirnf(jl,jr) - nimpp + 1 - jpizoom - 1 |
---|
| 964 | ij = ijrnf(jl,jr) - njmpp + 1 - jpjzoom - 1 |
---|
| 965 | iipt0 = MAX( 1, MIN( ii,jpi ) ) |
---|
| 966 | iipt1 = MAX( 0, MIN( ii,jpi-1) ) |
---|
| 967 | ijpt0 = MAX( 1, MIN( ij,jpj ) ) |
---|
| 968 | ijpt1 = MAX( 0, MIN( ij,jpj-1) ) |
---|
| 969 | DO jj = ijpt0, ijpt1 |
---|
| 970 | DO ji = iipt0, iipt1 |
---|
| 971 | DO jn = 1, 3 |
---|
| 972 | zcoefr(ji,jj,jn) = zrup1 |
---|
| 973 | END DO |
---|
| 974 | zcoefr(ji,jj,4) = zrup2 |
---|
| 975 | zcoefr(ji,jj,5) = zrup3 |
---|
| 976 | END DO |
---|
| 977 | END DO |
---|
| 978 | ! --> zrup2 (originally = 0.5) |
---|
| 979 | ! ji,jj+1 |
---|
| 980 | ijpt0 = MAX( 1, MIN( ij+1, jpj ) ) |
---|
| 981 | ijpt1 = MAX( 0, MIN( ij+1, jpj-1) ) |
---|
| 982 | DO jj = ijpt0, ijpt1 |
---|
| 983 | DO ji = iipt0, iipt1 |
---|
| 984 | DO jn = 1, 3 |
---|
| 985 | zcoefr(ji,jj,jn) = MAX( zrup2, zcoefr(ji,jj,jn) ) |
---|
| 986 | END DO |
---|
| 987 | zcoefr(ji,jj,4) = MAX( zrup3, zcoefr(ji,jj,4) ) |
---|
| 988 | END DO |
---|
| 989 | END DO |
---|
| 990 | ! ji,jj-1 |
---|
| 991 | ijpt0 = MAX( 1, MIN( ij-1, jpj ) ) |
---|
| 992 | ijpt1 = MAX( 0, MIN( ij-1, jpj-1) ) |
---|
| 993 | DO jj = ijpt0, ijpt1 |
---|
| 994 | DO ji = iipt0, iipt1 |
---|
| 995 | DO jn = 1, 3 |
---|
| 996 | zcoefr(ji,jj,jn) = MAX( zrup2, zcoefr(ji,jj,jn) ) |
---|
| 997 | END DO |
---|
| 998 | zcoefr(ji,jj,4) = MAX( zrup3, zcoefr(ji,jj,4) ) |
---|
| 999 | END DO |
---|
| 1000 | END DO |
---|
| 1001 | ! ji+1,jj-1 |
---|
| 1002 | iipt0 = MAX( 1, MIN( ii+1, jpi ) ) |
---|
| 1003 | iipt1 = MAX( 0, MIN( ii+1, jpi-1) ) |
---|
| 1004 | DO jj = ijpt0, ijpt1 |
---|
| 1005 | DO ji = iipt0, iipt1 |
---|
| 1006 | DO jn = 1, 3 |
---|
| 1007 | zcoefr(ji,jj,jn) = MAX( zrup2, zcoefr(ji,jj,jn) ) |
---|
| 1008 | END DO |
---|
| 1009 | zcoefr(ji,jj,4) = MAX( zrup3, zcoefr(ji,jj,4) ) |
---|
| 1010 | END DO |
---|
| 1011 | END DO |
---|
| 1012 | ! ji+1,jj |
---|
| 1013 | ijpt0 = MAX( 1, MIN( ij, jpj ) ) |
---|
| 1014 | ijpt1 = MAX( 0, MIN( ij, jpj-1) ) |
---|
| 1015 | DO jj = ijpt0, ijpt1 |
---|
| 1016 | DO ji = iipt0, iipt1 |
---|
| 1017 | DO jn = 1, 3 |
---|
| 1018 | zcoefr(ji,jj,jn) = MAX( zrup2, zcoefr(ji,jj,jn) ) |
---|
| 1019 | END DO |
---|
| 1020 | zcoefr(ji,jj,4) = MAX( zrup3, zcoefr(ji,jj,4) ) |
---|
| 1021 | END DO |
---|
| 1022 | END DO |
---|
| 1023 | ! ji+1,jj+1 |
---|
| 1024 | ijpt0 = MAX( 1, MIN( ij+1,jpj ) ) |
---|
| 1025 | ijpt1 = MAX( 0, MIN( ij+1,jpj-1) ) |
---|
| 1026 | DO jj = ijpt0, ijpt1 |
---|
| 1027 | DO ji = iipt0, iipt1 |
---|
| 1028 | DO jn = 1, 3 |
---|
| 1029 | zcoefr(ji,jj,jn) = MAX( zrup2, zcoefr(ji,jj,jn) ) |
---|
| 1030 | END DO |
---|
| 1031 | zcoefr(ji,jj,4) = MAX( zrup3, zcoefr(ji,jj,4) ) |
---|
| 1032 | END DO |
---|
| 1033 | END DO |
---|
| 1034 | ! ji-1,jj+1 |
---|
| 1035 | iipt0 = MAX( 1, MIN( ii-1,jpi ) ) |
---|
| 1036 | iipt1 = MAX( 0, MIN( ii-1,jpi-1) ) |
---|
| 1037 | DO jj = ijpt0, ijpt1 |
---|
| 1038 | DO ji = iipt0, iipt1 |
---|
| 1039 | DO jn = 1, 3 |
---|
| 1040 | zcoefr(ji,jj,jn) = MAX( zrup2, zcoefr(ji,jj,jn) ) |
---|
| 1041 | END DO |
---|
| 1042 | zcoefr(ji,jj,4) = MAX( zrup3, zcoefr(ji,jj,4) ) |
---|
| 1043 | END DO |
---|
| 1044 | END DO |
---|
| 1045 | ! ji-1,jj |
---|
| 1046 | ijpt0 = MAX( 1, MIN( ij,jpj ) ) |
---|
| 1047 | ijpt1 = MAX( 0, MIN( ij,jpj-1) ) |
---|
| 1048 | DO jj = ijpt0, ijpt1 |
---|
| 1049 | DO ji = iipt0, iipt1 |
---|
| 1050 | DO jn = 1, 3 |
---|
| 1051 | zcoefr(ji,jj,jn) = MAX( zrup2, zcoefr(ji,jj,jn) ) |
---|
| 1052 | END DO |
---|
| 1053 | zcoefr(ji,jj,4) = MAX( zrup3, zcoefr(ji,jj,4) ) |
---|
| 1054 | END DO |
---|
| 1055 | END DO |
---|
| 1056 | ! ji-1,jj-1 |
---|
| 1057 | ijpt0 = MAX( 1, MIN( ij-1,jpj ) ) |
---|
| 1058 | ijpt1 = MAX( 0, MIN( ij-1,jpj-1) ) |
---|
| 1059 | DO jj = ijpt0, ijpt1 |
---|
| 1060 | DO ji = iipt0, iipt1 |
---|
| 1061 | DO jn = 1, 3 |
---|
| 1062 | zcoefr(ji,jj,jn) = MAX( zrup2, zcoefr(ji,jj,jn) ) |
---|
| 1063 | END DO |
---|
| 1064 | zcoefr(ji,jj,4) = MAX( zrup3, zcoefr(ji,jj,4) ) |
---|
| 1065 | END DO |
---|
| 1066 | END DO |
---|
| 1067 | ! --> zrup3 (originally = 0.25) |
---|
| 1068 | ! ji-1,jj+2 |
---|
| 1069 | ijpt0 = MAX( 1, MIN( ij+2,jpj ) ) |
---|
| 1070 | ijpt1 = MAX( 0, MIN( ij+2,jpj-1) ) |
---|
| 1071 | DO jj = ijpt0, ijpt1 |
---|
| 1072 | DO ji = iipt0, iipt1 |
---|
| 1073 | DO jn = 1, 3 |
---|
| 1074 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1075 | END DO |
---|
| 1076 | END DO |
---|
| 1077 | END DO |
---|
| 1078 | ! ji-1,jj-2 |
---|
| 1079 | ijpt0 = MAX( 1, MIN( ij-2,jpj ) ) |
---|
| 1080 | ijpt1 = MAX( 0, MIN( ij-2,jpj-1) ) |
---|
| 1081 | DO jj = ijpt0, ijpt1 |
---|
| 1082 | DO ji = iipt0, iipt1 |
---|
| 1083 | DO jn = 1, 3 |
---|
| 1084 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1085 | END DO |
---|
| 1086 | END DO |
---|
| 1087 | END DO |
---|
| 1088 | ! ji,jj-2 |
---|
| 1089 | iipt0 = MAX( 1, MIN( ii,jpi ) ) |
---|
| 1090 | iipt1 = MAX( 0, MIN( ii,jpi-1) ) |
---|
| 1091 | DO jj = ijpt0, ijpt1 |
---|
| 1092 | DO ji = iipt0, iipt1 |
---|
| 1093 | DO jn = 1, 3 |
---|
| 1094 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1095 | END DO |
---|
| 1096 | END DO |
---|
| 1097 | END DO |
---|
| 1098 | ! ji,jj+2 |
---|
| 1099 | ijpt0 = MAX( 1, MIN( ij+2,jpj ) ) |
---|
| 1100 | ijpt1 = MAX( 0, MIN( ij+2,jpj-1) ) |
---|
| 1101 | DO jj = ijpt0, ijpt1 |
---|
| 1102 | DO ji = iipt0, iipt1 |
---|
| 1103 | DO jn = 1, 3 |
---|
| 1104 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1105 | END DO |
---|
| 1106 | END DO |
---|
| 1107 | END DO |
---|
| 1108 | ! ji+1,jj-2 |
---|
| 1109 | iipt0 = MAX( 1, MIN( ii+1,jpi ) ) |
---|
| 1110 | iipt1 = MAX( 0, MIN( ii+1,jpi-1) ) |
---|
| 1111 | DO jj = ijpt0, ijpt1 |
---|
| 1112 | DO ji = iipt0, iipt1 |
---|
| 1113 | DO jn = 1, 3 |
---|
| 1114 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1115 | END DO |
---|
| 1116 | END DO |
---|
| 1117 | END DO |
---|
| 1118 | ! ji+1,jj+2 |
---|
| 1119 | ijpt0 = MAX( 1, MIN( ij+2,jpj ) ) |
---|
| 1120 | ijpt1 = MAX( 0, MIN( ij+2,jpj-1) ) |
---|
| 1121 | DO jj = ijpt0, ijpt1 |
---|
| 1122 | DO ji = iipt0, iipt1 |
---|
| 1123 | DO jn = 1, 3 |
---|
| 1124 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1125 | END DO |
---|
| 1126 | END DO |
---|
| 1127 | END DO |
---|
| 1128 | ! ji+2,jj-2 |
---|
| 1129 | iipt0 = MAX( 1, MIN( ii+2,jpi ) ) |
---|
| 1130 | iipt1 = MAX( 0, MIN( ii+2,jpi-1) ) |
---|
| 1131 | DO jj = ijpt0, ijpt1 |
---|
| 1132 | DO ji = iipt0, iipt1 |
---|
| 1133 | DO jn = 1, 3 |
---|
| 1134 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1135 | END DO |
---|
| 1136 | END DO |
---|
| 1137 | END DO |
---|
| 1138 | ! ji+2,jj+2 |
---|
| 1139 | ijpt0 = MAX( 1, MIN( ij+2,jpj ) ) |
---|
| 1140 | ijpt1 = MAX( 0, MIN( ij+2,jpj-1) ) |
---|
| 1141 | DO jj = ijpt0, ijpt1 |
---|
| 1142 | DO ji = iipt0, iipt1 |
---|
| 1143 | DO jn = 1, 3 |
---|
| 1144 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1145 | END DO |
---|
| 1146 | END DO |
---|
| 1147 | END DO |
---|
| 1148 | ! ji+2,jj-1 |
---|
| 1149 | ijpt0 = MAX( 1, MIN( ij-1,jpj ) ) |
---|
| 1150 | ijpt1 = MAX( 0, MIN( ij-1,jpj-1) ) |
---|
| 1151 | DO jj = ijpt0, ijpt1 |
---|
| 1152 | DO ji = iipt0, iipt1 |
---|
| 1153 | DO jn = 1, 3 |
---|
| 1154 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1155 | END DO |
---|
| 1156 | END DO |
---|
| 1157 | END DO |
---|
| 1158 | ! ji+2,jj+1 |
---|
| 1159 | ijpt0 = MAX( 1, MIN( ij+1,jpj ) ) |
---|
| 1160 | ijpt1 = MAX( 0, MIN( ij+1,jpj-1) ) |
---|
| 1161 | DO jj = ijpt0, ijpt1 |
---|
| 1162 | DO ji = iipt0, iipt1 |
---|
| 1163 | DO jn = 1, 3 |
---|
| 1164 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1165 | END DO |
---|
| 1166 | END DO |
---|
| 1167 | END DO |
---|
| 1168 | ! ji+2,jj |
---|
| 1169 | ijpt0 = MAX( 1, MIN( ij,jpj ) ) |
---|
| 1170 | ijpt1 = MAX( 0, MIN( ij,jpj-1) ) |
---|
| 1171 | DO jj = ijpt0, ijpt1 |
---|
| 1172 | DO ji = iipt0, iipt1 |
---|
| 1173 | DO jn = 1, 3 |
---|
| 1174 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1175 | END DO |
---|
| 1176 | END DO |
---|
| 1177 | END DO |
---|
| 1178 | ! ji-2,jj |
---|
| 1179 | iipt0 = MAX( 1, MIN( ii-2,jpi ) ) |
---|
| 1180 | iipt1 = MAX( 0, MIN( ii-2,jpi-1) ) |
---|
| 1181 | DO jj = ijpt0, ijpt1 |
---|
| 1182 | DO ji = iipt0, iipt1 |
---|
| 1183 | DO jn = 1, 3 |
---|
| 1184 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1185 | END DO |
---|
| 1186 | END DO |
---|
| 1187 | END DO |
---|
| 1188 | ! ji-2,jj-2 |
---|
| 1189 | ijpt0 = MAX( 1, MIN( ij-2,jpj ) ) |
---|
| 1190 | ijpt1 = MAX( 0, MIN( ij-2,jpj-1) ) |
---|
| 1191 | DO jj = ijpt0, ijpt1 |
---|
| 1192 | DO ji = iipt0, iipt1 |
---|
| 1193 | DO jn = 1, 3 |
---|
| 1194 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1195 | END DO |
---|
| 1196 | END DO |
---|
| 1197 | END DO |
---|
| 1198 | ! ji-2,jj+2 |
---|
| 1199 | ijpt0 = MAX( 1, MIN( ij+2,jpj ) ) |
---|
| 1200 | ijpt1 = MAX( 0, MIN( ij+2,jpj-1) ) |
---|
| 1201 | DO jj = ijpt0, ijpt1 |
---|
| 1202 | DO ji = iipt0, iipt1 |
---|
| 1203 | DO jn = 1, 3 |
---|
| 1204 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1205 | END DO |
---|
| 1206 | END DO |
---|
| 1207 | END DO |
---|
| 1208 | ! ji-2,jj-1 |
---|
| 1209 | ijpt0 = MAX( 1, MIN( ij-1,jpj ) ) |
---|
| 1210 | ijpt1 = MAX( 0, MIN( ij-1,jpj-1) ) |
---|
| 1211 | DO jj = ijpt0, ijpt1 |
---|
| 1212 | DO ji = iipt0, iipt1 |
---|
| 1213 | DO jn = 1, 3 |
---|
| 1214 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1215 | END DO |
---|
| 1216 | END DO |
---|
| 1217 | END DO |
---|
| 1218 | ! ji-2,jj+1 |
---|
| 1219 | ijpt0 = MAX( 1, MIN( ij+1,jpj ) ) |
---|
| 1220 | ijpt1 = MAX( 0, MIN( ij+1,jpj-1) ) |
---|
| 1221 | DO jj = ijpt0, ijpt1 |
---|
| 1222 | DO ji = iipt0, iipt1 |
---|
| 1223 | DO jn = 1, 3 |
---|
| 1224 | zcoefr(ji,jj,jn) = MAX( zrup3, zcoefr(ji,jj,jn) ) |
---|
| 1225 | END DO |
---|
| 1226 | END DO |
---|
| 1227 | END DO |
---|
| 1228 | END DO |
---|
| 1229 | ENDIF |
---|
| 1230 | END DO |
---|
| 1231 | upsrnfh(:,:) = zcoefr(:,:,1) |
---|
| 1232 | upsrnfz(:) = 0.e0 |
---|
| 1233 | upsrnfz(1) = 1.0 |
---|
| 1234 | upsrnfz(2) = 1.0 |
---|
| 1235 | upsrnfz(3) = zrup1 |
---|
| 1236 | upsrnfz(4) = zrup2 |
---|
| 1237 | upsrnfz(5) = zrup3 |
---|
| 1238 | |
---|
| 1239 | ! Reduces the sea surface restoring term to Levitus98 |
---|
| 1240 | ! in the Sound Strait |
---|
| 1241 | DO jj = mj0(116), mj1(116) |
---|
| 1242 | DO ji = mi0(144), mi1(144) |
---|
| 1243 | upsrnfh(ji,jj) = 0.25 |
---|
| 1244 | END DO |
---|
| 1245 | DO ji = mi0(145), mi1(147) |
---|
| 1246 | upsrnfh(ji,jj) = 0.5 |
---|
| 1247 | END DO |
---|
| 1248 | DO ji = mi0(148), mi1(148) |
---|
| 1249 | upsrnfh(ji,jj) = 0.25 |
---|
| 1250 | END DO |
---|
| 1251 | END DO |
---|
| 1252 | ENDIF |
---|
| 1253 | ENDIF |
---|
| 1254 | |
---|
| 1255 | ! Upstream and centered scheme in the vicinity of some straits |
---|
| 1256 | |
---|
| 1257 | IF( kt == nit000 ) THEN |
---|
| 1258 | |
---|
| 1259 | ! ORCA_R2 configuration : |
---|
| 1260 | ! Gibraltar Strait |
---|
| 1261 | DO jj = mj0(102), mj1(102) |
---|
| 1262 | DO ji = mi0(138), mi1(138) |
---|
| 1263 | upsadv(ji,jj) = 0.2 |
---|
| 1264 | END DO |
---|
| 1265 | END DO |
---|
| 1266 | DO jj = mj0(102), mj1(102) |
---|
| 1267 | DO ji = mi0(139), mi1(139) |
---|
| 1268 | upsadv(ji,jj) = 0.4 |
---|
| 1269 | END DO |
---|
| 1270 | END DO |
---|
| 1271 | DO jj = mj0(102), mj1(102) |
---|
| 1272 | DO ji = mi0(140), mi1(140) |
---|
| 1273 | upsadv(ji,jj) = 0.5 |
---|
| 1274 | END DO |
---|
| 1275 | END DO |
---|
| 1276 | DO jj = mj0(101), mj1(102) |
---|
| 1277 | DO ji = mi0(141), mi1(141) |
---|
| 1278 | upsadv(ji,jj) = 0.5 |
---|
| 1279 | END DO |
---|
| 1280 | END DO |
---|
| 1281 | ! Bab el Mandeb Strait |
---|
| 1282 | DO jj = mj0(87), mj1(88) |
---|
| 1283 | DO ji = mi0(164), mi1(164) |
---|
| 1284 | upsadv(ji,jj) = 0.1 |
---|
| 1285 | END DO |
---|
| 1286 | END DO |
---|
| 1287 | DO jj = mj0(88), mj1(88) |
---|
| 1288 | DO ji = mi0(163), mi1(163) |
---|
| 1289 | upsadv(ji,jj) = 0.25 |
---|
| 1290 | END DO |
---|
| 1291 | END DO |
---|
| 1292 | DO jj = mj0(88), mj1(88) |
---|
| 1293 | DO ji = mi0(162), mi1(162) |
---|
| 1294 | upsadv(ji,jj) = 0.4 |
---|
| 1295 | END DO |
---|
| 1296 | END DO |
---|
| 1297 | DO jj = mj0(88), mj1(88) |
---|
| 1298 | DO ji = mi0(160), mi1(161) |
---|
| 1299 | upsadv(ji,jj) = 0.5 |
---|
| 1300 | END DO |
---|
| 1301 | END DO |
---|
| 1302 | DO jj = mj0(89), mj1(89) |
---|
| 1303 | DO ji = mi0(158), mi1(160) |
---|
| 1304 | upsadv(ji,jj) = 0.25 |
---|
| 1305 | END DO |
---|
| 1306 | END DO |
---|
| 1307 | DO jj = mj0(90), mj1(90) |
---|
| 1308 | DO ji = mi0(160), mi1(160) |
---|
| 1309 | upsadv(ji,jj) = 0.25 |
---|
| 1310 | END DO |
---|
| 1311 | END DO |
---|
| 1312 | ! Sound Strait |
---|
| 1313 | DO jj = mj0(116), mj1(116) |
---|
| 1314 | DO ji = mi0(145), mi1(147) |
---|
| 1315 | upsadv(ji,jj) = 0.5 |
---|
| 1316 | END DO |
---|
| 1317 | END DO |
---|
| 1318 | |
---|
| 1319 | ENDIF |
---|