[Dart-dev] DART/branches Revision: 12730

[dart at ucar.edu]

hendric at ucar.edu
2018-07-11 14:01:13 -0600 (Wed, 11 Jul 2018)
124

adding perturb code, and updated documentation for some related programs.
works on multiple domains and runs in parallel.




Modified: DART/branches/pertirb_tool/assimilation_code/programs/closest_member_tool/closest_member_tool.f90
===================================================================
--- DART/branches/pertirb_tool/assimilation_code/programs/closest_member_tool/closest_member_tool.f90	2018-07-11 17:49:08 UTC (rev 12729)
+++ DART/branches/pertirb_tool/assimilation_code/programs/closest_member_tool/closest_member_tool.f90	2018-07-11 20:01:13 UTC (rev 12730)
@@ -37,7 +37,7 @@
 use assim_model_mod,      only : static_init_assim_model, get_model_size, &
                                  get_state_meta_data
 
-use state_vector_io_mod,  only : read_state, write_state
+use state_vector_io_mod,  only : read_state
 
 use io_filenames_mod,     only : file_info_type, io_filenames_init,        &
                                  set_io_copy_flag, set_file_metadata,      &
@@ -160,7 +160,7 @@
 
 num_domains = get_num_domains()
 
-! Given either a vector of in/output_state_files or a text file containing
+! Given either a vector of input_state_files or a text file containing
 ! a list of files, return a vector of files containing the filenames.
 call set_multiple_filename_lists(input_restart_files(:), &
                                  input_restart_file_list(:), &
@@ -176,10 +176,11 @@
 file_array_input  = RESHAPE(input_restart_files,  (/ens_size,  num_domains/))
 
 ! read in the ensemble and the mean - always in a separate file
-call io_filenames_init(ens_file_info, ens_size, &
-                       cycling=single_restart_file_in, &
-                       single_file=single_restart_file_in, &
-                       restart_files=file_array_input)
+call io_filenames_init(ens_file_info, &
+                       ncopies       = ens_size, &
+                       cycling       = single_restart_file_in, &
+                       single_file   = single_restart_file_in, &
+                       restart_files = file_array_input)
 
 do imem = 1, ens_size
    write(my_base,'(A,I0.2)') 'inens_',                 imem

Modified: DART/branches/pertirb_tool/assimilation_code/programs/fill_inflation_restart/fill_inflation_restart.f90
===================================================================
--- DART/branches/pertirb_tool/assimilation_code/programs/fill_inflation_restart/fill_inflation_restart.f90	2018-07-11 17:49:08 UTC (rev 12729)
+++ DART/branches/pertirb_tool/assimilation_code/programs/fill_inflation_restart/fill_inflation_restart.f90	2018-07-11 20:01:13 UTC (rev 12730)
@@ -64,7 +64,7 @@
 ! The namelist variables
 !------------------------------------------------------------------
 
-logical            :: single_file = .false.
+logical            :: single_file    = .FALSE.
 character(len=256) :: input_state_files(MAX_FILES)  = ''
 logical            :: write_prior_inf = .FALSE. 
 real(r8)           :: prior_inf_mean = MISSING_R8

Added: DART/branches/pertirb_tool/assimilation_code/programs/perturb_single_instance/.perturb_single_instance.f90.swo
===================================================================
(Binary files differ)

Index: DART/branches/pertirb_tool/assimilation_code/programs/perturb_single_instance/.perturb_single_instance.f90.swo
===================================================================
--- DART/branches/pertirb_tool/assimilation_code/programs/perturb_single_instance/.perturb_single_instance.f90.swo	2018-07-11 17:49:08 UTC (rev 12729)
+++ DART/branches/pertirb_tool/assimilation_code/programs/perturb_single_instance/.perturb_single_instance.f90.swo	2018-07-11 20:01:13 UTC (rev 12730)

Property changes on: DART/branches/pertirb_tool/assimilation_code/programs/perturb_single_instance/.perturb_single_instance.f90.swo
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+application/octet-stream
\ No newline at end of property
Added: DART/branches/pertirb_tool/assimilation_code/programs/perturb_single_instance/perturb_single_instance.f90
===================================================================
--- DART/branches/pertirb_tool/assimilation_code/programs/perturb_single_instance/perturb_single_instance.f90	                        (rev 0)
+++ DART/branches/pertirb_tool/assimilation_code/programs/perturb_single_instance/perturb_single_instance.f90	2018-07-11 20:01:13 UTC (rev 12730)
@@ -0,0 +1,266 @@
+! DART software - Copyright UCAR. This open source software is provided
+! by UCAR, "as is", without charge, subject to all terms of use at
+! http://www.image.ucar.edu/DAReS/DART/DART_download
+!
+! $Id: perturb_single_instance.f90 12665 2018-06-12 22:32:05Z hendric at ucar.edu $
+
+!>@todo FIXME the html needs to be made consistent with the namelist once the namelist
+!> is fleshed out.
+
+program perturb_single_instance
+
+! Program to overwrite the time on each ensemble in a restart file.
+
+use types_mod,            only : r8, i8, obstypelength, MAX_NUM_DOMS, MAX_FILES
+
+use time_manager_mod,     only : time_type, set_time_missing, operator(/=), &
+                                 print_time
+ 
+use utilities_mod,        only : register_module, find_namelist_in_file,        &
+                                 error_handler, nmlfileunit, E_MSG, E_ERR,      &
+                                 check_namelist_read, do_nml_file, do_nml_term, &
+                                 open_file, close_file, set_multiple_filename_lists
+
+use  location_mod,        only : location_type
+
+use  obs_kind_mod,        only : get_num_quantities, get_index_for_quantity, &
+                                 get_name_for_quantity
+