[Dart-dev] DART/branches Revision: 11054

[dart at ucar.edu]

nancy at ucar.edu
2017-02-08 15:36:43 -0700 (Wed, 08 Feb 2017)
218
for now, make the inline lists for filter error out.
we have to sort out how to order multi-domain lists,
and the interface to io_filename_init() currently
requires an indirect file - so for now i'm leaving
it alone.




Modified: DART/branches/rma_single_file/filter/filter_mod.f90
===================================================================
--- DART/branches/rma_single_file/filter/filter_mod.f90	2017-02-08 22:34:45 UTC (rev 11053)
+++ DART/branches/rma_single_file/filter/filter_mod.f90	2017-02-08 22:36:43 UTC (rev 11054)
@@ -2203,6 +2203,16 @@
 type(file_info_type), intent(out) :: file_info_postassim
 type(file_info_type), intent(out) :: file_info_output
 
+!>@todo FIXME temporary error message until we handle filename in the namelist
+!> (for now, you need to use the indirect file which contains a list of files)
+if (( input_state_files(1) /= 'null' .and.  input_state_files(1) /= '') .or. &
+    (output_state_files(1) /= 'null' .and. output_state_files(1) /= '')) then
+   call error_handler(E_ERR,'initialize_file_information', &
+                      'input_state_files and output_state_files are currently unsupported.',  &
+                      source, revision, revdate, &
+                      text2='please use input_state_file_list and output_state_file_list instead')
+endif
+
 ! Allocate space for the filename handles
 print*, 'initializing filter_input'
 call io_filenames_init(file_info_input,     num_state_ens_copies, has_cycling, single_file_in,      &