[Dart-dev] DART/branches Revision: 10993

[dart at ucar.edu]

hendric at ucar.edu
2017-02-03 11:26:32 -0700 (Fri, 03 Feb 2017)
43
error message instead of print statement.




Modified: DART/branches/rma_single_file/io/io_filenames_mod.f90
===================================================================
--- DART/branches/rma_single_file/io/io_filenames_mod.f90	2017-02-03 17:34:18 UTC (rev 10992)
+++ DART/branches/rma_single_file/io/io_filenames_mod.f90	2017-02-03 18:26:32 UTC (rev 10993)
@@ -256,9 +256,6 @@
 character(len=*), optional, intent(in) :: single_filename  !< base if restart_list not given
 logical,          optional, intent(in) :: check_output_compatibility !< ensure netCDF variables exist in output BEFORE spending a ton of core hours
 
-!type(file_info_type) :: io_filenames_init  !< structure with expanded list of filenames
-
-
 integer :: num_domains
 
 file_info%single_file = single_file
@@ -285,8 +282,8 @@
 file_info%stage_metadata%my_copy_number   = -1
 file_info%stage_metadata%noutput_ens      = 0
 file_info%stage_metadata%num_copies       = num_copies
-file_info%stage_metadata%copy_name        = 'copy name not set'
-file_info%stage_metadata%long_name        = 'long name not set'
+file_info%stage_metadata%copy_name        = 'copy_name_not_set'
+file_info%stage_metadata%long_name        = 'long_name_not_set'
 file_info%stage_metadata%filenames        = 'null'
 file_info%stage_metadata%file_description = 'null'
 
@@ -294,8 +291,9 @@
    if ( present(single_filename) ) then
       file_info%single_filename = single_filename
    else
-      print*, 'if single file must have single_filename present'
-      call exit(0)
+     write(msgstring,*) 'if single_file = .true. , must have single_filename present'
+     call error_handler(E_ERR,'io_filenames_init', &
+                 msgstring, source, revision, revdate)
    endif
 endif