PageRenderTime 46ms CodeModel.GetById 12ms RepoModel.GetById 0ms app.codeStats 1ms

/wrfv2_fire/phys/module_sf_ssib.F

http://github.com/jbeezley/wrf-fire
FORTRAN Legacy | 6529 lines | 4263 code | 79 blank | 2187 comment | 60 complexity | 0731473777a90263eb0524243f12f129 MD5 | raw file
Possible License(s): AGPL-1.0

Large files files are truncated, but you can click here to view the full file

  1. MODULE module_sf_ssib
  2. !This version of SSiB land-surface model includes a multi-layer snow scheme
  3. !For better results, please use the SSiB vegetation map (geog_data_res in WPS)
  4. !References for the SSiB:
  5. !Xue et al. 1991, J. Climate, 4, 345-364.
  6. !Sun and Xue, 2001, Adv. in Atmos. Sci, 18, 335-354.
  7. !Xue et al., 2003, J. Geophy. Res. 108, D22, doi: 10.1029/2002JD003174.
  8. !Coding by Fernando De Sales and Zhengxin Liu (2011)
  9. REAL, PARAMETER :: CPAIR = 1004.6 &
  10. ,STEFAN = 5.669 * 10E-9 &
  11. ,GRAV = 9.81 &
  12. ,VKC = 0.4 &
  13. ,PIE = 3.14159265 &
  14. ,TIMCON = PIE/86400. &
  15. ,CLAI = 4.2 * 1000. * 0.2 &
  16. ,CW = 4.2 * 1000. * 1000. &
  17. ,TF = 273.16 &
  18. ,GASR = 287.05 &
  19. ,HLAT = 2.52E6 &
  20. ,SNOMEL = 370518.5 * 1000.
  21. INTEGER, PARAMETER :: ITRUNK = 3
  22. !crr snow
  23. REAL, PARAMETER :: SSISNOW = 0.04 &
  24. ,FLMIN = 0.03 &
  25. ,FLMAX = 0.10 &
  26. ,DZMIN = 0.002 &
  27. ,WOMIN = 0.0004 &
  28. ,CL = 4212.7 &
  29. ,DLM = 3.335d5 &
  30. ,RHOWATER = 1000.0 &
  31. ,DICE = 920.0 &
  32. ,DKSATSNOW= 0.01 &
  33. ,SNODEP_CR= 0.07
  34. INTEGER, PARAMETER :: N = 3 &
  35. ,N1 = 4 &
  36. ,N2 = 4
  37. !crr snow
  38. !ssib vegetation parameters
  39. REAL, DIMENSION (13,2,3,2) :: tran0,ref0
  40. REAL, DIMENSION (13,12,2) :: green0,vcover0,zlt0
  41. REAL, DIMENSION (13,2,3) :: rstpar0
  42. REAL, DIMENSION (13,12) :: z000,d0,z20,z10,rdc0,rbc0
  43. REAL, DIMENSION (13,3) :: depth0,soref0
  44. REAL, DIMENSION (13,2) :: chil0,topt0,tl0,tu0,defac0,ph10,ph20,rootd0
  45. REAL, DIMENSION (13) :: bee0,phsat0,poros0,satco0,slope0
  46. !
  47. data tran0/ &
  48. 0.5000000E-01, 0.5000000E-01, 0.5000000E-01, 0.5000000E-01, &
  49. 0.5000000E-01, 0.5000000E-01, 0.7000000E-01, 0.5000000E-01, &
  50. 0.5000000E-01, 0.5000000E-01, 0.1000000E-02, 0.5000000E-01, &
  51. 0.1000000E-02, &
  52. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  53. 0.1000000E-02, 0.7000000E-01, 0.1000000E-02, 0.7000000E-01, &
  54. 0.1000000E-02, 0.7000000E-01, 0.1000000E-02, 0.7000000E-01, &
  55. 0.1000000E-02, &
  56. 0.2500000E+00, 0.2500000E+00, 0.1500000E+00, 0.1000000E+00, &
  57. 0.1000000E+00, 0.2500000E+00, 0.2475000E+00, 0.2500000E+00, &
  58. 0.2500000E+00, 0.2500000E+00, 0.1000000E-02, 0.2500000E+00, &
  59. 0.1000000E-02, &
  60. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  61. 0.1000000E-02, 0.2475000E+00, 0.1000000E-02, 0.2475000E+00, &
  62. 0.1000000E-02, 0.2475000E+00, 0.1000000E-02, 0.2475000E+00, &
  63. 0.1000000E-02, &
  64. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  65. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  66. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  67. 0.0000000E+00, &
  68. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  69. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  70. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  71. 0.0000000E+00, &
  72. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  73. 0.1000000E-02, 0.1000000E-02, 0.2200000E+00, 0.1000000E-02, &
  74. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  75. 0.1000000E-02, &
  76. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  77. 0.1000000E-02, 0.2200000E+00, 0.1000000E-02, 0.2200000E+00, &
  78. 0.1000000E-02, 0.2200000E+00, 0.1000000E-02, 0.2200000E+00, &
  79. 0.1000000E-02, &
  80. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  81. 0.1000000E-02, 0.1000000E-02, 0.3750000E+00, 0.1000000E-02, &
  82. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  83. 0.1000000E-02, &
  84. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  85. 0.1000000E-02, 0.3750000E+00, 0.1000000E-02, 0.3750000E+00, &
  86. 0.1000000E-02, 0.3750000E+00, 0.1000000E-02, 0.3750000E+00, &
  87. 0.1000000E-02, &
  88. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  89. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  90. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  91. 0.0000000E+00, &
  92. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  93. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  94. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  95. 0.0000000E+00/
  96. data ref0/ &
  97. 0.1000000E+00, 0.1000000E+00, 0.7000000E-01, 0.7000000E-01, &
  98. 0.7000000E-01, 0.1000000E+00, 0.1050000E+00, 0.1000000E+00, &
  99. 0.1000000E+00, 0.1000000E+00, 0.1000000E-02, 0.1000000E+00, &
  100. 0.1000000E-02, &
  101. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  102. 0.1000000E-02, 0.1050000E+00, 0.1000000E-02, 0.1050000E+00, &
  103. 0.1000000E-02, 0.1050000E+00, 0.1000000E-02, 0.1050000E+00, &
  104. 0.1000000E-02, &
  105. 0.4500000E+00, 0.4500000E+00, 0.4000000E+00, 0.3500000E+00, &
  106. 0.3500000E+00, 0.4500000E+00, 0.5775000E+00, 0.4500000E+00, &
  107. 0.4500000E+00, 0.4500000E+00, 0.1000000E-02, 0.4500000E+00, &
  108. 0.1000000E-02, &
  109. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  110. 0.1000000E-02, 0.5775000E+00, 0.1000000E-02, 0.5775000E+00, &
  111. 0.1000000E-02, 0.5775000E+00, 0.1000000E-02, 0.5775000E+00, &
  112. 0.1000000E-02, &
  113. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  114. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  115. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  116. 0.0000000E+00, &
  117. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  118. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  119. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  120. 0.0000000E+00, &
  121. 0.1600000E+00, 0.1600000E+00, 0.1600000E+00, 0.1600000E+00, &
  122. 0.1600000E+00, 0.1600000E+00, 0.3600000E+00, 0.1600000E+00, &
  123. 0.1600000E+00, 0.1600000E+00, 0.1000000E-02, 0.1600000E+00, &
  124. 0.1000000E-02, &
  125. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  126. 0.1000000E-02, 0.3600000E+00, 0.1000000E-02, 0.3600000E+00, &
  127. 0.1000000E-02, 0.3600000E+00, 0.1000000E-02, 0.3600000E+00, &
  128. 0.1000000E-02, &
  129. 0.3900000E+00, 0.3900000E+00, 0.3900000E+00, 0.3900000E+00, &
  130. 0.3900000E+00, 0.3900000E+00, 0.5775000E+00, 0.3900000E+00, &
  131. 0.3900000E+00, 0.3900000E+00, 0.1000000E-02, 0.3900000E+00, &
  132. 0.1000000E-02, &
  133. 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, 0.1000000E-02, &
  134. 0.1000000E-02, 0.5775000E+00, 0.1000000E-02, 0.5775000E+00, &
  135. 0.1000000E-02, 0.5775000E+00, 0.1000000E-02, 0.5775000E+00, &
  136. 0.1000000E-02, &
  137. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  138. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  139. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  140. 0.0000000E+00, &
  141. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  142. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  143. 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, 0.0000000E+00, &
  144. 0.0000000E+00/
  145. data green0/ &
  146. 0.9050000E+00, 0.2564000E-01, 0.8680600E+00, 0.9132400E+00, &
  147. 0.2475200E+00, 0.6319100E+00, 0.5681800E+00, 0.7978700E+00, &
  148. 0.8364300E+00, 0.4512600E+00, 0.1000000E-03, 0.2083300E+00, &
  149. 0.1000000E-03, &
  150. 0.9050000E+00, 0.2564000E-01, 0.8717700E+00, 0.9170300E+00, &
  151. 0.2475200E+00, 0.6566600E+00, 0.6218900E+00, 0.5319100E+00, &
  152. 0.7172100E+00, 0.4512600E+00, 0.1000000E-03, 0.2083300E+00, &
  153. 0.1000000E-03, &
  154. 0.9050000E+00, 0.4153800E+00, 0.8847300E+00, 0.9226600E+00, &
  155. 0.2475200E+00, 0.5176000E+00, 0.6637200E+00, 0.3623200E+00, &
  156. 0.2577300E+00, 0.4512600E+00, 0.1000000E-03, 0.4411800E+00, &
  157. 0.1000000E-03, &
  158. 0.9050000E+00, 0.7594900E+00, 0.9061000E+00, 0.9247000E+00, &
  159. 0.6637200E+00, 0.6527400E+00, 0.6972100E+00, 0.5681800E+00, &
  160. 0.7246400E+00, 0.4512600E+00, 0.1000000E-03, 0.7594900E+00, &
  161. 0.1000000E-03, &
  162. 0.9050000E+00, 0.8875700E+00, 0.9164200E+00, 0.9266400E+00, &
  163. 0.8104700E+00, 0.6527400E+00, 0.8104700E+00, 0.5681800E+00, &
  164. 0.1736100E+00, 0.4512600E+00, 0.1000000E-03, 0.8875700E+00, &
  165. 0.1000000E-03, &
  166. 0.9050000E+00, 0.9252000E+00, 0.9259300E+00, 0.9045800E+00, &
  167. 0.8680600E+00, 0.7246400E+00, 0.9079900E+00, 0.5681800E+00, &
  168. 0.5681800E+00, 0.6218900E+00, 0.1000000E-03, 0.9252000E+00, &
  169. 0.1000000E-03, &
  170. 0.9050000E+00, 0.8364300E+00, 0.9293700E+00, 0.9021600E+00, &
  171. 0.6040900E+00, 0.8712500E+00, 0.8132000E+00, 0.5681800E+00, &
  172. 0.5681800E+00, 0.9200800E+00, 0.1000000E-03, 0.8364300E+00, &
  173. 0.1000000E-03, &
  174. 0.9050000E+00, 0.6967200E+00, 0.8209400E+00, 0.9126500E+00, &
  175. 0.5854000E+00, 0.7966000E+00, 0.3943200E+00, 0.8680600E+00, &
  176. 0.7246400E+00, 0.6970300E+00, 0.1000000E-03, 0.6967200E+00, &
  177. 0.1000000E-03, &
  178. 0.9050000E+00, 0.3306900E+00, 0.7123000E+00, 0.8982800E+00, &
  179. 0.4990000E+00, 0.7654600E+00, 0.4434600E+00, 0.6505600E+00, &
  180. 0.8403400E+00, 0.7567000E-01, 0.1000000E-03, 0.3439200E+00, &
  181. 0.1000000E-03, &
  182. 0.9050000E+00, 0.1656400E+00, 0.6145700E+00, 0.8548200E+00, &
  183. 0.3834400E+00, 0.6146100E+00, 0.5434800E+00, 0.5154600E+00, &
  184. 0.8680600E+00, 0.4512600E+00, 0.1000000E-03, 0.1785700E+00, &
  185. 0.1000000E-03, &
  186. 0.9050000E+00, 0.1538000E-01, 0.8599500E+00, 0.8733600E+00, &
  187. 0.2487600E+00, 0.5086500E+00, 0.5531000E+00, 0.6302500E+00, &
  188. 0.8875700E+00, 0.4512600E+00, 0.1000000E-03, 0.1470600E+00, &
  189. 0.1000000E-03, &
  190. 0.9050000E+00, 0.2564000E-01, 0.8599500E+00, 0.9132400E+00, &
  191. 0.1984100E+00, 0.7898900E+00, 0.4975100E+00, 0.7978700E+00, &
  192. 0.9132400E+00, 0.4512600E+00, 0.1000000E-03, 0.2083300E+00, &
  193. 0.1000000E-03, &
  194. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  195. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  196. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  197. 0.1000000E-03, &
  198. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  199. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  200. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  201. 0.1000000E-03, &
  202. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  203. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  204. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  205. 0.1000000E-03, &
  206. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  207. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  208. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  209. 0.1000000E-03, &
  210. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  211. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  212. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  213. 0.1000000E-03, &
  214. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  215. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  216. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  217. 0.1000000E-03, &
  218. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  219. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  220. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  221. 0.1000000E-03, &
  222. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  223. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  224. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  225. 0.1000000E-03, &
  226. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  227. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  228. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  229. 0.1000000E-03, &
  230. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  231. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  232. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  233. 0.1000000E-03, &
  234. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  235. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  236. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  237. 0.1000000E-03, &
  238. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  239. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  240. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  241. 0.1000000E-03/
  242. data vcover0/ &
  243. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  244. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  245. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  246. 0.1000000E-04, &
  247. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  248. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  249. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  250. 0.1000000E-04, &
  251. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  252. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  253. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  254. 0.1000000E-04, &
  255. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  256. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  257. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  258. 0.1000000E-04, &
  259. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  260. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  261. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  262. 0.1000000E-04, &
  263. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  264. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  265. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  266. 0.1000000E-04, &
  267. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  268. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  269. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  270. 0.1000000E-04, &
  271. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  272. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  273. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  274. 0.1000000E-04, &
  275. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  276. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  277. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  278. 0.1000000E-04, &
  279. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  280. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  281. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  282. 0.1000000E-04, &
  283. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  284. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  285. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  286. 0.1000000E-04, &
  287. 0.9800000E+00, 0.7500000E+00, 0.7500000E+00, 0.7500000E+00, &
  288. 0.5000000E+00, 0.3000000E+00, 0.9000000E+00, 0.1000000E+00, &
  289. 0.1000000E+00, 0.3000000E+00, 0.1000000E-04, 0.7500000E-01, &
  290. 0.1000000E-04, &
  291. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  292. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  293. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  294. 0.1000000E-04, &
  295. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  296. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  297. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  298. 0.1000000E-04, &
  299. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  300. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  301. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  302. 0.1000000E-04, &
  303. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  304. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  305. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  306. 0.1000000E-04, &
  307. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  308. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  309. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  310. 0.1000000E-04, &
  311. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  312. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  313. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  314. 0.1000000E-04, &
  315. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  316. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  317. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  318. 0.1000000E-04, &
  319. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  320. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  321. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  322. 0.1000000E-04, &
  323. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  324. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  325. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  326. 0.1000000E-04, &
  327. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  328. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  329. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  330. 0.1000000E-04, &
  331. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  332. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  333. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  334. 0.1000000E-04, &
  335. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  336. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  337. 0.1000000E-03, 0.1000000E-03, 0.1000000E-04, 0.1000000E-03, &
  338. 0.1000000E-04/
  339. data chil0/ &
  340. 0.1000000E+00, 0.2500000E+00, 0.1300000E+00, 0.1000000E-01, &
  341. 0.1000000E-01, 0.1000000E-01, -0.3000000E+00, 0.1000000E-01, &
  342. 0.1000000E-01, 0.2000000E+00, 0.1000000E-01, -0.2000000E-01, &
  343. 0.1000000E-01, &
  344. 0.1000000E+00, 0.2500000E+00, 0.1300000E+00, 0.1000000E-01, &
  345. 0.1000000E-01, -0.3000000E+00, -0.3000000E+00, -0.3000000E+00, &
  346. 0.1000000E-01, 0.2000000E+00, 0.1000000E-01, -0.2000000E-01, &
  347. 0.1000000E-01/
  348. data rstpar0/ &
  349. 0.2335900E+04, 0.9802230E+04, 0.6335955E+04, 0.2869680E+04, &
  350. 0.2869680E+04, 0.5665121E+05, 0.2582010E+04, 0.9398942E+05, &
  351. 0.9398942E+05, 0.9802230E+04, 0.1000000E+04, 0.7459000E+04, &
  352. 0.1000000E+04, &
  353. 0.2335900E+04, 0.9802230E+04, 0.6335955E+04, 0.2869680E+04, &
  354. 0.2869680E+04, 0.2582010E+04, 0.2582010E+04, 0.2582010E+04, &
  355. 0.1000000E+01, 0.2582010E+04, 0.1000000E+04, 0.7459000E+04, &
  356. 0.1000000E+04, &
  357. 0.1450000E-01, 0.1055000E+02, 0.7120000E+01, 0.3690000E+01, &
  358. 0.3690000E+01, 0.1083000E+02, 0.1090000E+01, 0.1000000E-01, &
  359. 0.1000000E-01, 0.1055000E+02, 0.1000000E+04, 0.5700000E+01, &
  360. 0.1000000E+04, &
  361. 0.1450000E-01, 0.1055000E+02, 0.7120000E+01, 0.3690000E+01, &
  362. 0.3690000E+01, 0.1090000E+01, 0.1090000E+01, 0.1090000E+01, &
  363. 0.1000000E+01, 0.1090000E+01, 0.1000000E+04, 0.5700000E+01, &
  364. 0.1000000E+04, &
  365. 0.1534900E+03, 0.1800000E+03, 0.2065000E+03, 0.2330000E+03, &
  366. 0.2330000E+03, 0.1650000E+03, 0.1100000E+03, 0.8550000E+03, &
  367. 0.8550000E+03, 0.1800000E+03, 0.1000000E+04, 0.2520000E+02, &
  368. 0.1000000E+04, &
  369. 0.1534900E+03, 0.1800000E+03, 0.2065000E+03, 0.2330000E+03, &
  370. 0.2330000E+03, 0.1100000E+03, 0.1100000E+03, 0.1100000E+03, &
  371. 0.1000000E+01, 0.1100000E+03, 0.1000000E+04, 0.2520000E+02, &
  372. 0.1000000E+04/
  373. data topt0/ &
  374. 0.3030000E+03, 0.3000000E+03, 0.2940000E+03, 0.2880000E+03, &
  375. 0.2880000E+03, 0.2970000E+03, 0.3130000E+03, 0.3150000E+03, &
  376. 0.3150000E+03, 0.3000000E+03, 0.3100000E+03, 0.3000000E+03, &
  377. 0.3100000E+03, &
  378. 0.3030000E+03, 0.3000000E+03, 0.2940000E+03, 0.2880000E+03, &
  379. 0.2880000E+03, 0.3120000E+03, 0.3130000E+03, 0.3130000E+03, &
  380. 0.3150000E+03, 0.2890000E+03, 0.3100000E+03, 0.3000000E+03, &
  381. 0.3100000E+03/
  382. data tl0/ &
  383. 0.2730000E+03, 0.2730000E+03, 0.2700000E+03, 0.2680000E+03, &
  384. 0.2680000E+03, 0.2730000E+03, 0.2830000E+03, 0.2830000E+03, &
  385. 0.2830000E+03, 0.2730000E+03, 0.3000000E+03, 0.2730000E+03, &
  386. 0.3000000E+03, &
  387. 0.2730000E+03, 0.2730000E+03, 0.2700000E+03, 0.2680000E+03, &
  388. 0.2680000E+03, 0.2730000E+03, 0.2830000E+03, 0.2830000E+03, &
  389. 0.2830000E+03, 0.2730000E+03, 0.3000000E+03, 0.2730000E+03, &
  390. 0.3000000E+03/
  391. data tu0/ &
  392. 0.3180000E+03, 0.3180000E+03, 0.3150000E+03, 0.3130000E+03, &
  393. 0.3130000E+03, 0.3230000E+03, 0.3280000E+03, 0.3230000E+03, &
  394. 0.3230000E+03, 0.3230000E+03, 0.3200000E+03, 0.3180000E+03, &
  395. 0.3200000E+03, &
  396. 0.3180000E+03, 0.3180000E+03, 0.3150000E+03, 0.3130000E+03, &
  397. 0.3130000E+03, 0.3230000E+03, 0.3280000E+03, 0.3280000E+03, &
  398. 0.3230000E+03, 0.3090000E+03, 0.3200000E+03, 0.3150000E+03, &
  399. 0.3200000E+03/
  400. data defac0/ &
  401. 0.2730000E-01, 0.3570000E-01, 0.3400000E-01, 0.3100000E-01, &
  402. 0.3100000E-01, 0.3570000E-01, 0.2380000E-01, 0.2750000E-01, &
  403. 0.2750000E-01, 0.2750000E-01, 0.0000000E+00, 0.0000000E+00, &
  404. 0.0000000E+00, &
  405. 0.2730000E-01, 0.3570000E-01, 0.3400000E-01, 0.3100000E-01, &
  406. 0.3100000E-01, 0.2380000E-01, 0.2380000E-01, 0.2380000E-01, &
  407. 0.2380000E-01, 0.2380000E-01, 0.0000000E+00, 0.0000000E+00, &
  408. 0.0000000E+00/
  409. data ph10/ &
  410. 0.1200000E+01, 0.5350000E+01, 0.1920000E+01, 0.3700000E+01, &
  411. 0.7800000E+01, 0.1800000E+01, 0.1730000E+01, 0.1920000E+01, &
  412. 0.1390000E+01, 0.9600000E+00, 0.3000000E+01, 0.1800000E+01, &
  413. 0.5000000E+01, &
  414. 0.1200000E+01, 0.5350000E+01, 0.1920000E+01, 0.3700000E+01, &
  415. 0.7800000E+01, 0.1800000E+01, 0.1730000E+01, 0.1920000E+01, &
  416. 0.1390000E+01, 0.9600000E+00, 0.3000000E+01, 0.1800000E+01, &
  417. 0.5000000E+01/
  418. data ph20/ &
  419. 0.6250000E+01, 0.5570000E+01, 0.5730000E+01, 0.5530000E+01, &
  420. 0.5660000E+01, 0.5670000E+01, 0.5800000E+01, 0.5610000E+01, &
  421. 0.6370000E+01, 0.5370000E+01, 0.6000000E+01, 0.5670000E+01, &
  422. 0.6000000E+01, &
  423. 0.6250000E+01, 0.5570000E+01, 0.5730000E+01, 0.5530000E+01, &
  424. 0.5660000E+01, 0.5670000E+01, 0.5800000E+01, 0.5610000E+01, &
  425. 0.6370000E+01, 0.5370000E+01, 0.6000000E+01, 0.5670000E+01, &
  426. 0.6000000E+01/
  427. data zlt0/ &
  428. 0.5014160E+01, 0.3900000E+00, 0.3456000E+01, 0.6570000E+01, &
  429. 0.4040000E+00, 0.1766000E+01, 0.7040000E+00, 0.5780000E+00, &
  430. 0.1076000E+01, 0.3776000E+00, 0.1000000E-03, 0.4800000E-01, &
  431. 0.1000000E-03, &
  432. 0.5014160E+01, 0.3900000E+00, 0.3556000E+01, 0.6870000E+01, &
  433. 0.4040000E+00, 0.1546000E+01, 0.8040000E+00, 0.5780000E+00, &
  434. 0.9760000E+00, 0.3776000E+00, 0.1000000E-03, 0.4800000E-01, &
  435. 0.1000000E-03, &
  436. 0.5014160E+01, 0.6500000E+00, 0.3956000E+01, 0.7370000E+01, &
  437. 0.4040000E+00, 0.1416000E+01, 0.9040000E+00, 0.4480000E+00, &
  438. 0.7760000E+00, 0.3776000E+00, 0.1000000E-03, 0.6800000E-01, &
  439. 0.1000000E-03, &
  440. 0.5014160E+01, 0.1580000E+01, 0.4856000E+01, 0.7570000E+01, &
  441. 0.9040000E+00, 0.1216000E+01, 0.1004000E+01, 0.2880000E+00, &
  442. 0.2760000E+00, 0.3776000E+00, 0.1000000E-03, 0.1580000E+00, &
  443. 0.1000000E-03, &
  444. 0.5014160E+01, 0.3380000E+01, 0.5456000E+01, 0.7770000E+01, &
  445. 0.1604000E+01, 0.1186000E+01, 0.1604000E+01, 0.2580000E+00, &
  446. 0.5760000E+00, 0.3776000E+00, 0.1000000E-03, 0.3380000E+00, &
  447. 0.1000000E-03, &
  448. 0.5014160E+01, 0.5080000E+01, 0.6156000E+01, 0.8070000E+01, &
  449. 0.2304000E+01, 0.1416000E+01, 0.3304000E+01, 0.2580000E+00, &
  450. 0.1760000E+00, 0.5076000E+00, 0.1000000E-03, 0.5080000E+00, &
  451. 0.1000000E-03, &
  452. 0.5014160E+01, 0.5380000E+01, 0.6456000E+01, 0.7870000E+01, &
  453. 0.4304000E+01, 0.2606000E+01, 0.4304000E+01, 0.2580000E+00, &
  454. 0.1760000E+00, 0.1737600E+01, 0.1000000E-03, 0.5380000E+00, &
  455. 0.1000000E-03, &
  456. 0.5014160E+01, 0.4880000E+01, 0.6456000E+01, 0.7670000E+01, &
  457. 0.2904000E+01, 0.5206000E+01, 0.3804000E+01, 0.8080000E+00, &
  458. 0.2760000E+00, 0.1937600E+01, 0.1000000E-03, 0.4880000E+00, &
  459. 0.1000000E-03, &
  460. 0.5014160E+01, 0.3780000E+01, 0.5756000E+01, 0.7570000E+01, &
  461. 0.2004000E+01, 0.4556000E+01, 0.1804000E+01, 0.1508000E+01, &
  462. 0.4760000E+00, 0.1477600E+01, 0.1000000E-03, 0.3780000E+00, &
  463. 0.1000000E-03, &
  464. 0.5014160E+01, 0.1630000E+01, 0.4556000E+01, 0.7370000E+01, &
  465. 0.1304000E+01, 0.3816000E+01, 0.1104000E+01, 0.1148000E+01, &
  466. 0.5760000E+00, 0.3776000E+00, 0.1000000E-03, 0.1680000E+00, &
  467. 0.1000000E-03, &
  468. 0.5014160E+01, 0.6500000E+00, 0.3256000E+01, 0.6870000E+01, &
  469. 0.8040000E+00, 0.2806000E+01, 0.9040000E+00, 0.7480000E+00, &
  470. 0.6760000E+00, 0.3776000E+00, 0.1000000E-03, 0.6800000E-01, &
  471. 0.1000000E-03, &
  472. 0.5014160E+01, 0.3900000E+00, 0.3256000E+01, 0.6570000E+01, &
  473. 0.5040000E+00, 0.1866000E+01, 0.8040000E+00, 0.5780000E+00, &
  474. 0.8760000E+00, 0.3776000E+00, 0.1000000E-03, 0.4800000E-01, &
  475. 0.1000000E-03, &
  476. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  477. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  478. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  479. 0.1000000E-03, &
  480. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  481. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  482. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  483. 0.1000000E-03, &
  484. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  485. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  486. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  487. 0.1000000E-03, &
  488. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  489. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  490. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  491. 0.1000000E-03, &
  492. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  493. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  494. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  495. 0.1000000E-03, &
  496. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  497. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  498. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  499. 0.1000000E-03, &
  500. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  501. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  502. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  503. 0.1000000E-03, &
  504. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  505. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  506. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  507. 0.1000000E-03, &
  508. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  509. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  510. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  511. 0.1000000E-03, &
  512. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  513. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  514. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  515. 0.1000000E-03, &
  516. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  517. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  518. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  519. 0.1000000E-03, &
  520. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  521. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  522. 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, 0.1000000E-03, &
  523. 0.1000000E-03/
  524. data z000/ &
  525. 0.2652970E+01, 0.5201000E+00, 0.5706300E+00, 0.1112210E+01, &
  526. 0.6414000E+00, 0.8427100E+00, 0.7771000E-01, 0.2446700E+00, &
  527. 0.6559000E-01, 0.7524000E-01, 0.1118000E-01, 0.1448500E+00, &
  528. 0.1011000E-01, &
  529. 0.2652970E+01, 0.5201000E+00, 0.5696600E+00, 0.1102780E+01, &
  530. 0.6414000E+00, 0.8087800E+00, 0.7779000E-01, 0.2446700E+00, &
  531. 0.6549000E-01, 0.7524000E-01, 0.1118000E-01, 0.1448500E+00, &
  532. 0.1011000E-01, &
  533. 0.2652970E+01, 0.6664900E+00, 0.5656600E+00, 0.1087660E+01, &
  534. 0.6414000E+00, 0.7875000E+00, 0.7785000E-01, 0.2272100E+00, &
  535. 0.6521000E-01, 0.7524000E-01, 0.1118000E-01, 0.1752100E+00, &
  536. 0.1011000E-01, &
  537. 0.2652970E+01, 0.9105300E+00, 0.5654400E+00, 0.1081830E+01, &
  538. 0.8633500E+00, 0.7284100E+00, 0.7788000E-01, 0.1998800E+00, &
  539. 0.6360000E-01, 0.7524000E-01, 0.1118000E-01, 0.2871900E+00, &
  540. 0.1011000E-01, &
  541. 0.2652970E+01, 0.1031200E+01, 0.5592300E+00, 0.1076120E+01, &
  542. 0.9728300E+00, 0.7284100E+00, 0.7779000E-01, 0.1998800E+00, &
  543. 0.6480000E-01, 0.7524000E-01, 0.1118000E-01, 0.4302000E+00, &
  544. 0.1011000E-01, &
  545. 0.2652970E+01, 0.1043680E+01, 0.5524400E+00, 0.1067790E+01, &
  546. 0.1005600E+01, 0.7875000E+00, 0.7712000E-01, 0.1998800E+00, &
  547. 0.6331000E-01, 0.7575000E-01, 0.1118000E-01, 0.5087600E+00, &
  548. 0.1011000E-01, &
  549. 0.2652970E+01, 0.1041940E+01, 0.5497000E+00, 0.1073310E+01, &
  550. 0.9967700E+00, 0.9266800E+00, 0.7594000E-01, 0.1998800E+00, &
  551. 0.6331000E-01, 0.7767000E-01, 0.1118000E-01, 0.5200300E+00, &
  552. 0.1011000E-01, &
  553. 0.2652970E+01, 0.1037530E+01, 0.5497000E+00, 0.1078960E+01, &
  554. 0.1011190E+01, 0.9715300E+00, 0.7658000E-01, 0.2674000E+00, &
  555. 0.6360000E-01, 0.7782000E-01, 0.1118000E-01, 0.5009500E+00, &
  556. 0.1011000E-01, &
  557. 0.2652970E+01, 0.1036510E+01, 0.5562600E+00, 0.1081830E+01, &
  558. 0.9965000E+00, 0.9658800E+00, 0.7776000E-01, 0.2923300E+00, &
  559. 0.6446000E-01, 0.7745000E-01, 0.1118000E-01, 0.4503800E+00, &
  560. 0.1011000E-01, &
  561. 0.2652970E+01, 0.9170700E+00, 0.5686600E+00, 0.1087660E+01, &
  562. 0.9386100E+00, 0.9555100E+00, 0.7790000E-01, 0.2803400E+00, &
  563. 0.6480000E-01, 0.7524000E-01, 0.1118000E-01, 0.2973700E+00, &
  564. 0.1011000E-01, &
  565. 0.2652970E+01, 0.6664900E+00, 0.5725100E+00, 0.1102780E+01, &
  566. 0.8346400E+00, 0.9204000E+00, 0.7785000E-01, 0.2580600E+00, &
  567. 0.6510000E-01, 0.7524000E-01, 0.1118000E-01, 0.1752100E+00, &
  568. 0.1011000E-01, &
  569. 0.2652970E+01, 0.5201000E+00, 0.5725100E+00, 0.1112210E+01, &
  570. 0.7049800E+00, 0.8427100E+00, 0.7779000E-01, 0.2446700E+00, &
  571. 0.6537000E-01, 0.7524000E-01, 0.1118000E-01, 0.1448500E+00, &
  572. 0.1011000E-01/
  573. data d0/ &
  574. 0.2737261E+02, 0.1366377E+02, 0.1813464E+02, 0.1376361E+02, &
  575. 0.9193320E+01, 0.1390777E+02, 0.2185200E+00, 0.2812600E+01, &
  576. 0.1638000E+00, 0.1062900E+00, 0.6000000E-04, 0.6314240E+01, &
  577. 0.4000000E-04, &
  578. 0.2737261E+02, 0.1366377E+02, 0.1814677E+02, 0.1380041E+02, &
  579. 0.9193320E+01, 0.1376090E+02, 0.2265800E+00, 0.2812600E+01, &
  580. 0.1548100E+00, 0.1062900E+00, 0.6000000E-04, 0.6314240E+01, &
  581. 0.4000000E-04, &
  582. 0.2737261E+02, 0.1461883E+02, 0.1819051E+02, 0.1385740E+02, &
  583. 0.9193320E+01, 0.1367074E+02, 0.2332800E+00, 0.2662290E+01, &
  584. 0.1343400E+00, 0.1062900E+00, 0.6000000E-04, 0.7639520E+01, &
  585. 0.4000000E-04, &
  586. 0.2737261E+02, 0.1569677E+02, 0.1825890E+02, 0.1387880E+02, &
  587. 0.9903400E+01, 0.1344527E+02, 0.2389500E+00, 0.2390910E+01, &
  588. 0.6191000E-01, 0.1062900E+00, 0.6000000E-04, 0.1070958E+02, &
  589. 0.4000000E-04, &
  590. 0.2737261E+02, 0.1632865E+02, 0.1829956E+02, 0.1389946E+02, &
  591. 0.1030010E+02, 0.1344527E+02, 0.2605400E+00, 0.2390910E+01, &
  592. 0.1096800E+00, 0.1062900E+00, 0.6000000E-04, 0.1278272E+02, &
  593. 0.4000000E-04, &
  594. 0.2737261E+02, 0.1662263E+02, 0.1833903E+02, 0.1392915E+02, &
  595. 0.1053455E+02, 0.1367074E+02, 0.2988000E+00, 0.2390910E+01, &
  596. 0.5103000E-01, 0.1229900E+00, 0.6000000E-04, 0.1356813E+02, &
  597. 0.4000000E-04, &
  598. 0.2737261E+02, 0.1666297E+02, 0.1835387E+02, 0.1390953E+02, &
  599. 0.1091967E+02, 0.1425275E+02, 0.3251800E+00, 0.2390910E+01, &
  600. 0.5103000E-01, 0.2152100E+00, 0.6000000E-04, 0.1366182E+02, &
  601. 0.4000000E-04, &
  602. 0.2737261E+02, 0.1660123E+02, 0.1835387E+02, 0.1388922E+02, &
  603. 0.1068047E+02, 0.1459719E+02, 0.3130700E+00, 0.2974600E+01, &
  604. 0.6191000E-01, 0.2289700E+00, 0.6000000E-04, 0.1349985E+02, &
  605. 0.4000000E-04, &
  606. 0.2737261E+02, 0.1641343E+02, 0.1831739E+02, 0.1387880E+02, &
  607. 0.1044517E+02, 0.1452246E+02, 0.2649800E+00, 0.3137710E+01, &
  608. 0.9547000E-01, 0.1996100E+00, 0.6000000E-04, 0.1301951E+02, &
  609. 0.4000000E-04, &
  610. 0.2737261E+02, 0.1572679E+02, 0.1823553E+02, 0.1385740E+02, &
  611. 0.1016423E+02, 0.1443002E+02, 0.2438100E+00, 0.3062460E+01, &
  612. 0.1096800E+00, 0.1062900E+00, 0.6000000E-04, 0.1090759E+02, &
  613. 0.4000000E-04, &
  614. 0.2737261E+02, 0.1461883E+02, 0.1810866E+02, 0.1380041E+02, &
  615. 0.9814290E+01, 0.1422050E+02, 0.2332800E+00, 0.2907360E+01, &
  616. 0.1225000E+00, 0.1062900E+00, 0.6000000E-04, 0.7639520E+01, &
  617. 0.4000000E-04, &
  618. 0.2737261E+02, 0.1366377E+02, 0.1810866E+02, 0.1376361E+02, &
  619. 0.9417390E+01, 0.1390777E+02, 0.2265800E+00, 0.2812600E+01, &
  620. 0.1450200E+00, 0.1062900E+00, 0.6000000E-04, 0.6314240E+01, &
  621. 0.4000000E-04/
  622. data z10/ &
  623. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  624. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  625. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  626. 0.1000000E-03, &
  627. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  628. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  629. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  630. 0.1000000E-03, &
  631. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  632. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  633. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  634. 0.1000000E-03, &
  635. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  636. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  637. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  638. 0.1000000E-03, &
  639. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  640. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  641. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  642. 0.1000000E-03, &
  643. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  644. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  645. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  646. 0.1000000E-03, &
  647. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  648. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  649. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  650. 0.1000000E-03, &
  651. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  652. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  653. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  654. 0.1000000E-03, &
  655. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  656. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  657. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  658. 0.1000000E-03, &
  659. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  660. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  661. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  662. 0.1000000E-03, &
  663. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  664. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  665. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  666. 0.1000000E-03, &
  667. 0.1000000E+01, 0.1150000E+02, 0.1600000E+02, 0.8500000E+01, &
  668. 0.7000000E+01, 0.1000000E+02, 0.1000000E+00, 0.2000000E+01, &
  669. 0.1000000E+00, 0.1000000E+00, 0.1000000E-01, 0.1150000E+02, &
  670. 0.1000000E-03/
  671. data z20/ &
  672. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  673. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  674. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  675. 0.1000000E+00, &
  676. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  677. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  678. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  679. 0.1000000E+00, &
  680. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  681. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  682. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  683. 0.1000000E+00, &
  684. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  685. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  686. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  687. 0.1000000E+00, &
  688. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  689. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  690. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  691. 0.1000000E+00, &
  692. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  693. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  694. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  695. 0.1000000E+00, &
  696. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  697. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  698. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  699. 0.1000000E+00, &
  700. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  701. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  702. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  703. 0.1000000E+00, &
  704. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  705. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  706. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  707. 0.1000000E+00, &
  708. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  709. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  710. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  711. 0.1000000E+00, &
  712. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  713. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  714. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  715. 0.1000000E+00, &
  716. 0.3500000E+02, 0.2000000E+02, 0.2000000E+02, 0.1700000E+02, &
  717. 0.1400000E+02, 0.1800000E+02, 0.6000000E+00, 0.5000000E+01, &
  718. 0.5000000E+00, 0.6000000E+00, 0.1000000E+00, 0.2000000E+02, &
  719. 0.1000000E+00/
  720. data rdc0/ &
  721. 0.2858700E+03, 0.2113200E+03, 0.2985200E+03, 0.5654100E+03, &
  722. 0.1852000E+03, 0.2301300E+03, 0.2443000E+02, 0.1036000E+03, &
  723. 0.2311000E+02, 0.2286000E+02, 0.2376000E+02, 0.1949000E+03, &
  724. 0.2850000E+02, &
  725. 0.2858700E+03, 0.2113200E+03, 0.3013500E+03, 0.5870500E+03, &
  726. 0.1852000E+03, 0.2244200E+03, 0.2463000E+02, 0.1036000E+03, &
  727. 0.2294000E+02, 0.2286000E+02, 0.2376000E+02, 0.1949000E+03, &
  728. 0.2850000E+02, &
  729. 0.2858700E+03, 0.2187800E+03, 0.3124600E+03, 0.6234600E+03, &
  730. 0.1852000E+03, 0.2215700E+03, 0.2480000E+02, 0.1023500E+03, &
  731. 0.2262000E+02, 0.2286000E+02, 0.2376000E+02, 0.1964400E+03, &
  732. 0.2850000E+02, &
  733. 0.2858700E+03, 0.2434000E+03, 0.3312300E+03, 0.6381300E+03, &
  734. 0.2048700E+03, 0.2164100E+03, 0.2496000E+02, 0.1007200E+03, &
  735. 0.2189000E+02, 0.2286000E+02, 0.2376000E+02, 0.2014400E+03, &
  736. 0.2850000E+02, &
  737. 0.2858700E+03, 0.2948700E+03, 0.3458300E+03, 0.6528600E+03, &
  738. 0.2330100E+03, 0.2164100E+03, 0.2572000E+02, 0.1007200E+03, &
  739. 0.2230000E+02, 0.2286000E+02, 0.2376000E+02, 0.2071300E+03, &
  740. 0.2850000E+02, &
  741. 0.2858700E+03, 0.3459000E+03, 0.3619400E+03, 0.6750500E+03, &
  742. 0.2620800E+03, 0.2215700E+03, 0.2774000E+02, 0.1007200E+03, &
  743. 0.2182000E+02, 0.2301000E+02, 0.2376000E+02, 0.2107900E+03, &
  744. 0.2850000E+02, &
  745. 0.2858700E+03, 0.3551800E+03, 0.3685400E+03, 0.6602400E+03, &
  746. 0.3443100E+03, 0.2500700E+03, 0.3006000E+02, 0.1007200E+03, &
  747. 0.2182000E+02, 0.2436000E+02, 0.2376000E+02, 0.2113100E+03, &
  748. 0.2850000E+02, &
  749. 0.2858700E+03, 0.3418400E+03, 0.3685400E+03, 0.6454900E+03, &
  750. 0.2870900E+03, 0.2885700E+03, 0.2886000E+02, 0.1053000E+03, &
  751. 0.2189000E+02, 0.2469000E+02, 0.2376000E+02, 0.2104200E+03, &
  752. 0.2850000E+02, &
  753. 0.2858700E+03, 0.3072200E+03, 0.3528500E+03, 0.6381300E+03, &
  754. 0.2495800E+03, 0.2780300E+03, 0.2590000E+02, 0.1079400E+03, &
  755. 0.2216000E+02, 0.2404000E+02, 0.2376000E+02, 0.2081500E+03, &
  756. 0.2850000E+02, &
  757. 0.2858700E+03, 0.2448400E+03, 0.3236500E+03, 0.6231300E+03, &

Large files files are truncated, but you can click here to view the full file