[Dart-dev] DART/branches Revision: 11091

[dart at ucar.edu]

hendric at ucar.edu
2017-02-10 13:49:25 -0700 (Fri, 10 Feb 2017)
125
adding a formatted print for when the number of domains in
the state structure does not match the number of files provided.




Modified: DART/branches/rma_single_file/io/io_filenames_mod.f90
===================================================================
--- DART/branches/rma_single_file/io/io_filenames_mod.f90	2017-02-10 16:53:58 UTC (rev 11090)
+++ DART/branches/rma_single_file/io/io_filenames_mod.f90	2017-02-10 20:49:25 UTC (rev 11091)
@@ -492,8 +492,8 @@
 
 ! check that the number of domains matches the size of file names provided
 if (get_num_domains() /= size(fnames(:),1)) then
-   write(msgstring,*) 'num domains ', get_num_domains(), &
-                      ' /= size(fnames) : ', size(fnames(:),1)
+   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, &
                       source, revision, revdate)
 endif