[Dart-dev] DART/branches Revision: 12626

[dart at ucar.edu]

nancy at ucar.edu
2018-06-05 14:12:45 -0600 (Tue, 05 Jun 2018)
336
obs_common_subset: include an executable call to
a debugging print routine, with if(.false.) in front,
to avoid compiler warnings about an unused routine.

full_error:  remove final optional argument that isn't
currently being supported in this branch.

path_names_test_sampling_err_table: add netcdf utils
mod to the path_names file.




Modified: DART/branches/recam/assimilation_code/programs/obs_common_subset/obs_common_subset.f90
===================================================================
--- DART/branches/recam/assimilation_code/programs/obs_common_subset/obs_common_subset.f90	2018-06-05 20:10:41 UTC (rev 12625)
+++ DART/branches/recam/assimilation_code/programs/obs_common_subset/obs_common_subset.f90	2018-06-05 20:12:45 UTC (rev 12626)
@@ -770,10 +770,10 @@
 write(msgstring,*) 'Processing sequence file ', trim(filename)
 call error_handler(E_MSG,'',msgstring)
 
-!  for an obs_seq final file which has lots of ensemble members, this
-!  is really long and obscures useful data.  comment it out for now.
+!  for an obs_seq final file which has lots of ensemble members this
+!  is really long and obscures useful data.  disable it for now.
 !  at some point we could make a verbose option which could re-enable it.
-!call print_metadata(seq_in, filename)
+if (.false.) call print_metadata(seq_in, filename)
 
 
 ! Start to process obs from seq_in

Modified: DART/branches/recam/assimilation_code/programs/system_simulation/full_error.f90
===================================================================
--- DART/branches/recam/assimilation_code/programs/system_simulation/full_error.f90	2018-06-05 20:10:41 UTC (rev 12625)
+++ DART/branches/recam/assimilation_code/programs/system_simulation/full_error.f90	2018-06-05 20:12:45 UTC (rev 12626)
@@ -66,9 +66,9 @@
 call initialize_utilities('full_error')
 
 ! Read the namelist entry
-call find_namelist_in_file("input.nml", "full_error_nml", iunit, .false.)
+call find_namelist_in_file("input.nml", "full_error_nml", iunit)
 read(iunit, nml = full_error_nml, iostat = io)
-call check_namelist_read(iunit, io, "full_error_nml", .false.)
+call check_namelist_read(iunit, io, "full_error_nml")
 
 ! Record the namelist values used for the run
 if (do_nml_file()) write(nmlfileunit, nml=full_error_nml)

Modified: DART/branches/recam/assimilation_code/programs/system_simulation/work/path_names_test_sampling_err_table
===================================================================
--- DART/branches/recam/assimilation_code/programs/system_simulation/work/path_names_test_sampling_err_table	2018-06-05 20:10:41 UTC (rev 12625)
+++ DART/branches/recam/assimilation_code/programs/system_simulation/work/path_names_test_sampling_err_table	2018-06-05 20:12:45 UTC (rev 12626)
@@ -4,4 +4,5 @@
 assimilation_code/modules/utilities/time_manager_mod.f90
 assimilation_code/modules/utilities/types_mod.f90
 assimilation_code/modules/utilities/utilities_mod.f90
+assimilation_code/modules/utilities/netcdf_utilities_mod.f90
 assimilation_code/programs/system_simulation/test_sampling_err_table.f90