[Dart-dev] DART/branches Revision: 10829

dart at ucar.edu dart at ucar.edu
Wed Dec 21 16:26:09 MST 2016


hendric at ucar.edu
2016-12-21 16:26:09 -0700 (Wed, 21 Dec 2016)
112
turn_{read,write}_copies{on,off} has moved to io_filenames_mod.
removing all references and updating comments.




Modified: DART/branches/rma_fixed_filenames/filter/filter_mod.f90
===================================================================
--- DART/branches/rma_fixed_filenames/filter/filter_mod.f90	2016-12-21 22:31:55 UTC (rev 10828)
+++ DART/branches/rma_fixed_filenames/filter/filter_mod.f90	2016-12-21 23:26:09 UTC (rev 10829)
@@ -205,6 +205,8 @@
 real(r8)             :: inf_upper_bound(2)        = 1000000.0_r8
 real(r8)             :: inf_sd_lower_bound(2)     = 0.0_r8
 
+logical :: debug = .false.
+
 namelist /filter_nml/ async, adv_ens_command, ens_size, tasks_per_model_advance, &
    output_restarts, obs_sequence_in_name, obs_sequence_out_name, &
    init_time_days, init_time_seconds, &
@@ -223,7 +225,7 @@
    perturb_from_single_instance, perturbation_amplitude, &
    stages_to_write, &
    output_restart_file_list, input_restart_file_list, &
-   output_mean, output_sd, write_all_stages_at_end 
+   output_mean, output_sd, write_all_stages_at_end, debug
 
 
 !----------------------------------------------------------------
@@ -435,7 +437,7 @@
 call set_inflation_mean_copy(post_inflate,  POST_INF_COPY)
 call set_inflation_sd_copy(  post_inflate,  POST_INF_SD_COPY)
 
-if (.not. silence) then  !>@todo abuse of the 'silence' variable
+if ( debug ) then  !>@todo abuse of the 'silence' variable
    call file_info_dump(file_info_input,     'filter:input')
    call file_info_dump(file_info_preassim,  'filter:preassim')
    call file_info_dump(file_info_postassim, 'filter:postassim')
@@ -2049,6 +2051,7 @@
 
 num_copies = cnum
  
+if ( debug ) then
   print*,  ' num_copies              = ', num_copies    
   print*,  '                           '
   print*,  ' ENS_MEM_START           = ', ENS_MEM_START    
@@ -2081,6 +2084,8 @@
   print*,  ' POSTASSIM_POSTINF_MEAN  = ', POSTASSIM_POSTINF_MEAN 
   print*,  ' POSTASSIM_POSTINF_SD    = ', POSTASSIM_POSTINF_SD   
 
+endif
+
 end function count_state_ens_copies
 
 
@@ -2218,9 +2223,11 @@
    call error_handler(E_MSG,'parse_stages_to_write',msgstring,source,revision,revdate)
    if (trim(my_stage) /= trim('NULL')) then
       call set_stage_to_write(stages(i),.true.)
-      write(msgstring,*)"PARSE STAGE "//trim(stages(i))//" TRUE"
-      call error_handler(E_MSG,'parse_stages_to_write', &
-                         msgstring,source,revision,revdate)
+      if (debug) then
+        write(msgstring,*)"PARSE STAGE "//trim(stages(i))//" TRUE"
+        call error_handler(E_MSG,'parse_stages_to_write', &
+                           msgstring,source,revision,revdate)
+      endif
    endif
 enddo
 

Modified: DART/branches/rma_fixed_filenames/io/copies_on_off_mod.f90
===================================================================
--- DART/branches/rma_fixed_filenames/io/copies_on_off_mod.f90	2016-12-21 22:31:55 UTC (rev 10828)
+++ DART/branches/rma_fixed_filenames/io/copies_on_off_mod.f90	2016-12-21 23:26:09 UTC (rev 10829)
@@ -33,21 +33,6 @@
                              stage_metadata_type, READ_COPY, WRITE_COPY, READ_WRITE_COPY, NO_IO
 implicit none
 
-interface turn_read_copy_on
-   module procedure turn_read_copy_on_single
-   module procedure turn_read_copy_on_range
-end interface
-
-interface turn_write_copy_on
-   module procedure turn_write_copy_on_single
-   module procedure turn_write_copy_on_range
-end interface
-
-interface turn_write_copy_off
-   module procedure turn_write_copy_off_single
-   module procedure turn_write_copy_off_range
-end interface
-
 private
 
 ! version controlled file description for error handling, do not edit
@@ -56,9 +41,7 @@
 character(len=32 ), parameter :: revision = "$Revision$"
 character(len=128), parameter :: revdate  = "$Date$"
 
-public :: query_read_copy,    query_write_copy
-public :: turn_read_copy_on,  turn_read_copies_off
-public :: turn_write_copy_on, turn_write_copy_off
+public :: query_read_copy, query_write_copy
 
 ! These are public integers for now.  
 ! There is no protection against code using this module changing the


More information about the Dart-dev mailing list