[Dart-dev] [3800] DART/trunk/obs_sequence/obs_sequence_mod.f90: modifying print statement for 'close' to match that of 'open' for

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090408/24985b3f/attachment.html 
-------------- next part --------------
Modified: DART/trunk/obs_sequence/obs_sequence_mod.f90
===================================================================
--- DART/trunk/obs_sequence/obs_sequence_mod.f90	2009-04-03 22:28:30 UTC (rev 3799)
+++ DART/trunk/obs_sequence/obs_sequence_mod.f90	2009-04-09 03:08:42 UTC (rev 3800)
@@ -1167,7 +1167,7 @@
 ! Close up the file
 call close_file(file_id)
 
-write(msg_string, '(A129)') 'closed file '//trim(file_name)
+write(msg_string, *) 'closed file '//trim(file_name)
 call error_handler(E_MSG,'write_obs_seq',msg_string,source,revision,revdate)
 
 end subroutine write_obs_seq