<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 &quot;netcdf_read_ids.inc&quot;
 

</font>
</pre>