[Dart-dev] DART/branches Revision: 10836

[dart at ucar.edu]

hendric at ucar.edu
2016-12-23 11:51:04 -0700 (Fri, 23 Dec 2016)
37
updating comments. no code changes.




Modified: DART/branches/rma_fixed_filenames/filter/filter_mod.f90
===================================================================
--- DART/branches/rma_fixed_filenames/filter/filter_mod.f90	2016-12-23 18:48:02 UTC (rev 10835)
+++ DART/branches/rma_fixed_filenames/filter/filter_mod.f90	2016-12-23 18:51:04 UTC (rev 10836)
@@ -2186,6 +2186,7 @@
 
 MEM_END = MEM_START+num_ens-1
 
+!>@todo revisit if we should be clamping mean copy for file_info_output
 if ( output_restarts )      &
    call set_io_copy_flag(file_info, MEM_START, MEM_END, WRITE_COPY, clamp_vars=do_clamping)
 if ( output_mean )          &

Modified: DART/branches/rma_fixed_filenames/io/io_filenames_mod.f90
===================================================================
--- DART/branches/rma_fixed_filenames/io/io_filenames_mod.f90	2016-12-23 18:48:02 UTC (rev 10835)
+++ DART/branches/rma_fixed_filenames/io/io_filenames_mod.f90	2016-12-23 18:51:04 UTC (rev 10836)
@@ -372,16 +372,10 @@
 
 
 !-------------------------------------------------------
-!> Write file name and description
+!> Explicitly construct a file name from a list of files
 
 subroutine set_explicit_file_metadata(file_info, cnum, fnames, desc)
 
-! EXAMPLE: to construct a file name of 'input_mean_d01.nc'
-!   cnum is ensemble copy number and is not used in the file name
-!   stage_name is 'input'
-!   base_name is 'mean'
-!   desc is 'prior ensemble mean'
-
 type(file_info_type), intent(inout) :: file_info
 integer,              intent(in)    :: cnum
 character(len=*),     intent(in)    :: fnames(:)
@@ -401,7 +395,7 @@
                       source, revision, revdate)
 endif
 
-! Array of files (multiple domains)
+! Array of files (possibly multiple domains)
 file_info%stage_metadata%my_copy_number(cnum) = cnum
 do idom = 1, get_num_domains()
     if (get_num_domains() > 1) then