[Dart-dev] DART/branches Revision: 11012

[dart at ucar.edu]

nancy at ucar.edu
2017-02-07 11:05:06 -0700 (Tue, 07 Feb 2017)
55
make this routine return a logical and not an integer




Modified: DART/branches/rma_single_file/io/io_filenames_mod.f90
===================================================================
--- DART/branches/rma_single_file/io/io_filenames_mod.f90	2017-02-07 18:01:11 UTC (rev 11011)
+++ DART/branches/rma_single_file/io/io_filenames_mod.f90	2017-02-07 18:05:06 UTC (rev 11012)
@@ -1275,12 +1275,14 @@
 
 
 !------------------------------------------------------------------
-!> get netcdf file id
++!> return whether the init routines have been called?
++!> or whether it's been marked as using a single file? 
++!>@todo fixme: document what this routine does.
 
 function single_file_initialized(file_handle) result(is_initialized)
 
 type(file_info_type), intent(inout) :: file_handle
-integer :: is_initialized
+logical :: is_initialized
 
 is_initialized = file_handle%singlefile_initialized