[Dart-dev] DART/branches Revision: 12025

[dart at ucar.edu]

nancy at ucar.edu
2017-10-27 11:51:34 -0600 (Fri, 27 Oct 2017)
263
removing restart file tool code from manhattan.
it still exists in the classic release but isn't
needed (nor works) here anymore.  the "source"
just prints a message like this and exits.

after a bit we can completely remove this, but
for now just deprecate it.




Modified: DART/branches/rma_trunk/assimilation_code/programs/restart_file_tool/restart_file_tool.f90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/programs/restart_file_tool/restart_file_tool.f90	2017-10-27 17:38:27 UTC (rev 12024)
+++ DART/branches/rma_trunk/assimilation_code/programs/restart_file_tool/restart_file_tool.f90	2017-10-27 17:51:34 UTC (rev 12025)
@@ -6,402 +6,9 @@
 
 program restart_file_tool
 
-! Program to overwrite the time on each ensemble in a restart file.
+print *, 'This tool is no longer supported.  DART initial condition and restart files'
+print *, 'are now in NetCDF format and any NetCDF tool can be used to manipulate them.'
 
-use time_manager_mod,    only : time_type, operator(<), operator(==), &
-                                set_time_missing, set_time,           &
-                                operator(/=), print_time, print_date, &
-                                set_calendar_type, GREGORIAN
-
-use utilities_mod,       only : register_module, error_handler, nmlfileunit, &
-                                E_MSG, E_ERR, find_namelist_in_file,         &
-                                check_namelist_read, logfileunit,            &
-                                do_nml_file, do_nml_term
-                                
-use assim_model_mod,     only : static_init_assim_model, get_model_size
-
-use state_vector_io_mod, only : open_restart_read, open_restart_write,     &
-                                awrite_state_restart, aread_state_restart, &
-                                close_restart
-
-
-use ensemble_manager_mod, only : init_ensemble_manager, ensemble_type, &
-                                 prepare_to_write_to_vars
-
-use mpi_utilities_mod,    only : initialize_mpi_utilities, task_count, &
-                                 finalize_mpi_utilities
-
-use types_mod,            only : i8
-
-
-implicit none
-
-! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
-   "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate  = "$Date$"
-
-integer                 :: iunit, io, member
-integer(i8)             :: model_size
-type(ensemble_type)     :: ens_handle
-character(len = 128)    :: ifile, ofile, msgstring
-logical                 :: one_by_one, has_cal
-character(len=16)       :: write_format
-
-!----------------------------------------------------------------
-! Most of these variables are namelist-controllable.
-!
-character(len = 128)  :: input_file_name  = "filter_restart",        &
-                         output_file_name = "filter_updated_restart"
-integer               :: ens_size                     = 1
-logical               :: single_restart_file_in       = .true.
-logical               :: single_restart_file_out      = .true.
-logical               :: write_binary_restart_files   = .true.
-logical               :: overwrite_data_time          = .false.
-type(time_type)       :: data_time, old_data_time
-integer               :: new_data_days = -1, new_data_secs = -1
-logical               :: input_is_model_advance_file  = .false.
-logical               :: output_is_model_advance_file = .false.
-logical               :: overwrite_advance_time       = .false.
-type(time_type)       :: advance_time, old_advance_time
-integer               :: new_advance_days = -1, new_advance_secs = -1
-logical               :: gregorian_cal = .true.
-logical               :: print_only = .false.
-
-namelist /restart_file_tool_nml/  &
-   input_file_name,              &
-   output_file_name,             &
-   ens_size,                     &
-   single_restart_file_in,       &
-   single_restart_file_out,      &
-   write_binary_restart_files,   &
-   overwrite_data_time,          &
-   new_data_days,                &
-   new_data_secs,                &
-   input_is_model_advance_file,  &
-   output_is_model_advance_file, &
-   overwrite_advance_time,       &
-   new_advance_days,             &
-   new_advance_secs,             &
-   gregorian_cal,                &
-   print_only
-
-
-!----------------------------------------------------------------
-!----------------------------------------------------------------
-
-! This program should only be run with a single process
-call initialize_mpi_utilities('restart_file_tool')
-
-if(task_count() > 1) &
-   call error_handler(E_ERR,'restart_file_tool','Only use single process', &
-                      source,revision,revdate)