[Dart-dev] [5792] DART/branches/development/utilities/utilities_mod.f90: Consolidated error message.

[nancy at ucar.edu]

Revision: 5792
Author:   thoar
Date:     2012-07-17 14:39:27 -0600 (Tue, 17 Jul 2012)
Log Message:
-----------
Consolidated error message.

Modified Paths:
--------------
    DART/branches/development/utilities/utilities_mod.f90

-------------- next part --------------
Modified: DART/branches/development/utilities/utilities_mod.f90
===================================================================
--- DART/branches/development/utilities/utilities_mod.f90	2012-07-17 20:30:52 UTC (rev 5791)
+++ DART/branches/development/utilities/utilities_mod.f90	2012-07-17 20:39:27 UTC (rev 5792)
@@ -190,7 +190,6 @@
    revision = "$Revision$", &
    revdate  = "$Date$"
 
-
 character(len = 169) :: msgstring
 
 !----------------------------------------------------------------
@@ -964,12 +963,8 @@
       endif
 
       if (rc /= 0) then
-         call error_handler(E_MSG,'open_file', &
-                            'Trying to open file "'//trim(fname)//'" for '//act)
-         call error_handler(E_ERR,'open_file', &
-                            'Cannot open file "' // trim(fname) // '"', &
-                            source, revision, revdate)
-
+         write(msgstring,*)'Cannot open file "'//trim(fname)//'" for '//trim(act)
+         call error_handler(E_ERR, msgstring, source, revision, revdate)
       endif
    endif