PageRenderTime 85ms CodeModel.GetById 34ms RepoModel.GetById 0ms app.codeStats 0ms

/wrfv2_fire/external/io_phdf5/INSTALL.htm

https://github.com/jbeezley/wrf-fire
HTML | 1207 lines | 1134 code | 73 blank | 0 comment | 0 complexity | 30b741d1c257640059eafdd8778d7bcb MD5 | raw file
Possible License(s): AGPL-1.0 
    

  1. <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head>
    2. 

  2. <meta http-equiv="Content-Language" content="en-us">
    3. 

  3. <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
    4. 

  4. <meta name="ProgId" content="FrontPage.Editor.Document">
    5. 

  5. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><title>To integrate HDF5</title></head><body><big><big><b>Build and Install the HDF5-WRF IO Module</b></big></big><br>
    6. 

  6. <br>
    7. 

  7. There are two HDF5 WRF IO modules, <i>sequential</i> and <i>parallel.</i>  The either or both modules can be configured as optional IO modules for WRF.<br>
    8. 

  8. <br>
    9. 

  9. The sequential HDF module (<i>io_hdf5</i>) uses the serial HDF5 library.  The parallel
    10. 

  10. HDF module (<i>io_phdf5</i>) uses parallel HDF5 (which requires MPI-IO).<br>
    11. 

  11. <br>
    12. 

  12. The installation for the two modules is similar.<br>
    13. 

  13. <br>
    14. 

  14. <big><b>Prerequisites</b></big><br>
    15. 

  15. <br>
    16. 

  16. <b>WRF 1.3</b><br>
    17. 

  17. <br>
    18. 

  18. The HDF5 WRF IO modules require Version 1.3 of WRF.  Information and downloads are available at:<br>
    19. 

  19.  
    20. 

  20. <blockquote><a href="http://www.mmm.ucar.edu/wrf/users/user_main.html">http://www.mmm.ucar.edu/wrf/users/user_main.html</a><br>
    21. 

  21. </blockquote>
    22. 

  22. <br>
    23. 

  23. <b>HDF5-1.6 .2 or later</b><br>
    24. 

  24. <br>
    25. 

  25. The HDF5 WRF IO modules require HDF5-1.6.2 or more recent. The parallel HDF5
    26. 

  26. WRF module requires parallel HDF5 (which requires MPI IO). <br>
    27. 

  27. <br>
    28. 

  28. Installing HDF5<br>
    29. 

  29. <blockquote>
    30. 

  30.   </blockquote>
    31. 

  31. <ol>
    32. 

  32.   <li>To obtain 
    33. 

  33.   HDF5, download from to <a href="http://hdf.ncsa.uiuc.edu/HDF5/release/obtain5.html">
    34. 

  34.   http://hdf.ncsa.uiuc.edu/HDF5/release/obtain5.html</a>. Install HDF5 according to the instructions. The HDF5 library must have he Fortran 90 interface installed. <br><br>
    35. 

  35.  For the sequential WRF module,  SZIP compression can be enabled.  </li>
    36. 

  36.   <li>
    37. 

  37. For the parallel WRF module, parallel HDF5 must be installed (this requires MPI-IO). <br>
    38. 

  38. Set the environment variable PHDF5 = &lt;&lt;path where phdf5 is installed&gt;&gt;.
    39. 

  39.   
    40. 

  40.    </li>
    41. 

  41. 

  42.   <li>For the sequential HDF WRF IO module, either serial or parallel HDF must be installed.<br>
    43. 

  43. The HDF library may be installed with the optional SZIP compression enabled. <br>
    44. 

  44. Set the environment variable HDF5 = &lt;&lt;path where hdf5 is installed&gt;&gt;.
    45. 

  45.   
    46. 

  46.   <br>
    47. 

  47.   </li>
    48. 

  48. </ol>
    49. 

  49. <br>
    50. 

  50. <big><b>Platforms</b></big><br>
    51. 

  51. <p><small><small><font size="5"><small><small>This prototype has been tested
    52. 

  52. on a few platforms. The HDF WRF IO modules should work on any platform that
    53. 

  53. WRF3.1 and HDF5 support, although the details of the configuration may need
    54. 

  54. to be worked out.<br>
    55. 

  55. </small></small></font></small></small></p>
    56. 

  56. <table cellpadding="2" cellspacing="2" border="1" width="100%">
    57. 

  57.   <tbody>
    58. 

  58.     <tr>
    59. 

  59.       <td valign="top"><b>Module<br>
    60. 

  60.       </b></td>
    61. 

  61.       <td valign="top"><b>Platforms<br>
    62. 

  62.       </b></td>
    63. 

  63.       <td valign="top"><b>Notes<br>
    64. 

  64.       </b></td>
    65. 

  65.     </tr>
    66. 

  66.     <tr>
    67. 

  67.       <td valign="top">Sequential <br>
    68. 

  68.       </td>
    69. 

  69.       <td valign="top"><small><small><font size="5"><small><small> 
    70. 

  70. NCSA IBM P690</small></small></font></small></small>.<br>
    71. 

  71.       <small><small><font size="5"><small><small> NCAR IBM SP3 </small></small></font></small></small><br>
    72. 

  72.       <small><small><font size="5"><small><small>PC Linux </small></small></font></small></small>with PGI Fortran 90 Compiler, Vers. 4<br>
    73. 

  73.       <small><small><font size="5"><small><small>SGI IRIX6.5-64 bi</small></small></font></small></small>t<br>
    74. 

  74.       </td>
    75. 

  75.       <td valign="top">To date, WRF3.1 does not work on Linux with PGF, version 5.<br>
    76. 

  76.       </td>
    77. 

  77.     </tr>
    78. 

  78.     <tr>
    79. 

  79.       <td valign="top">Parallel<br>
    80. 

  80.       </td>
    81. 

  81.       <td valign="top"><small><small><font size="5"><small><small> 
    82. 

  82. NCSA IBM P690</small></small></font></small></small>.<br>
    83. 

  83. 

  84.       <small><small><font size="5"><small><small> NCAR IBM SP3 </small></small></font></small></small><br>
    85. 

  85.       </td>
    86. 

  86.       <td valign="top"><br>
    87. 

  87.       </td>
    88. 

  88.     </tr>
    89. 

  89.   </tbody>
    90. 

  90. </table>
    91. 

  91. <br>
    92. 

  92. <br>
    93. 

  93. <big><b>Installation of the HDF5 WRF IO Modules</b></big><br>
    94. 

  94. <br>
    95. 

  95. The HDF5 WRF IO modules are used by adding it to a standard WRF configuration.  This process has four main steps<br>
    96. 

  96. <ol>
    97. 

  97.   <li>Downoad the HDF WRF IO module(s)</li><li>Add the HDF5 WRF IO module(s) as an "extern" module</li>
    98. 

  98. 

  99.   <li>Modifying relevant files in the WRF distribution</li>
    100. 

  100.   <li>Compile WRF following the usual procedures<br>
    101. 

  101.   </li>
    102. 

  102. 

  103. </ol>
    104. 

  104. The parallel, sequential, or both may be configured.<br>
    105. 

  105. <br>
    106. 

  106. <b>1. Download the WRD-HDF5 IO modules</b><br>
    107. 

  107. <br>
    108. 

  108. The HDF WRF IO modules are available from:<br>
    109. 

  109. <ul>
    110. 

  110.   <li>sequential: <a href="ftp://ftp.ncsa.uiuc.edu/HDF/pub/outgoing/wrf-hdf5-modules/io_hdf5.tar">
    111. 

  111.     ftp://ftp.ncsa.uiuc.edu/HDF/pub/outgoing/wrf-hdf5-modules/io_hdf5.tar</a></li>
    112. 

  112.   <li>parallel: 
    113. 

  113.     <a href="ftp://ftp.ncsa.uiuc.edu/HDF/pub/outgoing/wrf-hdf5-modules/io_phdf5.tar">
    114. 

  114.     ftp://ftp.ncsa.uiuc.edu/HDF/pub/outgoing/wrf-hdf5-modules/io_phdf5.tar</a><br>
    115. 

  115.   </li>
    116. 

  116. </ul>
    117. 

  117. <blockquote><p></p>
    118. 

  118. </blockquote>
    119. 

  119. <p><b><small>
    120. 

  120.     <font size="4"><small>2. Add WRF-HDF5 IO module(s) to the WRF source</small></font></small></b></p>
    121. 

  121. 

  122.     
    123. 

  123. <p>
    124. 

  124.     The HDF5 WRF IO modules are added as sub-directories in the 'external' directory of the WRF source.<br>
    125. 

  125. </p>
    126. 

  126. <blockquote><blockquote>
    127. 

  127.     
    128. 

  128.     
    129. 

  129.     <p> cd external;<br>
    130. 

  130. tar xvf io_hdf5.tar<br>
    131. 

  131. tar xvf io_phdf5.tar<br>
    132. 

  132.     </p>
    133. 

  133. </blockquote></blockquote>
    134. 

  134. 

  135. <p>
    136. 

  136.   </p>
    137. 

  137. 

  138. <table cellpadding="2" cellspacing="2" border="1" width="90%" align="center">
    139. 

  139. 

  140. 

  141.     <tbody>
    142. 

  142.       <tr>
    143. 

  143.         <td valign="top">contents of the sequential HDF WRF IO module:<br>
    144. 

  144.       <br>
    145. 

  145.   ./io_hdf5<br>  ./io_hdf5/wrf-hdf5.F90<br>  ./io_hdf5/wrf_status_codes.h<br>  ./io_hdf5/Makefile<br>  ./io_hdf5/wrf-hdf5attr.F90<br>  ./io_hdf5/wrf-hdf5support.F90<br>  ./io_hdf5/wrf_io_flags.h<br>
    146. 

  146.         </td>
    147. 

  147.       </tr>
    148. 

  148.     </tbody>
    149. 

  149.   
    150. 

  150. </table>
    151. 

  151. 

  152. 

  153. <br>
    154. 

  154. 

  155. <br>
    156. 

  156. 

  157. 

  158.   
    159. 

  159. <table cellpadding="2" cellspacing="2" border="1" width="90%" align="center">
    160. 

  160. 

  161. 

  162.     <tbody>
    163. 

  163.       <tr>
    164. 

  164.         <td valign="top">contents of the sequential HDF WRF IO module:<br>
    165. 

  165.       <br>
    166. 

  166.   ./io_phdf5/<br>  ./io_phdf5/Makefile<br>  ./io_phdf5/wrf_status_codes.h<br>  ./io_phdf5/wrf-phdf5attr.F90<br>  ./io_phdf5/wrf-phdf5support.F90<br>  ./io_phdf5/wrf_io_flags.h<br>  ./io_phdf5/wrf-phdf5.F90<br>
    167. 

  167.         </td>
    168. 

  168.       </tr>
    169. 

  169.     </tbody>
    170. 

  170.   
    171. 

  171. </table>
    172. 

  172. 

  173. 

  174. <br>
    175. 

  175. 

  176. 

  177. <p><b><small><small><font size="5"><small><small>Design note:</small></small></font></small></small></b></p>
    178. 

  178. 

  179. <p><small><small><font size="5"><small><small>In the sequential HDF5 WRF
    180. 

  180. IO modules, arrays larger thatn 8096 bytes are compressed by default. In
    181. 

  181. this case, the HDF5 dataset is configured to use the shuffle filter plus deflate
    182. 

  182. (GZIP) compression, with compression level 6.  <br>
    183. 

  183. </small></small></font></small></small></p>
    184. 

  184. 

  185. 

  186. <p><small><small><font size="5"><small><small>In the current prototype, there is no option in the namelist for 
    187. 

  187. users to change this default. To modify this behavior, it is necessary to modify the source code.</small></small></font><br>
    188. 

  188. <font size="5"><small><small><br>
    189. 

  189. <i>To disable compression:</i></small></small></font></small></small></p>
    190. 

  190. 

  191. 

  192. 

  193. <blockquote>
    194. 

  194.   <p><small><font size="5"><small><small>Edit</small></small></font><font size="4"><small> the file '</small></font></small><small><font size="4"><small>wrf/external/io_hdf5/</small></font></small><small><font size="4"><small>wrf-hdf5.F90</small></font></small><small><font size="4"><small>'<br>
    195. 

  195. </small></font></small></p>
    196. 

  196.   <p><small><font size="4"><small>Comment out the lines: </small></font></small></p>
    197. 

  197.   <p><small><font face="Arial" size="4"><small>            
    198. 

  198. call h5pset_shuffle_f(crp_list,hdf5err) </small></font></small></p>
    199. 

  199.   <p><small><font size="4"><small>                
    200. 

  200. and </small></font></small></p>
    201. 

  201.   <p><small><font size="4" face="Arial"><small>            
    202. 

  202. call h5pset_deflate_f(crp_list,6,hdf5err) </small></font></small></p>
    203. 

  203. </blockquote>
    204. 

  204. 

  205. 

  206. 

  207. 

  208. 

  209. 

  210. 

  211. 

  212. 

  213. <p><i><small><small><font size="5"><small><small>To use  SZIP compression instead:</small></small></font></small></small></i></p>
    214. 

  214. 

  215. 

  216. <blockquote>
    217. 

  217.   <p><small><font size="4"><small>For SZIP information and downloads, see the szip at 
    218. 

  218. <a href="http://hdf.ncsa.uiuc.edu/doc_resource/SZIP/">
    219. 

  219. http://hdf.ncsa.uiuc.edu/doc_resource/SZIP/</a>.<br>
    220. 

  220. </small></font></small></p>
    221. 

  221.   <p><small><font size="4"><small>Edit the file 'wrf/external/io_hdf5/</small></font></small><small><font size="4"><small>wrf-hdf5.F90'.</small></font></small></p>
    222. 

  222.   <p><small><font size="4"><small>Comment out the lines: </small></font></small></p>
    223. 

  223.   <p><small><font face="Arial" size="4"><small>            
    224. 

  224. call h5pset_shuffle_f(crp_list,hdf5err) </small></font></small></p>
    225. 

  225.   <p><small><font size="4"><small>                
    226. 

  226. and </small></font></small></p>
    227. 

  227.   <p><small><font size="4" face="Arial"><small>            
    228. 

  228. call h5pset_deflate_f(crp_list,6,hdf5err) </small></font></small></p>
    229. 

  229.   <p><small><font size="4"><small>Uncomment the line:
    230. 

  230. </small></font></small></p>
    231. 

  231.   <p><small><font size="4"><small>             
    232. 

  232. <font face="Arial">call 
    233. 

  233. h5pset_szip_f(crp_list,H5_SZIP_AK13_OM_F+H5_SZIP_NN_OM_F,8,hdf5err)</font><br>
    234. 

  234. </small></font></small></p>
    235. 

  235.   <p><small><font size="4"><small>Change the value 
    236. 

  236. of the parameters in the function <i>h5pset_szip_f</i> if necessary.</small></font></small>  See the SZIP documentation for more information about the parameters.<br>
    237. 

  237.   </p>
    238. 

  238. </blockquote>
    239. 

  239. 

  240. 

  241. 

  242. 

  243. 

  244. 

  245. 

  246. 

  247. 

  248. 

  249. 

  250. 

  251. 

  252. 

  253. 

  254. 

  255. 

  256. <p><br>
    257. 

  257. </p>
    258. 

  258. <p><font size="4"><b><small>3. Modifications to WRF files</small></b><br>
    259. 

  259. </font></p>
    260. 

  260. 

  261. <p><font size="4"><small>In order to add a new IO module to WRF,  several
    262. 

  262. files in the WRF source code must be changed. The following files need to be
    263. 

  263. modified:<br>
    264. 

  264. </small></font></p>
    265. 

  265. <table cellpadding="2" cellspacing="2" border="1" width="50%" align="center">
    266. 

  266.   <tbody>
    267. 

  267.     <tr>
    268. 

  268.       <td valign="top">WRFV1/configure<br>
    269. 

  269. WRFV1/Registry/Registry<br>
    270. 

  270. WRFV1/arch/Config.pl<br>
    271. 

  271. WRFV1/arch/configure.defaults<br>
    272. 

  272. WRFV1/frame/md_calls.m4<br>
    273. 

  273. WRFV1/frame/module_io.F<br>
    274. 

  274. WRFV1/share/module_io_wrf.F<br>
    275. 

  275. WRFV1/external/Makefile<br>
    276. 

  276.       </td>
    277. 

  277.     </tr>
    278. 

  278.   </tbody>
    279. 

  279. </table>
    280. 

  280. <br>
    281. 

  281. The exact changes depend on how WRF has been configured on the sytsem.  <br>
    282. 

  282. <p>Examples of the changes to the files of the WRF1.3 distribution are available at:<br>
    283. 

  283. </p>
    284. 

  284. <p> 
    285. 

  285.     
    286. 

  286.     <a href="ftp://ftp.ncsa.uiuc.edu/HDF/pub/outgoing/wrf-hdf5-modules">
    287. 

  287.     ftp://ftp.ncsa.uiuc.edu/HDF/pub/outgoing/wrf-hdf5-modules</a><br>
    288. 

  288. </p>
    289. 

  289. 

  290. <blockquote>
    291. 

  291.   </blockquote>
    292. 

  292. <p><i><b>WRF configuration files<br>
    293. 

  293. </b></i>
    294. 

  294. </p>
    295. 

  295. <p>The 'configure' file must be updated to add the HDF5 and PHDF5 variables.<br>
    296. 

  296. </p>
    297. 

  297. <table cellpadding="2" cellspacing="2" border="1" align="center" width="90%">
    298. 

  298.   <tbody>
    299. 

  299.     <tr>
    300. 

  300.       <td valign="top">*** ../WRFV1/configure	Thu Feb  6 13:10:56 2003<br>
    301. 

  301. --- ./WRFV1-with-hdf/configure	Thu May 13 12:18:40 2004<br>
    302. 

  302. ***************<br>
    303. 

  303. *** 206,211 ****<br>
    304. 

  304. --- 206,223 ----<br>
    305. 

  305.     echo "Will configure for use without NetCDF"<br>
    306. 

  306.   fi<br>
    307. 

  307.   <br>
    308. 

  308. + if [ -n "$HDF5" ] ; then<br>
    309. 

  309. +   echo "Will use HDF5 in dir: $HDF5"<br>
    310. 

  310. + else<br>
    311. 

  311. +   echo "Will configure for use without HDF5"<br>
    312. 

  312. + fi<br>
    313. 

  313. + <br>
    314. 

  314. + if [ -n "$PHDF5" ] ; then<br>
    315. 

  315. +   echo "Will use PHDF5 in dir: $PHDF5"<br>
    316. 

  316. + else<br>
    317. 

  317. +   echo "Will configure for use without PHDF5"<br>
    318. 

  318. + fi<br>
    319. 

  319. + <br>
    320. 

  320.   # if the uname command exists, give it a shot and see if<br>
    321. 

  321.   # we can narrow the choices; otherwise, spam 'em<br>
    322. 

  322.   os="ARCH"<br>
    323. 

  323. ***************<br>
    324. 

  324. *** 227,232 ****<br>
    325. 

  325.   <br>
    326. 

  326.   # Found perl, so proceed with configuration<br>
    327. 

  327.   if test -n "$PERL" ; then<br>
    328. 

  328. !   $PERL arch/Config.pl -perl=$PERL -netcdf=$NETCDF -os=$os -mach=$mach<br>
    329. 

  329.   fi<br>
    330. 

  330.   <br>
    331. 

  331. --- 239,244 ----<br>
    332. 

  332.   <br>
    333. 

  333.   # Found perl, so proceed with configuration<br>
    334. 

  334.   if test -n "$PERL" ; then<br>
    335. 

  335. !   $PERL arch/Config.pl -perl=$PERL -netcdf=$NETCDF -hdf5=$HDF5 -phdf5=$PHDF5 -os=$os -mach=$mach<br>
    336. 

  336.   fi<br>
    337. 

  337.   <br>
    338. 

  338.       </td>
    339. 

  339.     </tr>
    340. 

  340.   </tbody>
    341. 

  341. </table>
    342. 

  342. <p>The file 'Registry/Registry' must be updated to add the HDF IO modules (<i>io_hdf5</i> and <i>io_phdf5</i>).<br>
    343. 

  343. </p>
    344. 

  344. <table cellpadding="2" cellspacing="2" border="1" width="90%" align="center">
    345. 

  345.   <tbody>
    346. 

  346.     <tr>
    347. 

  347.       <td valign="top">*** ../WRFV1/Registry/Registry	Wed Feb 12 09:28:28 2003<br>
    348. 

  348. --- ./WRFV1-with-hdf/Registry/Registry	Thu May 13 12:18:39 2004<br>
    349. 

  349. ***************<br>
    350. 

  350. *** 738,745 ****<br>
    351. 

  351.   # Four placeholders for additional packages (we can go beyond zzz <br>
    352. 

  352.   # but that will entail modifying frame/module_io.F and frame/md_calls.m4)<br>
    353. 

  353.   # Please note these are placeholders; HDF has not been implemented yet.<br>
    354. 

  354. ! package   io_hdf      io_form_restart==3                     -             -<br>
    355. 

  355. ! package   io_xxx      io_form_restart==4                     -             -<br>
    356. 

  356.   package   io_yyy      io_form_restart==5                     -             -<br>
    357. 

  357.   package   io_zzz      io_form_restart==6                     -             -<br>
    358. 

  358.                                                   <br>
    359. 

  359. --- 738,745 ----<br>
    360. 

  360.   # Four placeholders for additional packages (we can go beyond zzz <br>
    361. 

  361.   # but that will entail modifying frame/module_io.F and frame/md_calls.m4)<br>
    362. 

  362.   # Please note these are placeholders; HDF has not been implemented yet.<br>
    363. 

  363. ! package   io_hdf5     io_form_restart==3                     -             -<br>
    364. 

  364. ! package   io_phdf5    io_form_restart==4                     -             -<br>
    365. 

  365.   package   io_yyy      io_form_restart==5                     -             -<br>
    366. 

  366.   package   io_zzz      io_form_restart==6                     -             -<br>
    367. 

  367.                                                  <br>
    368. 

  368.       </td>
    369. 

  369.     </tr>
    370. 

  370.   </tbody>
    371. 

  371. </table>
    372. 

  372. <p>The file 'arch/Config.pl' needs to be changed to add the code to use the HDF5 and PHDF5 variables.<br>
    373. 

  373. </p>
    374. 

  374. <table cellpadding="2" cellspacing="2" border="1" width="90%" align="center">
    375. 

  375.   <tbody>
    376. 

  376.     <tr>
    377. 

  377.       <td valign="top">*** ../WRFV1/arch/Config.pl	Fri Mar 16 12:06:46 2001<br>
    378. 

  378. --- ./WRFV1-with-hdf/arch/Config.pl	Thu May 13 12:18:37 2004<br>
    379. 

  379. ***************<br>
    380. 

  380. *** 7,12 ****<br>
    381. 

  381. --- 7,14 ----<br>
    382. 

  382.   <br>
    383. 

  383.   $sw_perl_path = perl ;<br>
    384. 

  384.   $sw_netcdf_path = "" ;<br>
    385. 

  385. + $sw_hdf5_path ="";<br>
    386. 

  386. + $sw_phdf5_path=""; <br>
    387. 

  387.   $sw_os = "ARCH" ;           # ARCH will match any<br>
    388. 

  388.   $sw_mach = "ARCH" ;         # ARCH will match any<br>
    389. 

  389.   <br>
    390. 

  390. ***************<br>
    391. 

  391. *** 20,25 ****<br>
    392. 

  392. --- 22,35 ----<br>
    393. 

  393.     {<br>
    394. 

  394.       $sw_netcdf_path = substr( $ARGV[0], 8 ) ;<br>
    395. 

  395.     }<br>
    396. 

  396. +   if ( substr( $ARGV[0], 1, 5 ) eq "hdf5=" )<br>
    397. 

  397. +   {<br>
    398. 

  398. +     $sw_hdf5_path = substr( $ARGV[0], 6 ) ;<br>
    399. 

  399. +   }<br>
    400. 

  400. +   if ( substr( $ARGV[0], 1, 6 ) eq "phdf5=" )<br>
    401. 

  401. +   {<br>
    402. 

  402. +     $sw_phdf5_path = substr( $ARGV[0], 7 ) ;<br>
    403. 

  403. +   }<br>
    404. 

  404.     if ( substr( $ARGV[0], 1, 3 ) eq "os=" )<br>
    405. 

  405.     {<br>
    406. 

  406.       $sw_os = substr( $ARGV[0], 4 ) ;<br>
    407. 

  407. ***************<br>
    408. 

  408. *** 89,94 ****<br>
    409. 

  409. --- 99,106 ----<br>
    410. 

  410.     {<br>
    411. 

  411.       $_ =~ s/CONFIGURE_PERL_PATH/$sw_perl_path/g ;<br>
    412. 

  412.       $_ =~ s/CONFIGURE_NETCDF_PATH/$sw_netcdf_path/g ;<br>
    413. 

  413. +     $_ =~ s/CONFIGURE_HDF5_PATH/$sw_hdf5_path/g ;<br>
    414. 

  414. +     $_ =~ s/CONFIGURE_PHDF5_PATH/$sw_phdf5_path/g ;<br>
    415. 

  415.       if ( $sw_netcdf_path ) <br>
    416. 

  416.         { $_ =~ s/CONFIGURE_WRFIO_NF/wrfio_nf/g ;<br>
    417. 

  417.   	$_ =~ s:CONFIGURE_NETCDF_FLAG:-DNETCDF: ;<br>
    418. 

  418. ***************<br>
    419. 

  419. *** 99,104 ****<br>
    420. 

  420. --- 111,140 ----<br>
    421. 

  421.   	$_ =~ s:CONFIGURE_NETCDF_FLAG::g ;<br>
    422. 

  422.   	$_ =~ s:CONFIGURE_NETCDF_LIB_PATH::g ;<br>
    423. 

  423.   	 }<br>
    424. 

  424. + <br>
    425. 

  425. +     if ( $sw_hdf5_path ) <br>
    426. 

  426. + <br>
    427. 

  427. +       { $_ =~ s/CONFIGURE_WRFIO_HDF5/wrfio_hdf5/g ;<br>
    428. 

  428. + 	$_ =~ s:CONFIGURE_HDF5_FLAG:-DHDF5: ;<br>
    429. 

  429. + 	$_ =~ s:CONFIGURE_HDF5_LIB_PATH:-L../external/io_hdf5 -lwrfio_hdf5 -L$sw_hdf5_path/lib
    430. 

  430. -lhdf5_fortran -lhdf5 -lm -lz -L$sw_hdf5_path/lib -lsz: ;<br>
    431. 

  431. + 	 }<br>
    432. 

  432. +     else                   <br>
    433. 

  433. +       { $_ =~ s/CONFIGURE_WRFIO_HDF5//g ;<br>
    434. 

  434. + 	$_ =~ s:CONFIGURE_HDF5_FLAG::g ;<br>
    435. 

  435. + 	$_ =~ s:CONFIGURE_HDF5_LIB_PATH::g ;<br>
    436. 

  436. + 	 }<br>
    437. 

  437. + <br>
    438. 

  438. +     if ( $sw_phdf5_path ) <br>
    439. 

  439. + <br>
    440. 

  440. +       { $_ =~ s/CONFIGURE_WRFIO_PHDF5/wrfio_phdf5/g ;<br>
    441. 

  441. + 	$_ =~ s:CONFIGURE_PHDF5_FLAG:-DPHDF5: ;<br>
    442. 

  442. + 	$_ =~ s:CONFIGURE_PHDF5_LIB_PATH:-L../external/io_phdf5 -lwrfio_phdf5 -L$sw_phdf5_path/lib -lhdf5_fortran -lhdf5 -lm -lz: ;<br>
    443. 

  443. + 	 }<br>
    444. 

  444. +     else                   <br>
    445. 

  445. +       { $_ =~ s/CONFIGURE_WRFIO_PHDF5//g ;<br>
    446. 

  446. + 	$_ =~ s:CONFIGURE_PHDF5_FLAG::g ;<br>
    447. 

  447. + 	$_ =~ s:CONFIGURE_PHDF5_LIB_PATH::g ;<br>
    448. 

  448. + 	 }<br>
    449. 

  449.       @machopts = ( @machopts, $_ ) ;<br>
    450. 

  450.     }<br>
    451. 

  451.     if ( substr( $_, 0, 5 ) eq "#ARCH" &amp;&amp; $latchon == 0 )<br>
    452. 

  452.       <br>
    453. 

  453.       </td>
    454. 

  454.     </tr>
    455. 

  455.   </tbody>
    456. 

  456. </table>
    457. 

  457. <p>The file 'arch/configure.defauts' must be edited to reflect the configuration of the current system.<br>
    458. 

  458. </p>
    459. 

  459. <table cellpadding="2" cellspacing="2" border="1" width="90%" align="center">
    460. 

  460.   <tbody>
    461. 

  461.     <tr>
    462. 

  462.       <td valign="top">*** ../WRFV1/arch/configure.defaults	Fri Mar 28 14:08:48 2003<br>
    463. 

  463. --- ./WRFV1-with-hdf/arch/configure.defaults	Thu May 13 12:18:40 2004<br>
    464. 

  464. ***************<br>
    465. 

  465. *** 732,758 ****<br>
    466. 

  466.   <br>
    467. 

  467.   <br>
    468. 

  468.   ###########################################################<br>
    469. 

  469. ! #ARCH	AIX DM          (RSL-IO, IBM-MPI)<br>
    470. 

  470.   #<br>
    471. 

  471.   DMPARALLEL      =       1<br>
    472. 

  472. ! SFC             =       xlf90_r<br>
    473. 

  473.   SCC             =       xlc_r<br>
    474. 

  474. ! FC              =       mpxlf90_r<br>
    475. 

  475.   CC              =       mpcc_r<br>
    476. 

  476.   CFLAGS          =       -DNOUNDERSCORE -DWRF_RSL_IO  -I../external/RSL/RSL -DDM_PARALLEL  \<br>
    477. 

  477.                           -DMAXDOM_MAKE=$(MAX_DOMAINS) -DMAXPROC_MAKE=$(MAX_PROC)<br>
    478. 

  478. ! FCOPTIM         =       -O2 -qarch=auto -qmaxmem=32676<br>
    479. 

  479.   FCDEBUG         =       # -g -qfullpath<br>
    480. 

  480.   FCBASEOPTS      =       -qspill=20000 $(FCDEBUG)<br>
    481. 

  481.   FCFLAGS         =       $(FCOPTIM) $(FCBASEOPTS)<br>
    482. 

  482. ! INCLUDE_MODULES =       -I../external/io_netcdf -I../external/io_int  \<br>
    483. 

  483.                           -I../frame -I../share -I../phys -I../inc<br>
    484. 

  484.   EXTRAMODULES    =       <br>
    485. 

  485.   ARCHFLAGS       =       -DWRF_RSL_IO -DRSL -DDM_PARALLEL -DIWORDSIZE=4 -DRWORDSIZE=4 \<br>
    486. 

  486. !                         -DLWORDSIZE=4 CONFIGURE_NETCDF_FLAG -DTRIEDNTRUE -DONLY_WRFMODEL_IO -DINTIO<br>
    487. 

  487.   PERL            =       perl<br>
    488. 

  488.   REGISTRY        =       Registry<br>
    489. 

  489. ! LIB             =       CONFIGURE_NETCDF_LIB_PATH -L../external/RSL/RSL -lrsl -lmass \<br>
    490. 

  490.                           -L../external/io_int -lwrfio_int  \<br>
    491. 

  491.   			../frame/internal_header_util.o ../frame/pack_utils.o<br>
    492. 

  492.   LDFLAGS         =	-bmaxstack:256000000<br>
    493. 

  493. --- 732,823 ----<br>
    494. 

  494.   <br>
    495. 

  495.   <br>
    496. 

  496.   ###########################################################<br>
    497. 

  497. ! #ARCH	AIX DM          (RSL-IO, IBM-MPI)(PARALLEL HDF5)<br>
    498. 

  498.   #<br>
    499. 

  499.   DMPARALLEL      =       1<br>
    500. 

  500. ! SFC             =       xlf90_r <br>
    501. 

  501.   SCC             =       xlc_r<br>
    502. 

  502. ! FC              =       mpxlf90_r <br>
    503. 

  503.   CC              =       mpcc_r<br>
    504. 

  504.   CFLAGS          =       -DNOUNDERSCORE -DWRF_RSL_IO  -I../external/RSL/RSL -DDM_PARALLEL  \<br>
    505. 

  505.                           -DMAXDOM_MAKE=$(MAX_DOMAINS) -DMAXPROC_MAKE=$(MAX_PROC)<br>
    506. 

  506. ! FCOPTIM         =       -O1 -qarch=auto -qmaxmem=-1<br>
    507. 

  507. ! #FCOPTIM         =       -O2 <br>
    508. 

  508. ! FCDEBUG         =       -g -qfullpath<br>
    509. 

  509. ! FCBASEOPTS      =       -qspill=20000 $(FCDEBUG)<br>
    510. 

  510. ! FCFLAGS         =       $(FCOPTIM) $(FCBASEOPTS)<br>
    511. 

  511. ! INCLUDE_MODULES =       -I../external/io_netcdf -I../external/io_phdf5 -I../external/io_int  \<br>
    512. 

  512. !                         -I../frame -I../share -I../phys -I../inc<br>
    513. 

  513. ! EXTRAMODULES    =       <br>
    514. 

  514. ! ARCHFLAGS       =       -DWRF_RSL_IO -DRSL -DDM_PARALLEL -DIWORDSIZE=4 -DRWORDSIZE=4 \<br>
    515. 

  515. !                         -DLWORDSIZE=4 CONFIGURE_NETCDF_FLAG CONFIGURE_PHDF5_FLAG -DTRIEDNTRUE -DONLY_WRFMODEL_IO -DINTIO<br>
    516. 

  516. ! PERL            =       perl<br>
    517. 

  517. ! REGISTRY        =       Registry<br>
    518. 

  518. ! LIB             =       CONFIGURE_NETCDF_LIB_PATH CONFIGURE_PHDF5_LIB_PATH -L../external/RSL/RSL -lrsl -lmass \<br>
    519. 

  519. !                         -L../external/io_int -lwrfio_int  \<br>
    520. 

  520. ! 			../frame/internal_header_util.o ../frame/pack_utils.o<br>
    521. 

  521. ! LDFLAGS         =	-bmaxstack:256000000 -bmaxdata:0x80000000<br>
    522. 

  522. ! CPP		=	/lib/cpp<br>
    523. 

  523. ! CPPFLAGS	=	-I$(LIBINCLUDE) -C -P $(ARCHFLAGS) -I../external/RSL/RSL `cat ../inc/dm_comm_cpp_flags`<br>
    524. 

  524. ! MAX_DOMAINS     =       4<br>
    525. 

  525. ! MAX_PROC        =       1024<br>
    526. 

  526. ! AR              =       ar ru<br>
    527. 

  527. ! M4              =       m4 -B 8000<br>
    528. 

  528. ! RANLIB          =       ranlib<br>
    529. 

  529. ! <br>
    530. 

  530. ! externals : CONFIGURE_WRFIO_NF CONFIGURE_WRFIO_PHDF5 ../external/RSL/RSL/librsl.a wrfio_int<br>
    531. 

  531. ! 	( /bin/cp ../tools/gen_comms_warning ../tools/gen_comms.c ; cat ../external/RSL/gen_comms.c
    532. 

  532. &gt;&gt; ../tools/gen_comms.c ;  \<br>
    533. 

  533. !           /bin/cp module_dm_warning module_dm.F ; cat ../external/RSL/module_dm.F &gt;&gt; module_dm.F )<br>
    534. 

  534. ! <br>
    535. 

  535. ! wrfio_nf : <br>
    536. 

  536. ! 	( cd ../external/io_netcdf ; make NETCDFPATH=CONFIGURE_NETCDF_PATH FC="$(SFC)
    537. 

  537. $(FCDEBUG) -qarch=auto -qzerosize" ; /bin/cp wrf_io_flags.h wrf_status_codes.h
    538. 

  538. ../../inc )<br>
    539. 

  539. ! <br>
    540. 

  540. ! wrfio_phdf5 : <br>
    541. 

  541. ! 	( cd ../external/io_phdf5 ; make PHDF5PATH=CONFIGURE_PHDF5_PATH FC="$(FC)
    542. 

  542. $(FCDEBUG) -qarch=auto -qfree=F90 -qzerosize" ; /bin/cp wrf_io_flags.h wrf_status_codes.h
    543. 

  543. ../../inc )<br>
    544. 

  544. ! <br>
    545. 

  545. ! wrfio_int : <br>
    546. 

  546. ! 	( cd ../external/io_int ; \<br>
    547. 

  547. !           make CC=$(CC) FC="$(SFC) $(FCDEBUG) -qarch=auto -qzerosize" all diffwrf )<br>
    548. 

  548. ! <br>
    549. 

  549. ! ../external/RSL/RSL/librsl.a :<br>
    550. 

  550. ! 	( cd ../external/RSL/RSL ; make MAX_DOMAINS=$(MAX_DOMAINS) MAX_PROC=$(MAX_PROC) LEARN_BCAST=-DLEARN_BCAST sp2 )<br>
    551. 

  551. ! <br>
    552. 

  552. ! # compile these without high optimization to speed compile<br>
    553. 

  553. ! mediation_force_domain.o : mediation_force_domain.F<br>
    554. 

  554. ! mediation_interp_domain.o : mediation_interp_domain.F<br>
    555. 

  555. ! <br>
    556. 

  556. ! mediation_force_domain.o \<br>
    557. 

  557. ! mediation_interp_domain.o :<br>
    558. 

  558. ! 	$(RM) $@<br>
    559. 

  559. ! 	sed /\!.\*\'/s/\'//g $*.F &gt; $*.b<br>
    560. 

  560. ! 	$(CPP) -I../inc $(CPPFLAGS) $*.b  &gt; $*.f<br>
    561. 

  561. ! 	$(RM) $*.b<br>
    562. 

  562. ! 	$(FC) -c $(FCBASEOPTS) $(MODULE_DIRS) $*.f<br>
    563. 

  563. ! <br>
    564. 

  564. ! ###########################################################<br>
    565. 

  565. ! #ARCH	AIX DM          (RSL-IO, IBM-MPI)(SERIAL HDF5)<br>
    566. 

  566. ! #<br>
    567. 

  567. ! DMPARALLEL      =       1<br>
    568. 

  568. ! SFC             =       xlf90_r <br>
    569. 

  569. ! SCC             =       xlc_r<br>
    570. 

  570. ! FC              =       mpxlf90_r <br>
    571. 

  571. ! CC              =       mpcc_r<br>
    572. 

  572. ! CFLAGS          =       -DNOUNDERSCORE -DWRF_RSL_IO  -I../external/RSL/RSL -DDM_PARALLEL  \<br>
    573. 

  573. !                         -DMAXDOM_MAKE=$(MAX_DOMAINS) -DMAXPROC_MAKE=$(MAX_PROC)<br>
    574. 

  574. ! FCOPTIM         =       -O1 -qarch=auto -qmaxmem=32676<br>
    575. 

  575. ! #FCOPTIM         =       -O2 <br>
    576. 

  576.   FCDEBUG         =       # -g -qfullpath<br>
    577. 

  577.   FCBASEOPTS      =       -qspill=20000 $(FCDEBUG)<br>
    578. 

  578.   FCFLAGS         =       $(FCOPTIM) $(FCBASEOPTS)<br>
    579. 

  579. ! INCLUDE_MODULES =       -I../external/io_netcdf -I../external/io_hdf5 -I../external/io_int  \<br>
    580. 

  580.                           -I../frame -I../share -I../phys -I../inc<br>
    581. 

  581.   EXTRAMODULES    =       <br>
    582. 

  582.   ARCHFLAGS       =       -DWRF_RSL_IO -DRSL -DDM_PARALLEL -DIWORDSIZE=4 -DRWORDSIZE=4 \<br>
    583. 

  583. !                         -DLWORDSIZE=4 CONFIGURE_NETCDF_FLAG CONFIGURE_HDF5_FLAG -DTRIEDNTRUE -DONLY_WRFMODEL_IO -DINTIO<br>
    584. 

  584.   PERL            =       perl<br>
    585. 

  585.   REGISTRY        =       Registry<br>
    586. 

  586. ! LIB             =       CONFIGURE_NETCDF_LIB_PATH CONFIGURE_HDF5_LIB_PATH  \<br>
    587. 

  587. !                         -L../external/RSL/RSL -lrsl -lmass \<br>
    588. 

  588.                           -L../external/io_int -lwrfio_int  \<br>
    589. 

  589.   			../frame/internal_header_util.o ../frame/pack_utils.o<br>
    590. 

  590.   LDFLAGS         =	-bmaxstack:256000000<br>
    591. 

  591. ***************<br>
    592. 

  592. *** 764,776 ****<br>
    593. 

  593.   M4              =       m4 -B 8000<br>
    594. 

  594.   RANLIB          =       ranlib<br>
    595. 

  595.   <br>
    596. 

  596. ! externals : CONFIGURE_WRFIO_NF ../external/RSL/RSL/librsl.a wrfio_int<br>
    597. 

  597.   	( /bin/cp ../tools/gen_comms_warning ../tools/gen_comms.c ; cat ../external/RSL/gen_comms.c
    598. 

  598. &gt;&gt; ../tools/gen_comms.c ;  \<br>
    599. 

  599.             /bin/cp module_dm_warning module_dm.F ; cat ../external/RSL/module_dm.F &gt;&gt; module_dm.F )<br>
    600. 

  600.   <br>
    601. 

  601.   wrfio_nf : <br>
    602. 

  602.   	( cd ../external/io_netcdf ; make NETCDFPATH=CONFIGURE_NETCDF_PATH FC="$(SFC)
    603. 

  603. $(FCDEBUG) -qarch=auto -qzerosize" ; /bin/cp wrf_io_flags.h wrf_status_codes.h
    604. 

  604. ../../inc )<br>
    605. 

  605.   <br>
    606. 

  606.   wrfio_int : <br>
    607. 

  607.   	( cd ../external/io_int ; \<br>
    608. 

  608.             make CC=$(CC) FC="$(SFC) $(FCDEBUG) -qarch=auto -qzerosize" all diffwrf )<br>
    609. 

  609. --- 829,844 ----<br>
    610. 

  610.   M4              =       m4 -B 8000<br>
    611. 

  611.   RANLIB          =       ranlib<br>
    612. 

  612.   <br>
    613. 

  613. ! externals : CONFIGURE_WRFIO_NF CONFIGURE_WRFIO_HDF5 ../external/RSL/RSL/librsl.a wrfio_int<br>
    614. 

  614.   	( /bin/cp ../tools/gen_comms_warning ../tools/gen_comms.c ; cat ../external/RSL/gen_comms.c
    615. 

  615. &gt;&gt; ../tools/gen_comms.c ;  \<br>
    616. 

  616.             /bin/cp module_dm_warning module_dm.F ; cat ../external/RSL/module_dm.F &gt;&gt; module_dm.F )<br>
    617. 

  617.   <br>
    618. 

  618.   wrfio_nf : <br>
    619. 

  619.   	( cd ../external/io_netcdf ; make NETCDFPATH=CONFIGURE_NETCDF_PATH FC="$(SFC)
    620. 

  620. $(FCDEBUG) -qarch=auto -qzerosize" ; /bin/cp wrf_io_flags.h wrf_status_codes.h
    621. 

  621. ../../inc )<br>
    622. 

  622.   <br>
    623. 

  623. + wrfio_hdf5 : <br>
    624. 

  624. + 	( cd ../external/io_hdf5 ; make HDF5PATH=CONFIGURE_HDF5_PATH FC="$(SFC)
    625. 

  625. $(FCDEBUG) -qarch=auto -qfree=F90 -qzerosize" ; /bin/cp wrf_io_flags.h wrf_status_codes.h
    626. 

  626. ../../inc )<br>
    627. 

  627. + <br>
    628. 

  628.   wrfio_int : <br>
    629. 

  629.   	( cd ../external/io_int ; \<br>
    630. 

  630.             make CC=$(CC) FC="$(SFC) $(FCDEBUG) -qarch=auto -qzerosize" all diffwrf )<br>
    631. 

  631. ***************<br>
    632. 

  632. *** 1650,1663 ****<br>
    633. 

  633.   FCBASEOPTS      =       -byteswapio -Ktrap=fp -Mfree -tp p6 $(FCDEBUG)<br>
    634. 

  634.   FCFLAGS         =       $(FCOPTIM) $(FCBASEOPTS)<br>
    635. 

  635.   ARCHFLAGS       =       -DDEREF_KLUDGE -DIO_DEREF_KLUDGE -DIWORDSIZE=4 -DRWORDSIZE=4 -DLWORDSIZE=4 \<br>
    636. 

  636. !                          CONFIGURE_NETCDF_FLAG \<br>
    637. 

  637.                           -DTRIEDNTRUE -DONLY_WRFMODEL_IO<br>
    638. 

  638. ! INCLUDE_MODULES =       -module ../main -I../external/io_netcdf -I../external/io_int \<br>
    639. 

  639.                           -I../frame -I../share -I../phys -I../inc<br>
    640. 

  640.   EXTRAMODULES    =       <br>
    641. 

  641.   PERL            =       perl<br>
    642. 

  642.   REGISTRY        =       Registry<br>
    643. 

  643. ! LIB             =       CONFIGURE_NETCDF_LIB_PATH \<br>
    644. 

  644.   			../frame/internal_header_util.o ../frame/pack_utils.o<br>
    645. 

  645.   LDFLAGS         =<br>
    646. 

  646.   CPP             =       /lib/cpp<br>
    647. 

  647. --- 1718,1731 ----<br>
    648. 

  648.   FCBASEOPTS      =       -byteswapio -Ktrap=fp -Mfree -tp p6 $(FCDEBUG)<br>
    649. 

  649.   FCFLAGS         =       $(FCOPTIM) $(FCBASEOPTS)<br>
    650. 

  650.   ARCHFLAGS       =       -DDEREF_KLUDGE -DIO_DEREF_KLUDGE -DIWORDSIZE=4 -DRWORDSIZE=4 -DLWORDSIZE=4 \<br>
    651. 

  651. !                          CONFIGURE_NETCDF_FLAG CONFIGURE_HDF5_FLAG\<br>
    652. 

  652.                           -DTRIEDNTRUE -DONLY_WRFMODEL_IO<br>
    653. 

  653. ! INCLUDE_MODULES =       -module ../main -I../external/io_netcdf -I../external/io_hdf5 -I../external/io_int \<br>
    654. 

  654.                           -I../frame -I../share -I../phys -I../inc<br>
    655. 

  655.   EXTRAMODULES    =       <br>
    656. 

  656.   PERL            =       perl<br>
    657. 

  657.   REGISTRY        =       Registry<br>
    658. 

  658. ! LIB             =       CONFIGURE_NETCDF_LIB_PATH CONFIGURE_HDF5_LIB_PATH \<br>
    659. 

  659.   			../frame/internal_header_util.o ../frame/pack_utils.o<br>
    660. 

  660.   LDFLAGS         =<br>
    661. 

  661.   CPP             =       /lib/cpp<br>
    662. 

  662. ***************<br>
    663. 

  663. *** 1666,1672 ****<br>
    664. 

  664.   M4              =       m4<br>
    665. 

  665.   RANLIB          =       ranlib<br>
    666. 

  666.   <br>
    667. 

  667. ! externals : CONFIGURE_WRFIO_NF wrfio_int<br>
    668. 

  668.   	( /bin/cp module_dm_warning module_dm.F ; cat module_dm_stubs.F &gt;&gt; module_dm.F )<br>
    669. 

  669.   <br>
    670. 

  670.   wrfio_nf : <br>
    671. 

  671. --- 1734,1740 ----<br>
    672. 

  672.   M4              =       m4<br>
    673. 

  673.   RANLIB          =       ranlib<br>
    674. 

  674.   <br>
    675. 

  675. ! externals : CONFIGURE_WRFIO_NF CONFIGURE_WRFIO_HDF5 wrfio_int<br>
    676. 

  676.   	( /bin/cp module_dm_warning module_dm.F ; cat module_dm_stubs.F &gt;&gt; module_dm.F )<br>
    677. 

  677.   <br>
    678. 

  678.   wrfio_nf : <br>
    679. 

  679. ***************<br>
    680. 

  680. *** 1675,1680 ****<br>
    681. 

  681. --- 1743,1754 ----<br>
    682. 

  682.             FFLAGS='$(FCFLAGS) -ICONFIGURE_NETCDF_PATH/include' ; \<br>
    683. 

  683.             /bin/cp wrf_io_flags.h wrf_status_codes.h ../../inc )<br>
    684. 

  684.   <br>
    685. 

  685. + wrfio_hdf5 : <br>
    686. 

  686. + 	( cd ../external/io_hdf5 ; \<br>
    687. 

  687. +           make HDF5PATH=CONFIGURE_HDF5_PATH FC=$(FC) TRADFLAG="-traditional" \<br>
    688. 

  688. +           FFLAGS='$(FCFLAGS) -ICONFIGURE_HDF5_PATH/lib' ; \<br>
    689. 

  689. +           /bin/cp wrf_io_flags.h wrf_status_codes.h ../../inc )<br>
    690. 

  690. + <br>
    691. 

  691.   wrfio_int : <br>
    692. 

  692.   	( cd ../external/io_int ; \<br>
    693. 

  693.             make CC=$(CC) FC="$(SFC) $(FCDEBUG) $(FCBASEOPTS)" \<br>
    694. 

  694.       </td>
    695. 

  695.     </tr>
    696. 

  696.   </tbody>
    697. 

  697. </table>
    698. 

  698. <p><br>
    699. 

  699. 

  700.   </p>
    701. 

  701. <blockquote>
    702. 

  702.   <ul>
    703. 

  703.     </ul><p></p>
    704. 

  704.   </blockquote>
    705. 

  705. <p><i>Modifications of source code inside WRF</i><b><br>
    706. 

  706. </b></p>
    707. 

  707. <p>The<i> io_hdf5</i> and/or<i> io_phdf5</i> modules must be added to the WRF source. In addition, the WRF source must be modified in a few places.<br>
    708. 

  708. </p>
    709. 

  709. <p>The 'frame/md_calls.m4' must be modified to recognize the HDF modules.<br>
    710. 

  710. </p>
    711. 

  711. <blockquote>
    712. 

  712.   </blockquote>
    713. 

  713. <table cellpadding="2" cellspacing="2" border="1" width="90%" align="center">
    714. 

  714.   <tbody>
    715. 

  715.     <tr>
    716. 

  716.       <td valign="top">*** ../WRFV1/frame/md_calls.m4	Mon Dec 10 18:10:43 2001<br>
    717. 

  717. --- ./WRFV1-with-hdf/frame/md_calls.m4	Thu May 13 12:18:44 2004<br>
    718. 

  718. ***************<br>
    719. 

  719. *** 70,78 ****<br>
    720. 

  720.             CALL wrf_dm_bcast_bytes( Status, IWORDSIZE )<br>
    721. 

  721.           ENDIF<br>
    722. 

  722.   #endif<br>
    723. 

  723. ! #ifdef HDF<br>
    724. 

  724. !       CASE ( IO_HDF   )<br>
    725. 

  725. !         CALL ext_hdf_$1_$2_$6_$3$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, &amp;<br>
    726. 

  726.                                 ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status )<br>
    727. 

  727.   #endif<br>
    728. 

  728.   #ifdef XXX<br>
    729. 

  729. --- 70,99 ----<br>
    730. 

  730.             CALL wrf_dm_bcast_bytes( Status, IWORDSIZE )<br>
    731. 

  731.           ENDIF<br>
    732. 

  732.   #endif<br>
    733. 

  733. ! #ifdef HDF5<br>
    734. 

  734. !       CASE ( IO_HDF5   )<br>
    735. 

  735. !         IF ( multi_files(io_form) .OR.  wrf_dm_on_monitor() ) THEN<br>
    736. 

  736. !            CALL ext_hdf5_$1_$2_$6_$3$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, &amp;<br>
    737. 

  737. !                               ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status )<br>
    738. 

  738. !         ENDIF <br>
    739. 

  739. !         IF ( .NOT. multi_files(io_form) ) THEN<br>
    740. 

  740. !           ifelse($1,get,ifelse($3,integer,`CALL wrf_dm_bcast_bytes( locCount, IWORDSIZE )'))<br>
    741. 

  741. !           ifelse($1,get,ifelse($3,integer,`CALL wrf_dm_bcast_bytes( Data, IWORDSIZE*locCount )'))<br>
    742. 

  742. !           ifelse($1,get,ifelse($3,real,   `CALL wrf_dm_bcast_bytes( locCount, IWORDSIZE )'))<br>
    743. 

  743. !           ifelse($1,get,ifelse($3,real,   `CALL wrf_dm_bcast_bytes( Data, RWORDSIZE*locCount )'))<br>
    744. 

  744. !           ifelse($1,get,ifelse($3,logical,`CALL wrf_dm_bcast_bytes( locCount, IWORDSIZE )'))<br>
    745. 

  745. !           ifelse($1,get,ifelse($3,logical,`CALL wrf_dm_bcast_bytes( Data, LWORDSIZE*locCount )'))<br>
    746. 

  746. !           ifelse($1,get,ifelse($4,char,   `len_of_str = LEN(Data)'))<br>
    747. 

  747. !           ifelse($1,get,ifelse($4,char,   `CALL wrf_dm_bcast_bytes( len_of_str, IWORDSIZE )'))<br>
    748. 

  748. !           ifelse($1,get,ifelse($4,char,   `CALL wrf_dm_bcast_string( Data, len_of_str )'))<br>
    749. 

  749. !           CALL wrf_dm_bcast_bytes( Status, IWORDSIZE )<br>
    750. 

  750. !         ENDIF<br>
    751. 

  751. !        <br>
    752. 

  752. ! <br>
    753. 

  753. ! #endif<br>
    754. 

  754. ! #ifdef PHDF5<br>
    755. 

  755. !       CASE ( IO_PHDF5   )<br>
    756. 

  756. !            CALL ext_phdf5_$1_$2_$6_$3$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, &amp;<br>
    757. 

  757.                                 ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status )<br>
    758. 

  758.   #endif<br>
    759. 

  759.   #ifdef XXX<br>
    760. 

  760.       <br>
    761. 

  761.       </td>
    762. 

  762.     </tr>
    763. 

  763.   </tbody>
    764. 

  764. </table>
    765. 

  765. <p><br>
    766. 

  766. The 'frame/module_io.F' file must be modified to add code to call the HDF5 modules if selected.<br>
    767. 

  767. </p>
    768. 

  768. <table cellpadding="2" cellspacing="2" border="1" width="90%" align="center">
    769. 

  769.   <tbody>
    770. 

  770.     <tr>
    771. 

  771.       <td valign="top">*** ../WRFV1/frame/module_io.F	Tue Dec  3 14:10:48 2002<br>
    772. 

  772. --- ./WRFV1-with-hdf/frame/module_io.F	Thu May 13 12:18:45 2004<br>
    773. 

  773. ***************<br>
    774. 

  774. *** 34,39 ****<br>
    775. 

  775. --- 34,48 ----<br>
    776. 

  776.   #ifdef NETCDF<br>
    777. 

  777.     CALL ext_ncd_ioinit( SysDepInfo, Status )<br>
    778. 

  778.   #endif<br>
    779. 

  779. + <br>
    780. 

  780. + #ifdef HDF5<br>
    781. 

  781. +   CALL ext_hdf5_ioinit(SysDepInfo, Status)<br>
    782. 

  782. + #endif<br>
    783. 

  783. + <br>
    784. 

  784. + #ifdef PHDF5<br>
    785. 

  785. +   CALL ext_phdf5_ioinit(SysDepInfo, Status)<br>
    786. 

  786. + #endif<br>
    787. 

  787. +  <br>
    788. 

  788.   END SUBROUTINE wrf_ioinit<br>
    789. 

  789.   <br>
    790. 

  790.   !--- ioexit<br>
    791. 

  791. ***************<br>
    792. 

  792. *** 47,52 ****<br>
    793. 

  793. --- 56,70 ----<br>
    794. 

  794.   #ifdef NETCDF<br>
    795. 

  795.     CALL ext_ncd_ioexit( Status )<br>
    796. 

  796.   #endif<br>
    797. 

  797. + <br>
    798. 

  798. + #ifdef HDF5<br>
    799. 

  799. +   CALL ext_hdf5_ioexit(Status)<br>
    800. 

  800. + #endif<br>
    801. 

  801. + <br>
    802. 

  802. + #ifdef PHDF5<br>
    803. 

  803. +   CALL ext_phdf5_ioexit(Status)<br>
    804. 

  804. + #endif<br>
    805. 

  805. + <br>
    806. 

  806.     IF ( use_output_servers() ) CALL ext_quilt_ioexit( Status )<br>
    807. 

  807.   END SUBROUTINE<br>
    808. 

  808.   <br>
    809. 

  809. ***************<br>
    810. 

  810. *** 134,139 ****<br>
    811. 

  811. --- 152,179 ----<br>
    812. 

  812.           CALL ext_hdf_open_for_write_begin ( FileName , Comm_compute, Comm_io, SysDepInfo, &amp;<br>
    813. 

  813.                                               Hndl , Status )<br>
    814. 

  814.   #endif<br>
    815. 

  815. + #ifdef HDF5<br>
    816. 

  816. +       CASE ( IO_HDF5   )<br>
    817. 

  817. +         IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN<br>
    818. 

  818. +           IF ( multi_files(io_form) ) THEN<br>
    819. 

  819. +             CALL wrf_get_myproc ( myproc )<br>
    820. 

  820. +             CALL append_to_filename ( LocFilename , FileName , myproc, 4 )<br>
    821. 

  821. +           ELSE<br>
    822. 

  822. +             LocFilename = FileName<br>
    823. 

  823. +           ENDIF<br>
    824. 

  824. +           CALL ext_hdf5_open_for_write_begin ( LocFileName , Comm_compute, Comm_io, SysDepInfo, &amp;<br>
    825. 

  825. +                                               Hndl , Status )<br>
    826. 

  826. +         ENDIF<br>
    827. 

  827. +         IF ( .NOT. multi_files(io_form) ) THEN<br>
    828. 

  828. +           CALL wrf_dm_bcast_bytes( Hndl, IWORDSIZE )<br>
    829. 

  829. +           CALL wrf_dm_bcast_bytes( Status, IWORDSIZE )<br>
    830. 

  830. +         ENDIF<br>
    831. 

  831. + #endif<br>
    832. 

  832. + #ifdef PHDF5<br>
    833. 

  833. +       CASE ( IO_PHDF5   )<br>
    834. 

  834. +           CALL ext_phdf5_open_for_write_begin ( FileName , Comm_compute, Comm_io, SysDepInfo, &amp;<br>
    835. 

  835. +                                               Hndl , Status )<br>
    836. 

  836. + #endif<br>
    837. 

  837.   #ifdef XXX<br>
    838. 

  838.         CASE ( IO_XXX   )<br>
    839. 

  839.           CALL ext_xxx_open_for_write_begin ( FileName , Comm_compute, Comm_io, SysDepInfo, &amp;<br>
    840. 

  840. ***************<br>
    841. 

  841. *** 214,219 ****<br>
    842. 

  842. --- 254,270 ----<br>
    843. 

  843.         CASE ( IO_HDF   )<br>
    844. 

  844.           CALL ext_hdf_open_for_write_commit ( Hndl , Status )<br>
    845. 

  845.   #endif<br>
    846. 

  846. + #ifdef HDF5<br>
    847. 

  847. +       CASE ( IO_HDF5   )<br>
    848. 

  848. +           IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN<br>
    849. 

  849. +             CALL ext_hdf5_open_for_write_commit ( Hndl , Status )<br>
    850. 

  850. +           ENDIF<br>
    851. 

  851. +           IF ( .NOT. multi_files(io_form) ) CALL wrf_dm_bcast_bytes( Status, IWORDSIZE )<br>
    852. 

  852. + #endif<br>
    853. 

  853. + #ifdef PHDF5<br>
    854. 

  854. +       CASE ( IO_PHDF5   )<br>
    855. 

  855. +             CALL ext_phdf5_open_for_write_commit ( Hndl , Status )<br>
    856. 

  856. + #endif<br>
    857. 

  857.   #ifdef XXX<br>
    858. 

  858.         CASE ( IO_XXX   )<br>
    859. 

  859.           CALL ext_xxx_open_for_write_commit ( Hndl , Status )<br>
    860. 

  860. ***************<br>
    861. 

  861. *** 316,321 ****<br>
    862. 

  862. --- 367,388 ----<br>
    863. 

  863.         CALL ext_hdf_open_for_read ( FileName , Comm_compute, Comm_io, SysDepInfo, &amp;<br>
    864. 

  864.                                  Hndl , Status )<br>
    865. 

  865.   #endif<br>
    866. 

  866. + #ifdef HDF5<br>
    867. 

  867. +     CASE ( IO_HDF5   )<br>
    868. 

  868. +       IF ( multi_files(io_form) .OR.  wrf_dm_on_monitor() ) THEN<br>
    869. 

  869. +         CALL ext_hdf5_open_for_read ( FileName , Comm_compute, Comm_io, SysDepInfo, &amp;<br>
    870. 

  870. +                                      Hndl , Status )<br>
    871. 

  871. +       ENDIF<br>
    872. 

  872. +       IF ( .NOT. multi_files(io_form) ) THEN<br>
    873. 

  873. +         CALL wrf_dm_bcast_bytes( Status, IWORDSIZE )<br>
    874. 

  874. +         CALL wrf_dm_bcast_bytes( Hndl, IWORDSIZE )<br>
    875. 

  875. +       ENDIF<br>
    876. 

  876. + #endif<br>
    877. 

  877. + #ifdef PHDF5<br>
    878. 

  878. +     CASE ( IO_PHDF5   )<br>
    879. 

  879. +         CALL ext_phdf5_open_for_read ( FileName , Comm_compute, Comm_io, SysDepInfo, &amp;<br>
    880. 

  880. +                                      Hndl , Status )<br>
    881. 

  881. + #endif<br>
    882. 

  882.   #ifdef XXX<br>
    883. 

  883.       CASE ( IO_XXX   )<br>
    884. 

  884.         CALL ext_xxx_open_for_read ( FileName , Comm_compute, Comm_io, SysDepInfo, &amp;<br>
    885. 

  885. ***************<br>
    886. 

  886. *** 420,425 ****<br>
    887. 

  887. --- 487,502 ----<br>
    888. 

  888.         CASE ( IO_HDF   )<br>
    889. 

  889.             CALL ext_hdf_inquire_opened ( Hndl, FileName , FileStatus, Status )<br>
    890. 

  890.   #endif<br>
    891. 

  891. + #ifdef HDF5<br>
    892. 

  892. +       CASE ( IO_HDF5   )<br>
    893. 

  893. +           IF (wrf_dm_on_monitor()) CALL ext_hdf5_inquire_opened ( Hndl, FileName , FileStatus, Status )<br>
    894. 

  894. +           CALL wrf_dm_bcast_bytes( FileStatus, IWORDSIZE )<br>
    895. 

  895. +           CALL wrf_dm_bcast_bytes( Status    , IWORDSIZE )<br>
    896. 

  896. + #endif<br>
    897. 

  897. + #ifdef PHDF5<br>
    898. 

  898. +       CASE ( IO_PHDF5   )<br>
    899. 

  899. +           CALL ext_phdf5_inquire_opened ( Hndl, FileName , FileStatus, Status )<br>
    900. 

  900. + #endif<br>
    901. 

  901.   #ifdef XXX<br>
    902. 

  902.         CASE ( IO_XXX   )<br>
    903. 

  903.             CALL ext_xxx_inquire_opened ( Hndl, FileName , FileStatus, Status )<br>
    904. 

  904. ***************<br>
    905. 

  905. *** 486,491 ****<br>
    906. 

  906. --- 563,578 ----<br>
    907. 

  907.           CASE ( IO_HDF   )<br>
    908. 

  908.             CALL ext_hdf_inquire_filename ( Hndl, FileName , FileStatus, Status )<br>
    909. 

  909.   #endif<br>
    910. 

  910. + #ifdef HDF5<br>
    911. 

  911. +         CASE ( IO_HDF5   )<br>
    912. 

  912. +           IF (wrf_dm_on_monitor()) CALL ext_hdf5_inquire_filename ( Hndl, FileName , FileStatus, Status )<br>
    913. 

  913. +           CALL wrf_dm_bcast_bytes( FileStatus, IWORDSIZE )<br>
    914. 

  914. +           CALL wrf_dm_bcast_bytes( Status    , IWORDSIZE )<br>
    915. 

  915. + #endif<br>
    916. 

  916. + #ifdef PHDF5<br>
    917. 

  917. +         CASE ( IO_PHDF5   )<br>
    918. 

  918. +           CALL ext_phdf5_inquire_filename ( Hndl, FileName , FileStatus, Status )<br>
    919. 

  919. + #endif<br>
    920. 

  920.   #ifdef XXX<br>
    921. 

  921.           CASE ( IO_XXX   )<br>
    922. 

  922.             CALL ext_xxx_inquire_filename ( Hndl, FileName , FileStatus, Status )<br>
    923. 

  923. ***************<br>
    924. 

  924. *** 607,612 ****<br>
    925. 

  925. --- 694,708 ----<br>
    926. 

  926.           CASE ( IO_HDF   )<br>
    927. 

  927.             CALL ext_ncd_ioclose( Hndl, Status )<br>
    928. 

  928.   #endif<br>
    929. 

  929. + #ifdef HDF5<br>
    930. 

  930. +         CASE ( IO_HDF5   )<br>
    931. 

  931. +           IF ( multi_files(io_form) .OR.  wrf_dm_on_monitor() ) CALL ext_hdf5_ioclose( Hndl, Status )<br>
    932. 

  932. +           CALL wrf_dm_bcast_bytes( Status, IWORDSIZE )<br>
    933. 

  933. + #endif<br>
    934. 

  934. + #ifdef PHDF5<br>
    935. 

  935. +         CASE ( IO_PHDF5   )<br>
    936. 

  936. +           CALL ext_phdf5_ioclose( Hndl, Status )<br>
    937. 

  937. + #endif<br>
    938. 

  938.   #ifdef XXX<br>
    939. 

  939.           CASE ( IO_XXX   )<br>
    940. 

  940.             CALL ext_xxx_ioclose( Hndl, Status )<br>
    941. 

  941. ***************<br>
    942. 

  942. *** 675,680 ****<br>
    943. 

  943. --- 771,790 ----<br>
    944. 

  944.           CASE ( IO_HDF   )<br>
    945. 

  945.             CALL ext_hdf_get_next_time( Hndl, DateStr, Status )<br>
    946. 

  946.   #endif<br>
    947. 

  947. + #ifdef HDF5<br>
    948. 

  948. +         CASE ( IO_HDF5   )<br>
    949. 

  949. +           IF ( multi_files(io_form) .OR.  wrf_dm_on_monitor() ) CALL ext_hdf5_get_next_time( Hndl, DateStr, Status )<br>
    950. 

  950. +           IF ( .NOT. multi_files(io_form) ) THEN<br>
    951. 

  951. +             CALL wrf_dm_bcast_bytes( Status, IWORDSIZE )<br>
    952. 

  952. +             len_of_str = LEN(DateStr)<br>
    953. 

  953. +             CALL wrf_dm_bcast_bytes( len_of_str, IWORDSIZE )<br>
    954. 

  954. +             CALL wrf_dm_bcast_string ( DateStr , len_of_str )<br>
    955. 

  955. +           ENDIF<br>
    956. 

  956. + #endif<br>
    957. 

  957. + #ifdef PHDF5<br>
    958. 

  958. +         CASE ( IO_PHDF5   )<br>
    959. 

  959. +           CALL ext_phdf5_get_next_time( Hndl, DateStr, Status )<br>
    960. 

  960. + #endif<br>
    961. 

  961.   #ifdef XXX<br>
    962. 

  962.           CASE ( IO_XXX   )<br>
    963. 

  963.             CALL ext_xxx_get_next_time( Hndl, DateStr, Status )<br>
    964. 

  964. ***************<br>
    965. 

  965. *** 742,747 ****<br>
    966. 

  966. --- 852,866 ----<br>
    967. 

  967.           CASE ( IO_HDF   )<br>
    968. 

  968.             CALL ext_hdf_set_time( Hndl, DateStr, Status )<br>
    969. 

  969.   #endif<br>
    970. 

  970. + #ifdef HDF5<br>
    971. 

  971. +         CASE ( IO_HDF5   )<br>
    972. 

  972. +           IF ( multi_files(io_form) .OR.  wrf_dm_on_monitor() ) CALL ext_hdf5_set_time( Hndl, DateStr, Status )<br>
    973. 

  973. +           CALL wrf_dm_bcast_bytes( Status, IWORDSIZE )<br>
    974. 

  974. + #endif<br>
    975. 

  975. + #ifdef PHDF5<br>
    976. 

  976. +         CASE ( IO_PHDF5   )<br>
    977. 

  977. +           CALL ext_phdf5_set_time( Hndl, DateStr, Status )<br>
    978. 

  978. + #endif<br>
    979. 

  979.   #ifdef XXX<br>
    980. 

  980.           CASE ( IO_XXX   )<br>
    981. 

  981.             CALL ext_xxx_set_time( Hndl, DateStr, Status )<br>
    982. 

  982. ***************<br>
    983. 

  983. *** 875,880 ****<br>
    984. 

  984. --- 994,1002 ----<br>
    985. 

  985.   #ifdef HDF<br>
    986. 

  986.     EXTERNAL ext_hdf_read_field<br>
    987. 

  987.   #endif<br>
    988. 

  988. + #ifdef HDF5<br>
    989. 

  989. +   EXTERNAL ext_hdf5_read_field<br>
    990. 

  990. + #endif<br>
    991. 

  991.   #ifdef XXX<br>
    992. 

  992.     EXTERNAL ext_xxx_read_field<br>
    993. 

  993.   #endif<br>
    994. 

  994. ***************<br>
    995. 

  995. *** 911,916 ****<br>
    996. 

  996. --- 1033,1058 ----<br>
    997. 

  997.                                        PatchStart , PatchEnd ,                                      &amp;<br>
    998. 

  998.                                        Status )<br>
    999. 

  999.   #endif<br>
    1000. 

  1000. + #ifdef HDF5<br>
    1001. 

  1001. +         CASE ( IO_HDF5 )<br>
    1002. 

  1002. +           CALL call_pkg_and_dist   ( ext_hdf5_read_field, multi_files(io_form),                  &amp;<br>
    1003. 

  1003. +                                      Hndl , DateStr , VarName , Field , FieldType , Comm , IOComm , &amp;<br>
    1004. 

  1004. +                                      DomainDesc , bdy_mask, MemoryOrder , Stagger , DimNames ,              &amp;<br>
    1005. 

  1005. +                                      DomainStart , DomainEnd ,                                    &amp;<br>
    1006. 

  1006. +                                      MemoryStart , MemoryEnd ,                                    &amp;<br>
    1007. 

  1007. +                                      PatchStart , PatchEnd ,                                      &amp;<br>
    1008. 

  1008. +                                      Status )<br>
    1009. 

  1009. + #endif<br>
    1010. 

  1010. + #ifdef PHDF5                                                                                                              <br>
    1011. 

  1011. +        CASE (IO_PHDF5)<br>
    1012. 

  1012. +           CALL  ext_phdf5_read_field  (                 &amp;<br>
    1013. 

  1013. +                                      Hndl , DateStr , VarName , Field , FieldType , Comm , IOComm , &amp;<br>
    1014. 

  1014. +                                      DomainDesc ,  MemoryOrder , Stagger , DimNames ,              &amp;<br>
    1015. 

  1015. +                                      DomainStart , DomainEnd ,                                    &amp;<br>
    1016. 

  1016. +                                      MemoryStart , MemoryEnd ,                                    &amp;<br>
    1017. 

  1017. +                                      PatchStart , PatchEnd ,                                      &amp;<br>
    1018. 

  1018. +                                      Status )<br>
    1019. 

  1019. + #endif<br>
    1020. 

  1020.   #ifdef XXX<br>
    1021. 

  1021.           CASE ( IO_XXX )<br>
    1022. 

  1022.             CALL call_pkg_and_dist   ( ext_xxx_read_field, multi_files(io_form),                  &amp;<br>
    1023. 

  1023. ***************<br>
    1024. 

  1024. *** 994,999 ****<br>
    1025. 

  1025. --- 1136,1144 ----<br>
    1026. 

  1026.   #ifdef HDF<br>
    1027. 

  1027.     EXTERNAL ext_hdf_write_field<br>
    1028. 

  1028.   #endif<br>
    1029. 

  1029. + #ifdef HDF5<br>
    1030. 

  1030. +   EXTERNAL ext_hdf5_write_field<br>
    1031. 

  1031. + #endif<br>
    1032. 

  1032.   #ifdef XXX<br>
    1033. 

  1033.     EXTERNAL ext_xxx_write_field<br>
    1034. 

  1034.   #endif<br>
    1035. 

  1035. ***************<br>
    1036. 

  1036. *** 1028,1033 ****<br>
    1037. 

  1037. --- 1173,1198 ----<br>
    1038. 

  1038.                                        PatchStart , PatchEnd ,                                      &amp;<br>
    1039. 

  1039.                                        Status )<br>
    1040. 

  1040.   #endif<br>
    1041. 

  1041. + #ifdef HDF5<br>
    1042. 

  1042. +         CASE ( IO_HDF5 )<br>
    1043. 

  1043. +           CALL collect_fld_and_call_pkg ( ext_hdf5_write_field, multi_files(io_form),                  &amp;<br>
    1044. 

  1044. +                                      Hndl , DateStr , VarName , Field , FieldType , Comm , IOComm , &amp;<br>
    1045. 

  1045. +                                      DomainDesc , bdy_mask, MemoryOrder , Stagger , DimNames ,              &amp;<br>
    1046. 

  1046. +                                      DomainStart , DomainEnd ,                                    &amp;<br>
    1047. 

  1047. +                                      MemoryStart , MemoryEnd ,                                    &amp;<br>
    1048. 

  1048. +                                      PatchStart , PatchEnd ,                                      &amp;<br>
    1049. 

  1049. +                                      Status )<br>
    1050. 

  1050. + #endif<br>
    1051. 

  1051. + #ifdef PHDF5<br>
    1052. 

  1052. +         CASE ( IO_PHDF5 )<br>
    1053. 

  1053. +           CALL ext_phdf5_write_field (                  &amp;<br>
    1054. 

  1054. +                                      Hndl , DateStr , VarName , Field , FieldType , Comm , IOComm , &amp;<br>
    1055. 

  1055. +                                      DomainDesc , MemoryOrder , Stagger , DimNames ,              &amp;<br>
    1056. 

  1056. +                                      DomainStart , DomainEnd ,                                    &amp;<br>
    1057. 

  1057. +                                      MemoryStart , MemoryEnd ,                                    &amp;<br>
    1058. 

  1058. +                                      PatchStart , PatchEnd ,                                      &amp;<br>
    1059. 

  1059. +                                      Status )<br>
    1060. 

  1060. + #endif<br>
    1061. 

  1061.   #ifdef XXX<br>
    1062. 

  1062.           CASE ( IO_XXX )<br>
    1063. 

  1063.             CALL collect_fld_and_call_pkg ( ext_xxx_write_field, multi_files(io_form),                  &amp;<br>
    1064. 

  1064. ***************<br>
    1065. 

  1065. *** 1115,1120 ****<br>
    1066. 

  1066. --- 1280,1293 ----<br>
    1067. 

  1067.                                         DomainStart , DomainEnd ,                &amp;<br>
    1068. 

  1068.                                         Status )<br>
    1069. 

  1069.   #endif<br>
    1070. 

  1070. + #ifdef HDF5<br>
    1071. 

  1071. +         CASE ( IO_HDF5 )<br>
    1072. 

  1072. +          write(*,*) "NOT IMPLEMENT at HDF5" <br>
    1073. 

  1073. +          ! CALL ext_hdf5_get_var_info ( Hndl , VarName , NDim ,            &amp;<br>
    1074. 

  1074. +          !                             MemoryOrder , Stagger ,                  &amp;<br>
    1075. 

  1075. +          !                             DomainStart , DomainEnd ,                &amp;<br>
    1076. 

  1076. +          !                             Status )<br>
    1077. 

  1077. + #endif<br>
    1078. 

  1078.   #ifdef XXX<br>
    1079. 

  1079.           CASE ( IO_XXX )<br>
    1080. 

  1080.             CALL ext_xxx_get_var_info ( Hndl , VarName , NDim ,            &amp;<br>
    1081. 

  1081.       <br>
    1082. 

  1082.       </td>
    1083. 

  1083.     </tr>
    1084. 

  1084.   </tbody>
    1085. 

  1085. </table>
    1086. 

  1086. <p><br>
    1087. 

  1087. The 'share/module_io.F' file must be modified to recognize the HDF5 options for IO.<br>
    1088. 

  1088. </p>
    1089. 

  1089. <table cellpadding="2" cellspacing="2" border="1" width="90%" align="center">
    1090. 

  1090.   <tbody>
    1091. 

  1091.     <tr>
    1092. 

  1092.       <td valign="top">*** ../WRFV1/share/module_io_wrf.F	Tue Feb 18 14:26:22 2003<br>
    1093. 

  1093. --- ./WRFV1-with-hdf/share/module_io_wrf.F	Thu May 13 12:18:46 2004<br>
    1094. 

  1094. ***************<br>
    1095. 

  1095. *** 1032,1037 ****<br>
    1096. 

  1096. --- 1032,1079 ----<br>
    1097. 

  1097.   		      ,Status )<br>
    1098. 

  1098.       ENDIF<br>
    1099. 

  1099.   <br>
    1100. 

  1100. +     IF (io_form .EQ. IO_HDF5) THEN<br>
    1101. 

  1101. +       CALL wrf_put_var_ti_char( &amp;<br>
    1102. 

  1102. +                        DataHandle                 &amp;  ! DataHandle<br>
    1103. 

  1103. + 		      ,"description"              &amp;  ! Element<br>
    1104. 

  1104. +                       ,Var                        &amp;  ! Data Name<br>
    1105. 

  1105. +                       ,Desc                       &amp;  ! Data<br>
    1106. 

  1106. + 		      ,Status )<br>
    1107. 

  1107. +       CALL wrf_put_var_ti_char( &amp;<br>
    1108. 

  1108. +                        DataHandle                 &amp;  ! DataHandle<br>
    1109. 

  1109. + 		      ,"units"                    &amp;  ! Element<br>
    1110. 

  1110. +                       ,Var                        &amp;  ! Data Name<br>
    1111. 

  1111. +                       ,Units                      &amp;  ! Data<br>
    1112. 

  1112. + 		      ,Status )<br>
    1113. 

  1113. +       CALL wrf_put_var_ti_char( &amp;<br>
    1114. 

  1114. +                        DataHandle                 &amp;  ! DataHandle<br>
    1115. 

  1115. + 		      ,"stagger"                  &amp;  ! Element<br>
    1116. 

  1116. +                       ,Var                        &amp;  ! Data Name<br>
    1117. 

  1117. +                       ,Stagger                    &amp;  ! Data<br>
    1118. 

  1118. 4/ Build WRF<br>
    1119. 

  1119.       <br>
    1120. 

  1120. + 		      ,Status )<br>
    1121. 

  1121. +     ENDIF<br>
    1122. 

  1122. + <br>
    1123. 

  1123. +     IF (io_form .EQ. IO_PHDF5) THEN<br>
    1124. 

  1124. +       CALL wrf_put_var_ti_char( &amp;<br>
    1125. 

  1125. +                        DataHandle                 &amp;  ! DataHandle<br>
    1126. 

  1126. + 		      ,"description"              &amp;  ! Element<br>
    1127. 

  1127. +                       ,Var                        &amp;  ! Data Name<br>
    1128. 

  1128. +                       ,Desc                       &amp;  ! Data<br>
    1129. 

  1129. + 		      ,Status )<br>
    1130. 

  1130. +       CALL wrf_put_var_ti_char( &amp;<br>
    1131. 

  1131. +                        DataHandle                 &amp;  ! DataHandle<br>
    1132. 

  1132. + 		      ,"units"                    &amp;  ! Element<br>
    1133. 

  1133. +                       ,Var                        &amp;  ! Data Name<br>
    1134. 

  1134. +                       ,Units                      &amp;  ! Data<br>
    1135. 

  1135. + 		      ,Status )<br>
    1136. 

  1136. +       CALL wrf_put_var_ti_char( &amp;<br>
    1137. 

  1137. +                        DataHandle                 &amp;  ! DataHandle<br>
    1138. 

  1138. + 		      ,"stagger"                  &amp;  ! Element<br>
    1139. 

  1139. +                       ,Var                        &amp;  ! Data Name<br>
    1140. 

  1140. +                       ,Stagger                    &amp;  ! Data<br>
    1141. 

  1141. + 		      ,Status )<br>
    1142. 

  1142. +     ENDIF<br>
    1143. 

  1143. + <br>
    1144. 

  1144.       IF ( wrf_at_debug_level(300) ) THEN<br>
    1145. 

  1145.         WRITE(wrf_err_message,*) debug_message,' Status = ',Status<br>
    1146. 

  1146.         CALL wrf_message ( TRIM(wrf_err_message) )<br>
    1147. 

  1147.       <br>
    1148. 

  1148.       </td>
    1149. 

  1149.     </tr>
    1150. 

  1150.   </tbody>
    1151. 

  1151. </table>
    1152. 

  1152. <p>The 'Makefile' for the 'external' directory must be updated to build the new IO modules.<br>
    1153. 

  1153. </p>
    1154. 

  1154. <table cellpadding="2" cellspacing="2" border="1" width="90%" align="center">
    1155. 

  1155.   <tbody>
    1156. 

  1156.     <tr>
    1157. 

  1157.       <td valign="top">*** ../WRFV1/external/Makefile	Mon Dec 10 18:07:21 2001<br>
    1158. 

  1158. --- ./WRFV1-with-hdf/external/Makefile	Thu May 13 12:18:38 2004<br>
    1159. 

  1159. ***************<br>
    1160. 

  1160. *** 3,12 ****<br>
    1161. 

  1161.   	( cd RSL/RSL ; make clean )<br>
    1162. 

  1162.   	( cd io_netcdf ; make clean )<br>
    1163. 

  1163.   	( cd io_int ; make clean )<br>
    1164. 

  1164.   <br>
    1165. 

  1165.   superclean : clean<br>
    1166. 

  1166.   	/bin/rm -f RSL/RSL/librsl.a RSL/RSL/rsl.inc<br>
    1167. 

  1167.   	/bin/rm -f io_netcdf/libwrfio_nf.a io_netcdf/diffwrf io_netcdf/*.o io_netcdf/*.f \<br>
    1168. 

  1168.                      io_int/libwrfio_int.a io_int/diffwrf        */*.mod<br>
    1169. 

  1169. ! <br>
    1170. 

  1170. ! <br>
    1171. 

  1171. --- 3,14 ----<br>
    1172. 

  1172.   	( cd RSL/RSL ; make clean )<br>
    1173. 

  1173.   	( cd io_netcdf ; make clean )<br>
    1174. 

  1174.   	( cd io_int ; make clean )<br>
    1175. 

  1175. + 	(cd io_hdf5; make clean)<br>
    1176. 

  1176. + 	(cd io_phdf5; make clean)<br>
    1177. 

  1177.   <br>
    1178. 

  1178.   superclean : clean<br>
    1179. 

  1179.   	/bin/rm -f RSL/RSL/librsl.a RSL/RSL/rsl.inc<br>
    1180. 

  1180.   	/bin/rm -f io_netcdf/libwrfio_nf.a io_netcdf/diffwrf io_netcdf/*.o io_netcdf/*.f \<br>
    1181. 

  1181.                      io_int/libwrfio_int.a io_int/diffwrf        */*.mod<br>
    1182. 

  1182. ! 	/bin/rm -f io_phdf5/*.a io_phdf5/*.o  *.f *.mod<br>
    1183. 

  1183. ! 	/bin/rm -f io_hdf5/*.a io_hdf5/*.o *.f *.mod<br>
    1184. 

  1184.       <br>
    1185. 

  1185.       <br>
    1186. 

  1186.       </td>
    1187. 

  1187.     </tr>
    1188. 

  1188.   </tbody>
    1189. 

  1189. </table>
    1190. 

    1191. 

    1192. 

  1192.     <p><b><small>
    1193. 

  1193.     <font size="4"><small></small></font></small></b><br>
    1194. 

  1194. </p>
    1195. 

  1195. <p><i>Last Modified: 17 May 2004 </i></p>
    1196. 

  1196. <blockquote>
    1197. 

  1197.   <blockquote>
    1198. 

  1198.     
    1199. 

  1199.     <p> </p>
    1200. 

  1200.   </blockquote>
    1201. 

    1202. 

  1202. </blockquote>
    1203. 

    1204. 

    1205. 

  1205. <br>
    1206. 

  1206. <br>
    1207. 

  1207. </body></html>
    1208. 

    1209.