[Dart-dev] DART/branches Revision: 10887

[dart at ucar.edu]

thoar at ucar.edu
2017-01-13 15:05:05 -0700 (Fri, 13 Jan 2017)
103
Reordering the default for stages_to_write.
Removing a debug print statment that is no longer needed.




Modified: DART/branches/rma_fixed_filenames/filter/filter_mod.f90
===================================================================
--- DART/branches/rma_fixed_filenames/filter/filter_mod.f90	2017-01-13 22:03:40 UTC (rev 10886)
+++ DART/branches/rma_fixed_filenames/filter/filter_mod.f90	2017-01-13 22:05:05 UTC (rev 10887)
@@ -174,7 +174,7 @@
 logical            :: single_file_in               = .false. ! all copies read  from 1 file
 logical            :: single_file_out              = .false. ! all copies written to 1 file
 ! Stages to write
-character(len=10)  :: stages_to_write(4) = (/"null      ", "null      ", "null      ", "output    "/) ! input, preassim, postassim, output
+character(len=10)  :: stages_to_write(4) = (/"output    ", "null      ", "null      ", "null      "/) ! input, preassim, postassim, output
 logical :: output_restarts  = .true. !>@todo rename to output_members?
 logical :: output_mean      = .true.
 logical :: output_sd        = .true.

Modified: DART/branches/rma_fixed_filenames/io/direct_netcdf_mod.f90
===================================================================
--- DART/branches/rma_fixed_filenames/io/direct_netcdf_mod.f90	2017-01-13 22:03:40 UTC (rev 10886)
+++ DART/branches/rma_fixed_filenames/io/direct_netcdf_mod.f90	2017-01-13 22:05:05 UTC (rev 10887)
@@ -404,7 +404,6 @@
 
       ! calculate how many variables will be read
       end_var = calc_end_var(start_var, domain, limit_mem)
-      if ((my_task_id() == 0) .and. (c == 1)) print*, 'start_var, end_var', start_var, end_var
       block_size = get_sum_variables(start_var, end_var, domain)
 
       if (is_reader) then
@@ -590,7 +589,6 @@
 
       ! calculate how many variables will be sent to writer
       end_var = calc_end_var(start_var, domain, limit_mem)
-      if ((my_task_id() == 0) .and. (c == 1 )) print*, 'start_var, end_var', start_var, end_var
       block_size = get_sum_variables(start_var, end_var, domain)
 
       if (is_writer) then

Modified: DART/branches/rma_fixed_filenames/io/state_vector_io_mod.nml
===================================================================
--- DART/branches/rma_fixed_filenames/io/state_vector_io_mod.nml	2017-01-13 22:03:40 UTC (rev 10886)
+++ DART/branches/rma_fixed_filenames/io/state_vector_io_mod.nml	2017-01-13 22:05:05 UTC (rev 10887)
@@ -1,5 +1,4 @@
 &state_vector_io_nml
-   limit_mem                  = HUGE(1_i4),
-   single_precision_output    = .false.,
-   write_binary_restart_files = .false.
+   limit_mem                  = 2100000000
+   single_precision_output    = .false.
 /