forked from mikedurand/EnKFYampa
-
Notifications
You must be signed in to change notification settings - Fork 0
/
vegin.f
executable file
·873 lines (864 loc) · 49.7 KB
/
vegin.f
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
subroutine vegin
cm this file received from ratko may 24, 2006
cm it contains vegetation parameters for 13 different vegetation types
cm the legend is given by:
cm vegetation types
cm 1 tropical rainforest
cm 2 broadleaf deciduous trees
cm 3 broadleaf and needleaf trees
cm 4 needleaf evergreen trees
cm 5 needleaf deciduous trees
cm 6 broadleaf trees with ground cover
cm 7 groundcover only
cm 8 broadleaf shrubs with ground cover
cm 9 broadleaf shrubs with bare soil
cm 10 dwaft trees with ground cover
cm 11 bare soil
cm 12 crops
cm 13 ice
include 'comsib.in'
cm these lines added to comsib.in file
c COMMON / VEGOPT/ TRAN0(13,2,3,2), REF0(13,2,3,2)
c COMMON / VSTATE/ GREEN0(13,12,2), VCOVER0(13,12,2), CHIL0(13,2)
c COMMON / VPHYS / RSTPAR0(13,2,3),TOPT0(13,2),TL0(13,2),TU0(13,2),
c & DEFAC0(13,2), PH10(13,2), PH20(13,2)
c COMMON / VMORPH/ ZLT0(13,12,2), Z00(13,12), D0(13,12),
c & Z20(13,12), Z10(13,12), RDC0(13,12), RBC0(13,12)
c COMMON / ROOTS / ROOTD0(13,2)
c COMMON / SOILS / SOREF0(13,3), BEE0(13), PHSAT0(13), POROS0(13),
c & SATCO0(13), SLOPE0(13), DEPTH0(13,3)
c COMMON / ZWIND
data tran0/
1 0.5000000E-01, 0.5000000E-01, 0.5000000E-01, 0.5000000E-01,
1 0.5000000E-01, 0.5000000E-01, 0.7000000E-01, 0.5000000E-01,
1 0.5000000E-01, 0.5000000E-01, 0.1000000E-02, 0.5000000E-01,
1 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02, 0.7000000E-01, 0.1000000E-02, 0.7000000E-01,
1 0.1000000E-02, 0.7000000E-01, 0.1000000E-02, 0.7000000E-01,
1 0.1000000E-02,
1 0.2500000E+00, 0.2500000E+00, 0.1500000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.2500000E+00, 0.2475000E+00, 0.2500000E+00,
1 0.2500000E+00, 0.2500000E+00, 0.1000000E-02, 0.2500000E+00,
1 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02, 0.2475000E+00, 0.1000000E-02, 0.2475000E+00,
1 0.1000000E-02, 0.2475000E+00, 0.1000000E-02, 0.2475000E+00,
1 0.1000000E-02,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.2200000E+00, 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02, 0.2200000E+00, 0.1000000E-02, 0.2200000E+00,
1 0.1000000E-02, 0.2200000E+00, 0.1000000E-02, 0.2200000E+00,
1 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.3750000E+00, 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02, 0.3750000E+00, 0.1000000E-02, 0.3750000E+00,
1 0.1000000E-02, 0.3750000E+00, 0.1000000E-02, 0.3750000E+00,
1 0.1000000E-02,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00/
data ref0/
1 0.1000000E+00, 0.1000000E+00, 0.7000000E-01, 0.7000000E-01,
1 0.7000000E-01, 0.1000000E+00, 0.1050000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-02, 0.1000000E+00,
1 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02, 0.1050000E+00, 0.1000000E-02, 0.1050000E+00,
1 0.1000000E-02, 0.1050000E+00, 0.1000000E-02, 0.1050000E+00,
1 0.1000000E-02,
1 0.4500000E+00, 0.4500000E+00, 0.4000000E+00, 0.3500000E+00,
1 0.3500000E+00, 0.4500000E+00, 0.5775000E+00, 0.4500000E+00,
1 0.4500000E+00, 0.4500000E+00, 0.1000000E-02, 0.4500000E+00,
1 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02, 0.5775000E+00, 0.1000000E-02, 0.5775000E+00,
1 0.1000000E-02, 0.5775000E+00, 0.1000000E-02, 0.5775000E+00,
1 0.1000000E-02,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00,
1 0.1600000E+00, 0.1600000E+00, 0.1600000E+00, 0.1600000E+00,
1 0.1600000E+00, 0.1600000E+00, 0.3600000E+00, 0.1600000E+00,
1 0.1600000E+00, 0.1600000E+00, 0.1000000E-02, 0.1600000E+00,
1 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02, 0.3600000E+00, 0.1000000E-02, 0.3600000E+00,
1 0.1000000E-02, 0.3600000E+00, 0.1000000E-02, 0.3600000E+00,
1 0.1000000E-02,
1 0.3900000E+00, 0.3900000E+00, 0.3900000E+00, 0.3900000E+00,
1 0.3900000E+00, 0.3900000E+00, 0.5775000E+00, 0.3900000E+00,
1 0.3900000E+00, 0.3900000E+00, 0.1000000E-02, 0.3900000E+00,
1 0.1000000E-02,
1 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02,
1 0.1000000E-02, 0.5775000E+00, 0.1000000E-02, 0.5775000E+00,
1 0.1000000E-02, 0.5775000E+00, 0.1000000E-02, 0.5775000E+00,
1 0.1000000E-02,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00/
data green0/
1 0.9050000E+00, 0.2564000E-01, 0.8680600E+00, 0.9132400E+00,
1 0.2475200E+00, 0.6319100E+00, 0.5681800E+00, 0.7978700E+00,
1 0.8364300E+00, 0.4512600E+00, 0.1000000E-03, 0.2083300E+00,
1 0.1000000E-03,
1 0.9050000E+00, 0.2564000E-01, 0.8717700E+00, 0.9170300E+00,
1 0.2475200E+00, 0.6566600E+00, 0.6218900E+00, 0.5319100E+00,
1 0.7172100E+00, 0.4512600E+00, 0.1000000E-03, 0.2083300E+00,
1 0.1000000E-03,
1 0.9050000E+00, 0.4153800E+00, 0.8847300E+00, 0.9226600E+00,
1 0.2475200E+00, 0.5176000E+00, 0.6637200E+00, 0.3623200E+00,
1 0.2577300E+00, 0.4512600E+00, 0.1000000E-03, 0.4411800E+00,
1 0.1000000E-03,
1 0.9050000E+00, 0.7594900E+00, 0.9061000E+00, 0.9247000E+00,
1 0.6637200E+00, 0.6527400E+00, 0.6972100E+00, 0.5681800E+00,
1 0.7246400E+00, 0.4512600E+00, 0.1000000E-03, 0.7594900E+00,
1 0.1000000E-03,
1 0.9050000E+00, 0.8875700E+00, 0.9164200E+00, 0.9266400E+00,
1 0.8104700E+00, 0.6527400E+00, 0.8104700E+00, 0.5681800E+00,
1 0.1736100E+00, 0.4512600E+00, 0.1000000E-03, 0.8875700E+00,
1 0.1000000E-03,
1 0.9050000E+00, 0.9252000E+00, 0.9259300E+00, 0.9045800E+00,
1 0.8680600E+00, 0.7246400E+00, 0.9079900E+00, 0.5681800E+00,
1 0.5681800E+00, 0.6218900E+00, 0.1000000E-03, 0.9252000E+00,
1 0.1000000E-03,
1 0.9050000E+00, 0.8364300E+00, 0.9293700E+00, 0.9021600E+00,
1 0.6040900E+00, 0.8712500E+00, 0.8132000E+00, 0.5681800E+00,
1 0.5681800E+00, 0.9200800E+00, 0.1000000E-03, 0.8364300E+00,
1 0.1000000E-03,
1 0.9050000E+00, 0.6967200E+00, 0.8209400E+00, 0.9126500E+00,
1 0.5854000E+00, 0.7966000E+00, 0.3943200E+00, 0.8680600E+00,
1 0.7246400E+00, 0.6970300E+00, 0.1000000E-03, 0.6967200E+00,
1 0.1000000E-03,
1 0.9050000E+00, 0.3306900E+00, 0.7123000E+00, 0.8982800E+00,
1 0.4990000E+00, 0.7654600E+00, 0.4434600E+00, 0.6505600E+00,
1 0.8403400E+00, 0.7567000E-01, 0.1000000E-03, 0.3439200E+00,
1 0.1000000E-03,
1 0.9050000E+00, 0.1656400E+00, 0.6145700E+00, 0.8548200E+00,
1 0.3834400E+00, 0.6146100E+00, 0.5434800E+00, 0.5154600E+00,
1 0.8680600E+00, 0.4512600E+00, 0.1000000E-03, 0.1785700E+00,
1 0.1000000E-03,
1 0.9050000E+00, 0.1538000E-01, 0.8599500E+00, 0.8733600E+00,
1 0.2487600E+00, 0.5086500E+00, 0.5531000E+00, 0.6302500E+00,
1 0.8875700E+00, 0.4512600E+00, 0.1000000E-03, 0.1470600E+00,
1 0.1000000E-03,
1 0.9050000E+00, 0.2564000E-01, 0.8599500E+00, 0.9132400E+00,
1 0.1984100E+00, 0.7898900E+00, 0.4975100E+00, 0.7978700E+00,
1 0.9132400E+00, 0.4512600E+00, 0.1000000E-03, 0.2083300E+00,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03/
data vcover0/
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00,
1 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00,
1 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03,
1 0.1000000E-04/
data chil0/
1 0.1000000E+00, 0.2500000E+00, 0.1300000E+00, 0.1000000E-01,
1 0.1000000E-01, 0.1000000E-01, -0.3000000E+00, 0.1000000E-01,
1 0.1000000E-01, 0.2000000E+00, 0.1000000E-01, -0.2000000E-01,
1 0.1000000E-01,
1 0.1000000E+00, 0.2500000E+00, 0.1300000E+00, 0.1000000E-01,
1 0.1000000E-01, -0.3000000E+00, -0.3000000E+00, -0.3000000E+00,
1 0.1000000E-01, 0.2000000E+00, 0.1000000E-01, -0.2000000E-01,
1 0.1000000E-01/
data rstpar0/
1 0.2335900E+04, 0.9802230E+04, 0.6335955E+04, 0.2869680E+04,
1 0.2869680E+04, 0.5665121E+05, 0.2582010E+04, 0.9398942E+05,
1 0.9398942E+05, 0.9802230E+04, 0.1000000E+04, 0.7459000E+04,
1 0.1000000E+04,
1 0.2335900E+04, 0.9802230E+04, 0.6335955E+04, 0.2869680E+04,
1 0.2869680E+04, 0.2582010E+04, 0.2582010E+04, 0.2582010E+04,
1 0.1000000E+01, 0.2582010E+04, 0.1000000E+04, 0.7459000E+04,
1 0.1000000E+04,
1 0.1450000E-01, 0.1055000E+02, 0.7120000E+01, 0.3690000E+01,
1 0.3690000E+01, 0.1083000E+02, 0.1090000E+01, 0.1000000E-01,
1 0.1000000E-01, 0.1055000E+02, 0.1000000E+04, 0.5700000E+01,
1 0.1000000E+04,
1 0.1450000E-01, 0.1055000E+02, 0.7120000E+01, 0.3690000E+01,
1 0.3690000E+01, 0.1090000E+01, 0.1090000E+01, 0.1090000E+01,
1 0.1000000E+01, 0.1090000E+01, 0.1000000E+04, 0.5700000E+01,
1 0.1000000E+04,
1 0.1534900E+03, 0.1800000E+03, 0.2065000E+03, 0.2330000E+03,
1 0.2330000E+03, 0.1650000E+03, 0.1100000E+03, 0.8550000E+03,
1 0.8550000E+03, 0.1800000E+03, 0.1000000E+04, 0.2520000E+02,
1 0.1000000E+04,
1 0.1534900E+03, 0.1800000E+03, 0.2065000E+03, 0.2330000E+03,
1 0.2330000E+03, 0.1100000E+03, 0.1100000E+03, 0.1100000E+03,
1 0.1000000E+01, 0.1100000E+03, 0.1000000E+04, 0.2520000E+02,
1 0.1000000E+04/
data topt0/
1 0.3030000E+03, 0.3000000E+03, 0.2940000E+03, 0.2880000E+03,
1 0.2880000E+03, 0.2970000E+03, 0.3130000E+03, 0.3150000E+03,
1 0.3150000E+03, 0.3000000E+03, 0.3100000E+03, 0.3000000E+03,
1 0.3100000E+03,
1 0.3030000E+03, 0.3000000E+03, 0.2940000E+03, 0.2880000E+03,
1 0.2880000E+03, 0.3120000E+03, 0.3130000E+03, 0.3130000E+03,
1 0.3150000E+03, 0.2890000E+03, 0.3100000E+03, 0.3000000E+03,
1 0.3100000E+03/
data tl0/
1 0.2730000E+03, 0.2730000E+03, 0.2700000E+03, 0.2680000E+03,
1 0.2680000E+03, 0.2730000E+03, 0.2830000E+03, 0.2830000E+03,
1 0.2830000E+03, 0.2730000E+03, 0.3000000E+03, 0.2730000E+03,
1 0.3000000E+03,
1 0.2730000E+03, 0.2730000E+03, 0.2700000E+03, 0.2680000E+03,
1 0.2680000E+03, 0.2730000E+03, 0.2830000E+03, 0.2830000E+03,
1 0.2830000E+03, 0.2730000E+03, 0.3000000E+03, 0.2730000E+03,
1 0.3000000E+03/
data tu0/
1 0.3180000E+03, 0.3180000E+03, 0.3150000E+03, 0.3130000E+03,
1 0.3130000E+03, 0.3230000E+03, 0.3280000E+03, 0.3230000E+03,
1 0.3230000E+03, 0.3230000E+03, 0.3200000E+03, 0.3180000E+03,
1 0.3200000E+03,
1 0.3180000E+03, 0.3180000E+03, 0.3150000E+03, 0.3130000E+03,
1 0.3130000E+03, 0.3230000E+03, 0.3280000E+03, 0.3280000E+03,
1 0.3230000E+03, 0.3090000E+03, 0.3200000E+03, 0.3150000E+03,
1 0.3200000E+03/
data defac0/
1 0.2730000E-01, 0.3570000E-01, 0.3400000E-01, 0.3100000E-01,
1 0.3100000E-01, 0.3570000E-01, 0.2380000E-01, 0.2750000E-01,
1 0.2750000E-01, 0.2750000E-01, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00,
1 0.2730000E-01, 0.3570000E-01, 0.3400000E-01, 0.3100000E-01,
1 0.3100000E-01, 0.2380000E-01, 0.2380000E-01, 0.2380000E-01,
1 0.2380000E-01, 0.2380000E-01, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00/
data ph10/
1 0.1200000E+01, 0.5350000E+01, 0.1920000E+01, 0.3700000E+01,
1 0.7800000E+01, 0.1800000E+01, 0.1730000E+01, 0.1920000E+01,
1 0.1390000E+01, 0.9600000E+00, 0.3000000E+01, 0.1800000E+01,
1 0.5000000E+01,
1 0.1200000E+01, 0.5350000E+01, 0.1920000E+01, 0.3700000E+01,
1 0.7800000E+01, 0.1800000E+01, 0.1730000E+01, 0.1920000E+01,
1 0.1390000E+01, 0.9600000E+00, 0.3000000E+01, 0.1800000E+01,
1 0.5000000E+01/
data ph20/
1 0.6250000E+01, 0.5570000E+01, 0.5730000E+01, 0.5530000E+01,
1 0.5660000E+01, 0.5670000E+01, 0.5800000E+01, 0.5610000E+01,
1 0.6370000E+01, 0.5370000E+01, 0.6000000E+01, 0.5670000E+01,
1 0.6000000E+01,
1 0.6250000E+01, 0.5570000E+01, 0.5730000E+01, 0.5530000E+01,
1 0.5660000E+01, 0.5670000E+01, 0.5800000E+01, 0.5610000E+01,
1 0.6370000E+01, 0.5370000E+01, 0.6000000E+01, 0.5670000E+01,
1 0.6000000E+01/
data zlt0/
1 0.5014160E+01, 0.3900000E+00, 0.3456000E+01, 0.6570000E+01,
1 0.4040000E+00, 0.1766000E+01, 0.7040000E+00, 0.5780000E+00,
1 0.1076000E+01, 0.3776000E+00, 0.1000000E-03, 0.4800000E-01,
1 0.1000000E-03,
1 0.5014160E+01, 0.3900000E+00, 0.3556000E+01, 0.6870000E+01,
1 0.4040000E+00, 0.1546000E+01, 0.8040000E+00, 0.5780000E+00,
1 0.9760000E+00, 0.3776000E+00, 0.1000000E-03, 0.4800000E-01,
1 0.1000000E-03,
1 0.5014160E+01, 0.6500000E+00, 0.3956000E+01, 0.7370000E+01,
1 0.4040000E+00, 0.1416000E+01, 0.9040000E+00, 0.4480000E+00,
1 0.7760000E+00, 0.3776000E+00, 0.1000000E-03, 0.6800000E-01,
1 0.1000000E-03,
1 0.5014160E+01, 0.1580000E+01, 0.4856000E+01, 0.7570000E+01,
1 0.9040000E+00, 0.1216000E+01, 0.1004000E+01, 0.2880000E+00,
1 0.2760000E+00, 0.3776000E+00, 0.1000000E-03, 0.1580000E+00,
1 0.1000000E-03,
1 0.5014160E+01, 0.3380000E+01, 0.5456000E+01, 0.7770000E+01,
1 0.1604000E+01, 0.1186000E+01, 0.1604000E+01, 0.2580000E+00,
1 0.5760000E+00, 0.3776000E+00, 0.1000000E-03, 0.3380000E+00,
1 0.1000000E-03,
1 0.5014160E+01, 0.5080000E+01, 0.6156000E+01, 0.8070000E+01,
1 0.2304000E+01, 0.1416000E+01, 0.3304000E+01, 0.2580000E+00,
1 0.1760000E+00, 0.5076000E+00, 0.1000000E-03, 0.5080000E+00,
1 0.1000000E-03,
1 0.5014160E+01, 0.5380000E+01, 0.6456000E+01, 0.7870000E+01,
1 0.4304000E+01, 0.2606000E+01, 0.4304000E+01, 0.2580000E+00,
1 0.1760000E+00, 0.1737600E+01, 0.1000000E-03, 0.5380000E+00,
1 0.1000000E-03,
1 0.5014160E+01, 0.4880000E+01, 0.6456000E+01, 0.7670000E+01,
1 0.2904000E+01, 0.5206000E+01, 0.3804000E+01, 0.8080000E+00,
1 0.2760000E+00, 0.1937600E+01, 0.1000000E-03, 0.4880000E+00,
1 0.1000000E-03,
1 0.5014160E+01, 0.3780000E+01, 0.5756000E+01, 0.7570000E+01,
1 0.2004000E+01, 0.4556000E+01, 0.1804000E+01, 0.1508000E+01,
1 0.4760000E+00, 0.1477600E+01, 0.1000000E-03, 0.3780000E+00,
1 0.1000000E-03,
1 0.5014160E+01, 0.1630000E+01, 0.4556000E+01, 0.7370000E+01,
1 0.1304000E+01, 0.3816000E+01, 0.1104000E+01, 0.1148000E+01,
1 0.5760000E+00, 0.3776000E+00, 0.1000000E-03, 0.1680000E+00,
1 0.1000000E-03,
1 0.5014160E+01, 0.6500000E+00, 0.3256000E+01, 0.6870000E+01,
1 0.8040000E+00, 0.2806000E+01, 0.9040000E+00, 0.7480000E+00,
1 0.6760000E+00, 0.3776000E+00, 0.1000000E-03, 0.6800000E-01,
1 0.1000000E-03,
1 0.5014160E+01, 0.3900000E+00, 0.3256000E+01, 0.6570000E+01,
1 0.5040000E+00, 0.1866000E+01, 0.8040000E+00, 0.5780000E+00,
1 0.8760000E+00, 0.3776000E+00, 0.1000000E-03, 0.4800000E-01,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03,
1 0.1000000E-03/
data z00/
1 0.2652970E+01, 0.5201000E+00, 0.5706300E+00, 0.1112210E+01,
1 0.6414000E+00, 0.8427100E+00, 0.7771000E-01, 0.2446700E+00,
1 0.6559000E-01, 0.7524000E-01, 0.1118000E-01, 0.1448500E+00,
1 0.1011000E-01,
1 0.2652970E+01, 0.5201000E+00, 0.5696600E+00, 0.1102780E+01,
1 0.6414000E+00, 0.8087800E+00, 0.7779000E-01, 0.2446700E+00,
1 0.6549000E-01, 0.7524000E-01, 0.1118000E-01, 0.1448500E+00,
1 0.1011000E-01,
1 0.2652970E+01, 0.6664900E+00, 0.5656600E+00, 0.1087660E+01,
1 0.6414000E+00, 0.7875000E+00, 0.7785000E-01, 0.2272100E+00,
1 0.6521000E-01, 0.7524000E-01, 0.1118000E-01, 0.1752100E+00,
1 0.1011000E-01,
1 0.2652970E+01, 0.9105300E+00, 0.5654400E+00, 0.1081830E+01,
1 0.8633500E+00, 0.7284100E+00, 0.7788000E-01, 0.1998800E+00,
1 0.6360000E-01, 0.7524000E-01, 0.1118000E-01, 0.2871900E+00,
1 0.1011000E-01,
1 0.2652970E+01, 0.1031200E+01, 0.5592300E+00, 0.1076120E+01,
1 0.9728300E+00, 0.7284100E+00, 0.7779000E-01, 0.1998800E+00,
1 0.6480000E-01, 0.7524000E-01, 0.1118000E-01, 0.4302000E+00,
1 0.1011000E-01,
1 0.2652970E+01, 0.1043680E+01, 0.5524400E+00, 0.1067790E+01,
1 0.1005600E+01, 0.7875000E+00, 0.7712000E-01, 0.1998800E+00,
1 0.6331000E-01, 0.7575000E-01, 0.1118000E-01, 0.5087600E+00,
1 0.1011000E-01,
1 0.2652970E+01, 0.1041940E+01, 0.5497000E+00, 0.1073310E+01,
1 0.9967700E+00, 0.9266800E+00, 0.7594000E-01, 0.1998800E+00,
1 0.6331000E-01, 0.7767000E-01, 0.1118000E-01, 0.5200300E+00,
1 0.1011000E-01,
1 0.2652970E+01, 0.1037530E+01, 0.5497000E+00, 0.1078960E+01,
1 0.1011190E+01, 0.9715300E+00, 0.7658000E-01, 0.2674000E+00,
1 0.6360000E-01, 0.7782000E-01, 0.1118000E-01, 0.5009500E+00,
1 0.1011000E-01,
1 0.2652970E+01, 0.1036510E+01, 0.5562600E+00, 0.1081830E+01,
1 0.9965000E+00, 0.9658800E+00, 0.7776000E-01, 0.2923300E+00,
1 0.6446000E-01, 0.7745000E-01, 0.1118000E-01, 0.4503800E+00,
1 0.1011000E-01,
1 0.2652970E+01, 0.9170700E+00, 0.5686600E+00, 0.1087660E+01,
1 0.9386100E+00, 0.9555100E+00, 0.7790000E-01, 0.2803400E+00,
1 0.6480000E-01, 0.7524000E-01, 0.1118000E-01, 0.2973700E+00,
1 0.1011000E-01,
1 0.2652970E+01, 0.6664900E+00, 0.5725100E+00, 0.1102780E+01,
1 0.8346400E+00, 0.9204000E+00, 0.7785000E-01, 0.2580600E+00,
1 0.6510000E-01, 0.7524000E-01, 0.1118000E-01, 0.1752100E+00,
1 0.1011000E-01,
1 0.2652970E+01, 0.5201000E+00, 0.5725100E+00, 0.1112210E+01,
1 0.7049800E+00, 0.8427100E+00, 0.7779000E-01, 0.2446700E+00,
1 0.6537000E-01, 0.7524000E-01, 0.1118000E-01, 0.1448500E+00,
1 0.1011000E-01/
data d0/
1 0.2737261E+02, 0.1366377E+02, 0.1813464E+02, 0.1376361E+02,
1 0.9193320E+01, 0.1390777E+02, 0.2185200E+00, 0.2812600E+01,
1 0.1638000E+00, 0.1062900E+00, 0.6000000E-04, 0.6314240E+01,
1 0.4000000E-04,
1 0.2737261E+02, 0.1366377E+02, 0.1814677E+02, 0.1380041E+02,
1 0.9193320E+01, 0.1376090E+02, 0.2265800E+00, 0.2812600E+01,
1 0.1548100E+00, 0.1062900E+00, 0.6000000E-04, 0.6314240E+01,
1 0.4000000E-04,
1 0.2737261E+02, 0.1461883E+02, 0.1819051E+02, 0.1385740E+02,
1 0.9193320E+01, 0.1367074E+02, 0.2332800E+00, 0.2662290E+01,
1 0.1343400E+00, 0.1062900E+00, 0.6000000E-04, 0.7639520E+01,
1 0.4000000E-04,
1 0.2737261E+02, 0.1569677E+02, 0.1825890E+02, 0.1387880E+02,
1 0.9903400E+01, 0.1344527E+02, 0.2389500E+00, 0.2390910E+01,
1 0.6191000E-01, 0.1062900E+00, 0.6000000E-04, 0.1070958E+02,
1 0.4000000E-04,
1 0.2737261E+02, 0.1632865E+02, 0.1829956E+02, 0.1389946E+02,
1 0.1030010E+02, 0.1344527E+02, 0.2605400E+00, 0.2390910E+01,
1 0.1096800E+00, 0.1062900E+00, 0.6000000E-04, 0.1278272E+02,
1 0.4000000E-04,
1 0.2737261E+02, 0.1662263E+02, 0.1833903E+02, 0.1392915E+02,
1 0.1053455E+02, 0.1367074E+02, 0.2988000E+00, 0.2390910E+01,
1 0.5103000E-01, 0.1229900E+00, 0.6000000E-04, 0.1356813E+02,
1 0.4000000E-04,
1 0.2737261E+02, 0.1666297E+02, 0.1835387E+02, 0.1390953E+02,
1 0.1091967E+02, 0.1425275E+02, 0.3251800E+00, 0.2390910E+01,
1 0.5103000E-01, 0.2152100E+00, 0.6000000E-04, 0.1366182E+02,
1 0.4000000E-04,
1 0.2737261E+02, 0.1660123E+02, 0.1835387E+02, 0.1388922E+02,
1 0.1068047E+02, 0.1459719E+02, 0.3130700E+00, 0.2974600E+01,
1 0.6191000E-01, 0.2289700E+00, 0.6000000E-04, 0.1349985E+02,
1 0.4000000E-04,
1 0.2737261E+02, 0.1641343E+02, 0.1831739E+02, 0.1387880E+02,
1 0.1044517E+02, 0.1452246E+02, 0.2649800E+00, 0.3137710E+01,
1 0.9547000E-01, 0.1996100E+00, 0.6000000E-04, 0.1301951E+02,
1 0.4000000E-04,
1 0.2737261E+02, 0.1572679E+02, 0.1823553E+02, 0.1385740E+02,
1 0.1016423E+02, 0.1443002E+02, 0.2438100E+00, 0.3062460E+01,
1 0.1096800E+00, 0.1062900E+00, 0.6000000E-04, 0.1090759E+02,
1 0.4000000E-04,
1 0.2737261E+02, 0.1461883E+02, 0.1810866E+02, 0.1380041E+02,
1 0.9814290E+01, 0.1422050E+02, 0.2332800E+00, 0.2907360E+01,
1 0.1225000E+00, 0.1062900E+00, 0.6000000E-04, 0.7639520E+01,
1 0.4000000E-04,
1 0.2737261E+02, 0.1366377E+02, 0.1810866E+02, 0.1376361E+02,
1 0.9417390E+01, 0.1390777E+02, 0.2265800E+00, 0.2812600E+01,
1 0.1450200E+00, 0.1062900E+00, 0.6000000E-04, 0.6314240E+01,
1 0.4000000E-04/
data z10/
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03,
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03,
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03,
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03,
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03,
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03,
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03,
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03,
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03,
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03,
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03,
1 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01,
1 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01,
1 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02,
1 0.1000000E-03/
data z20/
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00,
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00,
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00,
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00,
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00,
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00,
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00,
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00,
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00,
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00,
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00,
1 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02,
1 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01,
1 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02,
1 0.1000000E+00/
data rdc0/
1 0.2858700E+03, 0.2113200E+03, 0.2985200E+03, 0.5654100E+03,
1 0.1852000E+03, 0.2301300E+03, 0.2443000E+02, 0.1036000E+03,
1 0.2311000E+02, 0.2286000E+02, 0.2376000E+02, 0.1949000E+03,
1 0.2850000E+02,
1 0.2858700E+03, 0.2113200E+03, 0.3013500E+03, 0.5870500E+03,
1 0.1852000E+03, 0.2244200E+03, 0.2463000E+02, 0.1036000E+03,
1 0.2294000E+02, 0.2286000E+02, 0.2376000E+02, 0.1949000E+03,
1 0.2850000E+02,
1 0.2858700E+03, 0.2187800E+03, 0.3124600E+03, 0.6234600E+03,
1 0.1852000E+03, 0.2215700E+03, 0.2480000E+02, 0.1023500E+03,
1 0.2262000E+02, 0.2286000E+02, 0.2376000E+02, 0.1964400E+03,
1 0.2850000E+02,
1 0.2858700E+03, 0.2434000E+03, 0.3312300E+03, 0.6381300E+03,
1 0.2048700E+03, 0.2164100E+03, 0.2496000E+02, 0.1007200E+03,
1 0.2189000E+02, 0.2286000E+02, 0.2376000E+02, 0.2014400E+03,
1 0.2850000E+02,
1 0.2858700E+03, 0.2948700E+03, 0.3458300E+03, 0.6528600E+03,
1 0.2330100E+03, 0.2164100E+03, 0.2572000E+02, 0.1007200E+03,
1 0.2230000E+02, 0.2286000E+02, 0.2376000E+02, 0.2071300E+03,
1 0.2850000E+02,
1 0.2858700E+03, 0.3459000E+03, 0.3619400E+03, 0.6750500E+03,
1 0.2620800E+03, 0.2215700E+03, 0.2774000E+02, 0.1007200E+03,
1 0.2182000E+02, 0.2301000E+02, 0.2376000E+02, 0.2107900E+03,
1 0.2850000E+02,
1 0.2858700E+03, 0.3551800E+03, 0.3685400E+03, 0.6602400E+03,
1 0.3443100E+03, 0.2500700E+03, 0.3006000E+02, 0.1007200E+03,
1 0.2182000E+02, 0.2436000E+02, 0.2376000E+02, 0.2113100E+03,
1 0.2850000E+02,
1 0.2858700E+03, 0.3418400E+03, 0.3685400E+03, 0.6454900E+03,
1 0.2870900E+03, 0.2885700E+03, 0.2886000E+02, 0.1053000E+03,
1 0.2189000E+02, 0.2469000E+02, 0.2376000E+02, 0.2104200E+03,
1 0.2850000E+02,
1 0.2858700E+03, 0.3072200E+03, 0.3528500E+03, 0.6381300E+03,
1 0.2495800E+03, 0.2780300E+03, 0.2590000E+02, 0.1079400E+03,
1 0.2216000E+02, 0.2404000E+02, 0.2376000E+02, 0.2081500E+03,
1 0.2850000E+02,
1 0.2858700E+03, 0.2448400E+03, 0.3236500E+03, 0.6231300E+03,
1 0.2211200E+03, 0.2668400E+03, 0.2511000E+02, 0.1065900E+03,
1 0.2230000E+02, 0.2286000E+02, 0.2376000E+02, 0.2018800E+03,
1 0.2850000E+02,
1 0.2858700E+03, 0.2187800E+03, 0.2927900E+03, 0.5870500E+03,
1 0.2008900E+03, 0.2475700E+03, 0.2480000E+02, 0.1044900E+03,
1 0.2244000E+02, 0.2286000E+02, 0.2376000E+02, 0.1964400E+03,
1 0.2850000E+02,
1 0.2858700E+03, 0.2113200E+03, 0.2927900E+03, 0.5654100E+03,
1 0.1892600E+03, 0.2301300E+03, 0.2464000E+02, 0.1036000E+03,
1 0.2277000E+02, 0.2286000E+02, 0.2376000E+02, 0.1949000E+03,
1 0.2850000E+02/
data rbc0/
1 0.5430000E+01, 0.6936000E+02, 0.8590000E+01, 0.8800000E+00,
1 0.7850000E+01, 0.2661000E+02, 0.2207000E+02, 0.2188000E+02,
1 0.1761000E+02, 0.4351000E+02, 0.3592951E+05, 0.5600000E+03,
1 0.3546177E+05,
1 0.5430000E+01, 0.6936000E+02, 0.8450000E+01, 0.8600000E+00,
1 0.7850000E+01, 0.3044000E+02, 0.2053000E+02, 0.2188000E+02,
1 0.1942000E+02, 0.4351000E+02, 0.3592951E+05, 0.5600000E+03,
1 0.3546177E+05,
1 0.5430000E+01, 0.4257000E+02, 0.7980000E+01, 0.8400000E+00,
1 0.7850000E+01, 0.3295000E+02, 0.1934000E+02, 0.2673000E+02,
1 0.2446000E+02, 0.4351000E+02, 0.3592951E+05, 0.4019700E+03,
1 0.3546177E+05,
1 0.5430000E+01, 0.1897000E+02, 0.7180000E+01, 0.8300000E+00,
1 0.3810000E+01, 0.4003000E+02, 0.1838000E+02, 0.3712000E+02,
1 0.6928000E+02, 0.4351000E+02, 0.3592951E+05, 0.1855200E+03,
1 0.3546177E+05,
1 0.5430000E+01, 0.1035000E+02, 0.6810000E+01, 0.8200000E+00,
1 0.2400000E+01, 0.4003000E+02, 0.1516000E+02, 0.3712000E+02,
1 0.3303000E+02, 0.4351000E+02, 0.3592951E+05, 0.9801000E+02,
1 0.3546177E+05,
1 0.5430000E+01, 0.7880000E+01, 0.6480000E+01, 0.8100000E+00,
1 0.1860000E+01, 0.3295000E+02, 0.1068000E+02, 0.3712000E+02,
1 0.8702000E+02, 0.3568000E+02, 0.3592951E+05, 0.7224000E+02,
1 0.3546177E+05,
1 0.5430000E+01, 0.7610000E+01, 0.6360000E+01, 0.8200000E+00,
1 0.1290000E+01, 0.1870000E+02, 0.8300000E+01, 0.3712000E+02,
1 0.8702000E+02, 0.1449000E+02, 0.3592951E+05, 0.6938000E+02,
1 0.3546177E+05,
1 0.5430000E+01, 0.8090000E+01, 0.6360000E+01, 0.8300000E+00,
1 0.1600000E+01, 0.1318000E+02, 0.9330000E+01, 0.1722000E+02,
1 0.6928000E+02, 0.1281000E+02, 0.3592951E+05, 0.7434000E+02,
1 0.3546177E+05,
1 0.5430000E+01, 0.9570000E+01, 0.6660000E+01, 0.8300000E+00,
1 0.2040000E+01, 0.1420000E+02, 0.1457000E+02, 0.1317000E+02,
1 0.4003000E+02, 0.1669000E+02, 0.3592951E+05, 0.8988000E+02,
1 0.3546177E+05,
1 0.5430000E+01, 0.1847000E+02, 0.7400000E+01, 0.8400000E+00,
1 0.2820000E+01, 0.1559000E+02, 0.1760000E+02, 0.1497000E+02,
1 0.3303000E+02, 0.4351000E+02, 0.3592951E+05, 0.1757600E+03,
1 0.3546177E+05,
1 0.5430000E+01, 0.4257000E+02, 0.8880000E+01, 0.8600000E+00,
1 0.4210000E+01, 0.1933000E+02, 0.1934000E+02, 0.1906000E+02,
1 0.2810000E+02, 0.4351000E+02, 0.3592951E+05, 0.4019700E+03,
1 0.3546177E+05,
1 0.5430000E+01, 0.6936000E+02, 0.8880000E+01, 0.8800000E+00,
1 0.6400000E+01, 0.2661000E+02, 0.2053000E+02, 0.2188000E+02,
1 0.2165000E+02, 0.4351000E+02, 0.3592951E+05, 0.5600000E+03,
1 0.3546177E+05/
data rootd0/
1 0.1000000E+01, 0.1000000E+01, 0.1000000E+01, 0.5000000E+00,
1 0.5000000E+00, 0.5000000E+00, 0.5000000E+00, 0.5000000E+00,
1 0.5000000E+00, 0.2000000E+00, 0.1000000E+00, 0.1000000E+01,
1 0.1000000E+01,
1 0.1000000E+01, 0.1000000E+01, 0.1000000E+01, 0.5000000E+00,
1 0.5000000E+00, 0.5000000E+00, 0.5000000E+00, 0.5000000E+00,
1 0.5000000E+00, 0.2000000E+00, 0.1000000E+00, 0.1000000E+01,
1 0.1000000E+01/
data soref0/
1 0.1100000E+00, 0.1100000E+00, 0.1100000E+00, 0.1100000E+00,
1 0.1100000E+00, 0.1100000E+00, 0.1000000E+00, 0.1000000E+00,
1 0.3000000E+00, 0.1000000E+00, 0.3000000E+00, 0.1000000E+00,
1 0.1000000E+00,
1 0.2250000E+00, 0.2250000E+00, 0.2250000E+00, 0.2250000E+00,
1 0.2250000E+00, 0.2250000E+00, 0.2000000E+00, 0.2000000E+00,
1 0.3500000E+00, 0.2000000E+00, 0.3500000E+00, 0.1500000E+00,
1 0.1500000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00,
1 0.0000000E+00/
data bee0/
1 0.7120000E+01, 0.7120000E+01, 0.7120000E+01, 0.7120000E+01,
1 0.7120000E+01, 0.7120000E+01, 0.7120000E+01, 0.4050000E+01,
1 0.4050000E+01, 0.7120000E+01, 0.4050000E+01, 0.7797000E+01,
1 0.4804000E+01/
data phsat0/
1 -0.8600000E-01, -0.8600000E-01, -0.8600000E-01, -0.8600000E-01,
1 -0.8600000E-01, -0.8600000E-01, -0.8600000E-01, -0.3500000E-01,
1 -0.3500000E-01, -0.8600000E-01, -0.3500000E-01, -0.1980000E+00,
1 -0.1670000E+00/
data poros0/
1 0.4200000E+00, 0.4200000E+00, 0.4200000E+00, 0.4200000E+00,
1 0.4200000E+00, 0.4200000E+00, 0.4200000E+00, 0.4352000E+00,
1 0.4352000E+00, 0.4200000E+00, 0.4352000E+00, 0.4577000E+00,
1 0.4352000E+00/
data satco0/
1 0.2000000E-04, 0.2000000E-04, 0.2000000E-04, 0.2000000E-04,
1 0.2000000E-04, 0.2000000E-04, 0.2000000E-04, 0.1760000E-03,
1 0.1760000E-03, 0.2000000E-04, 0.1760000E-03, 0.3500000E-05,
1 0.7620000E-04/
data slope0/
1 0.1736000E+00, 0.1736000E+00, 0.1736000E+00, 0.1736000E+00,
1 0.1736000E+00, 0.1736000E+00, 0.1736000E+00, 0.8720000E-01,
1 0.8720000E-01, 0.1736000E+00, 0.8720000E-01, 0.3420000E+00,
1 0.8720000E-01/
data depth0/
1 0.2000000E-01, 0.2000000E-01, 0.2000000E-01, 0.2000000E-01,
1 0.2000000E-01, 0.2000000E-01, 0.2000000E-01, 0.2000000E-01,
1 0.2000000E-01, 0.2000000E-01, 0.2000000E-01, 0.2000000E-01,
1 0.1000000E+01,
1 0.1480000E+01, 0.1480000E+01, 0.1480000E+01, 0.1480000E+01,
1 0.1480000E+01, 0.1480000E+01, 0.4700000E+00, 0.4700000E+00,
1 0.4700000E+00, 0.1700000E+00, 0.1700000E+00, 0.1480000E+01,
1 0.1000000E+01,
1 0.2000000E+01, 0.2000000E+01, 0.2000000E+01, 0.2000000E+01,
1 0.2000000E+01, 0.2000000E+01, 0.1000000E+01, 0.1000000E+01,
1 0.1000000E+01, 0.1000000E+01, 0.3000000E+00, 0.2000000E+01,
1 0.1000000E+01/
data zwind/10.0/
return
end