SURFEX v8.1
General documentation of Surfex
default_data_cover.F90
Go to the documentation of this file.
1 !SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
2 !SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
3 !SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
4 !SFX_LIC for details. version 1.
5 SUBROUTINE default_data_cover(PDATA_TOWN,PDATA_NATURE,PDATA_WATER,PDATA_SEA,&
6  PDATA_Z0_TOWN,PDATA_BLD_HEIGHT,PDATA_WALL_O_HOR,PDATA_BLD,PDATA_GARDEN,&
7  PDATA_ALB_ROOF,PDATA_ALB_ROAD,PDATA_ALB_WALL,PDATA_EMIS_ROOF,&
8  PDATA_EMIS_ROAD,PDATA_EMIS_WALL,PDATA_HC_ROOF,PDATA_TC_ROOF,&
9  PDATA_D_ROOF,PDATA_HC_ROAD,PDATA_TC_ROAD,PDATA_D_ROAD,&
10  PDATA_HC_WALL,PDATA_TC_WALL,PDATA_D_WALL,PDATA_H_TRAFFIC,&
11  PDATA_LE_TRAFFIC,PDATA_H_INDUSTRY,PDATA_LE_INDUSTRY,&
12  PDATA_VEGTYPE,PDATA_H_TREE,PDATA_WATSUP,PDATA_IRRIG,&
13  PDATA_ROOT_DEPTH,PDATA_GROUND_DEPTH,PDATA_DICE,TPDATA_SEED,&
14  TPDATA_REAP)
15 !
16 USE modd_type_date_surf
17 USE modd_surf_par
18 USE modd_data_cover_par
19 USE yomhook ,ONLY : lhook, dr_hook
20 USE parkind1 ,ONLY : jprb
21 IMPLICIT NONE
22 !
23 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_TOWN
24 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_NATURE
25 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_WATER
26 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_SEA
27 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_Z0_TOWN
28 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_BLD_HEIGHT
29 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_WALL_O_HOR
30 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_BLD
31 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_GARDEN
32 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_ALB_ROOF
33 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_ALB_ROAD
34 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_ALB_WALL
35 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_EMIS_ROOF
36 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_EMIS_ROAD
37 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_EMIS_WALL
38 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_HC_ROOF
39 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_TC_ROOF
40 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_D_ROOF
41 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_HC_ROAD
42 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_TC_ROAD
43 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_D_ROAD
44 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_HC_WALL
45 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_TC_WALL
46 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_D_WALL
47 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_H_TRAFFIC
48 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_LE_TRAFFIC
49 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_H_INDUSTRY
50 REAL, DIMENSION(:), INTENT(INOUT), OPTIONAL :: PDATA_LE_INDUSTRY
51 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_VEGTYPE
52 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_H_TREE
53 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_WATSUP
54 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_IRRIG
55 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_ROOT_DEPTH
56 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_GROUND_DEPTH
57 REAL, DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: PDATA_DICE
58 TYPE(date_time), DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: TPDATA_SEED
59 TYPE(date_time), DIMENSION(:,:), INTENT(INOUT), OPTIONAL :: TPDATA_REAP
60 !
61 !* Declaration of local variables
62 ! ------------------------------
63 !
64 REAL(KIND=JPRB) :: ZHOOK_HANDLE
65 !
66 !------------------------------------------------------------------------------
67 !
68 IF (lhook) CALL dr_hook('DEFAULT_DATA_COVER',0,zhook_handle)
69 !
70 IF (PRESENT(pdata_town)) THEN
71 pdata_town(:) = (/ &
72  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, &
73  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
74  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
75  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
76  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
77  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
78  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
79  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
80  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
81  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
82  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
83  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
84  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
85  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
86  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
87  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.30, 0.10, 0.10, &
88  0.20, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
89  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
90  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
91  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
92  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
93  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
94  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
95  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
96  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
97  0.00, 0.00, 0.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
98  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
99  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
100  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
101  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
102  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
103  0.00, 0.01, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
104  0.00, 0.01, 0.02, 0.01, 0.01, 0.01, 0.00, 0.00, 0.00, 0.01, &
105  0.00, 0.00, 0.00, 0.00, 0.01, 0.02, 0.01, 0.00, 0.00, 0.01, &
106  0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
107  0.00, 0.00, 0.02, 0.01, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, &
108  0.02, 0.01, 0.02, 0.00, 0.01, 0.02, 0.00, 0.00, 0.00, 0.00, &
109  0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.00, 0.00, 0.00, 0.00, &
110  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
111  0.00, 0.01, 0.01, 0.04, 0.00, 0.00, 0.00, 0.02, 0.01, 0.01, &
112  0.01, 0.01, 0.01, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
113  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
114  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.01, &
115  0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
116  0.00, 0.00, 0.03, 0.04, 0.01, 0.01, 0.02, 0.01, 0.02, 0.02, &
117  0.04, 0.05, 0.09, 0.04, 0.02, 0.02, 0.03, 0.05, 0.03, 0.02, &
118  0.00, 0.00, 0.00, 0.02, 0.01, 0.02, 0.04, 0.00, 0.02, 0.01, &
119  0.02, 0.04, 0.08, 0.05, 0.03, 0.02, 0.02, 0.02, 0.00, 0.02, &
120  0.02, 0.02, 0.01, 0.03, 0.03, 0.02, 0.02, 0.02, 0.02, 0.00, &
121  0.02, 0.01, 0.02, 0.01, 0.00, 0.02, 0.00, 0.00, 0.00, 0.00, &
122  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
123  0.01, 0.02, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.00, 0.02, &
124  0.02, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, &
125  0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
126  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
127  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.02, 0.01, &
128  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
129  1.00, 0.00, 0.01 &
130  /)
131 ENDIF
132 !-------------------------------------------------------------------
133 IF (PRESENT(pdata_nature)) THEN
134 pdata_nature(:) = (/ &
135  0.00, 0.00, 0.00, 1.00, 1.00, 1.00, 0.00, 1.00, 1.00, 1.00, &
136  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
137  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
138  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
139  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
140  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
141  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
142  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
143  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
144  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
145  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
146  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
147  1.00, 1.00, 1.00, 0.80, 0.80, 0.00, 0.00, 0.00, 0.00, 0.00, &
148  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
149  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
150  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.70, 0.90, 0.90, &
151  0.80, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
152  1.00, 1.00, 1.00, 1.00, 1.00, 0.80, 1.00, 1.00, 1.00, 1.00, &
153  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
154  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
155  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
156  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
157  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
158  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.80, 0.80, 0.80, &
159  0.50, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
160  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
161  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
162  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
163  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
164  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
165  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
166  1.00, 0.99, 1.00, 0.99, 1.00, 1.00, 1.00, 1.00, 1.00, 0.99, &
167  1.00, 0.99, 0.98, 0.99, 0.99, 0.99, 1.00, 1.00, 1.00, 0.99, &
168  1.00, 1.00, 1.00, 1.00, 0.99, 0.98, 0.99, 1.00, 1.00, 0.99, &
169  1.00, 0.99, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
170  1.00, 1.00, 0.98, 0.99, 1.00, 1.00, 0.99, 0.99, 1.00, 0.99, &
171  0.98, 0.99, 0.98, 1.00, 0.99, 0.98, 1.00, 1.00, 1.00, 1.00, &
172  1.00, 1.00, 1.00, 1.00, 1.00, 0.97, 1.00, 1.00, 1.00, 1.00, &
173  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
174  1.00, 0.99, 0.99, 0.96, 1.00, 1.00, 1.00, 0.98, 0.99, 0.99, &
175  0.99, 0.99, 0.99, 0.99, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
176  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
177  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.99, 0.99, 0.99, &
178  0.99, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
179  1.00, 1.00, 0.97, 0.96, 0.99, 0.99, 0.98, 0.99, 0.98, 0.98, &
180  0.96, 0.95, 0.91, 0.96, 0.98, 0.98, 0.97, 0.95, 0.97, 0.98, &
181  1.00, 1.00, 1.00, 0.98, 0.99, 0.98, 0.96, 1.00, 0.98, 0.99, &
182  0.98, 0.96, 0.92, 0.95, 0.97, 0.98, 0.98, 0.98, 1.00, 0.98, &
183  0.98, 0.98, 0.99, 0.97, 0.97, 0.98, 0.98, 0.98, 0.98, 1.00, &
184  0.98, 0.99, 0.98, 0.99, 1.00, 0.98, 1.00, 1.00, 1.00, 1.00, &
185  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.99, &
186  0.99, 0.98, 0.99, 0.99, 0.99, 0.99, 0.99, 0.99, 1.00, 0.98, &
187  0.98, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.98, &
188  0.99, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
189  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.00, 0.45, &
190  0.05, 1.00, 0.01, 0.02, 0.03, 0.25, 1.00, 0.99, 0.98, 0.99, &
191  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
192  0.00, 1.00, 0.99 &
193  /)
194 ENDIF
195 !-------------------------------------------------------------------
196 IF (PRESENT(pdata_water)) THEN
197 pdata_water(:) = (/ &
198  0.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
199  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
200  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
201  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
202  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
203  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
204  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
205  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
206  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
207  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
208  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
209  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
210  0.00, 0.00, 0.00, 0.20, 0.20, 0.00, 0.00, 0.00, 0.00, 0.00, &
211  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
212  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
213  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
214  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
215  0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, 0.00, 0.00, &
216  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
217  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
218  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
219  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
220  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
221  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.20, 0.20, &
222  0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
223  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
224  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
225  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
226  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
227  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
228  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
229  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
230  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
231  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
232  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
233  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
234  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
235  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
236  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
237  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
238  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
239  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
240  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
241  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
242  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
243  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
244  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
245  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
246  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
247  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
248  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
249  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
250  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
251  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
252  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
253  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
254  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
255  0.00, 0.00, 0.00 &
256  /)
257 ENDIF
258 !-------------------------------------------------------------------
259 IF (PRESENT(pdata_sea)) THEN
260 pdata_sea(:) = (/ &
261  1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
262  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
263  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
264  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
265  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
266  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
267  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
268  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
269  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
270  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
271  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
272  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
273  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
274  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
275  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
276  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
277  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
278  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
279  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
280  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
281  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
282  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
283  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
284  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
285  0.00, 0.50, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
286  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
287  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
288  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
289  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
290  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
291  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
292  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
293  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
294  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
295  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
296  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
297  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
298  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
299  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
300  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
301  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
302  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
303  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
304  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
305  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
306  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
307  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
308  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
309  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
310  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
311  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
312  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
313  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
314  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
315  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.55, &
316  0.95, 0.00, 0.99, 0.98, 0.97, 0.75, 0.00, 0.00, 0.00, 0.00, &
317  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
318  0.00, 0.00, 0.00 &
319  /)
320 ENDIF
321 !-------------------------------------------------------------------
322 IF (PRESENT(pdata_town).AND.PRESENT(pdata_z0_town)) THEN
323 WHERE(pdata_town>0.) pdata_z0_town(:) = 1.000
324 pdata_z0_town(151) = 3.000
325 pdata_z0_town(155) = 2.000
326 pdata_z0_town(156) = 0.500
327 pdata_z0_town(157) = 2.000
328 pdata_z0_town(158) = 0.010
329 pdata_z0_town(159) = 0.100
330 pdata_z0_town(160) = 0.500
331 pdata_z0_town(254) = 2.000
332 pdata_z0_town(255) = 2.000
333 ENDIF
334 !-------------------------------------------------------------------
335 IF (PRESENT(pdata_town).AND.PRESENT(pdata_bld_height)) THEN
336 WHERE(pdata_town>0.) pdata_bld_height(:) = 10.
337 pdata_bld_height(151) = 30.
338 pdata_bld_height(155) = 20.
339 pdata_bld_height(156) = 5.
340 pdata_bld_height(157) = 20.
341 pdata_bld_height(159) = 5.
342 pdata_bld_height(160) = 5.
343 pdata_bld_height(254) = 20.
344 pdata_bld_height(255) = 20.
345 ENDIF
346 !-------------------------------------------------------------------
347 IF (PRESENT(pdata_town).AND.PRESENT(pdata_wall_o_hor)) THEN
348 WHERE(pdata_town>0.) pdata_wall_o_hor(:) =0.50
349 pdata_wall_o_hor( 7) =0.30
350 pdata_wall_o_hor(151) =0.90
351 pdata_wall_o_hor(152) =0.30
352 pdata_wall_o_hor(153) =0.30
353 pdata_wall_o_hor(154) =0.30
354 pdata_wall_o_hor(155) =0.45
355 pdata_wall_o_hor(156) =0.09
356 pdata_wall_o_hor(157) =0.90
357 pdata_wall_o_hor(158) =0.10
358 pdata_wall_o_hor(159) =0.10
359 pdata_wall_o_hor(160) =0.10
360 pdata_wall_o_hor(161) =1.00
361 pdata_wall_o_hor(254) =1.50
362 pdata_wall_o_hor(255) =1.50
363 pdata_wall_o_hor(561) =0.28
364 pdata_wall_o_hor(562) =0.27
365 pdata_wall_o_hor(563) =0.25
366 pdata_wall_o_hor(564) =0.16
367 pdata_wall_o_hor(565) =0.31
368 pdata_wall_o_hor(566) =0.28
369 pdata_wall_o_hor(567) =0.31
370 pdata_wall_o_hor(568) =0.25
371 pdata_wall_o_hor(569) =0.24
372 pdata_wall_o_hor(570) =0.25
373 pdata_wall_o_hor(571) =0.28
374 ENDIF
375 !-------------------------------------------------------------------
376 IF (PRESENT(pdata_town).AND.PRESENT(pdata_bld)) THEN
377 WHERE(pdata_town>0.) pdata_bld(:) =0.50
378 pdata_bld( 7) =0.30
379 pdata_bld(151) =0.45
380 pdata_bld(152) =0.30
381 pdata_bld(153) =0.30
382 pdata_bld(154) =0.30
383 pdata_bld(155) =0.45
384 pdata_bld(156) =0.09
385 pdata_bld(157) =0.45
386 pdata_bld(158) =0.10
387 pdata_bld(159) =0.10
388 pdata_bld(160) =0.10
389 pdata_bld(254) =0.60
390 pdata_bld(255) =0.60
391 pdata_bld(561) =0.28
392 pdata_bld(562) =0.27
393 pdata_bld(563) =0.25
394 pdata_bld(564) =0.16
395 pdata_bld(565) =0.31
396 pdata_bld(566) =0.28
397 pdata_bld(567) =0.31
398 pdata_bld(568) =0.25
399 pdata_bld(569) =0.24
400 pdata_bld(570) =0.25
401 pdata_bld(571) =0.28
402 ENDIF
403 !-------------------------------------------------------------------
404 IF (PRESENT(pdata_town).AND.PRESENT(pdata_garden)) THEN
405 WHERE(pdata_town>0.) pdata_garden(:) =0.00
406 pdata_garden( 7) =0.40
407 pdata_garden(151) =0.10
408 pdata_garden(152) =0.40
409 pdata_garden(153) =0.40
410 pdata_garden(154) =0.40
411 pdata_garden(155) =0.10
412 pdata_garden(156) =0.10
413 pdata_garden(157) =0.10
414 pdata_garden(561) =0.44
415 pdata_garden(562) =0.45
416 pdata_garden(563) =0.51
417 pdata_garden(564) =0.48
418 pdata_garden(565) =0.37
419 pdata_garden(566) =0.44
420 pdata_garden(567) =0.38
421 pdata_garden(568) =0.49
422 pdata_garden(569) =0.52
423 pdata_garden(570) =0.51
424 pdata_garden(571) =0.44
425 ENDIF
426 !-------------------------------------------------------------------
427 IF (PRESENT(pdata_town).AND.PRESENT(pdata_alb_roof)) THEN
428  WHERE(pdata_town>0.) pdata_alb_roof(:) =0.15
429 ENDIF
430 !-------------------------------------------------------------------
431 IF (PRESENT(pdata_town).AND.PRESENT(pdata_alb_road)) THEN
432  WHERE(pdata_town>0.) pdata_alb_road(:) =0.08
433 ENDIF
434 !-------------------------------------------------------------------
435 IF (PRESENT(pdata_town).AND.PRESENT(pdata_alb_wall)) THEN
436  WHERE(pdata_town>0.) pdata_alb_wall(:) =0.25
437 ENDIF
438 !-------------------------------------------------------------------
439 IF (PRESENT(pdata_town).AND.PRESENT(pdata_emis_roof)) THEN
440  WHERE(pdata_town>0.) pdata_emis_roof(:) =0.90
441 ENDIF
442 !-------------------------------------------------------------------
443 IF (PRESENT(pdata_town).AND.PRESENT(pdata_emis_road)) THEN
444  WHERE(pdata_town>0.) pdata_emis_road(:) =0.94
445 ENDIF
446 !-------------------------------------------------------------------
447 IF (PRESENT(pdata_town).AND.PRESENT(pdata_emis_wall)) THEN
448  WHERE(pdata_town>0.) pdata_emis_wall(:) =0.85
449 ENDIF
450 !-------------------------------------------------------------------
451 IF (PRESENT(pdata_town).AND.PRESENT(pdata_hc_roof)) THEN
452  WHERE(pdata_town>0.) pdata_hc_roof(:, 1) =2.11 * 1.e6
453 !-------------------------------------------------------------------
454  WHERE(pdata_town>0.) pdata_hc_roof(:, 2) =0.28 * 1.e6
455 !-------------------------------------------------------------------
456  WHERE(pdata_town>0.) pdata_hc_roof(:, 3) =0.29 * 1.e6
457 ENDIF
458 !-------------------------------------------------------------------
459 IF (PRESENT(pdata_town).AND.PRESENT(pdata_tc_roof)) THEN
460  WHERE(pdata_town>0.) pdata_tc_roof(:, 1) =1.5100
461 !-------------------------------------------------------------------
462  WHERE(pdata_town>0.) pdata_tc_roof(:, 2) =0.0800
463 !-------------------------------------------------------------------
464  WHERE(pdata_town>0.) pdata_tc_roof(:, 3) =0.0500
465 ENDIF
466 !-------------------------------------------------------------------
467 IF (PRESENT(pdata_town).AND.PRESENT(pdata_d_roof)) THEN
468  WHERE(pdata_town>0.) pdata_d_roof(:, 1) =0.050
469 !-------------------------------------------------------------------
470  WHERE(pdata_town>0.) pdata_d_roof(:, 2) =0.400
471 !-------------------------------------------------------------------
472  WHERE(pdata_town>0.) pdata_d_roof(:, 3) =0.100
473 ENDIF
474 !-------------------------------------------------------------------
475 IF (PRESENT(pdata_town).AND.PRESENT(pdata_hc_road)) THEN
476  WHERE(pdata_town>0.) pdata_hc_road(:, 1) =1.94 * 1.e6
477 !-------------------------------------------------------------------
478  WHERE(pdata_town>0.) pdata_hc_road(:, 2) =1.28 * 1.e6
479 !-------------------------------------------------------------------
480  WHERE(pdata_town>0.) pdata_hc_road(:, 3) =1.28 * 1.e6
481 ENDIF
482 !-------------------------------------------------------------------
483 IF (PRESENT(pdata_town).AND.PRESENT(pdata_tc_road)) THEN
484  WHERE(pdata_town>0.) pdata_tc_road(:, 1) =0.7454
485 !-------------------------------------------------------------------
486  WHERE(pdata_town>0.) pdata_tc_road(:, 2) =0.2513
487 !-------------------------------------------------------------------
488  WHERE(pdata_town>0.) pdata_tc_road(:, 3) =0.2513
489 ENDIF
490 !-------------------------------------------------------------------
491 IF (PRESENT(pdata_town).AND.PRESENT(pdata_d_road)) THEN
492  WHERE(pdata_town>0.) pdata_d_road(:, 1) =0.050
493 !-------------------------------------------------------------------
494  WHERE(pdata_town>0.) pdata_d_road(:, 2) =0.100
495 !-------------------------------------------------------------------
496  WHERE(pdata_town>0.) pdata_d_road(:, 3) =1.000
497 ENDIF
498 !-------------------------------------------------------------------
499 IF (PRESENT(pdata_town).AND.PRESENT(pdata_hc_wall)) THEN
500  WHERE(pdata_town>0.) pdata_hc_wall(:, 1) =1.55 * 1.e6
501 !-------------------------------------------------------------------
502  WHERE(pdata_town>0.) pdata_hc_wall(:, 2) =1.55 * 1.e6
503 !-------------------------------------------------------------------
504  WHERE(pdata_town>0.) pdata_hc_wall(:, 3) =0.29 * 1.e6
505 ENDIF
506 !-------------------------------------------------------------------
507 IF (PRESENT(pdata_town).AND.PRESENT(pdata_tc_wall)) THEN
508  WHERE(pdata_town>0.) pdata_tc_wall(:, 1) =0.9338
509 !-------------------------------------------------------------------
510  WHERE(pdata_town>0.) pdata_tc_wall(:, 2) =0.9338
511 !-------------------------------------------------------------------
512  WHERE(pdata_town>0.) pdata_tc_wall(:, 3) =0.0500
513 ENDIF
514 !-------------------------------------------------------------------
515 IF (PRESENT(pdata_town).AND.PRESENT(pdata_d_wall)) THEN
516  WHERE(pdata_town>0.) pdata_d_wall(:, 1) =0.020
517 !-------------------------------------------------------------------
518  WHERE(pdata_town>0.) pdata_d_wall(:, 2) =0.125
519 !-------------------------------------------------------------------
520  WHERE(pdata_town>0.) pdata_d_wall(:, 3) =0.050
521 ENDIF
522 !-------------------------------------------------------------------
523 IF (PRESENT(pdata_town).AND.PRESENT(pdata_h_traffic)) THEN
524  WHERE(pdata_town>0.) pdata_h_traffic(:) = 10.
525 pdata_h_traffic(151) = 20.
526 pdata_h_traffic(156) = 30.
527 pdata_h_traffic(159) = 0.
528 pdata_h_traffic(160) = 0.
529 pdata_h_traffic(161) = 0.
530 pdata_h_traffic(254) = 0.
531 pdata_h_traffic(255) = 0.
532 ENDIF
533 !-------------------------------------------------------------------
534 IF (PRESENT(pdata_town).AND.PRESENT(pdata_le_traffic)) THEN
535  WHERE(pdata_town>0.) pdata_le_traffic(:) = 0.
536 ENDIF
537 !-------------------------------------------------------------------
538 IF (PRESENT(pdata_town).AND.PRESENT(pdata_h_industry)) THEN
539  WHERE(pdata_town>0.) pdata_h_industry(:) = 5.
540 pdata_h_industry(151) = 10.
541 pdata_h_industry(155) = 20.
542 pdata_h_industry(156) = 0.
543 pdata_h_industry(157) = 20.
544 pdata_h_industry(158) = 0.
545 pdata_h_industry(159) = 0.
546 pdata_h_industry(160) = 0.
547 pdata_h_industry(161) = 0.
548 pdata_h_industry(254) = 0.
549 pdata_h_industry(255) = 0.
550 ENDIF
551 !-------------------------------------------------------------------
552 IF (PRESENT(pdata_town).AND.PRESENT(pdata_le_industry)) THEN
553  WHERE(pdata_town>0.) pdata_le_industry(:) = 0.
554 ENDIF
555 !-------------------------------------------------------------------
556 IF (PRESENT(pdata_vegtype)) THEN
557 pdata_vegtype(:, 1) = (/ &
558  0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.90, 0.00, &
559  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
560  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
561  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.10, &
562  0.00, 0.00, 0.00, 0.10, 0.00, 0.00, 0.00, 0.30, 0.20, 0.00, &
563  0.20, 0.00, 0.20, 0.00, 0.00, 0.20, 0.00, 0.30, 0.00, 0.00, &
564  0.00, 0.00, 0.00, 0.10, 0.00, 0.10, 0.30, 0.20, 0.20, 0.30, &
565  0.30, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.60, &
566  0.50, 0.70, 0.20, 0.30, 0.40, 0.30, 0.70, 0.00, 0.00, 0.00, &
567  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
568  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
569  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
570  0.00, 0.00, 0.90, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
571  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
572  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
573  0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 1.00, 0.00, 1.00, 0.00, &
574  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
575  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.50, 0.50, 0.00, &
576  0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
577  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
578  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
579  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, &
580  0.00, 0.00, 0.50, 0.00, 0.30, 0.10, 0.10, 0.00, 0.00, 0.40, &
581  0.50, 0.50, 0.20, 0.10, 0.00, 0.80, 1.00, 0.00, 0.00, 0.00, &
582  0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
583  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
584  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
585  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
586  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
587  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
588  0.06, 0.01, 0.00, 0.03, 0.03, 0.00, 0.00, 0.00, 0.00, 0.05, &
589  0.03, 0.05, 0.00, 0.01, 0.02, 0.01, 0.02, 0.01, 0.01, 0.00, &
590  0.00, 0.02, 0.08, 0.04, 0.07, 0.04, 0.30, 0.02, 0.05, 0.09, &
591  0.06, 0.03, 0.04, 0.04, 0.11, 0.19, 0.12, 0.25, 0.20, 0.11, &
592  0.05, 0.15, 0.13, 0.20, 0.10, 0.10, 0.10, 0.05, 0.04, 0.40, &
593  0.08, 0.09, 0.08, 0.00, 0.10, 0.50, 0.55, 0.60, 0.70, 0.05, &
594  0.06, 0.04, 0.09, 0.07, 0.14, 0.16, 0.30, 0.45, 0.55, 0.57, &
595  0.70, 0.70, 0.65, 0.75, 0.85, 0.30, 0.39, 0.43, 0.30, 0.28, &
596  0.15, 0.33, 0.54, 0.25, 0.35, 0.48, 0.44, 0.40, 0.35, 0.15, &
597  0.15, 0.03, 0.04, 0.30, 0.20, 0.07, 0.15, 0.17, 0.35, 0.30, &
598  0.30, 0.25, 0.15, 0.20, 0.15, 0.10, 0.30, 0.40, 0.60, 0.65, &
599  0.60, 0.18, 0.45, 0.55, 0.63, 0.23, 0.45, 0.32, 0.50, 0.30, &
600  0.22, 0.45, 0.57, 0.55, 0.30, 0.50, 0.55, 0.50, 0.27, 0.10, &
601  0.22, 0.77, 0.63, 0.74, 0.52, 0.65, 0.88, 0.72, 0.80, 0.90, &
602  0.89, 0.07, 0.07, 0.09, 0.18, 0.15, 0.15, 0.12, 0.15, 0.15, &
603  0.20, 0.12, 0.15, 0.14, 0.08, 0.06, 0.12, 0.29, 0.15, 0.09, &
604  0.09, 0.09, 0.09, 0.13, 0.06, 0.06, 0.13, 0.14, 0.09, 0.02, &
605  0.25, 0.15, 0.35, 0.12, 0.17, 0.11, 0.43, 0.18, 0.13, 0.10, &
606  0.08, 0.06, 0.22, 0.07, 0.06, 0.07, 0.04, 0.01, 0.06, 0.20, &
607  0.03, 0.05, 0.06, 0.09, 0.42, 0.42, 0.27, 0.14, 0.08, 0.22, &
608  0.07, 0.16, 0.25, 0.48, 0.45, 0.07, 0.21, 0.16, 0.37, 0.12, &
609  0.10, 0.27, 0.25, 0.12, 0.33, 0.14, 0.14, 0.42, 0.15, 0.34, &
610  0.06, 0.32, 0.03, 0.08, 0.09, 0.17, 0.32, 0.51, 0.15, 0.08, &
611  0.72, 0.16, 0.00, 0.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.80, &
612  0.76, 0.89, 0.90, 0.97, 0.81, 0.60, 0.85, 0.00, 0.00, 0.01, &
613  1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
614  0.02, 0.02, 0.02, 0.05, 0.14, 0.01, 0.13, 0.16, 0.00, 0.02, &
615  0.04, 0.47, 0.46 &
616  /)
617 !-------------------------------------------------------------------
618 pdata_vegtype(:, 2) = (/ &
619  0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
620  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
621  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
622  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
623  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
624  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
625  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
626  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
627  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
628  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
629  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
630  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
631  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
632  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
633  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
634  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
635  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
636  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
637  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
638  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
639  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
640  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
641  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
642  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
643  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
644  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
645  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
646  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
647  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
648  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
649  0.06, 0.01, 0.00, 0.04, 0.04, 0.00, 0.01, 0.00, 0.01, 0.05, &
650  0.03, 0.05, 0.00, 0.02, 0.03, 0.01, 0.02, 0.02, 0.02, 0.04, &
651  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
652  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, &
653  0.00, 0.00, 0.00, 0.40, 0.30, 0.20, 0.15, 0.10, 0.08, 0.05, &
654  0.00, 0.00, 0.00, 0.00, 0.00, 0.05, 0.05, 0.05, 0.10, 0.00, &
655  0.00, 0.00, 0.00, 0.00, 0.01, 0.02, 0.05, 0.05, 0.05, 0.13, &
656  0.05, 0.05, 0.05, 0.05, 0.05, 0.00, 0.01, 0.02, 0.00, 0.02, &
657  0.01, 0.00, 0.01, 0.00, 0.00, 0.02, 0.06, 0.00, 0.00, 0.00, &
658  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
659  0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.05, 0.05, 0.05, 0.05, &
660  0.05, 0.02, 0.05, 0.05, 0.07, 0.02, 0.05, 0.23, 0.05, 0.05, &
661  0.03, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.05, 0.03, 0.02, &
662  0.03, 0.08, 0.27, 0.16, 0.23, 0.10, 0.07, 0.21, 0.12, 0.00, &
663  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
664  0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, &
665  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, &
666  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
667  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
668  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, &
669  0.00, 0.01, 0.03, 0.06, 0.05, 0.01, 0.02, 0.01, 0.03, 0.01, &
670  0.01, 0.02, 0.02, 0.01, 0.02, 0.01, 0.01, 0.02, 0.01, 0.03, &
671  0.01, 0.03, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.01, 0.00, &
672  0.00, 0.07, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.19, &
673  0.19, 0.09, 0.00, 0.02, 0.12, 0.25, 0.00, 0.00, 0.00, 0.00, &
674  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
675  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
676  0.02, 0.00, 0.00 &
677  /)
678 !-------------------------------------------------------------------
679 pdata_vegtype(:, 3) = (/ &
680  0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, &
681  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
682  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
683  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
684  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
685  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
686  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
687  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
688  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
689  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
690  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
691  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
692  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
693  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
694  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
695  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
696  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
697  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
698  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
699  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
700  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
701  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
702  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
703  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
704  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
705  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
706  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
707  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
708  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
709  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
710  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
711  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
712  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
713  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
714  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
715  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
716  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
717  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
718  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
719  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
720  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
721  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
722  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
723  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
724  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
725  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
726  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
727  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
728  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
729  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
730  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
731  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
732  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
733  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
734  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.10, 1.00, 0.00, 0.00, &
735  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
736  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
737  0.00, 0.00, 0.00 &
738  /)
739 !-------------------------------------------------------------------
740 pdata_vegtype(:, 4) = (/ &
741  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, &
742  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
743  0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.50, &
744  0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
745  0.00, 0.00, 0.00, 0.40, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
746  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, &
747  0.00, 0.00, 0.00, 0.00, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, &
748  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
749  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
750  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
751  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
752  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
753  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
754  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
755  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
756  0.50, 0.50, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, &
757  0.20, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
758  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.50, 0.50, 0.50, &
759  0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.10, 0.10, 0.10, 0.10, &
760  0.10, 0.40, 0.40, 0.40, 0.40, 0.00, 0.00, 0.30, 1.00, 1.00, &
761  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.00, 0.00, 0.00, &
762  0.00, 0.00, 0.00, 0.00, 0.50, 0.50, 0.50, 0.50, 0.50, 0.00, &
763  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, &
764  0.50, 0.00, 0.60, 0.00, 0.60, 0.00, 0.00, 0.50, 0.00, 0.00, &
765  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
766  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
767  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
768  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
769  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
770  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
771  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
772  0.00, 0.00, 0.00, 0.40, 0.00, 0.00, 0.10, 0.00, 0.14, 0.25, &
773  0.51, 0.49, 0.11, 0.13, 0.07, 0.54, 0.00, 0.00, 0.31, 0.00, &
774  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
775  0.00, 0.15, 0.39, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
776  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.08, &
777  0.22, 0.04, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
778  0.00, 0.00, 0.00, 0.00, 0.00, 0.14, 0.00, 0.00, 0.00, 0.00, &
779  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
780  0.00, 0.16, 0.00, 0.00, 0.00, 0.00, 0.35, 0.00, 0.00, 0.07, &
781  0.00, 0.07, 0.00, 0.05, 0.04, 0.00, 0.00, 0.00, 0.00, 0.00, &
782  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
783  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.07, 0.00, 0.00, &
784  0.10, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
785  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.04, 0.00, &
786  0.00, 0.16, 0.44, 0.00, 0.17, 0.23, 0.14, 0.28, 0.00, 0.00, &
787  0.00, 0.00, 0.00, 0.06, 0.10, 0.13, 0.19, 0.00, 0.07, 0.00, &
788  0.00, 0.00, 0.00, 0.09, 0.02, 0.03, 0.00, 0.25, 0.00, 0.04, &
789  0.03, 0.01, 0.00, 0.10, 0.09, 0.14, 0.04, 0.02, 0.12, 0.00, &
790  0.13, 0.35, 0.04, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, &
791  0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.02, 0.00, 0.00, 0.00, &
792  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
793  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
794  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
795  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
796  0.00, 0.00, 0.00, 0.00, 0.00, 0.22, 0.00, 0.00, 0.00, 0.20, &
797  0.18, 0.21, 0.26, 0.15, 0.04, 0.00, 0.04, 0.19, 0.07, 0.07, &
798  0.00, 0.00, 0.00 &
799  /)
800 !-------------------------------------------------------------------
801 pdata_vegtype(:, 5) = (/ &
802  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
803  1.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
804  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
805  0.50, 0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
806  0.50, 0.50, 0.00, 0.00, 0.50, 0.50, 0.00, 0.00, 0.00, 0.00, &
807  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.30, 0.30, &
808  0.00, 0.00, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
809  0.00, 0.00, 0.00, 0.20, 0.20, 0.00, 0.20, 0.00, 0.00, 0.00, &
810  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
811  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
812  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
813  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
814  0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, 0.00, 0.00, 0.00, &
815  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
816  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
817  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
818  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
819  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
820  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
821  0.00, 0.00, 0.00, 0.00, 0.00, 0.40, 0.40, 0.00, 0.00, 0.00, &
822  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 1.00, 1.00, &
823  1.00, 1.00, 1.00, 0.00, 0.50, 0.50, 0.50, 0.50, 0.50, 0.00, &
824  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
825  0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, &
826  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
827  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
828  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
829  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
830  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
831  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
832  0.27, 0.07, 0.14, 0.88, 0.84, 0.15, 0.85, 0.18, 0.82, 0.73, &
833  0.73, 0.71, 0.18, 0.48, 0.86, 0.86, 0.80, 0.87, 0.78, 0.13, &
834  0.07, 0.00, 0.24, 0.55, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
835  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
836  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, &
837  0.06, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.09, &
838  0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.00, 0.00, 0.00, 0.00, &
839  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
840  0.05, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
841  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
842  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
843  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
844  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
845  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
846  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
847  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
848  0.05, 0.13, 0.04, 0.06, 0.05, 0.05, 0.00, 0.00, 0.00, 0.08, &
849  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, &
850  0.02, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
851  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
852  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
853  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
854  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
855  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
856  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
857  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.40, 0.02, 0.04, 0.00, &
858  0.00, 0.00, 0.34, 0.07, 0.00, 0.48, 0.00, 0.00, 0.00, 0.00, &
859  0.00, 0.00, 0.00 &
860  /)
861 !-------------------------------------------------------------------
862 pdata_vegtype(:, 6) = (/ &
863  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
864  0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
865  1.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
866  0.00, 0.00, 0.00, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.00, &
867  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.30, &
868  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.30, 0.00, 0.00, 0.00, &
869  0.30, 0.30, 0.00, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, &
870  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
871  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
872  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
873  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
874  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
875  0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
876  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
877  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
878  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
879  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
880  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
881  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
882  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
883  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
884  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
885  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
886  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
887  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
888  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
889  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
890  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
891  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
892  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
893  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
894  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
895  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
896  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
897  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
898  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
899  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
900  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
901  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
902  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
903  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
904  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
905  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
906  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
907  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
908  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
909  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
910  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
911  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
912  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
913  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
914  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
915  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
916  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
917  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
918  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
919  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
920  0.00, 0.00, 0.00 &
921  /)
922 !-------------------------------------------------------------------
923 pdata_vegtype(:, 7) = (/ &
924  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
925  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
926  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
927  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, &
928  0.00, 0.50, 0.50, 0.00, 0.00, 0.00, 0.40, 0.00, 0.00, 0.00, &
929  0.00, 0.00, 0.00, 0.00, 0.70, 0.00, 0.00, 0.00, 0.00, 0.50, &
930  0.50, 0.00, 0.40, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
931  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
932  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
933  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
934  0.00, 0.00, 0.00, 0.00, 0.50, 0.90, 0.50, 0.90, 1.00, 0.00, &
935  0.50, 0.00, 1.00, 0.90, 0.70, 0.90, 0.80, 0.30, 0.80, 1.00, &
936  1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
937  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
938  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
939  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
940  0.00, 0.90, 0.90, 0.90, 0.90, 1.00, 1.00, 0.90, 0.90, 0.90, &
941  1.00, 0.80, 0.90, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
942  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.90, 0.90, 0.90, 0.90, &
943  0.90, 0.60, 0.60, 0.60, 0.60, 0.60, 0.60, 0.40, 0.00, 0.00, &
944  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
945  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
946  0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, 0.00, &
947  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
948  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
949  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
950  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
951  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
952  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
953  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
954  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
955  0.03, 0.01, 0.00, 0.01, 0.02, 0.00, 0.03, 0.02, 0.03, 0.03, &
956  0.00, 0.05, 0.08, 0.01, 0.04, 0.02, 0.00, 0.00, 0.01, 0.01, &
957  0.01, 0.00, 0.01, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, 0.03, &
958  0.01, 0.02, 0.02, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.10, &
959  0.03, 0.00, 0.05, 0.04, 0.00, 0.01, 0.09, 0.01, 0.03, 0.02, &
960  0.29, 0.10, 0.30, 0.05, 0.06, 0.01, 0.02, 0.00, 0.00, 0.00, &
961  0.00, 0.03, 0.00, 0.01, 0.00, 0.09, 0.04, 0.04, 0.04, 0.02, &
962  0.12, 0.04, 0.15, 0.05, 0.00, 0.00, 0.00, 0.00, 0.04, 0.09, &
963  0.08, 0.05, 0.14, 0.26, 0.04, 0.09, 0.15, 0.19, 0.34, 0.19, &
964  0.14, 0.14, 0.09, 0.06, 0.09, 0.30, 0.00, 0.00, 0.00, 0.00, &
965  0.24, 0.35, 0.12, 0.09, 0.06, 0.04, 0.05, 0.01, 0.00, 0.04, &
966  0.05, 0.01, 0.00, 0.01, 0.04, 0.12, 0.03, 0.09, 0.06, 0.12, &
967  0.04, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
968  0.00, 0.35, 0.05, 0.05, 0.02, 0.66, 0.67, 0.55, 0.57, 0.52, &
969  0.39, 0.39, 0.20, 0.18, 0.10, 0.33, 0.27, 0.09, 0.42, 0.45, &
970  0.65, 0.34, 0.53, 0.55, 0.58, 0.45, 0.17, 0.62, 0.55, 0.78, &
971  0.58, 0.69, 0.57, 0.63, 0.62, 0.71, 0.37, 0.32, 0.64, 0.56, &
972  0.80, 0.79, 0.72, 0.62, 0.61, 0.67, 0.80, 0.84, 0.54, 0.43, &
973  0.72, 0.55, 0.76, 0.63, 0.52, 0.24, 0.61, 0.74, 0.49, 0.42, &
974  0.49, 0.61, 0.44, 0.35, 0.36, 0.75, 0.66, 0.63, 0.34, 0.58, &
975  0.46, 0.13, 0.53, 0.34, 0.14, 0.53, 0.24, 0.08, 0.32, 0.18, &
976  0.32, 0.39, 0.00, 0.00, 0.00, 0.00, 0.07, 0.00, 0.15, 0.03, &
977  0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
978  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
979  0.00, 0.00, 0.00, 0.00, 0.00, 0.05, 0.00, 0.00, 0.00, 0.10, &
980  0.20, 0.39, 0.19, 0.35, 0.14, 0.20, 0.15, 0.29, 0.69, 0.53, &
981  0.19, 0.01, 0.01 &
982  /)
983 !-------------------------------------------------------------------
984 pdata_vegtype(:, 8) = (/ &
985  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
986  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
987  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
988  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.30, 0.00, 0.00, &
989  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.10, 0.00, 0.00, 0.00, &
990  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.70, 0.00, 0.00, 0.20, &
991  0.20, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
992  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
993  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
994  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
995  0.00, 0.00, 0.00, 0.00, 0.50, 0.10, 0.50, 0.10, 0.00, 1.00, &
996  0.50, 1.00, 0.00, 0.10, 0.30, 0.10, 0.20, 0.70, 0.20, 0.00, &
997  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
998  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
999  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1000  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1001  0.00, 0.10, 0.10, 0.10, 0.10, 0.00, 0.00, 0.10, 0.10, 0.10, &
1002  0.00, 0.20, 0.10, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1003  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1004  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1005  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1006  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1007  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1008  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1009  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1010  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1011  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1012  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1013  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1014  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1015  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1016  0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, &
1017  0.02, 0.01, 0.01, 0.01, 0.00, 0.01, 0.00, 0.02, 0.01, 0.01, &
1018  0.01, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, 0.00, &
1019  0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1020  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.00, 0.00, 0.01, &
1021  0.01, 0.00, 0.05, 0.00, 0.02, 0.01, 0.00, 0.00, 0.00, 0.00, &
1022  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.01, 0.00, 0.01, &
1023  0.03, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, &
1024  0.02, 0.01, 0.01, 0.01, 0.00, 0.01, 0.00, 0.01, 0.01, 0.01, &
1025  0.01, 0.01, 0.01, 0.01, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, &
1026  0.01, 0.01, 0.01, 0.01, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, &
1027  0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, 0.01, 0.01, &
1028  0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1029  0.00, 0.45, 0.68, 0.73, 0.18, 0.01, 0.02, 0.01, 0.04, 0.01, &
1030  0.02, 0.02, 0.02, 0.02, 0.15, 0.01, 0.02, 0.01, 0.10, 0.08, &
1031  0.05, 0.01, 0.02, 0.05, 0.02, 0.08, 0.47, 0.03, 0.05, 0.00, &
1032  0.01, 0.01, 0.00, 0.01, 0.14, 0.09, 0.01, 0.03, 0.05, 0.04, &
1033  0.01, 0.01, 0.03, 0.01, 0.00, 0.05, 0.01, 0.00, 0.02, 0.01, &
1034  0.00, 0.03, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.01, 0.00, &
1035  0.01, 0.00, 0.02, 0.01, 0.00, 0.02, 0.01, 0.01, 0.01, 0.01, &
1036  0.00, 0.01, 0.01, 0.01, 0.01, 0.02, 0.00, 0.01, 0.01, 0.01, &
1037  0.02, 0.00, 0.05, 0.09, 0.04, 0.03, 0.03, 0.02, 0.01, 0.03, &
1038  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1039  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1040  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1041  0.00, 0.01, 0.01, 0.05, 0.08, 0.00, 0.02, 0.01, 0.01, 0.07, &
1042  0.01, 0.01, 0.04 &
1043  /)
1044 !-------------------------------------------------------------------
1045 pdata_vegtype(:, 9) = (/ &
1046  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1047  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1048  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1049  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1050  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1051  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1052  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1053  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1054  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1055  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1056  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1057  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1058  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1059  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1060  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1061  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1062  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1063  0.00, 0.00, 0.00, 1.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, &
1064  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1065  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1066  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1067  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1068  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1069  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1070  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1071  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1072  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1073  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1074  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1075  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1076  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1077  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1078  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1079  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, 0.00, &
1080  0.00, 0.01, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1081  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1082  0.00, 0.00, 0.00, 0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.00, &
1083  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.10, 0.00, 0.00, 0.00, &
1084  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1085  0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, &
1086  0.02, 0.00, 0.00, 0.01, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, &
1087  0.01, 0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1088  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1089  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1090  0.00, 0.00, 0.18, 0.06, 0.48, 0.01, 0.01, 0.03, 0.07, 0.09, &
1091  0.06, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.00, 0.00, &
1092  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1093  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.04, 0.01, 0.00, 0.01, &
1094  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1095  0.00, 0.00, 0.00, 0.00, 0.00, 0.10, 0.04, 0.05, 0.00, 0.00, &
1096  0.00, 0.02, 0.00, 0.04, 0.00, 0.01, 0.04, 0.01, 0.01, 0.01, &
1097  0.01, 0.02, 0.02, 0.02, 0.03, 0.02, 0.02, 0.02, 0.02, 0.03, &
1098  0.00, 0.00, 0.85, 0.76, 0.77, 0.63, 0.40, 0.31, 0.63, 0.82, &
1099  0.26, 0.72, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1100  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1101  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1102  0.00, 0.00, 0.00, 0.00, 0.02, 0.00, 0.08, 0.07, 0.00, 0.00, &
1103  0.10, 0.00, 0.00 &
1104  /)
1105 !-------------------------------------------------------------------
1106 pdata_vegtype(:, 10) = (/ &
1107  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.10, 0.00, &
1108  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1109  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1110  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1111  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1112  0.00, 0.00, 0.00, 0.70, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1113  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1114  0.00, 0.00, 0.00, 0.00, 0.60, 0.00, 0.00, 0.30, 0.60, 0.40, &
1115  0.00, 0.00, 0.80, 0.70, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1116  0.00, 1.00, 1.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, &
1117  1.00, 1.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1118  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1119  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1120  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1121  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1122  0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 1.00, 0.00, 0.00, &
1123  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1124  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, &
1125  0.00, 1.00, 1.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1126  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.30, 0.00, 0.00, &
1127  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1128  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.80, &
1129  1.00, 1.00, 0.50, 1.00, 0.70, 0.40, 0.90, 1.00, 1.00, 0.40, &
1130  0.00, 0.00, 0.20, 0.30, 0.40, 0.20, 0.00, 0.00, 0.00, 0.00, &
1131  1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1132  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1133  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1134  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1135  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1136  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1137  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1138  0.00, 0.05, 0.00, 0.05, 0.00, 0.00, 0.02, 0.00, 0.01, 0.53, &
1139  0.40, 0.30, 0.48, 0.26, 0.33, 0.27, 0.01, 0.01, 0.32, 0.10, &
1140  0.03, 0.25, 0.55, 0.38, 0.23, 0.44, 0.33, 0.11, 0.00, 0.61, &
1141  0.71, 0.59, 0.36, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.35, &
1142  0.76, 0.77, 0.75, 0.82, 0.57, 0.31, 0.22, 0.24, 0.12, 0.75, &
1143  0.32, 0.75, 0.48, 0.84, 0.59, 0.73, 0.50, 0.40, 0.33, 0.25, &
1144  0.22, 0.18, 0.25, 0.17, 0.09, 0.41, 0.28, 0.24, 0.48, 0.49, &
1145  0.55, 0.42, 0.21, 0.52, 0.49, 0.39, 0.40, 0.45, 0.46, 0.55, &
1146  0.64, 0.75, 0.74, 0.33, 0.59, 0.64, 0.35, 0.48, 0.24, 0.35, &
1147  0.36, 0.49, 0.48, 0.32, 0.67, 0.43, 0.47, 0.43, 0.28, 0.30, &
1148  0.07, 0.37, 0.22, 0.23, 0.21, 0.60, 0.37, 0.40, 0.44, 0.51, &
1149  0.54, 0.40, 0.32, 0.32, 0.45, 0.25, 0.33, 0.23, 0.34, 0.56, &
1150  0.48, 0.14, 0.10, 0.10, 0.22, 0.22, 0.05, 0.07, 0.08, 0.10, &
1151  0.00, 0.13, 0.00, 0.01, 0.01, 0.14, 0.13, 0.18, 0.13, 0.16, &
1152  0.19, 0.27, 0.08, 0.18, 0.35, 0.30, 0.43, 0.04, 0.24, 0.19, &
1153  0.00, 0.30, 0.22, 0.15, 0.19, 0.08, 0.03, 0.20, 0.24, 0.10, &
1154  0.00, 0.15, 0.08, 0.11, 0.04, 0.06, 0.09, 0.10, 0.12, 0.25, &
1155  0.06, 0.12, 0.03, 0.13, 0.15, 0.07, 0.09, 0.10, 0.22, 0.28, &
1156  0.04, 0.02, 0.13, 0.12, 0.05, 0.10, 0.05, 0.04, 0.37, 0.30, &
1157  0.38, 0.17, 0.23, 0.03, 0.12, 0.10, 0.04, 0.12, 0.16, 0.13, &
1158  0.20, 0.26, 0.06, 0.19, 0.05, 0.22, 0.31, 0.12, 0.18, 0.20, &
1159  0.53, 0.12, 0.07, 0.07, 0.07, 0.05, 0.04, 0.03, 0.04, 0.02, &
1160  0.02, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
1161  0.05, 0.01, 0.10, 0.01, 0.07, 0.00, 0.00, 0.00, 0.00, 0.00, &
1162  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.05, &
1163  0.48, 0.26, 0.17, 0.31, 0.49, 0.10, 0.49, 0.19, 0.22, 0.30, &
1164  0.40, 0.04, 0.00 &
1165  /)
1166 !-------------------------------------------------------------------
1167 pdata_vegtype(:, 11) = (/ &
1168  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, &
1169  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1170  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1171  0.00, 0.00, 0.00, 0.50, 0.50, 0.50, 0.50, 0.00, 0.50, 0.50, &
1172  0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, 0.50, 0.60, 0.70, &
1173  0.60, 0.70, 0.60, 0.00, 0.00, 0.60, 0.00, 0.50, 0.00, 0.00, &
1174  0.00, 0.70, 0.00, 0.00, 0.70, 0.60, 0.50, 0.60, 0.60, 0.50, &
1175  0.50, 0.60, 0.60, 0.00, 0.00, 0.60, 0.00, 0.30, 0.00, 0.00, &
1176  0.50, 0.30, 0.00, 0.00, 0.00, 0.00, 0.30, 1.00, 1.00, 1.00, &
1177  1.00, 0.00, 0.00, 1.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, &
1178  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1179  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1180  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1181  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1182  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1183  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1184  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1185  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1186  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1187  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1188  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1189  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1190  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1191  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1192  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1193  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1194  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1195  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1196  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1197  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1198  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1199  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1200  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, &
1201  0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, &
1202  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1203  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1204  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1205  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1206  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.01, 0.00, 0.00, &
1207  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1208  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1209  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, &
1210  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1211  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1212  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1213  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1214  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1215  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1216  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1217  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1218  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1219  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1220  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1221  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1222  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1223  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1224  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1225  0.00, 0.00, 0.00 &
1226  /)
1227 !-------------------------------------------------------------------
1228 pdata_vegtype(:, 12) = (/ &
1229  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, &
1230  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1231  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1232  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1233  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1234  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1235  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1236  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1237  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1238  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1239  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1240  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1241  0.00, 0.00, 0.00, 0.50, 0.80, 0.00, 0.00, 0.00, 0.00, 0.00, &
1242  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1243  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1244  0.50, 0.50, 0.50, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, &
1245  0.80, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1246  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1247  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1248  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1249  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1250  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1251  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1252  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.80, 1.00, &
1253  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1254  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1255  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1256  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1257  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1258  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1259  0.08, 0.03, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.06, &
1260  0.03, 0.07, 0.01, 0.02, 0.02, 0.00, 0.01, 0.01, 0.01, 0.00, &
1261  0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.06, &
1262  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1263  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
1264  0.02, 0.09, 0.03, 0.03, 0.31, 0.01, 0.02, 0.00, 0.01, 0.00, &
1265  0.00, 0.04, 0.00, 0.01, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, &
1266  0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, &
1267  0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1268  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1269  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1270  0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1271  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1272  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1273  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1274  0.01, 0.00, 0.00, 0.02, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, &
1275  0.00, 0.00, 0.00, 0.00, 0.00, 0.15, 0.01, 0.00, 0.00, 0.00, &
1276  0.02, 0.00, 0.00, 0.01, 0.01, 0.00, 0.01, 0.01, 0.05, 0.00, &
1277  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, 0.01, 0.00, 0.00, &
1278  0.00, 0.00, 0.00, 0.01, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, &
1279  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1280  0.00, 0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.00, &
1281  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.01, &
1282  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1283  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.99, &
1284  0.00, 1.00, 1.00, 1.00, 1.00, 0.18, 0.55, 0.94, 0.89, 0.10, &
1285  0.02, 0.01, 0.01, 0.02, 0.06, 0.04, 0.07, 0.02, 0.00, 0.00, &
1286  0.02, 0.00, 0.00 &
1287  /)
1288 !-------------------------------------------------------------------
1289 pdata_vegtype(:, 13) = (/ &
1290  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, &
1291  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1292  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, &
1293  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1294  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.20, 0.00, &
1295  0.20, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, 0.00, 0.00, &
1296  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1297  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1298  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1299  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1300  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1301  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1302  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1303  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1304  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1305  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1306  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1307  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1308  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1309  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1310  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1311  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1312  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1313  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1314  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1315  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1316  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1317  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1318  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1319  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1320  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1321  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1322  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1323  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1324  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1325  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1326  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1327  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1328  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1329  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1330  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1331  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1332  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1333  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1334  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1335  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1336  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1337  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1338  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1339  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1340  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1341  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1342  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1343  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1344  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1345  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1346  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1347  0.00, 0.00, 0.00 &
1348  /)
1349 !-------------------------------------------------------------------
1350 pdata_vegtype(:, 14) = (/ &
1351  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1352  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1353  0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 1.00, 0.50, 0.00, &
1354  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.40, &
1355  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1356  0.00, 0.30, 0.20, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1357  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1358  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1359  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1360  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1361  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1362  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1363  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1364  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1365  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1366  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1367  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1368  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1369  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1370  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1371  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1372  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1373  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1374  0.00, 0.00, 0.00, 0.60, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1375  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1376  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1377  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1378  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1379  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1380  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1381  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1382  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1383  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.06, 0.00, 0.07, &
1384  0.06, 0.56, 0.28, 0.27, 0.34, 0.10, 0.20, 0.08, 0.72, 0.14, &
1385  0.21, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1386  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1387  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1388  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1389  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1390  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.11, 0.00, 0.00, &
1391  0.10, 0.00, 0.07, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1392  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1393  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.11, 0.13, &
1394  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1395  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1396  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1397  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1398  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.00, 0.00, 0.00, &
1399  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1400  0.00, 0.00, 0.00, 0.12, 0.00, 0.07, 0.00, 0.01, 0.00, 0.00, &
1401  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.12, &
1402  0.17, 0.22, 0.07, 0.19, 0.20, 0.06, 0.20, 0.19, 0.24, 0.17, &
1403  0.06, 0.00, 0.00, 0.00, 0.03, 0.12, 0.10, 0.10, 0.01, 0.00, &
1404  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1405  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1406  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1407  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1408  0.17, 0.00, 0.00 &
1409  /)
1410 !-------------------------------------------------------------------
1411 pdata_vegtype(:, 15) = (/ &
1412  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, &
1413  0.00, 1.00, 0.00, 1.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1414  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.50, 0.50, &
1415  0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1416  0.00, 0.00, 0.50, 0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, &
1417  0.00, 0.00, 0.00, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, &
1418  0.00, 0.00, 0.30, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1419  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.00, 0.00, &
1420  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1421  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1422  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1423  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1424  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1425  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1426  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1427  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1428  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1429  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1430  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1431  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1432  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1433  0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1434  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1435  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1436  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1437  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1438  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1439  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1440  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1441  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1442  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1443  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1444  0.00, 0.13, 0.00, 0.00, 0.48, 0.12, 0.68, 0.89, 0.30, 0.66, &
1445  0.83, 0.16, 0.12, 0.31, 0.31, 0.23, 0.32, 0.56, 0.05, 0.11, &
1446  0.02, 0.08, 0.08, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1447  0.00, 0.04, 0.05, 0.07, 0.02, 0.00, 0.01, 0.00, 0.00, 0.00, &
1448  0.10, 0.03, 0.03, 0.02, 0.07, 0.00, 0.00, 0.00, 0.00, 0.00, &
1449  0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.10, 0.10, 0.00, 0.00, &
1450  0.00, 0.05, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1451  0.01, 0.00, 0.04, 0.08, 0.00, 0.17, 0.00, 0.04, 0.00, 0.06, &
1452  0.07, 0.04, 0.20, 0.35, 0.03, 0.00, 0.00, 0.00, 0.00, 0.00, &
1453  0.00, 0.03, 0.03, 0.00, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, &
1454  0.05, 0.00, 0.00, 0.00, 0.00, 0.01, 0.00, 0.05, 0.18, 0.06, &
1455  0.12, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1456  0.00, 0.00, 0.00, 0.00, 0.05, 0.00, 0.01, 0.06, 0.00, 0.04, &
1457  0.00, 0.04, 0.11, 0.12, 0.15, 0.07, 0.02, 0.25, 0.01, 0.04, &
1458  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1459  0.00, 0.00, 0.00, 0.03, 0.00, 0.00, 0.02, 0.10, 0.00, 0.00, &
1460  0.00, 0.00, 0.00, 0.07, 0.09, 0.00, 0.01, 0.02, 0.04, 0.00, &
1461  0.08, 0.00, 0.00, 0.02, 0.00, 0.05, 0.01, 0.01, 0.02, 0.00, &
1462  0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.00, 0.03, 0.04, 0.02, &
1463  0.05, 0.07, 0.02, 0.12, 0.22, 0.00, 0.08, 0.13, 0.07, 0.04, &
1464  0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.04, 0.00, 0.00, 0.01, &
1465  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1466  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1467  0.00, 0.00, 0.00, 0.00, 0.00, 0.55, 0.00, 0.00, 0.00, 0.55, &
1468  0.10, 0.10, 0.00, 0.00, 0.03, 0.00, 0.02, 0.07, 0.01, 0.01, &
1469  0.05, 0.00, 0.01 &
1470  /)
1471 !-------------------------------------------------------------------
1472 pdata_vegtype(:, 16) = (/ &
1473  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1474  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1475  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1476  0.50, 0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1477  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1478  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1479  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1480  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1481  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1482  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1483  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1484  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1485  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1486  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1487  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1488  0.00, 0.00, 0.00, 0.50, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1489  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1490  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1491  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1492  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1493  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1494  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1495  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1496  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1497  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1498  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1499  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1500  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1501  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1502  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1503  0.09, 0.85, 0.85, 0.05, 0.08, 0.85, 0.14, 0.82, 0.17, 0.10, &
1504  0.15, 0.06, 0.81, 0.00, 0.05, 0.12, 0.00, 0.07, 0.00, 0.00, &
1505  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1506  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1507  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1508  0.05, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1509  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1510  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1511  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1512  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1513  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1514  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1515  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1516  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1517  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1518  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1519  0.11, 0.13, 0.10, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, &
1520  0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1521  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1522  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1523  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1524  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1525  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1526  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1527  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1528  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.02, 0.02, 0.04, 0.00, &
1529  0.00, 0.00, 0.00, 0.00, 0.00, 0.17, 0.00, 0.00, 0.00, 0.00, &
1530  0.00, 0.00, 0.00 &
1531  /)
1532 !-------------------------------------------------------------------
1533 pdata_vegtype(:, 17) = (/ &
1534  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1535  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1536  0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1537  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1538  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1539  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1540  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1541  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1542  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1543  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1544  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1545  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1546  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1547  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1548  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1549  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1550  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1551  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1552  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1553  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1554  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1555  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1556  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1557  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1558  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1559  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1560  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1561  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1562  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1563  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1564  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1565  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1566  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1567  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1568  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1569  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1570  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1571  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1572  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1573  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1574  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1575  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1576  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1577  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1578  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1579  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1580  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1581  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1582  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1583  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1584  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1585  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1586  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1587  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1588  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1589  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1590  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1591  0.00, 0.00, 0.00 &
1592  /)
1593 !-------------------------------------------------------------------
1594 pdata_vegtype(:, 18) = (/ &
1595  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1596  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1597  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1598  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1599  0.50, 0.00, 0.00, 0.00, 0.50, 0.50, 0.00, 0.00, 0.00, 0.00, &
1600  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.70, 0.00, &
1601  0.00, 0.00, 0.00, 0.60, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1602  0.00, 0.00, 0.00, 0.60, 0.00, 0.00, 0.60, 0.00, 0.00, 0.00, &
1603  0.00, 0.00, 0.00, 0.00, 0.60, 0.70, 0.00, 0.00, 0.00, 0.00, &
1604  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 1.00, 1.00, &
1605  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1606  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1607  0.00, 0.00, 0.10, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1608  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1609  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1610  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1611  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1612  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1613  0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, &
1614  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1615  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1616  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1617  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1618  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1619  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1620  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1621  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1622  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1623  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1624  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1625  0.44, 0.03, 0.01, 0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, &
1626  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1627  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1628  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1629  0.00, 0.00, 0.00, 0.38, 0.55, 0.60, 0.68, 0.73, 0.86, 0.00, &
1630  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1631  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1632  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1633  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1634  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1635  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1636  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1637  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1638  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1639  0.11, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1640  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1641  0.05, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1642  0.13, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1643  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1644  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1645  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1646  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1647  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1648  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1649  0.00, 0.00, 0.00, 0.00, 0.00, 0.15, 0.05, 0.00, 0.00, 0.00, &
1650  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.02, 0.00, 0.00, &
1651  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1652  0.00, 0.00, 0.00 &
1653  /)
1654 !-------------------------------------------------------------------
1655 pdata_vegtype(:, 19) = (/ &
1656  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1657  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1658  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1659  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1660  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1661  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1662  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.20, 0.20, 0.20, 0.20, &
1663  0.20, 0.20, 0.20, 0.00, 0.00, 0.20, 0.00, 0.00, 0.20, 0.00, &
1664  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1665  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1666  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1667  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1668  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1669  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1670  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1671  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1672  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1673  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1674  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1675  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1676  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1677  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1678  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1679  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1680  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1681  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1682  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1683  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1684  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1685  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1686  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1687  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1688  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1689  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1690  0.00, 0.00, 0.00, 0.02, 0.05, 0.10, 0.07, 0.10, 0.02, 0.09, &
1691  0.00, 0.01, 0.04, 0.04, 0.00, 0.10, 0.05, 0.10, 0.04, 0.00, &
1692  0.00, 0.00, 0.05, 0.01, 0.08, 0.05, 0.13, 0.10, 0.07, 0.05, &
1693  0.03, 0.04, 0.05, 0.02, 0.01, 0.00, 0.07, 0.16, 0.18, 0.17, &
1694  0.08, 0.15, 0.08, 0.18, 0.16, 0.10, 0.10, 0.14, 0.14, 0.20, &
1695  0.10, 0.00, 0.03, 0.01, 0.17, 0.02, 0.00, 0.00, 0.06, 0.00, &
1696  0.00, 0.00, 0.00, 0.00, 0.00, 0.15, 0.18, 0.12, 0.07, 0.00, &
1697  0.02, 0.04, 0.09, 0.07, 0.03, 0.09, 0.08, 0.04, 0.00, 0.10, &
1698  0.11, 0.09, 0.06, 0.07, 0.15, 0.06, 0.04, 0.00, 0.00, 0.00, &
1699  0.00, 0.01, 0.00, 0.00, 0.03, 0.03, 0.00, 0.00, 0.00, 0.00, &
1700  0.00, 0.00, 0.02, 0.06, 0.08, 0.03, 0.01, 0.05, 0.00, 0.03, &
1701  0.13, 0.00, 0.00, 0.33, 0.00, 0.00, 0.00, 0.00, 0.08, 0.15, &
1702  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1703  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1704  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.08, &
1705  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.03, 0.03, &
1706  0.05, 0.03, 0.03, 0.03, 0.02, 0.00, 0.00, 0.03, 0.04, 0.00, &
1707  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1708  0.00, 0.12, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1709  0.00, 0.02, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1710  0.00, 0.01, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1711  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1712  0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, &
1713  0.00, 0.47, 0.48 &
1714  /)
1715 ENDIF
1716 !-------------------------------------------------------------------
1717 IF (PRESENT(pdata_h_tree)) THEN
1718 pdata_h_tree(:, 4) = (/ &
1719  xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, xundef, &
1720  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1721  xundef, xundef, xundef, xundef, xundef, 15., xundef, xundef, xundef, 15., &
1722  xundef, 15., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1723  xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, &
1724  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, &
1725  xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, xundef, xundef, &
1726  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1727  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1728  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1729  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1730  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1731  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1732  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1733  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1734  5., 5., 5., xundef, xundef, xundef, xundef, xundef, xundef, 5., &
1735  5., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1736  xundef, xundef, xundef, xundef, xundef, xundef, 1., 1., 5., 5., &
1737  5., xundef, xundef, xundef, xundef, xundef, 10., 10., 10., 10., &
1738  10., 10., 10., 10., 10., xundef, xundef, 10., 10., 10., &
1739  10., 10., 10., 10., 10., 10., 10., xundef, xundef, xundef, &
1740  xundef, xundef, xundef, xundef, 10., 10., 10., 10., 10., xundef, &
1741  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2., &
1742  2., xundef, 10., xundef, 10., xundef, xundef, 10., xundef, xundef, &
1743  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1744  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1745  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1746  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1747  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1748  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1749  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1750  xundef, xundef, xundef, 12., xundef, xundef, 13., xundef, 12., 15., &
1751  14., 11., 12., 12., 11., 11., xundef, xundef, 10., xundef, &
1752  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1753  xundef, 10., 10., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1754  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 10., &
1755  5., 5., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1756  xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, xundef, xundef, &
1757  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1758  xundef, 10., xundef, xundef, xundef, xundef, 8., xundef, xundef, 5., &
1759  xundef, 4., xundef, 8., 4., xundef, xundef, xundef, xundef, xundef, &
1760  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1761  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, &
1762  8., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1763  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, &
1764  xundef, 5., 5., xundef, 8., 8., 5., 5., xundef, xundef, &
1765  xundef, xundef, xundef, 10., 10., 10., 10., xundef, 10., xundef, &
1766  xundef, xundef, xundef, 10., 8., 5., xundef, 8., xundef, 5., &
1767  10., 10., xundef, 10., 10., 10., 10., 10., 8., xundef, &
1768  10., 8., 8., xundef, xundef, xundef, 3., xundef, xundef, xundef, &
1769  xundef, xundef, xundef, xundef, xundef, 3., 3., xundef, xundef, xundef, &
1770  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1771  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1772  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1773  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1774  xundef, xundef, xundef, xundef, xundef, 11., xundef, xundef, xundef, 10., &
1775  7., 7., 8., 8., 5., xundef, 3., 6., 5., 9., &
1776  xundef, xundef, xundef &
1777  /)
1778 !-------------------------------------------------------------------
1779 pdata_h_tree(:, 5) = (/ &
1780  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1781  15., xundef, 15., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1782  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1783  15., xundef, 15., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1784  10., 15., xundef, xundef, 15., 15., xundef, xundef, xundef, xundef, &
1785  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 10., 15., &
1786  xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, &
1787  xundef, xundef, xundef, 2., 2., xundef, 2., xundef, xundef, xundef, &
1788  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1789  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1790  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1791  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1792  xundef, xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, &
1793  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1794  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1795  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1796  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1797  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1798  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1799  xundef, xundef, xundef, xundef, xundef, 10., 10., xundef, xundef, xundef, &
1800  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 10., 10., 10., &
1801  10., 10., 10., xundef, 10., 10., 10., 10., 10., xundef, &
1802  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1803  xundef, 2., xundef, xundef, xundef, xundef, xundef, xundef, 10., xundef, &
1804  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1805  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1806  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1807  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1808  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1809  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1810  14., 15., 15., 14., 15., 15., 15., 15., 15., 14., &
1811  13., 14., 13., 12., 13., 13., 13., 13., 12., 15., &
1812  14., xundef, 12., 12., xundef, xundef, xundef, xundef, xundef, xundef, &
1813  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1814  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 14., xundef, xundef, &
1815  10., xundef, xundef, xundef, xundef, 1., xundef, xundef, xundef, 10., &
1816  xundef, xundef, xundef, xundef, xundef, 2., xundef, xundef, xundef, xundef, &
1817  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2., &
1818  2., xundef, 1., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1819  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1820  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1821  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1822  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1823  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1824  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1825  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1826  10., 10., 10., 10., 10., 10., xundef, xundef, xundef, 11., &
1827  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 8., xundef, &
1828  10., 10., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1829  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1830  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1831  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1832  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1833  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1834  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1835  xundef, xundef, xundef, xundef, xundef, xundef, 12., 13., 11., xundef, &
1836  xundef, xundef, 8., 8., xundef, 10., xundef, xundef, xundef, xundef, &
1837  xundef, xundef, xundef &
1838  /)
1839 !-------------------------------------------------------------------
1840 pdata_h_tree(:, 6) = (/ &
1841  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1842  xundef, xundef, xundef, xundef, xundef, 30., 20., 30., 20., 20., &
1843  30., 30., 20., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1844  xundef, xundef, xundef, 10., 10., 15., 15., 20., 15., xundef, &
1845  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 15., &
1846  xundef, xundef, xundef, xundef, xundef, xundef, 30., xundef, xundef, xundef, &
1847  15., 15., xundef, xundef, 15., xundef, xundef, xundef, xundef, xundef, &
1848  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1849  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1850  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1851  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1852  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1853  xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, &
1854  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1855  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1856  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1857  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1858  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1859  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1860  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1861  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1862  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1863  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1864  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1865  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1866  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1867  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1868  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1869  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1870  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1871  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1872  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1873  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1874  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1875  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1876  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1877  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1878  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1879  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1880  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1881  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1882  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1883  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1884  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1885  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1886  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1887  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1888  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1889  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1890  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1891  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1892  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1893  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1894  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1895  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1896  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1897  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1898  xundef, xundef, xundef &
1899  /)
1900 !-------------------------------------------------------------------
1901 pdata_h_tree(:, 13) = (/ &
1902  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 15., xundef, xundef, &
1903  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1904  xundef, xundef, xundef, xundef, xundef, xundef, 20., xundef, xundef, xundef, &
1905  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1906  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., 10., xundef, &
1907  10., xundef, xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, &
1908  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1909  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1910  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1911  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1912  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1913  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1914  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1915  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1916  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1917  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1918  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1919  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1920  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1921  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1922  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1923  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1924  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1925  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1926  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1927  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1928  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1929  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1930  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1931  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1932  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1933  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1934  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1935  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1936  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1937  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1938  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1939  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1940  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1941  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1942  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1943  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1944  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1945  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1946  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1947  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1948  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1949  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1950  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1951  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1952  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1953  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1954  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1955  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1956  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1957  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1958  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1959  xundef, xundef, xundef &
1960  /)
1961 !-------------------------------------------------------------------
1962 pdata_h_tree(:, 14) = (/ &
1963  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1964  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1965  xundef, xundef, xundef, xundef, 20., xundef, xundef, 20., 15., xundef, &
1966  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 10., &
1967  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1968  xundef, 10., 5., 15., xundef, xundef, xundef, xundef, xundef, xundef, &
1969  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1970  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1971  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1972  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1973  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1974  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1975  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1976  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1977  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1978  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1979  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1980  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1981  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1982  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1983  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1984  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1985  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1986  xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, &
1987  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1988  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1989  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1990  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1991  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1992  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1993  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1994  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1995  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 10., xundef, 7., &
1996  10., 10., 10., 10., 10., 10., 10., 10., 10., 8., &
1997  8., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1998  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
1999  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2000  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2001  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2002  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, &
2003  10., xundef, 8., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2004  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2005  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 8., 5., &
2006  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2007  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2008  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2009  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2010  xundef, xundef, xundef, xundef, xundef, xundef, 5., xundef, xundef, xundef, &
2011  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2012  xundef, xundef, xundef, 5., xundef, 3., xundef, 3., xundef, xundef, &
2013  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 5., &
2014  5., 5., 5., 5., 8., 5., 7., 8., 7., 5., &
2015  3., xundef, xundef, xundef, 8., 8., 8., 8., 8., xundef, &
2016  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2017  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2018  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2019  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2020  6., xundef, xundef &
2021  /)
2022 !-------------------------------------------------------------------
2023 pdata_h_tree(:, 15) = (/ &
2024  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 15., &
2025  xundef, 15., xundef, 15., 20., xundef, xundef, xundef, xundef, xundef, &
2026  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 15., 15., &
2027  xundef, 15., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2028  xundef, xundef, 15., xundef, xundef, xundef, 15., xundef, xundef, xundef, &
2029  xundef, xundef, xundef, xundef, 15., xundef, xundef, xundef, xundef, xundef, &
2030  xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2031  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2., xundef, xundef, &
2032  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2033  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2034  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2035  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2036  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2037  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2038  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2039  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2040  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2041  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2042  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2043  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2044  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2045  xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, xundef, xundef, &
2046  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2047  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2048  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2049  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2050  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2051  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2052  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2053  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2054  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2055  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2056  xundef, 11., xundef, xundef, 11., 11., 10., 10., 10., 10., &
2057  10., 10., 10., 10., 10., 10., 10., 10., 10., 10., &
2058  10., 10., 10., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2059  xundef, 10., 10., 10., 10., xundef, 1., xundef, xundef, xundef, &
2060  5., 5., 2., 10., 3., xundef, xundef, xundef, xundef, xundef, &
2061  xundef, xundef, xundef, xundef, xundef, 5., 2., 1., xundef, xundef, &
2062  xundef, 2., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2063  1., xundef, 2., 2., xundef, 2., xundef, 5., xundef, 5., &
2064  5., 3., 8., 8., 4., xundef, xundef, xundef, xundef, xundef, &
2065  xundef, 1., 2., xundef, xundef, 2., xundef, xundef, xundef, xundef, &
2066  1., xundef, xundef, xundef, xundef, 2., xundef, 5., 8., 5., &
2067  8., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2068  xundef, xundef, xundef, xundef, 2., xundef, 2., 2., xundef, 2., &
2069  xundef, 5., 5., 7., 8., 8., 5., 5., 2., 2., &
2070  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2071  xundef, xundef, xundef, 10., xundef, xundef, 5., 8., xundef, xundef, &
2072  xundef, xundef, xundef, 10., 10., xundef, 10., 10., 8., xundef, &
2073  10., xundef, xundef, 5., xundef, 3., 3., 3., 2., xundef, &
2074  xundef, xundef, xundef, xundef, xundef, 3., xundef, 2., 2., 5., &
2075  5., 5., 5., 5., 8., xundef, 7., 8., 7., 5., &
2076  xundef, 2., xundef, xundef, xundef, xundef, 8., xundef, xundef, 5., &
2077  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2078  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2079  xundef, xundef, xundef, xundef, xundef, 13., xundef, xundef, xundef, 10., &
2080  7., 7., xundef, xundef, 5., xundef, 3., 6., 5., 9., &
2081  6., xundef, 1. &
2082  /)
2083 !-------------------------------------------------------------------
2084 pdata_h_tree(:, 16) = (/ &
2085  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2086  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2087  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2088  15., xundef, 15., xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2089  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2090  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2091  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2092  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2093  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2094  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2095  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2096  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2097  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2098  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2099  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2100  xundef, xundef, xundef, 5., xundef, xundef, xundef, xundef, xundef, xundef, &
2101  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2102  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2103  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2104  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2105  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2106  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2107  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2108  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2109  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2110  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2111  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2112  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2113  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2114  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2115  8., 15., 15., 8., 15., 15., 15., 15., 15., 14., &
2116  13., 14., 13., xundef, 13., 13., xundef, 13., xundef, xundef, &
2117  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2118  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2119  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2120  7., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2121  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2122  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2123  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2124  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2125  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2126  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2127  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2128  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2129  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2130  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2131  10., 10., 10., xundef, xundef, xundef, xundef, xundef, xundef, 11., &
2132  11., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2133  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2134  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2135  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2136  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2137  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2138  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2139  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2140  xundef, xundef, xundef, xundef, xundef, xundef, 5., 11., 11., xundef, &
2141  xundef, xundef, xundef, xundef, xundef, 10., xundef, xundef, xundef, xundef, &
2142  xundef, xundef, xundef &
2143  /)
2144 ENDIF
2145 !-------------------------------------------------------------------
2146 IF (PRESENT(pdata_vegtype).AND.PRESENT(pdata_h_tree)) THEN
2147  WHERE(pdata_vegtype(:,17)>0.) pdata_h_tree(:, 17) = 15.
2148 ENDIF
2149 !-------------------------------------------------------------------
2150 IF (PRESENT(pdata_h_tree)) THEN
2151 pdata_h_tree(:, 19) = (/ &
2152  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2153  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2154  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2155  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2156  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2157  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2158  xundef, xundef, xundef, xundef, xundef, xundef, 2., 2., 2., 2., &
2159  2., 2., 2., xundef, xundef, 2., xundef, xundef, 2., xundef, &
2160  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2161  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2162  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2163  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2164  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2165  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2166  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2167  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2168  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2169  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2170  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2171  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2172  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2173  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2174  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2175  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2176  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2177  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2178  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2179  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2180  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2181  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2182  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2183  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2184  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2185  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2186  xundef, xundef, xundef, 1., 1., 1., 1., 2., 2., 1., &
2187  xundef, 2., 2., 2., xundef, 1., 1., 1., 1., xundef, &
2188  xundef, xundef, 2., 2., 2., 2., 1., 1., 1., 1., &
2189  1., 1., 1., 1., 1., xundef, 2., 1., 2., 2., &
2190  2., 2., 1., 2., 1., 1., 1., 2., 2., 2., &
2191  1., xundef, 2., 2., 2., 2., xundef, xundef, 2., xundef, &
2192  xundef, xundef, xundef, xundef, xundef, 2., 2., 2., 2., xundef, &
2193  2., 1., 2., 1., 1., 2., 2., 1., xundef, 1., &
2194  1., 1., 1., 1., 2., 2., 1., xundef, xundef, xundef, &
2195  xundef, 1., xundef, xundef, 1., 1., xundef, xundef, xundef, xundef, &
2196  xundef, xundef, 2., 2., 2., 2., 2., 2., xundef, 2., &
2197  2., xundef, xundef, 1., xundef, xundef, xundef, xundef, 2., 2., &
2198  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2199  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2200  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1., &
2201  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2., 2., &
2202  2., 2., 2., 2., 2., xundef, xundef, 2., 2., xundef, &
2203  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2204  xundef, 2., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2205  xundef, 1., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2206  xundef, 1., xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2207  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2208  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2209  xundef, 1., 1. &
2210  /)
2211 ENDIF
2212 !-------------------------------------------------------------------
2213 IF (PRESENT(pdata_vegtype).AND.PRESENT(pdata_watsup)) THEN
2214  WHERE(pdata_vegtype(:, 8)>0.) pdata_watsup(:, 8) = 0.
2215 !-------------------------------------------------------------------
2216  WHERE(pdata_vegtype(:, 9)>0.) pdata_watsup(:, 9) = 30.
2217 ENDIF
2218 !-------------------------------------------------------------------
2219 IF (PRESENT(pdata_vegtype).AND.PRESENT(pdata_irrig)) THEN
2220  WHERE(pdata_vegtype(:, 8)>0.) pdata_irrig(:, 8) = 0.00
2221 !-------------------------------------------------------------------
2222  WHERE(pdata_vegtype(:, 9)>0.) pdata_irrig(:, 9) = 1.00
2223 ENDIF
2224 !-------------------------------------------------------------------
2225 IF (PRESENT(pdata_root_depth)) THEN
2226 pdata_root_depth(:, 1) = (/ &
2227  xundef, xundef, xundef, 0.50, xundef, xundef, xundef, xundef, 0.50, xundef, &
2228  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2229  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2230  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, &
2231  xundef, xundef, xundef, 0.50, xundef, xundef, xundef, 0.50, 0.50, xundef, &
2232  0.50, xundef, 0.50, xundef, xundef, 0.50, xundef, 0.50, xundef, xundef, &
2233  xundef, xundef, xundef, 0.50, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, &
2234  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2235  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, xundef, xundef, xundef, &
2236  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2237  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2238  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2239  xundef, xundef, 0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2240  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2241  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2242  xundef, xundef, xundef, xundef, 0.50, xundef, 0.50, xundef, 0.50, xundef, &
2243  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2244  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, 1.00, xundef, &
2245  0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2246  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2247  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2248  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, &
2249  xundef, xundef, 0.50, xundef, 0.50, 0.50, 0.50, xundef, xundef, 0.50, &
2250  0.50, 0.50, 0.50, 0.50, xundef, 0.50, 0.50, xundef, xundef, xundef, &
2251  xundef, 0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2252  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2253  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2254  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2255  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2256  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2257  0.50, 0.50, xundef, 0.50, 0.50, xundef, xundef, xundef, xundef, 0.50, &
2258  0.50, 0.50, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, xundef, &
2259  xundef, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2260  0.50, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, 0.50, &
2261  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2262  0.50, 0.50, 0.50, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2263  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2264  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2265  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2266  0.50, 0.50, 0.50, 1.00, 1.00, 0.50, 0.50, 0.50, 0.50, 0.50, &
2267  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2268  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2269  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2270  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2271  0.50, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2272  1.00, 1.00, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2273  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, &
2274  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 0.50, 0.50, 0.50, 0.50, &
2275  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2276  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2277  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 1.00, &
2278  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2279  0.50, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2280  1.00, 1.00, xundef, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2281  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, xundef, xundef, 0.50, &
2282  0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2283  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, xundef, 0.50, &
2284  0.50, 1.00, 1.00 &
2285  /)
2286 ENDIF
2287 !-------------------------------------------------------------------
2288 IF (PRESENT(pdata_vegtype).AND.PRESENT(pdata_root_depth)) THEN
2289 WHERE(pdata_vegtype(:, 2)>0.) pdata_root_depth(:, 2) = 0.20
2290 !-------------------------------------------------------------------
2291 WHERE(pdata_vegtype(:, 3)>0.) pdata_root_depth(:, 3) = 0.20
2292 ENDIF
2293 !-------------------------------------------------------------------
2294 IF (PRESENT(pdata_root_depth)) THEN
2295 pdata_root_depth(:, 4) = (/ &
2296  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
2297  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2298  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, 2.00, &
2299  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2300  xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2301  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, &
2302  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
2303  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2304  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2305  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2306  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2307  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2308  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2309  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2310  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2311  2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2312  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2313  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, 2.00, 2.00, &
2314  2.00, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, &
2315  2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, 2.00, 2.00, 2.00, &
2316  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, &
2317  xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, &
2318  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2319  2.00, xundef, 2.00, xundef, 2.00, xundef, xundef, 2.00, xundef, xundef, &
2320  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2321  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2322  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2323  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2324  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2325  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2326  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2327  xundef, xundef, xundef, 2.00, xundef, xundef, 2.00, xundef, 2.00, 2.00, &
2328  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, 2.00, xundef, &
2329  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2330  xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2331  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2332  2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2333  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, &
2334  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2335  xundef, 2.00, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, 1.50, &
2336  xundef, 1.50, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
2337  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2338  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
2339  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2340  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, &
2341  xundef, 2.00, 3.00, xundef, 2.00, 2.00, 2.00, 2.00, xundef, xundef, &
2342  xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, xundef, &
2343  xundef, xundef, xundef, 2.00, 2.00, 2.00, xundef, 2.00, xundef, 2.00, &
2344  2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, &
2345  2.00, 2.00, 2.00, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
2346  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, &
2347  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2348  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2349  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2350  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2351  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, 2.00, &
2352  2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
2353  xundef, xundef, xundef &
2354  /)
2355 !-------------------------------------------------------------------
2356 pdata_root_depth(:, 5) = (/ &
2357  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2358  2.00, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2359  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2360  2.00, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2361  2.00, 2.00, xundef, xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, &
2362  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
2363  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2364  xundef, xundef, xundef, 1.50, 2.00, xundef, 1.50, xundef, xundef, xundef, &
2365  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2366  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2367  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2368  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2369  xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, &
2370  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2371  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2372  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2373  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2374  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2375  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2376  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, xundef, xundef, xundef, &
2377  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, &
2378  2.00, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, &
2379  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2380  xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, &
2381  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2382  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2383  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2384  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2385  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2386  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2387  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
2388  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
2389  2.00, xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2390  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2391  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
2392  2.00, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, 2.00, &
2393  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, &
2394  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2395  2.00, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2396  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2397  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2398  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2399  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2400  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2401  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2402  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2403  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, 2.00, &
2404  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, &
2405  2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2406  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2407  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2408  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2409  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2410  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2411  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2412  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, xundef, &
2413  xundef, xundef, 2.00, 2.00, xundef, 2.00, xundef, xundef, xundef, xundef, &
2414  xundef, xundef, xundef &
2415  /)
2416 !-------------------------------------------------------------------
2417 pdata_root_depth(:, 6) = (/ &
2418  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2419  xundef, xundef, xundef, xundef, xundef, 8.00, 5.00, 8.00, 5.00, 5.00, &
2420  8.00, 5.00, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2421  xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 5.00, 3.00, xundef, &
2422  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
2423  xundef, xundef, xundef, xundef, xundef, xundef, 5.00, xundef, xundef, xundef, &
2424  3.00, 3.00, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, &
2425  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2426  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2427  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2428  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2429  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2430  xundef, xundef, xundef, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2431  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2432  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2433  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2434  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2435  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2436  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2437  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2438  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2439  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2440  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2441  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2442  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2443  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2444  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2445  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2446  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2447  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2448  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2449  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2450  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2451  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2452  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2453  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2454  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2455  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2456  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2457  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2458  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2459  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2460  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2461  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2462  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2463  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2464  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2465  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2466  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2467  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2468  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2469  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2470  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2471  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2472  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2473  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2474  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2475  xundef, xundef, xundef &
2476  /)
2477 !-------------------------------------------------------------------
2478 pdata_root_depth(:, 7) = (/ &
2479  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2480  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2481  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2482  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
2483  xundef, 1.50, 1.50, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
2484  xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, 1.50, &
2485  1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2486  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2487  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2488  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2489  xundef, xundef, xundef, xundef, 1.00, 1.50, 1.50, 1.50, 1.50, xundef, &
2490  1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2491  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2492  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2493  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2494  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2495  xundef, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2496  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2497  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, 1.50, 1.50, &
2498  1.50, 1.00, 1.50, 1.50, 1.50, 1.00, 1.50, 1.00, xundef, xundef, &
2499  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2500  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2501  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, &
2502  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2503  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2504  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2505  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2506  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2507  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2508  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2509  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
2510  1.50, 1.50, xundef, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, &
2511  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, 1.50, 1.50, &
2512  1.50, xundef, 1.00, xundef, xundef, 1.00, 1.00, xundef, 1.00, 1.00, &
2513  1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, 1.00, xundef, 1.00, &
2514  1.00, xundef, 1.50, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, &
2515  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, &
2516  xundef, 1.00, xundef, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, &
2517  1.00, 1.00, 1.00, 1.50, xundef, xundef, xundef, xundef, 1.00, 1.00, &
2518  1.00, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2519  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, &
2520  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, &
2521  1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2522  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2523  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2524  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2525  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2526  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2527  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2528  1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2529  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2530  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2531  1.00, 1.00, xundef, xundef, xundef, xundef, 1.00, xundef, 1.00, 1.00, &
2532  xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2533  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2534  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, 1.50, &
2535  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2536  1.50, 1.50, 1.50 &
2537  /)
2538 !-------------------------------------------------------------------
2539 pdata_root_depth(:, 8) = (/ &
2540  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2541  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2542  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2543  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
2544  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
2545  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, 1.50, &
2546  1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2547  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2548  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2549  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2550  xundef, xundef, xundef, xundef, 1.00, 1.50, 1.50, 1.50, xundef, 1.50, &
2551  1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, &
2552  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2553  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2554  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2555  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2556  xundef, 1.00, 1.00, 1.00, 1.50, xundef, xundef, 1.50, 1.50, 1.50, &
2557  xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2558  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2559  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2560  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2561  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2562  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2563  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2564  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2565  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2566  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2567  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2568  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2569  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2570  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2571  xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, 1.50, &
2572  1.50, 1.50, 1.50, 1.50, xundef, 1.50, xundef, 1.50, 1.50, 1.50, &
2573  1.50, xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, 1.00, xundef, &
2574  xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2575  xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, xundef, 1.00, &
2576  1.00, xundef, 1.00, xundef, 1.00, 1.00, xundef, xundef, xundef, xundef, &
2577  xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, 1.00, xundef, 1.00, &
2578  1.00, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, &
2579  1.00, 1.00, 1.00, 1.00, xundef, 1.00, xundef, 1.00, 1.00, 1.00, &
2580  1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, xundef, &
2581  1.00, 1.00, 1.00, 1.00, xundef, 1.00, xundef, xundef, xundef, xundef, &
2582  xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, &
2583  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2584  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2585  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2586  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, &
2587  1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.00, 1.50, 1.50, 1.50, &
2588  1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.50, xundef, 1.50, 1.50, &
2589  xundef, 1.50, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, &
2590  1.00, xundef, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, &
2591  xundef, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, &
2592  1.00, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2593  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2594  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2595  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2596  xundef, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, &
2597  1.50, 1.50, 1.50 &
2598  /)
2599 ENDIF
2600 !-------------------------------------------------------------------
2601 IF (PRESENT(pdata_vegtype).AND.PRESENT(pdata_root_depth)) THEN
2602 WHERE(pdata_vegtype(:, 9)>0.) pdata_root_depth(:, 9) = 1.50
2603 ENDIF
2604 !-------------------------------------------------------------------
2605 IF (PRESENT(pdata_root_depth)) THEN
2606 pdata_root_depth(:, 10) = (/ &
2607  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, xundef, &
2608  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2609  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2610  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2611  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2612  xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, &
2613  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2614  xundef, xundef, xundef, xundef, 1.00, xundef, xundef, 1.00, 1.50, 0.50, &
2615  xundef, xundef, 1.00, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, &
2616  xundef, 1.50, 1.50, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
2617  1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, &
2618  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2619  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2620  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2621  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2622  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, 1.00, xundef, xundef, &
2623  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2624  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
2625  xundef, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
2626  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
2627  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2628  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
2629  1.50, 1.50, 1.50, 1.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, &
2630  xundef, xundef, 1.50, 1.50, 1.50, 0.50, xundef, xundef, xundef, xundef, &
2631  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2632  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2633  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2634  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2635  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2636  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2637  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2638  xundef, 1.00, xundef, 1.00, xundef, xundef, 1.00, xundef, 1.00, 1.50, &
2639  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2640  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, &
2641  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
2642  1.50, 1.50, 1.50, 1.50, 1.50, 1.00, 1.00, 0.50, 0.50, 1.50, &
2643  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.00, 1.00, 0.50, 0.50, &
2644  0.50, 0.50, 0.50, 0.50, 0.50, 1.50, 1.50, 1.00, 1.00, 1.00, &
2645  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2646  1.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2647  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 0.50, 0.50, &
2648  0.50, 1.50, 1.50, 1.00, 0.50, 1.00, 1.00, 0.50, 0.50, 1.00, &
2649  1.00, 0.50, 0.50, 0.50, 1.00, 0.50, 0.50, 1.50, 1.50, 1.50, &
2650  1.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2651  xundef, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2652  1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2653  xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.50, 1.50, &
2654  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.00, 1.00, 1.00, 1.50, &
2655  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2656  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2657  1.50, 1.50, 1.50, 1.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
2658  0.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2659  1.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
2660  1.00, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, &
2661  0.50, 0.50, 0.50, 0.50, 0.50, xundef, xundef, xundef, xundef, xundef, &
2662  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, &
2663  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
2664  1.50, 1.50, xundef &
2665  /)
2666 !-------------------------------------------------------------------
2667 pdata_root_depth(:, 11) = (/ &
2668  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, &
2669  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2670  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2671  xundef, xundef, xundef, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.50, &
2672  xundef, xundef, xundef, 1.50, xundef, xundef, xundef, 1.00, 1.00, 1.50, &
2673  1.50, 1.00, 1.00, xundef, xundef, 1.50, xundef, 1.00, xundef, xundef, &
2674  xundef, 1.00, xundef, xundef, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, &
2675  1.00, 1.00, 1.00, xundef, xundef, 1.00, xundef, 1.00, xundef, xundef, &
2676  1.00, 0.50, xundef, xundef, xundef, xundef, 0.50, 1.50, 1.00, 1.50, &
2677  1.50, xundef, xundef, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, &
2678  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2679  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2680  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2681  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2682  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2683  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2684  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2685  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2686  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2687  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2688  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2689  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2690  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2691  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2692  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2693  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2694  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2695  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2696  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2697  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2698  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2699  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2700  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, &
2701  xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, &
2702  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2703  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2704  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2705  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2706  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, 1.00, xundef, xundef, &
2707  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2708  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2709  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, xundef, &
2710  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2711  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2712  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2713  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2714  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2715  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2716  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2717  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2718  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2719  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2720  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2721  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2722  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2723  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2724  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2725  xundef, xundef, xundef &
2726  /)
2727 !-------------------------------------------------------------------
2728 pdata_root_depth(:, 12) = (/ &
2729  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, &
2730  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2731  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2732  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2733  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2734  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2735  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2736  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2737  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2738  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2739  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2740  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2741  xundef, xundef, xundef, 3.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
2742  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2743  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2744  1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, 1.50, &
2745  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2746  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2747  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2748  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2749  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2750  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2751  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2752  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 1.50, &
2753  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2754  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2755  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2756  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2757  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2758  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2759  1.00, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
2760  1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, xundef, &
2761  xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, 2.00, &
2762  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2763  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
2764  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, xundef, &
2765  xundef, 1.00, xundef, 1.00, 1.00, xundef, xundef, xundef, xundef, xundef, &
2766  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, &
2767  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2768  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2769  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2770  xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2771  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2772  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2773  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2774  1.50, xundef, xundef, 1.50, xundef, xundef, xundef, 1.50, xundef, xundef, &
2775  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, &
2776  1.50, xundef, xundef, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, xundef, &
2777  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, &
2778  xundef, xundef, xundef, 1.50, xundef, 1.50, xundef, xundef, xundef, xundef, &
2779  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2780  xundef, xundef, 1.50, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
2781  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
2782  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2783  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
2784  xundef, 1.50, 1.50, 1.50, 1.50, 2.00, 2.00, 2.00, 2.00, 2.00, &
2785  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, &
2786  1.50, xundef, xundef &
2787  /)
2788 !-------------------------------------------------------------------
2789 pdata_root_depth(:, 13) = (/ &
2790  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
2791  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2792  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, &
2793  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2794  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, xundef, &
2795  3.00, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
2796  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2797  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2798  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2799  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2800  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2801  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2802  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2803  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2804  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2805  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2806  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2807  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2808  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2809  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2810  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2811  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2812  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2813  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2814  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2815  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2816  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2817  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2818  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2819  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2820  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2821  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2822  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2823  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2824  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2825  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2826  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2827  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2828  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2829  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2830  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2831  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2832  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2833  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2834  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2835  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2836  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2837  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2838  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2839  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2840  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2841  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2842  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2843  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2844  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2845  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2846  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2847  xundef, xundef, xundef &
2848  /)
2849 !-------------------------------------------------------------------
2850 pdata_root_depth(:, 14) = (/ &
2851  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2852  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2853  xundef, xundef, xundef, xundef, 3.00, xundef, xundef, 3.00, 2.00, xundef, &
2854  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2855  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2856  xundef, 2.00, 2.00, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2857  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2858  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2859  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2860  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2861  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2862  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2863  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2864  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2865  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2866  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2867  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2868  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2869  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2870  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2871  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2872  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2873  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2874  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2875  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2876  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2877  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2878  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2879  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2880  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2881  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2882  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2883  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, 2.00, &
2884  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, &
2885  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2886  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2887  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2888  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2889  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2890  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
2891  1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2892  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2893  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
2894  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2895  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2896  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2897  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2898  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
2899  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2900  xundef, xundef, xundef, 2.00, xundef, 1.50, xundef, 1.50, xundef, xundef, &
2901  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2902  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
2903  2.00, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
2904  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2905  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2906  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2907  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2908  2.00, xundef, xundef &
2909  /)
2910 !-------------------------------------------------------------------
2911 pdata_root_depth(:, 15) = (/ &
2912  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
2913  xundef, 2.00, xundef, 2.00, 3.00, xundef, xundef, xundef, xundef, xundef, &
2914  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
2915  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2916  xundef, xundef, 2.00, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
2917  xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, &
2918  xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2919  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
2920  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2921  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2922  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2923  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2924  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2925  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2926  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2927  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2928  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2929  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2930  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2931  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2932  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2933  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2934  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2935  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2936  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2937  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2938  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2939  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2940  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2941  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2942  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2943  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2944  xundef, 2.00, xundef, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
2945  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, &
2946  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2947  xundef, 2.00, 2.00, 2.00, 2.00, xundef, 1.50, xundef, xundef, xundef, &
2948  2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
2949  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, xundef, xundef, &
2950  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2951  2.00, xundef, 2.00, 2.00, xundef, 2.00, xundef, 2.00, xundef, 1.50, &
2952  1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
2953  xundef, 1.50, 1.50, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, &
2954  1.50, xundef, xundef, xundef, xundef, 1.50, xundef, 2.00, 2.00, 2.00, &
2955  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2956  xundef, xundef, xundef, xundef, 2.00, xundef, 2.00, 2.00, xundef, 2.00, &
2957  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
2958  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2959  xundef, xundef, xundef, 2.00, xundef, xundef, 2.00, 2.00, xundef, xundef, &
2960  xundef, xundef, xundef, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, xundef, &
2961  2.00, xundef, xundef, 2.00, xundef, 1.50, 1.50, 1.50, 1.50, xundef, &
2962  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, 1.50, 1.50, 2.00, &
2963  2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
2964  xundef, 2.00, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, 2.00, &
2965  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2966  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2967  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, 2.00, &
2968  2.00, 2.00, xundef, xundef, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
2969  2.00, xundef, 2.00 &
2970  /)
2971 ENDIF
2972 !-------------------------------------------------------------------
2973 IF (PRESENT(pdata_vegtype).AND.PRESENT(pdata_root_depth)) THEN
2974 WHERE(pdata_vegtype(:,16)>0.) pdata_root_depth(:, 16) = 2.00
2975 !-------------------------------------------------------------------
2976 WHERE(pdata_vegtype(:,17)>0.) pdata_root_depth(:, 17) = 2.00
2977 ENDIF
2978 !-------------------------------------------------------------------
2979 IF (PRESENT(pdata_root_depth)) THEN
2980 pdata_root_depth(:, 18) = (/ &
2981  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2982  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2983  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2984  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2985  1.00, xundef, xundef, xundef, 1.50, 1.00, xundef, xundef, xundef, xundef, &
2986  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, &
2987  xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, &
2988  xundef, xundef, xundef, 1.00, xundef, xundef, 1.00, xundef, xundef, xundef, &
2989  xundef, xundef, xundef, xundef, 0.50, 1.50, xundef, xundef, xundef, xundef, &
2990  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.00, 1.00, &
2991  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2992  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2993  xundef, xundef, 0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2994  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2995  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2996  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2997  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2998  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
2999  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, &
3000  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3001  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3002  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3003  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3004  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3005  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3006  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3007  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3008  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3009  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3010  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3011  1.00, 1.00, 1.00, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, &
3012  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3013  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3014  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3015  xundef, xundef, xundef, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, xundef, &
3016  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3017  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3018  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3019  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3020  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3021  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3022  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3023  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3024  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3025  0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3026  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3027  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3028  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3029  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3030  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3031  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3032  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3033  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3034  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3035  xundef, xundef, xundef, xundef, xundef, 0.50, 0.50, xundef, xundef, xundef, &
3036  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, &
3037  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3038  xundef, xundef, xundef &
3039  /)
3040 !-------------------------------------------------------------------
3041 pdata_root_depth(:, 19) = (/ &
3042  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3043  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3044  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3045  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3046  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3047  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3048  xundef, xundef, xundef, xundef, xundef, xundef, 4.00, 4.00, 4.00, 4.00, &
3049  4.00, 4.00, 4.00, xundef, xundef, 3.00, xundef, xundef, 3.00, xundef, &
3050  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3051  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3052  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3053  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3054  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3055  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3056  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3057  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3058  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3059  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3060  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3061  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3062  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3063  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3064  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3065  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3066  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3067  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3068  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3069  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3070  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3071  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3072  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3073  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3074  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3075  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3076  xundef, xundef, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3077  xundef, 2.00, 2.00, 2.00, xundef, 1.50, 1.50, 1.50, 1.50, xundef, &
3078  xundef, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, 1.50, &
3079  1.50, 1.50, 1.50, 1.50, 1.50, xundef, 2.00, 2.00, 2.00, 2.00, &
3080  2.00, 2.00, 1.50, 2.00, 2.00, 1.50, 1.50, 1.50, 1.50, 2.00, &
3081  2.00, xundef, 2.00, 2.00, 2.00, 2.00, xundef, xundef, 1.50, xundef, &
3082  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 1.50, 1.50, xundef, &
3083  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, &
3084  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, &
3085  xundef, 2.00, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, &
3086  xundef, xundef, 2.00, 2.00, 3.00, 2.00, 2.00, 2.00, xundef, 2.00, &
3087  2.00, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, 2.00, 2.00, &
3088  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3089  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3090  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3091  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, &
3092  1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, 1.50, 1.50, xundef, &
3093  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3094  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3095  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3096  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3097  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3098  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3099  xundef, 3.00, 3.00 &
3100  /)
3101 ENDIF
3102 !-------------------------------------------------------------------
3103 IF (PRESENT(pdata_ground_depth)) THEN
3104 pdata_ground_depth(:, 1) = (/ &
3105  xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, 1.00, xundef, &
3106  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3107  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3108  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
3109  xundef, xundef, xundef, 1.00, xundef, xundef, xundef, 1.00, 1.00, xundef, &
3110  1.00, xundef, 1.00, xundef, xundef, 1.00, xundef, 1.00, xundef, xundef, &
3111  xundef, xundef, xundef, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, &
3112  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3113  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, &
3114  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3115  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3116  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3117  xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3118  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3119  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3120  xundef, xundef, xundef, xundef, 1.00, xundef, 1.00, xundef, 1.00, xundef, &
3121  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3122  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 1.50, xundef, &
3123  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3124  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3125  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3126  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
3127  xundef, xundef, 1.00, xundef, 1.00, 1.00, 1.00, xundef, xundef, 1.00, &
3128  1.00, 1.00, 1.00, 1.00, xundef, 1.00, 1.00, xundef, xundef, xundef, &
3129  xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3130  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3131  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3132  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3133  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3134  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3135  1.00, 1.00, xundef, 1.00, 1.00, xundef, xundef, xundef, xundef, 1.00, &
3136  1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, &
3137  xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3138  1.00, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.00, &
3139  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3140  1.00, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3141  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3142  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3143  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3144  1.00, 1.00, 1.00, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, &
3145  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3146  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3147  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3148  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3149  1.00, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3150  1.50, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3151  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, 1.50, &
3152  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, &
3153  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3154  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3155  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.50, &
3156  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3157  1.00, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3158  1.50, 1.50, xundef, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3159  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, 1.00, &
3160  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3161  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, &
3162  1.00, 1.50, 1.50 &
3163  /)
3164 ENDIF
3165 !-------------------------------------------------------------------
3166 IF (PRESENT(pdata_vegtype).AND.PRESENT(pdata_ground_depth)) THEN
3167 WHERE(pdata_vegtype(:, 2)>0.) pdata_ground_depth(:, 2) = 0.20
3168 !-------------------------------------------------------------------
3169 WHERE(pdata_vegtype(:, 3)>0.) pdata_ground_depth(:, 3) = 0.20
3170 ENDIF
3171 !-------------------------------------------------------------------
3172 IF (PRESENT(pdata_ground_depth)) THEN
3173 pdata_ground_depth(:, 4) = (/ &
3174  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, &
3175  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3176  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, 3.00, &
3177  xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3178  xundef, xundef, xundef, 4.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3179  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, &
3180  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
3181  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3182  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3183  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3184  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3185  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3186  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3187  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3188  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3189  3.00, 3.00, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3190  3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3191  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, &
3192  3.00, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, &
3193  3.00, 3.00, 3.00, 3.00, 3.00, xundef, xundef, 3.00, 3.00, 3.00, &
3194  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, xundef, xundef, &
3195  xundef, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
3196  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3197  2.00, xundef, 3.00, xundef, 3.00, xundef, xundef, 3.00, xundef, xundef, &
3198  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3199  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3200  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3201  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3202  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3203  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3204  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3205  xundef, xundef, xundef, 3.00, xundef, xundef, 3.00, xundef, 3.00, 3.00, &
3206  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, xundef, 3.00, xundef, &
3207  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3208  xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3209  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3210  3.00, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3211  xundef, xundef, xundef, xundef, xundef, 2.50, xundef, xundef, xundef, xundef, &
3212  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3213  xundef, 2.50, xundef, xundef, xundef, xundef, 2.50, xundef, xundef, 2.00, &
3214  xundef, 2.00, xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
3215  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3216  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.50, xundef, xundef, &
3217  2.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3218  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, &
3219  xundef, 3.00, 3.00, xundef, 3.00, 2.50, 2.50, 2.50, xundef, xundef, &
3220  xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, xundef, 3.00, xundef, &
3221  xundef, xundef, xundef, 3.00, 3.00, 3.00, xundef, 3.00, xundef, 3.00, &
3222  3.00, 3.00, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
3223  3.00, 3.00, 3.00, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
3224  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, xundef, xundef, xundef, &
3225  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3226  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3227  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3228  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3229  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, 3.00, &
3230  3.00, 3.00, 3.00, 3.00, 3.00, xundef, 3.00, 3.00, 3.00, 3.00, &
3231  xundef, xundef, xundef &
3232  /)
3233 !-------------------------------------------------------------------
3234 pdata_ground_depth(:, 5) = (/ &
3235  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3236  3.00, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3237  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3238  3.00, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3239  3.00, 3.00, xundef, xundef, 3.00, 3.00, xundef, xundef, xundef, xundef, &
3240  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, &
3241  xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3242  xundef, xundef, xundef, 2.00, 2.50, xundef, 2.00, xundef, xundef, xundef, &
3243  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3244  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3245  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3246  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3247  xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, &
3248  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3249  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3250  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3251  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3252  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3253  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3254  xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, xundef, xundef, xundef, &
3255  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, 3.00, &
3256  3.00, 3.00, 3.00, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
3257  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3258  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, &
3259  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3260  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3261  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3262  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3263  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3264  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3265  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, &
3266  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, &
3267  3.00, xundef, 3.00, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3268  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3269  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, &
3270  3.00, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, 3.00, &
3271  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
3272  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.50, &
3273  2.50, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3274  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3275  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3276  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3277  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3278  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3279  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3280  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3281  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, xundef, xundef, 3.00, &
3282  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, &
3283  3.00, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3284  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3285  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3286  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3287  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3288  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3289  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3290  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, 3.00, xundef, &
3291  xundef, xundef, 3.00, 3.00, xundef, 3.00, xundef, xundef, xundef, xundef, &
3292  xundef, xundef, xundef &
3293  /)
3294 !-------------------------------------------------------------------
3295 pdata_ground_depth(:, 6) = (/ &
3296  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3297  xundef, xundef, xundef, xundef, xundef, 8.00, 5.00, 8.00, 5.00, 5.00, &
3298  8.00, 5.00, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3299  xundef, xundef, xundef, 4.00, 4.00, 4.00, 4.00, 5.00, 4.00, xundef, &
3300  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3301  xundef, xundef, xundef, xundef, xundef, xundef, 5.00, xundef, xundef, xundef, &
3302  3.00, 4.00, xundef, xundef, 4.00, xundef, xundef, xundef, xundef, xundef, &
3303  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3304  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3305  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3306  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3307  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3308  xundef, xundef, xundef, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3309  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3310  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3311  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3312  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3313  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3314  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3315  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3316  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3317  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3318  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3319  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3320  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3321  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3322  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3323  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3324  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3325  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3326  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3327  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3328  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3329  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3330  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3331  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3332  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3333  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3334  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3335  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3336  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3337  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3338  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3339  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3340  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3341  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3342  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3343  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3344  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3345  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3346  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3347  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3348  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3349  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3350  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3351  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3352  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3353  xundef, xundef, xundef &
3354  /)
3355 !-------------------------------------------------------------------
3356 pdata_ground_depth(:, 7) = (/ &
3357  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3358  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3359  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3360  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
3361  xundef, 2.00, 2.00, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
3362  xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, 2.00, &
3363  2.00, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3364  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3365  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3366  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3367  xundef, xundef, xundef, xundef, 1.50, 2.00, 2.00, 2.00, 2.00, xundef, &
3368  2.00, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3369  2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3370  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3371  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3372  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3373  xundef, 1.50, 1.50, 1.50, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3374  2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3375  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 2.00, 2.00, &
3376  2.00, 1.50, 2.00, 2.00, 2.00, 1.50, 2.00, 1.50, xundef, xundef, &
3377  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3378  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3379  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, &
3380  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3381  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3382  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3383  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3384  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3385  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3386  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3387  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3388  2.00, 2.00, xundef, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
3389  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, 2.00, 2.00, &
3390  2.00, xundef, 1.50, xundef, xundef, 1.50, 1.50, xundef, 1.50, 1.50, &
3391  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, 1.50, xundef, 1.50, &
3392  1.50, xundef, 2.00, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, &
3393  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, &
3394  xundef, 1.50, xundef, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, &
3395  1.50, 1.50, 1.50, 2.00, xundef, xundef, xundef, xundef, 1.50, 1.50, &
3396  1.50, 2.00, 2.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3397  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, &
3398  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, &
3399  1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3400  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3401  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3402  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3403  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3404  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3405  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3406  2.00, 2.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3407  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3408  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3409  1.50, 1.50, xundef, xundef, xundef, xundef, 1.50, xundef, 1.50, 1.50, &
3410  xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3411  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3412  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, 2.00, &
3413  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3414  2.00, 2.00, 2.00 &
3415  /)
3416 !-------------------------------------------------------------------
3417 pdata_ground_depth(:, 8) = (/ &
3418  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3419  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3420  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3421  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
3422  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
3423  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, 2.00, &
3424  2.00, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3425  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3426  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3427  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3428  xundef, xundef, xundef, xundef, 1.50, 2.00, 2.00, 2.00, xundef, 2.00, &
3429  2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, &
3430  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3431  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3432  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3433  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3434  xundef, 1.50, 1.50, 1.50, 2.00, xundef, xundef, 2.00, 2.00, 2.00, &
3435  xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3436  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3437  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3438  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3439  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3440  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3441  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3442  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3443  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3444  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3445  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3446  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3447  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3448  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3449  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, 2.00, &
3450  2.00, 2.00, 2.00, 2.00, xundef, 2.00, xundef, 2.00, 2.00, 2.00, &
3451  2.00, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, 1.50, xundef, &
3452  xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3453  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, 1.50, &
3454  1.50, xundef, 1.50, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, &
3455  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 1.50, xundef, 1.50, &
3456  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, &
3457  1.50, 1.50, 1.50, 1.50, xundef, 1.50, xundef, 1.50, 1.50, 1.50, &
3458  1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
3459  1.50, 1.50, 1.50, 1.50, xundef, 1.50, xundef, xundef, xundef, xundef, &
3460  xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, &
3461  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3462  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3463  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3464  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, &
3465  2.00, 2.00, xundef, 2.00, 2.00, 2.00, 1.50, 2.00, 2.00, 2.00, &
3466  2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, xundef, 2.00, 2.00, &
3467  xundef, 2.00, 2.00, 2.00, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, &
3468  1.50, xundef, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, &
3469  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, &
3470  1.50, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3471  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3472  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3473  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3474  xundef, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
3475  2.00, 2.00, 2.00 &
3476  /)
3477 ENDIF
3478 !-------------------------------------------------------------------
3479 IF (PRESENT(pdata_vegtype).AND.PRESENT(pdata_ground_depth)) THEN
3480 WHERE(pdata_vegtype(:, 9)>0.) pdata_ground_depth(:, 9) = 2.00
3481 ENDIF
3482 !-------------------------------------------------------------------
3483 IF (PRESENT(pdata_ground_depth)) THEN
3484 pdata_ground_depth(:, 10) = (/ &
3485  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, &
3486  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3487  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3488  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3489  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3490  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3491  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3492  xundef, xundef, xundef, xundef, 1.50, xundef, xundef, 1.50, 2.00, 1.00, &
3493  xundef, xundef, 1.50, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3494  xundef, 2.00, 2.00, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
3495  2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3496  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3497  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3498  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3499  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3500  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, 1.50, xundef, xundef, &
3501  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3502  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3503  xundef, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
3504  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
3505  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3506  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3507  2.00, 2.00, 2.00, 2.00, 1.00, 1.50, 1.50, 1.50, 1.50, 1.50, &
3508  xundef, xundef, 2.00, 2.00, 2.00, 1.00, xundef, xundef, xundef, xundef, &
3509  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3510  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3511  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3512  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3513  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3514  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3515  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3516  xundef, 1.50, xundef, 1.50, xundef, xundef, 1.50, xundef, 1.50, 2.00, &
3517  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3518  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, &
3519  2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
3520  2.00, 2.00, 2.00, 2.00, 2.00, 1.50, 1.50, 1.00, 1.00, 2.00, &
3521  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, 1.50, 1.00, 1.00, &
3522  1.00, 1.00, 1.00, 1.00, 1.00, 2.00, 2.00, 1.50, 1.50, 1.50, &
3523  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3524  1.50, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3525  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.00, 1.00, &
3526  1.00, 2.00, 2.00, 1.50, 1.00, 1.50, 1.50, 1.00, 1.00, 1.50, &
3527  1.50, 1.00, 1.00, 1.00, 1.50, 1.00, 1.00, 2.00, 2.00, 2.00, &
3528  2.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3529  xundef, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3530  2.00, 2.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3531  xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 2.00, 2.00, &
3532  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, 1.50, 1.50, 2.00, &
3533  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3534  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3535  2.00, 2.00, 2.00, 2.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
3536  1.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3537  2.00, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
3538  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
3539  1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, xundef, &
3540  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
3541  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3542  2.00, 2.00, xundef &
3543  /)
3544 !-------------------------------------------------------------------
3545 pdata_ground_depth(:, 11) = (/ &
3546  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, &
3547  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3548  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3549  xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, &
3550  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, 1.50, 1.50, 2.00, &
3551  2.00, 1.50, 1.50, xundef, xundef, 2.00, xundef, 1.50, xundef, xundef, &
3552  xundef, 1.50, xundef, xundef, 2.00, 2.00, 1.50, 1.50, 1.50, 1.50, &
3553  1.50, 1.50, 1.50, xundef, xundef, 1.50, xundef, 1.50, xundef, xundef, &
3554  1.50, 1.00, xundef, xundef, xundef, xundef, 1.00, 2.00, 1.50, 2.00, &
3555  2.00, xundef, xundef, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, &
3556  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3557  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3558  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3559  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3560  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3561  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3562  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3563  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3564  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3565  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3566  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3567  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3568  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3569  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3570  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3571  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3572  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3573  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3574  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3575  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3576  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3577  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3578  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
3579  xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, &
3580  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3581  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3582  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3583  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3584  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, 1.50, xundef, xundef, &
3585  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3586  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3587  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, &
3588  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3589  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3590  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3591  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3592  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3593  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3594  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3595  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3596  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3597  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3598  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3599  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3600  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3601  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3602  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3603  xundef, xundef, xundef &
3604  /)
3605 !-------------------------------------------------------------------
3606 pdata_ground_depth(:, 12) = (/ &
3607  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, &
3608  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3609  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3610  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3611  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3612  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3613  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3614  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3615  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3616  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3617  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3618  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3619  xundef, xundef, xundef, 3.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
3620  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3621  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3622  2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, 2.00, &
3623  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3624  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3625  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3626  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3627  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3628  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3629  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3630  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, &
3631  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3632  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3633  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3634  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3635  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3636  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3637  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
3638  1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.50, 1.50, xundef, &
3639  xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, 2.00, &
3640  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3641  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
3642  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, xundef, &
3643  xundef, 1.50, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
3644  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, &
3645  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3646  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3647  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3648  xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3649  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3650  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3651  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3652  2.00, xundef, xundef, 2.00, xundef, xundef, xundef, 2.00, xundef, xundef, &
3653  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, xundef, xundef, xundef, &
3654  2.00, xundef, xundef, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, xundef, &
3655  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, xundef, xundef, &
3656  xundef, xundef, xundef, 2.00, xundef, 2.00, xundef, xundef, xundef, xundef, &
3657  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3658  xundef, xundef, 2.00, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
3659  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3660  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3661  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
3662  xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3663  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, &
3664  2.00, xundef, xundef &
3665  /)
3666 !-------------------------------------------------------------------
3667 pdata_ground_depth(:, 13) = (/ &
3668  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, &
3669  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3670  xundef, xundef, xundef, xundef, xundef, xundef, 5.00, xundef, xundef, xundef, &
3671  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3672  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, xundef, &
3673  3.00, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
3674  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3675  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3676  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3677  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3678  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3679  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3680  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3681  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3682  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3683  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3684  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3685  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3686  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3687  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3688  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3689  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3690  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3691  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3692  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3693  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3694  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3695  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3696  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3697  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3698  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3699  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3700  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3701  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3702  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3703  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3704  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3705  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3706  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3707  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3708  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3709  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3710  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3711  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3712  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3713  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3714  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3715  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3716  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3717  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3718  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3719  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3720  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3721  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3722  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3723  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3724  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3725  xundef, xundef, xundef &
3726  /)
3727 !-------------------------------------------------------------------
3728 pdata_ground_depth(:, 14) = (/ &
3729  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3730  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3731  xundef, xundef, xundef, xundef, 5.00, xundef, xundef, 5.00, 3.00, xundef, &
3732  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3733  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3734  xundef, 3.00, 3.00, 4.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3735  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3736  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3737  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3738  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3739  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3740  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3741  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3742  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3743  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3744  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3745  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3746  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3747  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3748  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3749  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3750  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3751  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3752  xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3753  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3754  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3755  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3756  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3757  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3758  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3759  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3760  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3761  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, 3.00, &
3762  3.00, 3.00, 2.50, 2.50, 2.50, 2.50, 2.50, 2.50, 2.50, 2.00, &
3763  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3764  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3765  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3766  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3767  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3768  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.50, xundef, xundef, &
3769  2.00, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3770  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3771  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.50, 2.50, &
3772  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3773  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3774  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3775  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3776  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, &
3777  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3778  xundef, xundef, xundef, 3.00, xundef, 2.00, xundef, 2.00, xundef, xundef, &
3779  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3780  3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, &
3781  3.00, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
3782  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3783  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3784  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3785  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3786  3.00, xundef, xundef &
3787  /)
3788 !-------------------------------------------------------------------
3789 pdata_ground_depth(:, 15) = (/ &
3790  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3791  xundef, 3.00, xundef, 3.00, 4.00, xundef, xundef, xundef, xundef, xundef, &
3792  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, &
3793  xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3794  xundef, xundef, 3.00, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, &
3795  xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, &
3796  xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3797  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
3798  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3799  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3800  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3801  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3802  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3803  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3804  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3805  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3806  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3807  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3808  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3809  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3810  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3811  xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, &
3812  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3813  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3814  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3815  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3816  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3817  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3818  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3819  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3820  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3821  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3822  xundef, 3.00, xundef, xundef, 3.00, 3.00, 2.50, 3.00, 3.00, 3.00, &
3823  3.00, 3.00, 2.50, 2.50, 2.50, 2.50, 2.50, 2.50, 2.50, 2.00, &
3824  2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3825  xundef, 3.00, 3.00, 3.00, 3.00, xundef, 2.00, xundef, xundef, xundef, &
3826  3.00, 3.00, 3.00, 3.00, 3.00, xundef, xundef, xundef, xundef, xundef, &
3827  xundef, xundef, xundef, xundef, xundef, 2.50, 2.50, 2.50, xundef, xundef, &
3828  xundef, 2.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3829  2.50, xundef, 2.50, 2.50, xundef, 2.50, xundef, 2.50, xundef, 2.00, &
3830  2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, xundef, xundef, &
3831  xundef, 2.00, 2.00, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, &
3832  2.00, xundef, xundef, xundef, xundef, 2.00, xundef, 2.50, 2.50, 2.50, &
3833  2.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3834  xundef, xundef, xundef, xundef, 3.00, xundef, 3.00, 3.00, xundef, 3.00, &
3835  xundef, 3.00, 3.00, 3.00, 3.00, 2.50, 2.50, 2.50, 2.50, 2.50, &
3836  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3837  xundef, xundef, xundef, 3.00, xundef, xundef, 3.00, 3.00, xundef, xundef, &
3838  xundef, xundef, xundef, 3.00, 3.00, xundef, 3.00, 3.00, 3.00, xundef, &
3839  3.00, xundef, xundef, 3.00, xundef, 2.00, 2.00, 2.00, 2.00, xundef, &
3840  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, 2.00, 2.00, 3.00, &
3841  3.00, 3.00, 3.00, 3.00, 3.00, xundef, 3.00, 3.00, 3.00, 3.00, &
3842  xundef, 2.50, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, 3.00, &
3843  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3844  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3845  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, 3.00, &
3846  3.00, 3.00, xundef, xundef, 3.00, xundef, 3.00, 3.00, 3.00, 3.00, &
3847  3.00, xundef, 3.00 &
3848  /)
3849 ENDIF
3850 !-------------------------------------------------------------------
3851 IF (PRESENT(pdata_vegtype).AND.PRESENT(pdata_ground_depth)) THEN
3852 WHERE(pdata_vegtype(:,16)>0.) pdata_ground_depth(:, 16) = 3.00
3853 !-------------------------------------------------------------------
3854 WHERE(pdata_vegtype(:,17)>0.) pdata_ground_depth(:, 17) = 3.00
3855 ENDIF
3856 !-------------------------------------------------------------------
3857 IF (PRESENT(pdata_ground_depth)) THEN
3858 pdata_ground_depth(:, 18) = (/ &
3859  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3860  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3861  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3862  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3863  1.50, xundef, xundef, xundef, 2.00, 1.50, xundef, xundef, xundef, xundef, &
3864  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, &
3865  xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, &
3866  xundef, xundef, xundef, 1.50, xundef, xundef, 1.50, xundef, xundef, xundef, &
3867  xundef, xundef, xundef, xundef, 1.00, 2.00, xundef, xundef, xundef, xundef, &
3868  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 1.50, 1.50, &
3869  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3870  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3871  xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3872  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3873  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3874  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3875  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3876  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3877  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, &
3878  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3879  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3880  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3881  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3882  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3883  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3884  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3885  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3886  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3887  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3888  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3889  1.50, 1.50, 1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, &
3890  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3891  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3892  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3893  xundef, xundef, xundef, 1.00, 1.00, 1.00, 1.50, 1.50, 1.50, xundef, &
3894  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3895  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3896  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3897  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3898  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3899  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3900  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3901  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3902  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3903  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3904  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3905  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3906  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3907  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3908  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3909  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3910  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3911  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3912  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3913  xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, xundef, xundef, &
3914  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, xundef, xundef, &
3915  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3916  xundef, xundef, xundef &
3917  /)
3918 !-------------------------------------------------------------------
3919 pdata_ground_depth(:, 19) = (/ &
3920  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3921  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3922  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3923  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3924  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3925  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3926  xundef, xundef, xundef, xundef, xundef, xundef, 4.00, 4.00, 4.00, 4.00, &
3927  4.00, 4.00, 4.00, xundef, xundef, 3.00, xundef, xundef, 3.00, xundef, &
3928  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3929  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3930  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3931  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3932  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3933  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3934  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3935  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3936  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3937  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3938  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3939  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3940  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3941  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3942  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3943  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3944  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3945  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3946  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3947  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3948  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3949  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3950  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3951  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3952  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3953  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3954  xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
3955  xundef, 3.00, 3.00, 3.00, xundef, 2.00, 2.00, 2.00, 2.00, xundef, &
3956  xundef, xundef, 3.00, 3.00, 3.00, 3.00, 2.50, 2.50, 2.00, 2.00, &
3957  2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.50, 2.50, 2.50, 2.50, &
3958  2.50, 2.50, 2.00, 2.50, 2.50, 2.00, 2.00, 2.00, 2.00, 2.50, &
3959  2.50, xundef, 2.50, 2.50, 2.50, 2.50, xundef, xundef, 2.00, xundef, &
3960  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, 2.00, xundef, &
3961  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, &
3962  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, xundef, &
3963  xundef, 2.50, xundef, xundef, 2.00, 2.00, xundef, xundef, xundef, xundef, &
3964  xundef, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, 3.00, &
3965  3.00, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, 2.50, 2.50, &
3966  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3967  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3968  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
3969  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
3970  2.00, 2.00, 2.00, 2.00, 2.00, xundef, xundef, 2.00, 2.00, xundef, &
3971  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3972  xundef, 2.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3973  xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3974  xundef, 3.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3975  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3976  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3977  xundef, 3.00, 3.00 &
3978  /)
3979 ENDIF
3980 !-------------------------------------------------------------------
3981 IF (PRESENT(pdata_dice)) THEN
3982 pdata_dice(:, 1) = (/ &
3983  xundef, xundef, xundef, 0.50, xundef, xundef, xundef, xundef, 0.30, xundef, &
3984  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3985  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3986  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.40, &
3987  xundef, xundef, xundef, 0.40, xundef, xundef, xundef, 0.50, 0.50, xundef, &
3988  0.50, xundef, 0.50, xundef, xundef, 0.50, xundef, 0.50, xundef, xundef, &
3989  xundef, xundef, xundef, 0.30, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, &
3990  0.50, 0.50, 0.50, 0.30, 0.40, 0.40, 0.30, 0.30, 0.50, 0.50, &
3991  0.50, 0.50, 0.40, 0.40, 0.30, 0.30, 0.40, xundef, xundef, xundef, &
3992  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3993  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3994  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3995  xundef, xundef, 0.30, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3996  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3997  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
3998  xundef, xundef, xundef, xundef, 0.50, xundef, 0.50, xundef, 0.50, xundef, &
3999  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4000  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 0.80, 1.00, xundef, &
4001  0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4002  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4003  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4004  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, &
4005  xundef, xundef, 0.50, xundef, 0.30, 0.50, 0.50, xundef, xundef, 0.50, &
4006  0.50, 0.50, 0.50, 0.50, xundef, 0.50, 0.50, xundef, xundef, xundef, &
4007  xundef, 0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4008  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4009  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4010  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4011  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4012  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4013  0.25, 0.25, xundef, 0.25, 0.25, xundef, xundef, xundef, xundef, 0.25, &
4014  0.25, 0.30, xundef, 0.30, 0.30, 0.30, 0.30, 0.30, 0.30, xundef, &
4015  xundef, 0.40, 0.40, 0.40, 0.40, 0.40, 0.50, 0.50, 0.50, 0.40, &
4016  0.40, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, 0.50, &
4017  0.50, 0.50, 0.50, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.40, &
4018  0.40, 0.40, 0.40, xundef, 0.40, 0.50, 0.50, 0.50, 0.40, 0.40, &
4019  0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, &
4020  0.40, 0.40, 0.40, 0.40, 0.40, 0.50, 0.50, 0.50, 0.30, 0.40, &
4021  0.40, 0.50, 0.50, 0.50, 0.30, 0.40, 0.40, 0.40, 0.50, 0.50, &
4022  0.50, 0.40, 0.40, 1.00, 1.00, 0.50, 0.50, 0.50, 0.50, 0.50, &
4023  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
4024  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
4025  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
4026  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.25, &
4027  0.40, 0.40, 0.40, 0.40, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4028  0.80, 0.80, 0.40, 0.40, 0.40, 0.40, 0.40, 0.50, 0.40, 0.40, &
4029  0.30, 0.30, 0.30, 0.40, 0.40, 0.40, 0.80, 0.80, 0.80, 0.80, &
4030  0.80, 0.80, 0.80, 0.80, 0.80, 0.80, 0.50, 0.40, 0.40, 0.40, &
4031  0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.40, 0.50, &
4032  0.40, 0.40, 0.40, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
4033  0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 1.00, &
4034  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4035  0.40, 0.50, 0.50, 0.50, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4036  1.00, 1.00, xundef, xundef, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
4037  0.50, 0.50, 0.50, 0.50, 0.50, 0.25, 0.25, xundef, xundef, 0.50, &
4038  0.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4039  0.40, 0.40, 0.40, 0.40, 0.40, 0.30, 0.50, 0.50, xundef, 0.50, &
4040  0.50, 1.00, 1.00 &
4041  /)
4042 !-------------------------------------------------------------------
4043 pdata_dice(:, 2) = (/ &
4044  xundef, xundef, xundef, xundef, 0.20, xundef, xundef, xundef, xundef, xundef, &
4045  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4046  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4047  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4048  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4049  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4050  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4051  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4052  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4053  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4054  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4055  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4056  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4057  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4058  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4059  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4060  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4061  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4062  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4063  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4064  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4065  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4066  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4067  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4068  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4069  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4070  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4071  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4072  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4073  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4074  0.25, 0.25, xundef, 0.25, 0.25, xundef, 0.25, xundef, 0.25, 0.25, &
4075  0.25, 0.20, xundef, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
4076  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4077  xundef, xundef, xundef, xundef, xundef, 0.20, xundef, xundef, xundef, xundef, &
4078  xundef, xundef, xundef, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.20, &
4079  xundef, xundef, xundef, xundef, xundef, 0.20, 0.20, 0.20, 0.20, xundef, &
4080  xundef, xundef, xundef, xundef, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
4081  0.20, 0.20, 0.20, 0.20, 0.20, xundef, 0.20, 0.20, xundef, 0.20, &
4082  0.20, xundef, 0.20, xundef, xundef, 0.20, 0.20, xundef, xundef, xundef, &
4083  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4084  xundef, xundef, xundef, xundef, xundef, 0.20, 0.20, 0.20, 0.20, 0.20, &
4085  0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
4086  0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
4087  0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, xundef, &
4088  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4089  xundef, xundef, xundef, 0.20, xundef, xundef, xundef, 0.20, xundef, xundef, &
4090  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.20, xundef, xundef, &
4091  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4092  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4093  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.20, &
4094  xundef, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
4095  0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, 0.20, &
4096  0.20, 0.20, xundef, xundef, xundef, xundef, xundef, 0.20, 0.20, xundef, &
4097  xundef, 0.20, 0.20, 0.20, xundef, xundef, xundef, xundef, xundef, 0.20, &
4098  0.20, 0.20, xundef, 0.20, 0.20, 0.25, xundef, xundef, xundef, xundef, &
4099  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4100  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4101  0.20, xundef, xundef &
4102  /)
4103 !-------------------------------------------------------------------
4104 pdata_dice(:, 3) = (/ &
4105  xundef, xundef, xundef, xundef, xundef, 0.20, xundef, xundef, xundef, xundef, &
4106  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4107  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4108  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4109  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4110  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4111  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4112  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4113  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4114  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4115  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4116  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4117  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4118  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4119  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4120  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4121  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4122  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4123  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4124  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4125  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4126  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4127  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4128  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4129  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4130  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4131  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4132  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4133  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4134  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4135  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4136  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4137  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4138  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4139  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4140  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4141  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4142  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4143  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4144  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4145  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4146  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4147  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4148  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4149  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4150  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4151  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4152  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4153  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4154  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4155  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4156  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4157  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4158  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4159  xundef, xundef, xundef, xundef, xundef, xundef, 0.25, 0.25, xundef, xundef, &
4160  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4161  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4162  xundef, xundef, xundef &
4163  /)
4164 !-------------------------------------------------------------------
4165 pdata_dice(:, 4) = (/ &
4166  xundef, xundef, xundef, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, &
4167  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4168  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, 1.00, &
4169  xundef, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4170  xundef, xundef, xundef, 2.40, xundef, xundef, xundef, xundef, xundef, xundef, &
4171  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, &
4172  xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
4173  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4174  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4175  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4176  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4177  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4178  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4179  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4180  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4181  1.60, 2.00, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, &
4182  1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4183  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 2.40, 2.00, 1.60, &
4184  2.00, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 1.60, 1.60, &
4185  1.60, 2.00, 1.60, 1.60, 1.60, xundef, xundef, 2.00, 2.00, 2.00, &
4186  2.00, 1.60, 1.60, 1.60, 1.60, 1.60, 1.60, xundef, xundef, xundef, &
4187  xundef, xundef, xundef, xundef, 2.00, 1.60, 1.60, 1.60, 1.60, xundef, &
4188  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
4189  2.00, xundef, 2.00, xundef, 1.60, xundef, xundef, 1.60, xundef, xundef, &
4190  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4191  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4192  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4193  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4194  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4195  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4196  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4197  xundef, xundef, xundef, 1.00, xundef, xundef, 1.00, xundef, 1.00, 1.60, &
4198  1.60, 1.60, 1.60, 1.60, 1.60, 1.60, xundef, xundef, 2.00, xundef, &
4199  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4200  xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4201  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, &
4202  1.60, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4203  xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, &
4204  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4205  xundef, 1.60, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, 1.50, &
4206  xundef, 1.50, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
4207  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4208  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
4209  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4210  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, &
4211  xundef, 1.60, 2.40, xundef, 1.60, 1.60, 1.60, 2.00, xundef, xundef, &
4212  xundef, xundef, xundef, 1.60, 1.60, 1.60, 1.60, xundef, 1.60, xundef, &
4213  xundef, xundef, xundef, 1.60, 1.60, 1.60, xundef, 1.60, xundef, 1.60, &
4214  1.60, 1.60, xundef, 1.60, 1.60, 1.60, 1.60, 1.60, 1.60, xundef, &
4215  1.60, 1.60, 1.60, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, &
4216  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, &
4217  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4218  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4219  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4220  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4221  xundef, xundef, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, 1.60, &
4222  1.60, 1.60, 1.60, 1.60, 1.60, xundef, 2.00, 2.00, 1.60, 2.00, &
4223  xundef, xundef, xundef &
4224  /)
4225 !-------------------------------------------------------------------
4226 pdata_dice(:, 5) = (/ &
4227  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4228  0.30, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4229  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4230  0.30, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4231  0.30, 1.00, xundef, xundef, 1.00, 1.00, xundef, xundef, xundef, xundef, &
4232  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.30, 1.00, &
4233  xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, &
4234  xundef, xundef, xundef, 0.30, 1.60, xundef, 0.30, xundef, xundef, xundef, &
4235  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4236  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4237  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4238  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4239  xundef, xundef, xundef, xundef, 0.30, xundef, xundef, xundef, xundef, xundef, &
4240  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4241  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4242  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4243  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4244  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4245  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4246  xundef, xundef, xundef, xundef, xundef, 2.00, 1.60, xundef, xundef, xundef, &
4247  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 1.60, 1.60, &
4248  1.60, 1.60, 1.60, xundef, 2.00, 1.60, 1.60, 1.60, 1.60, xundef, &
4249  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4250  xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, xundef, &
4251  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4252  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4253  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4254  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4255  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4256  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4257  0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, &
4258  0.25, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.60, &
4259  1.60, xundef, 1.60, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, &
4260  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4261  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.25, xundef, xundef, &
4262  1.60, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, xundef, 1.60, &
4263  xundef, xundef, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, xundef, &
4264  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, &
4265  1.60, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4266  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4267  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4268  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4269  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4270  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4271  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4272  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4273  1.00, 1.00, 1.00, 1.60, 1.60, 1.60, xundef, xundef, xundef, 1.60, &
4274  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, xundef, &
4275  1.60, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4276  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4277  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4278  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4279  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4280  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4281  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4282  xundef, xundef, xundef, xundef, xundef, xundef, 0.25, 1.00, 1.00, xundef, &
4283  xundef, xundef, 1.60, 1.60, xundef, 1.00, xundef, xundef, xundef, xundef, &
4284  xundef, xundef, xundef &
4285  /)
4286 !-------------------------------------------------------------------
4287 pdata_dice(:, 6) = (/ &
4288  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4289  xundef, xundef, xundef, xundef, xundef, 8.00, 5.00, 8.00, 4.00, 5.00, &
4290  8.00, 4.00, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4291  xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 4.00, 3.00, xundef, &
4292  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, &
4293  xundef, xundef, xundef, xundef, xundef, xundef, 5.00, xundef, xundef, xundef, &
4294  2.40, 3.00, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, xundef, &
4295  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4296  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4297  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4298  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4299  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4300  xundef, xundef, xundef, 5.00, xundef, xundef, xundef, xundef, xundef, xundef, &
4301  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4302  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4303  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4304  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4305  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4306  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4307  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4308  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4309  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4310  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4311  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4312  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4313  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4314  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4315  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4316  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4317  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4318  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4319  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4320  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4321  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4322  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4323  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4324  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4325  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4326  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4327  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4328  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4329  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4330  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4331  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4332  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4333  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4334  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4335  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4336  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4337  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4338  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4339  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4340  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4341  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4342  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4343  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4344  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4345  xundef, xundef, xundef &
4346  /)
4347 !-------------------------------------------------------------------
4348 pdata_dice(:, 7) = (/ &
4349  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4350  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4351  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4352  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.20, xundef, xundef, &
4353  xundef, 0.80, 1.20, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, &
4354  xundef, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, xundef, 0.80, &
4355  1.20, xundef, 1.20, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4356  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4357  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4358  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4359  xundef, xundef, xundef, xundef, 1.00, 1.50, 1.50, 1.50, 1.50, xundef, &
4360  1.20, xundef, 1.20, 1.20, 1.20, 1.20, 1.20, 0.80, 1.20, 1.50, &
4361  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4362  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4363  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4364  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4365  xundef, 1.00, 1.00, 1.00, 1.50, 1.20, 1.50, 1.20, 1.20, 1.20, &
4366  1.20, 1.20, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4367  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, 1.20, 1.20, &
4368  1.20, 1.00, 1.20, 1.20, 1.20, 1.00, 1.20, 1.00, xundef, xundef, &
4369  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4370  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4371  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, &
4372  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4373  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4374  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4375  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4376  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4377  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4378  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4379  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.25, &
4380  0.25, 0.60, xundef, 0.60, 0.60, xundef, 0.60, 0.60, 0.60, 1.20, &
4381  xundef, 1.20, 1.20, 1.20, 1.20, 1.20, xundef, xundef, 1.50, 1.20, &
4382  1.20, xundef, 1.00, xundef, xundef, 1.00, 1.00, xundef, 1.00, 1.00, &
4383  1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, 0.25, xundef, 0.80, &
4384  0.80, xundef, 1.20, 0.80, xundef, 1.00, 1.00, 1.00, 0.80, 0.80, &
4385  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, xundef, xundef, xundef, &
4386  xundef, 0.80, xundef, 0.80, xundef, 1.00, 1.00, 1.00, 0.40, 0.80, &
4387  0.80, 1.00, 1.00, 1.50, xundef, xundef, xundef, xundef, 1.00, 1.00, &
4388  1.00, 1.20, 1.20, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4389  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, &
4390  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, &
4391  1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4392  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4393  xundef, 1.20, 1.20, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4394  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, 1.20, 1.20, &
4395  0.60, 0.60, 0.60, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, &
4396  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, 1.20, 1.20, 1.20, &
4397  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, &
4398  1.20, 1.20, 0.80, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4399  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4400  1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4401  0.80, 1.00, xundef, xundef, xundef, xundef, 1.00, xundef, 1.00, 1.00, &
4402  xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4403  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4404  xundef, xundef, xundef, xundef, xundef, 0.80, xundef, xundef, xundef, 1.20, &
4405  1.20, 1.20, 1.20, 1.20, 1.20, 0.60, 1.50, 1.50, 1.20, 1.50, &
4406  1.50, 1.50, 1.50 &
4407  /)
4408 !-------------------------------------------------------------------
4409 pdata_dice(:, 8) = (/ &
4410  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4411  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4412  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4413  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.20, xundef, xundef, &
4414  xundef, xundef, xundef, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, &
4415  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, 0.80, &
4416  1.20, xundef, 1.20, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4417  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4418  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4419  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4420  xundef, xundef, xundef, xundef, 1.00, 1.50, 1.50, 1.50, xundef, 1.50, &
4421  1.20, 1.50, xundef, 1.20, 1.20, 1.20, 1.20, 0.80, 1.20, xundef, &
4422  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4423  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4424  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4425  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4426  xundef, 1.00, 1.00, 1.00, 1.50, xundef, xundef, 1.20, 1.20, 1.20, &
4427  xundef, 1.20, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4428  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4429  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4430  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4431  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4432  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4433  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4434  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4435  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4436  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4437  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4438  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4439  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4440  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4441  xundef, xundef, xundef, 0.60, xundef, xundef, xundef, xundef, xundef, 1.20, &
4442  1.20, 1.20, 1.20, 1.20, xundef, 1.20, xundef, 1.50, 1.50, 1.20, &
4443  1.20, xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, 1.00, xundef, &
4444  xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4445  xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, xundef, 0.80, &
4446  0.80, xundef, 0.80, xundef, 0.80, 0.80, xundef, xundef, xundef, xundef, &
4447  xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, 1.00, xundef, 0.80, &
4448  0.80, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, 1.00, &
4449  1.00, 0.80, 0.80, 1.00, xundef, 1.00, xundef, 1.00, 1.00, 1.00, &
4450  1.00, 1.00, 1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, xundef, &
4451  1.00, 1.00, 1.00, 1.00, xundef, 1.00, xundef, xundef, xundef, xundef, &
4452  xundef, xundef, xundef, xundef, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, &
4453  1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4454  xundef, 1.20, 1.20, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4455  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, 1.20, 1.20, &
4456  0.60, 0.60, 0.60, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, xundef, &
4457  1.20, 1.20, xundef, 1.20, 1.20, 1.20, 1.00, 1.20, 1.20, 1.20, &
4458  1.20, 1.20, 1.20, 1.20, xundef, 1.20, 1.20, xundef, 1.20, 1.50, &
4459  xundef, 1.20, 1.20, 1.50, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, &
4460  1.00, xundef, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, 1.00, 1.00, &
4461  xundef, 1.00, 1.00, 1.00, 1.00, 1.00, xundef, 1.00, 1.00, 1.00, &
4462  0.80, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4463  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4464  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4465  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4466  xundef, 1.20, 1.20, 1.20, 1.20, xundef, 1.50, 1.50, 1.20, 1.50, &
4467  1.50, 1.50, 1.50 &
4468  /)
4469 !-------------------------------------------------------------------
4470 pdata_dice(:, 9) = (/ &
4471  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4472  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4473  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4474  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4475  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4476  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4477  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4478  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4479  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4480  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4481  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4482  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4483  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4484  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4485  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4486  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4487  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4488  xundef, xundef, xundef, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, &
4489  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4490  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4491  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4492  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4493  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4494  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4495  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4496  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4497  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4498  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4499  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4500  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4501  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4502  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4503  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4504  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, 1.50, xundef, &
4505  xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4506  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4507  xundef, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, xundef, xundef, &
4508  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, &
4509  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4510  xundef, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, 1.50, &
4511  1.50, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
4512  1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4513  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4514  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4515  xundef, xundef, 1.20, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4516  1.20, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
4517  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4518  xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.20, xundef, 1.20, &
4519  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4520  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 1.50, xundef, xundef, &
4521  xundef, 1.50, xundef, 1.50, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, &
4522  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4523  xundef, xundef, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4524  1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4525  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4526  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4527  xundef, xundef, xundef, xundef, 1.20, xundef, 1.50, 1.50, xundef, xundef, &
4528  1.50, xundef, xundef &
4529  /)
4530 !-------------------------------------------------------------------
4531 pdata_dice(:, 10) = (/ &
4532  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.30, xundef, &
4533  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4534  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4535  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4536  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4537  xundef, xundef, xundef, 1.20, xundef, xundef, xundef, xundef, xundef, xundef, &
4538  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4539  xundef, xundef, xundef, xundef, 0.80, xundef, xundef, 0.50, 1.50, 0.50, &
4540  xundef, xundef, 0.80, 1.20, xundef, xundef, xundef, xundef, xundef, xundef, &
4541  xundef, 1.50, 1.20, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, &
4542  1.20, 1.20, 0.80, 1.20, xundef, xundef, xundef, xundef, xundef, xundef, &
4543  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4544  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4545  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4546  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4547  xundef, xundef, xundef, xundef, xundef, 1.20, xundef, 0.80, xundef, xundef, &
4548  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4549  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.20, &
4550  xundef, 1.20, 1.20, 1.20, 1.20, xundef, xundef, xundef, xundef, xundef, &
4551  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
4552  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4553  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
4554  1.20, 1.20, 1.50, 1.20, 0.30, 1.00, 1.00, 0.80, 0.80, 1.00, &
4555  xundef, xundef, 1.50, 1.50, 1.20, 0.50, xundef, xundef, xundef, xundef, &
4556  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4557  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4558  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4559  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4560  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4561  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4562  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4563  xundef, 0.40, xundef, 0.40, xundef, xundef, 0.40, xundef, 0.40, 1.20, &
4564  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, 1.50, 1.50, 1.20, &
4565  1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, &
4566  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, 0.80, &
4567  1.20, 1.20, 1.20, 1.20, 1.20, 1.00, 1.00, 0.50, 0.40, 1.20, &
4568  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 0.80, 0.80, 0.40, 0.40, &
4569  0.40, 0.40, 0.40, 0.40, 0.40, 1.50, 1.50, 1.00, 0.40, 0.80, &
4570  0.80, 1.00, 1.00, 1.00, 0.40, 0.80, 0.80, 0.80, 1.00, 1.00, &
4571  1.00, 1.20, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4572  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 0.50, 0.50, &
4573  0.50, 1.50, 1.50, 1.00, 0.50, 1.00, 1.00, 0.50, 0.50, 1.00, &
4574  1.00, 0.50, 0.50, 0.50, 1.00, 0.50, 0.50, 1.50, 1.50, 1.50, &
4575  1.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.25, &
4576  xundef, 1.20, xundef, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4577  1.20, 1.20, 0.80, 0.80, 0.80, 0.80, 0.80, 1.00, 0.80, 0.80, &
4578  xundef, 0.40, 0.40, 0.80, 0.80, 0.80, 0.80, 0.80, 1.20, 1.20, &
4579  xundef, 1.20, 1.20, 1.20, 1.20, 1.20, 1.00, 0.80, 0.80, 1.20, &
4580  1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.20, 1.50, &
4581  1.20, 1.20, 1.20, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4582  1.50, 1.50, 1.50, 1.50, 0.50, 0.50, 0.50, 0.50, 0.50, 0.50, &
4583  0.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, &
4584  1.20, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, 1.00, &
4585  1.00, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, &
4586  0.50, 0.50, 0.50, 0.50, 0.50, xundef, xundef, xundef, xundef, xundef, &
4587  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.60, 1.20, &
4588  1.20, 1.20, 1.20, 1.20, 1.20, 0.60, 1.50, 1.50, 1.20, 1.50, &
4589  1.50, 1.50, xundef &
4590  /)
4591 !-------------------------------------------------------------------
4592 pdata_dice(:, 11) = (/ &
4593  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, &
4594  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4595  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4596  xundef, xundef, xundef, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, 1.20, &
4597  xundef, xundef, xundef, 1.20, xundef, xundef, xundef, 1.00, 1.00, 1.50, &
4598  1.50, 1.00, 1.00, xundef, xundef, 1.50, xundef, 1.00, xundef, xundef, &
4599  xundef, 1.00, xundef, xundef, 1.50, 1.50, 1.00, 1.00, 1.00, 1.00, &
4600  1.00, 1.00, 1.00, xundef, xundef, 0.80, xundef, 0.50, xundef, xundef, &
4601  1.00, 0.50, xundef, xundef, xundef, xundef, 0.40, 1.50, 1.00, 1.50, &
4602  1.50, xundef, xundef, 1.20, 1.50, 1.50, xundef, xundef, xundef, xundef, &
4603  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4604  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4605  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4606  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4607  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4608  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4609  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4610  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4611  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4612  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4613  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4614  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4615  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4616  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4617  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4618  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4619  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4620  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4621  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4622  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4623  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4624  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4625  xundef, xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, &
4626  xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, &
4627  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4628  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4629  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4630  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4631  xundef, xundef, xundef, xundef, xundef, 0.80, xundef, 0.80, xundef, xundef, &
4632  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4633  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4634  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.50, xundef, &
4635  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4636  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4637  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4638  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4639  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4640  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4641  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4642  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4643  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4644  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4645  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4646  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4647  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4648  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4649  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4650  xundef, xundef, xundef &
4651  /)
4652 !-------------------------------------------------------------------
4653 pdata_dice(:, 12) = (/ &
4654  xundef, xundef, xundef, xundef, xundef, xundef, 0.80, xundef, xundef, xundef, &
4655  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4656  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4657  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4658  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4659  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4660  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4661  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4662  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4663  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4664  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4665  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4666  xundef, xundef, xundef, 3.00, 0.30, xundef, xundef, xundef, xundef, xundef, &
4667  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4668  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4669  1.20, 1.50, 1.20, 1.20, xundef, xundef, xundef, xundef, xundef, 1.20, &
4670  1.20, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4671  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4672  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4673  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4674  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4675  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4676  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4677  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, 1.60, 1.20, &
4678  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4679  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4680  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4681  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4682  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4683  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4684  0.25, 0.25, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.25, &
4685  0.25, 0.40, 0.40, 0.40, 0.40, xundef, 0.40, 0.40, 0.40, xundef, &
4686  xundef, xundef, xundef, xundef, 0.80, xundef, xundef, xundef, xundef, 1.60, &
4687  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4688  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.80, &
4689  0.80, 0.80, 0.80, 0.80, 0.80, 1.00, 1.00, xundef, 0.80, xundef, &
4690  xundef, 0.80, xundef, 0.80, 0.80, xundef, xundef, xundef, xundef, xundef, &
4691  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, &
4692  0.80, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4693  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4694  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4695  xundef, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4696  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4697  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4698  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4699  1.20, xundef, xundef, 1.20, xundef, xundef, xundef, 1.50, xundef, xundef, &
4700  xundef, xundef, xundef, xundef, xundef, 1.20, 1.20, xundef, xundef, xundef, &
4701  1.20, xundef, xundef, 1.20, 1.20, xundef, 1.50, 1.20, 1.20, xundef, &
4702  xundef, xundef, xundef, xundef, xundef, xundef, 1.20, 1.20, xundef, xundef, &
4703  xundef, xundef, xundef, 1.50, xundef, 1.50, xundef, xundef, xundef, xundef, &
4704  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4705  xundef, xundef, 1.50, xundef, xundef, xundef, xundef, 1.50, xundef, xundef, &
4706  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
4707  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4708  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, &
4709  xundef, 0.25, 1.50, 1.20, 1.20, 1.60, 0.25, 1.00, 1.00, 1.60, &
4710  1.20, 1.20, 1.20, 1.20, 1.20, 0.60, 1.50, 1.50, xundef, xundef, &
4711  1.50, xundef, xundef &
4712  /)
4713 !-------------------------------------------------------------------
4714 pdata_dice(:, 13) = (/ &
4715  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
4716  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4717  xundef, xundef, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, &
4718  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4719  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 3.00, 3.00, xundef, &
4720  3.00, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, xundef, xundef, &
4721  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4722  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4723  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4724  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4725  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4726  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4727  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4728  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4729  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4730  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4731  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4732  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4733  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4734  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4735  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4736  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4737  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4738  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4739  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4740  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4741  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4742  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4743  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4744  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4745  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4746  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4747  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4748  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4749  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4750  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4751  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4752  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4753  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4754  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4755  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4756  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4757  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4758  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4759  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4760  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4761  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4762  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4763  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4764  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4765  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4766  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4767  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4768  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4769  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4770  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4771  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4772  xundef, xundef, xundef &
4773  /)
4774 !-------------------------------------------------------------------
4775 pdata_dice(:, 14) = (/ &
4776  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4777  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4778  xundef, xundef, xundef, xundef, 3.00, xundef, xundef, 3.00, 2.00, xundef, &
4779  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, &
4780  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4781  xundef, 2.00, 2.00, 2.40, xundef, xundef, xundef, xundef, xundef, xundef, &
4782  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4783  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4784  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4785  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4786  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4787  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4788  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4789  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4790  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4791  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4792  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4793  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4794  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4795  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4796  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4797  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4798  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4799  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
4800  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4801  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4802  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4803  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4804  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4805  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4806  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4807  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4808  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, 1.60, &
4809  1.60, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, &
4810  1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4811  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4812  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4813  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4814  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4815  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, &
4816  1.50, xundef, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4817  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4818  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, &
4819  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4820  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4821  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4822  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4823  xundef, xundef, xundef, xundef, xundef, xundef, 2.00, xundef, xundef, xundef, &
4824  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4825  xundef, xundef, xundef, 2.00, xundef, 1.50, xundef, 1.50, xundef, xundef, &
4826  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
4827  2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, &
4828  1.60, xundef, xundef, xundef, 3.00, 3.00, 3.00, 3.00, 3.00, xundef, &
4829  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4830  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4831  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4832  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4833  2.00, xundef, xundef &
4834  /)
4835 !-------------------------------------------------------------------
4836 pdata_dice(:, 15) = (/ &
4837  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.00, &
4838  xundef, 1.60, xundef, 1.60, 1.50, xundef, xundef, xundef, xundef, xundef, &
4839  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, 1.00, &
4840  xundef, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4841  xundef, xundef, 1.60, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, &
4842  xundef, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, xundef, xundef, &
4843  xundef, xundef, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4844  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.80, xundef, xundef, &
4845  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4846  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4847  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4848  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4849  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4850  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4851  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4852  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4853  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4854  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4855  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4856  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4857  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4858  xundef, xundef, xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, &
4859  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4860  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4861  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4862  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4863  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4864  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4865  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4866  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4867  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4868  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4869  xundef, 1.60, xundef, xundef, 1.60, 1.60, 2.00, 2.00, 2.00, 1.60, &
4870  1.60, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 2.00, 1.50, &
4871  1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4872  xundef, 1.60, 1.60, 1.60, 1.60, xundef, 1.50, xundef, xundef, xundef, &
4873  1.60, 1.60, 1.60, 1.60, 1.60, xundef, xundef, xundef, xundef, xundef, &
4874  xundef, xundef, xundef, xundef, xundef, 2.00, 2.00, 2.00, xundef, xundef, &
4875  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4876  2.00, xundef, 1.60, 2.00, xundef, 2.00, xundef, 2.00, xundef, 1.50, &
4877  1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, xundef, xundef, &
4878  xundef, 1.50, 1.50, xundef, xundef, 1.50, xundef, xundef, xundef, xundef, &
4879  1.50, xundef, xundef, xundef, xundef, 1.50, xundef, 2.00, 2.00, 2.00, &
4880  2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4881  xundef, xundef, xundef, xundef, 2.00, xundef, 2.00, 2.00, xundef, 2.00, &
4882  xundef, 1.60, 1.60, 1.60, 1.60, 1.60, 1.60, 2.00, 1.60, 1.60, &
4883  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4884  xundef, xundef, xundef, 1.60, xundef, xundef, 2.00, 1.60, xundef, xundef, &
4885  xundef, xundef, xundef, 1.60, 1.60, xundef, 1.60, 1.60, 1.60, xundef, &
4886  1.60, xundef, xundef, 2.00, xundef, 1.50, 1.50, 1.50, 1.50, xundef, &
4887  xundef, xundef, xundef, xundef, xundef, 1.50, xundef, 1.50, 1.50, 2.00, &
4888  2.00, 2.00, 2.00, 2.00, 2.00, xundef, 2.00, 2.00, 2.00, 2.00, &
4889  xundef, 2.00, xundef, xundef, xundef, xundef, 3.00, xundef, xundef, 2.00, &
4890  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4891  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4892  xundef, xundef, xundef, xundef, xundef, 1.60, xundef, xundef, xundef, 1.60, &
4893  1.60, 1.60, xundef, xundef, 1.60, xundef, 2.00, 2.00, 1.60, 2.00, &
4894  2.00, xundef, 2.00 &
4895  /)
4896 !-------------------------------------------------------------------
4897 pdata_dice(:, 16) = (/ &
4898  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4899  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4900  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4901  0.30, xundef, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4902  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4903  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4904  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4905  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4906  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4907  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4908  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4909  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4910  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4911  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4912  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4913  xundef, xundef, xundef, 1.60, xundef, xundef, xundef, xundef, xundef, xundef, &
4914  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4915  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4916  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4917  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4918  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4919  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4920  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4921  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4922  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4923  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4924  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4925  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4926  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4927  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4928  0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, &
4929  0.25, 1.00, 1.00, xundef, 1.00, 1.00, xundef, 1.00, xundef, xundef, &
4930  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4931  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4932  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4933  1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4934  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4935  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4936  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4937  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4938  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4939  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4940  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4941  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4942  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4943  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4944  1.00, 1.00, 1.00, xundef, xundef, xundef, xundef, xundef, xundef, 1.60, &
4945  1.60, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4946  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4947  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4948  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4949  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4950  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4951  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4952  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4953  xundef, xundef, xundef, xundef, xundef, xundef, 0.25, 1.00, 1.00, xundef, &
4954  xundef, xundef, xundef, xundef, xundef, 1.00, xundef, xundef, xundef, xundef, &
4955  xundef, xundef, xundef &
4956  /)
4957 ENDIF
4958 !-------------------------------------------------------------------
4959 IF (PRESENT(pdata_vegtype).AND.PRESENT(pdata_dice)) THEN
4960 WHERE(pdata_vegtype(:,17)>0.) pdata_dice(:, 17) = 0.30
4961 ENDIF
4962 !-------------------------------------------------------------------
4963 IF (PRESENt(pdata_dice)) THEN
4964 pdata_dice(:, 18) = (/ &
4965  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4966  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4967  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4968  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4969  0.30, xundef, xundef, xundef, 0.80, 0.50, xundef, xundef, xundef, xundef, &
4970  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.30, xundef, &
4971  xundef, xundef, xundef, 0.50, xundef, xundef, xundef, xundef, xundef, xundef, &
4972  xundef, xundef, xundef, 0.30, xundef, xundef, 0.30, xundef, xundef, xundef, &
4973  xundef, xundef, xundef, xundef, 0.30, 0.30, xundef, xundef, xundef, xundef, &
4974  xundef, xundef, xundef, xundef, xundef, xundef, xundef, 0.30, 0.80, 0.30, &
4975  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4976  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4977  xundef, xundef, 0.30, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4978  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4979  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4980  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4981  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4982  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4983  xundef, xundef, xundef, xundef, xundef, 1.20, xundef, xundef, xundef, xundef, &
4984  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4985  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4986  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4987  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4988  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4989  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4990  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4991  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4992  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4993  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4994  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4995  0.25, 0.25, 0.25, xundef, 0.25, xundef, xundef, xundef, xundef, xundef, &
4996  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4997  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4998  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
4999  xundef, xundef, xundef, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, xundef, &
5000  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5001  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5002  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5003  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5004  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5005  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5006  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5007  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5008  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5009  0.40, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5010  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5011  0.40, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5012  1.20, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5013  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5014  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5015  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5016  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5017  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5018  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5019  xundef, xundef, xundef, xundef, xundef, 0.25, 0.25, xundef, xundef, xundef, &
5020  xundef, xundef, xundef, xundef, xundef, xundef, 0.25, 0.60, xundef, xundef, &
5021  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5022  xundef, xundef, xundef &
5023  /)
5024 !-------------------------------------------------------------------
5025 pdata_dice(:, 19) = (/ &
5026  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5027  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5028  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5029  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5030  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5031  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5032  xundef, xundef, xundef, xundef, xundef, xundef, 4.00, 4.00, 4.00, 4.00, &
5033  4.00, 4.00, 4.00, xundef, xundef, 2.40, xundef, xundef, 3.00, xundef, &
5034  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5035  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5036  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5037  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5038  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5039  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5040  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5041  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5042  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5043  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5044  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5045  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5046  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5047  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5048  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5049  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5050  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5051  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5052  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5053  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5054  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5055  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5056  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5057  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5058  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5059  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5060  xundef, xundef, xundef, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 1.20, &
5061  xundef, 1.60, 1.60, 1.60, xundef, 1.50, 1.50, 1.50, 1.20, xundef, &
5062  xundef, xundef, 1.60, 1.60, 1.60, 1.60, 1.60, 1.60, 1.20, 1.20, &
5063  1.20, 1.20, 1.20, 1.20, 1.20, xundef, 2.00, 2.00, 1.00, 1.60, &
5064  1.60, 2.00, 1.50, 2.00, 1.00, 1.20, 1.20, 1.20, 1.50, 2.00, &
5065  2.00, xundef, 1.60, 2.00, 2.00, 2.00, xundef, xundef, 1.50, xundef, &
5066  xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, 1.50, 1.50, xundef, &
5067  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, 1.50, &
5068  1.50, 1.50, 1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, xundef, &
5069  xundef, 2.00, xundef, xundef, 1.50, 1.50, xundef, xundef, xundef, xundef, &
5070  xundef, xundef, 1.60, 1.60, 3.00, 2.00, 2.00, 2.00, xundef, 2.00, &
5071  1.60, xundef, xundef, 2.40, xundef, xundef, xundef, xundef, 1.60, 1.60, &
5072  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5073  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5074  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 2.00, &
5075  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, 1.50, 1.50, &
5076  1.50, 1.50, 1.50, 1.50, 1.50, xundef, xundef, 1.50, 1.50, xundef, &
5077  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5078  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5079  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5080  xundef, 2.00, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5081  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5082  xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, xundef, &
5083  xundef, 3.00, 3.00 &
5084  /)
5085 ENDIF
5086 IF (PRESENT(pdata_vegtype)) THEN
5087  IF (PRESENT(tpdata_seed)) THEN
5088 !-------------------------------------------------------------------
5089  WHERE(pdata_vegtype(:, 9)>0. ) tpdata_seed(:, 9)%TDATE%DAY =10
5090 !-------------------------------------------------------------------
5091  WHERE(pdata_vegtype(:, 9)>0. ) tpdata_seed(:, 9)%TDATE%MONTH =05
5092  ENDIF
5093  IF (PRESENT(tpdata_reap)) THEN
5094 !-------------------------------------------------------------------
5095  WHERE(pdata_vegtype(:, 9)>0. ) tpdata_reap(:, 9)%TDATE%DAY =01
5096 !-------------------------------------------------------------------
5097  WHERE(pdata_vegtype(:, 9)>0. ) tpdata_reap(:, 9)%TDATE%MONTH =08
5098 !-------------------------------------------------------------------
5099  ENDIF
5100 ENDIF
5101 !
5102 IF (lhook) CALL dr_hook('DEFAULT_DATA_COVER',1,zhook_handle)
5103 !
5104 END SUBROUTINE default_data_cover
modd_surf_par
Definition: modd_surf_par.F90:6
yomhook::dr_hook
Definition: yomhook.F90:20
default_data_cover
subroutine default_data_cover(PDATA_TOWN, PDATA_NATURE, PDATA_WATER, PDATA_SEA, PDATA_Z0_TOWN, PDATA_BLD_HEIGHT, PDATA_WALL_O_HOR, PDATA_BLD, PDATA_GARDEN, PDATA_ALB_ROOF, PDATA_ALB_ROAD, PDATA_ALB_WALL, PDATA_EMIS_ROOF, PDATA_EMIS_ROAD, PDATA_EMIS_WALL, PDATA_HC_ROOF, PDATA_TC_ROOF, PDATA_D_ROOF, PDATA_HC_ROAD, PDATA_TC_ROAD, PDATA_D_ROAD, PDATA_HC_WALL, PDATA_TC_WALL, PDATA_D_WALL, PDATA_H_TRAFFIC, PDATA_LE_TRAFFIC, PDATA_H_INDUSTRY, PDATA_LE_INDUSTRY, PDATA_VEGTYPE, PDATA_H_TREE, PDATA_WATSUP, PDATA_IRRIG, PDATA_ROOT_DEPTH, PDATA_GROUND_DEPTH, PDATA_DICE, TPDATA_SEED, TPDATA_REAP)
Definition: default_data_cover.F90:15
modd_surf_par::xundef
real, parameter xundef
Definition: modd_surf_par.F90:43
parkind1::jprb
integer, parameter jprb
Definition: parkind1.F90:32
modd_type_date_surf::date_time
Definition: modd_type_date_surf.F90:46
yomhook::lhook
logical lhook
Definition: yomhook.F90:15
modd_type_date_surf
Definition: modd_type_date_surf.F90:6
Generated on Tue Jan 16 2018 16:23:25 for SURFEX v8.1 by   doxygen 1.8.13