[Dart-dev] DART/branches Revision: 11752

[dart at ucar.edu]

hendric at ucar.edu
2017-06-21 11:16:16 -0600 (Wed, 21 Jun 2017)
77

checking domains size agains the number of files in the 
input files list.




Modified: DART/branches/rma_mmc/assimilation_code/modules/io/io_filenames_mod.f90
===================================================================
--- DART/branches/rma_mmc/assimilation_code/modules/io/io_filenames_mod.f90	2017-06-21 16:37:08 UTC (rev 11751)
+++ DART/branches/rma_mmc/assimilation_code/modules/io/io_filenames_mod.f90	2017-06-21 17:16:16 UTC (rev 11752)
@@ -487,7 +487,7 @@
 file_info%stage_metadata%copy_name(     cnum) = trim(basename)
 
 ! check that the number of domains matches the size of file names provided
-if (get_num_domains() > 1 ) then !.and. get_num_domains() /= size(fnames(:),1)) then
+if (get_num_domains() .and. get_num_domains() /= size(fnames(:),1)) then
    write(msgstring,'(A,I2,A,I2)') 'num_domains ', get_num_domains(), &
                                   ' /= size(fnames) : ', size(fnames(:),1)
    call error_handler(E_ERR, 'set_explicit_file_metadata', msgstring, &