[Dart-dev] DART/branches Revision: 10746

[dart at ucar.edu]

hendric at ucar.edu
2016-11-14 08:02:05 -0700 (Mon, 14 Nov 2016)
114
Removing overwrite_input.  This can now be namelist driven

  input_restart_file_list = output_restart_file_list




Modified: DART/branches/rma_fixed_filenames/io/io_filenames_mod.f90
===================================================================
--- DART/branches/rma_fixed_filenames/io/io_filenames_mod.f90	2016-11-14 14:59:45 UTC (rev 10745)
+++ DART/branches/rma_fixed_filenames/io/io_filenames_mod.f90	2016-11-14 15:02:05 UTC (rev 10746)
@@ -89,7 +89,6 @@
    private
    logical            :: initialized       = .false.
 
-   logical            :: overwrite_input   = .false. ! sets output file = input file
    !>@todo FIXME JPH: do we need domain_extension anymore?
    logical            :: domain_extension  = .false. ! add _d0X to filenames
    logical            :: pmo_run           = .false. ! for perfect model obs
@@ -204,8 +203,7 @@
 !> have to change this namelist between running perfect_model_obs and
 !> filter.
 function io_filenames_init(ens_handle, single_restart_file_in,  single_restart_file_out, &
-             input_restart_list, output_restart_list, pmo_run, domain_extension, &
-             overwrite_input) result(file_info)
+             input_restart_list, output_restart_list, pmo_run, domain_extension, ) result(file_info)
 
 type(ensemble_type), intent(in) :: ens_handle
 logical,             intent(in) :: single_restart_file_in ! all copies read from one file
@@ -215,7 +213,6 @@
 character(len=*),   optional, intent(in) :: output_restart_list(10) ! list of output restarts one for each domain
 logical,            optional, intent(in) :: pmo_run
 logical,            optional, intent(in) :: domain_extension ! add _d0X to filenames
-logical,            optional, intent(in) :: overwrite_input  ! sets output file = input file
 type(file_info_type) :: file_info
 
 
@@ -234,7 +231,6 @@
 endif
 
 if(present(domain_extension)) file_info%options%domain_extension = domain_extension
-if(present(overwrite_input))  file_info%options%overwrite_input  = overwrite_input
 
 ! loads up filenames and checks any existing files are the correct shape
 call set_filenames(ens_handle, file_info)
@@ -314,11 +310,6 @@
       write(file_string,'(A,I2.2,A)') 'dart prior member ', icopy, trim(dom_str)
       file_info%restart_files_out_prior%file_description(icopy,idom) = file_string
 
-      !  restart file names and descriptions
-      if (file_info%options%overwrite_input) then
-         file_info%restart_files_out%filenames(icopy, idom) = file_info%restart_files_in%filenames(icopy, idom)
-      endif
-
       write(file_string,'(A,I2.2,A)') 'dart output member ', icopy, trim(dom_str)
       file_info%restart_files_out%file_description(icopy,idom) = file_string
    enddo