<p><b>duda</b> 2010-04-22 17:14:24 -0600 (Thu, 22 Apr 2010)</p><p>Add error messages to inform a user if the input or restart<br>
file is missing, rather than allowing the model to crash with<br>
invalid initial fields.<br>
<br>
M src/framework/module_io_input.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/framework/module_io_input.F
===================================================================
--- trunk/mpas/src/framework/module_io_input.F        2010-04-22 22:56:13 UTC (rev 205)
+++ trunk/mpas/src/framework/module_io_input.F        2010-04-22 23:14:24 UTC (rev 206)
@@ -1031,6 +1031,17 @@
#else
nferr = nf_open(trim(input_obj % filename), NF_SHARE, input_obj % rd_ncid)
#endif
+
+ if (nferr /= NF_NOERR) then
+ write(0,*) ' '
+ if (config_do_restart) then
+ write(0,*) 'Error opening restart file ''', trim(input_obj % filename), ''''
+ else
+ write(0,*) 'Error opening input file ''', trim(input_obj % filename), ''''
+ end if
+ write(0,*) ' '
+ call dmpar_abort(dminfo)
+ end if
#include "netcdf_read_ids.inc"
</font>
</pre>