[Dart-dev] [4633] DART/trunk/assim_model/assim_model_mod.f90: removed nested trim( adjustl()) calls

[nancy at ucar.edu]

Revision: 4633
Author:   thoar
Date:     2011-01-05 09:37:17 -0700 (Wed, 05 Jan 2011)
Log Message:
-----------
removed nested trim(adjustl()) calls

Modified Paths:
--------------
    DART/trunk/assim_model/assim_model_mod.f90

-------------- next part --------------
Modified: DART/trunk/assim_model/assim_model_mod.f90
===================================================================
--- DART/trunk/assim_model/assim_model_mod.f90	2011-01-05 16:35:33 UTC (rev 4632)
+++ DART/trunk/assim_model/assim_model_mod.f90	2011-01-05 16:37:17 UTC (rev 4633)
@@ -955,6 +955,7 @@
 integer :: ios, ios_out
 !!logical :: old_output_state
 type(time_type) :: temp_time
+character(len=64) :: string2
 
 if ( .not. module_initialized ) call static_init_assim_model()
 
@@ -991,7 +992,7 @@
 open_restart_read = get_unit()
 read_format = 'formatted'
 open(unit   = open_restart_read, &
-     file   = trim(file_name),         &
+     file   = trim(file_name),   &
      form   = read_format,       &
      action = 'read',            &
      status = 'old',             &
@@ -1011,7 +1012,7 @@
 open_restart_read = get_unit()
 read_format = 'unformatted'
 open(unit   = open_restart_read, &
-     file   = trim(file_name),         &
+     file   = trim(file_name),   &
      form   = read_format,       &
      action = 'read',            &
      status = 'old',             &
@@ -1028,11 +1029,12 @@
 
 ! Otherwise, neither format works. Have a fatal error.
 11 continue
-write(msgstring, *) 'Problem opening file ',trim(adjustl(file_name))
-call error_handler(E_MSG,'open_restart_read',msgstring,source,revision,revdate)
-write(msgstring, *) 'OPEN status was ',ios
-call error_handler(E_ERR,'open_restart_read',msgstring,source,revision,revdate)
 
+write(msgstring, *) 'Problem opening file ',trim(file_name)
+write( string2 , *) 'OPEN status was ',ios
+call error_handler(E_ERR, 'open_restart_read', msgstring, &
+     source, revision, revdate, text2=string2)
+
 end function open_restart_read