[Dart-dev] [3784] DART/trunk/assim_model/assim_model_mod.f90: comment only about help with debugging

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090303/22eec051/attachment.html 
-------------- next part --------------
Modified: DART/trunk/assim_model/assim_model_mod.f90
===================================================================
--- DART/trunk/assim_model/assim_model_mod.f90	2009-03-03 18:27:35 UTC (rev 3783)
+++ DART/trunk/assim_model/assim_model_mod.f90	2009-03-03 21:47:46 UTC (rev 3784)
@@ -935,6 +935,13 @@
 !!call set_output(old_output_state)
 !END DEBUG
 
+! if you want to document which file(s) are being opened before
+! trying the open (e.g. in case the fortran runtime library intercepts
+! the error and does not return to let us print out the name) then
+! comment this in and you can see what files are being opened.
+!write(msgstring, *) 'Opening restart file ',trim(adjustl(file_name))
+!call error_handler(E_MSG,'open_restart_read',msgstring,source,revision,revdate)
+
 ! WARNING: Absoft Pro Fortran 9.0, on a power-pc mac, is convinced
 ! that certain binary files are, in fact, ascii, because the read_time 
 ! call is returning what seems like a good time even though it should