[Dart-dev] DART/branches Revision: 11598

[dart at ucar.edu]

nancy at ucar.edu
2017-05-03 17:01:54 -0600 (Wed, 03 May 2017)
248
remove unused routine from the locations_io module.
remove confusing comment. put in a namelist flag
for the obs_sequence_tool as a reminder to me that
i need to add the code to set the flag so it writes
out the external FOs if they were read in.




Modified: DART/branches/model_mod_changes/assimilation_code/programs/obs_seq_coverage/obs_seq_coverage.f90
===================================================================
--- DART/branches/model_mod_changes/assimilation_code/programs/obs_seq_coverage/obs_seq_coverage.f90	2017-05-03 22:58:51 UTC (rev 11597)
+++ DART/branches/model_mod_changes/assimilation_code/programs/obs_seq_coverage/obs_seq_coverage.f90	2017-05-03 23:01:54 UTC (rev 11598)
@@ -37,8 +37,7 @@
                              set_location, is_location_in_region, query_location, &
                              is_vertical, VERTISUNDEF
 
-use  location_io_mod, only : nc_write_location_atts, nc_get_location_varids, &
-                             nc_write_location
+use  location_io_mod, only : nc_write_location_atts, nc_write_location
 
 use time_manager_mod, only : time_type, set_date, set_time, get_time, &
                              set_calendar_type, get_calendar_string, &
@@ -1041,7 +1040,7 @@
 
 ! let the location module write what it needs to ...
 
-!>@todo FIXME what was this doing?
+! create a 'location' variable
 call nc_write_location_atts(ncid, 0, voxelsDimID)
 
 ! Define the mandatory level corresponding to each voxel

Modified: DART/branches/model_mod_changes/assimilation_code/programs/obs_seq_to_netcdf/obs_seq_to_netcdf.f90
===================================================================
--- DART/branches/model_mod_changes/assimilation_code/programs/obs_seq_to_netcdf/obs_seq_to_netcdf.f90	2017-05-03 22:58:51 UTC (rev 11597)
+++ DART/branches/model_mod_changes/assimilation_code/programs/obs_seq_to_netcdf/obs_seq_to_netcdf.f90	2017-05-03 23:01:54 UTC (rev 11598)
@@ -24,8 +24,7 @@
 use     obs_kind_mod, only : max_defined_types_of_obs, get_name_for_type_of_obs
 use     location_mod, only : location_type, write_location, operator(/=), operator(==), &
                              set_location, is_location_in_region, query_location
-use  location_io_mod, only : nc_write_location_atts, nc_get_location_varids, &
-                             nc_write_location
+use  location_io_mod, only : nc_write_location_atts, nc_write_location
 use time_manager_mod, only : time_type, get_time, print_time, &
                              get_calendar_string, print_date, &
                              operator(>), operator(<) 

Modified: DART/branches/model_mod_changes/assimilation_code/programs/obs_seq_verify/obs_seq_verify.f90
===================================================================
--- DART/branches/model_mod_changes/assimilation_code/programs/obs_seq_verify/obs_seq_verify.f90	2017-05-03 22:58:51 UTC (rev 11597)
+++ DART/branches/model_mod_changes/assimilation_code/programs/obs_seq_verify/obs_seq_verify.f90	2017-05-03 23:01:54 UTC (rev 11598)
@@ -76,8 +76,7 @@
                              set_location, is_location_in_region, query_location, &
                              VERTISUNDEF, is_vertical
 
-use  location_io_mod, only : nc_write_location_atts, nc_get_location_varids, &
-                             nc_write_location
+use  location_io_mod, only : nc_write_location_atts, nc_write_location
 
 use time_manager_mod, only : time_type, set_date, set_time, get_time, print_time, &
                              set_time_missing, print_date, set_calendar_type, &

Modified: DART/branches/model_mod_changes/assimilation_code/programs/obs_sequence_tool/obs_sequence_tool.f90
===================================================================
--- DART/branches/model_mod_changes/assimilation_code/programs/obs_sequence_tool/obs_sequence_tool.f90	2017-05-03 22:58:51 UTC (rev 11597)
+++ DART/branches/model_mod_changes/assimilation_code/programs/obs_sequence_tool/obs_sequence_tool.f90	2017-05-03 23:01:54 UTC (rev 11598)
@@ -19,7 +19,7 @@
                              LocationName !%! , vert_is_height 
                              ! see comment in select_gps_by_height() for explanation of !%!
 use      obs_def_mod, only : obs_def_type, get_obs_def_time, get_obs_def_type_of_obs, &
-                             get_obs_def_location
+                             get_obs_def_location, set_obs_def_write_external_FO
 use     obs_kind_mod, only : max_defined_types_of_obs, get_name_for_type_of_obs, get_index_for_type_of_obs
 use time_manager_mod, only : time_type, operator(>), print_time, set_time, &
                              print_date, set_calendar_type, GREGORIAN
@@ -135,6 +135,8 @@
 logical  :: gregorian_cal = .true.
 real(r8) :: min_gps_height = missing_r8
 
+logical  :: write_external_FOs
+
 namelist /obs_sequence_tool_nml/ &
          num_input_files, filename_seq, filename_seq_list, filename_out,     &
          first_obs_days, first_obs_seconds, last_obs_days, last_obs_seconds, &
@@ -144,7 +146,7 @@
          min_gps_height, edit_copy_metadata, new_copy_index,                 &
          edit_qc_metadata, new_qc_index, synonymous_copy_list,               &
          synonymous_qc_list, edit_copies, edit_qcs, new_copy_metadata,       &
-         new_qc_metadata, new_copy_data, new_qc_data
+         new_qc_metadata, new_copy_data, new_qc_data, write_external_FOs
 
 !----------------------------------------------------------------
 ! Start of the program: