[Dart-dev] DART/branches Revision: 12512

[dart at ucar.edu]

nancy at ucar.edu
2018-04-12 11:45:26 -0600 (Thu, 12 Apr 2018)
102
roll back last two changes which went to the rma_trunk
instead of my branch by mistake.  thanks tim.




Index: DART/branches/rma_trunk
===================================================================
--- DART/branches/rma_trunk	2018-04-12 17:26:05 UTC (rev 12511)
+++ DART/branches/rma_trunk	2018-04-12 17:45:26 UTC (rev 12512)

Property changes on: DART/branches/rma_trunk
___________________________________________________________________
Modified: svn:mergeinfo
## -7,7 +7,6 ##
 /DART/branches/helen:5989-6155
 /DART/branches/mmc:12038-12269
 /DART/branches/model_mod_changes:11403-11604
-/DART/branches/nsc_updates:12474-12510
 /DART/branches/rma_array_nml:11814-11839
 /DART/branches/rma_cam_fv:9552-9728
 /DART/branches/rma_cf_conventions:9727-10086
## -48,6 +47,6 ##
 /DART/branches/rma_trunk_read_transpose:9208-9250
 /DART/branches/rma_trunk_vert_loc:8532-8537
 /DART/branches/rma_types_kinds:11202-11236
-/DART/branches/rma_updates_nancy:11615-12492
+/DART/branches/rma_updates_nancy:11615-11676
 /DART/branches/trunk_with_cam_style:9467-9534
 /DART/trunk:6306-9550
\ No newline at end of property
Modified: DART/branches/rma_trunk/assimilation_code/modules/assimilation/filter_mod.f90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/modules/assimilation/filter_mod.f90	2018-04-12 17:26:05 UTC (rev 12511)
+++ DART/branches/rma_trunk/assimilation_code/modules/assimilation/filter_mod.f90	2018-04-12 17:45:26 UTC (rev 12512)
@@ -189,7 +189,7 @@
 logical  :: trace_execution          = .false.
 logical  :: write_obs_every_cycle    = .false.  ! debug only
 logical  :: silence                  = .false.
-logical  :: distributed_state        = .true. ! Default is RMA mode: state complete FOs
+logical  :: distributed_state = .true. ! Default to do state complete forward operators.
 
 ! IO options
 !>@todo FIXME - how does this work for multiple domains?  ens1d1, ens2d1, ... ens1d2 or
@@ -871,7 +871,8 @@
 
    call trace_message('Before observation space diagnostics')
 
-   ! This is where the mean obs copy ( + others ) is moved to task 0 so it can update seq.
+   ! This is where the mean obs
+   ! copy ( + others ) is moved to task 0 so task 0 can update seq.
    ! There is a transpose (all_copies_to_all_vars(obs_fwd_op_ens_handle)) in obs_space_diagnostics
    ! Do prior observation space diagnostics and associated quality control
    call obs_space_diagnostics(obs_fwd_op_ens_handle, qc_ens_handle, ens_size, &
@@ -1016,7 +1017,7 @@
 
    call trace_message('Before posterior obs space diagnostics')
 
-   ! This is where the mean obs copy ( + others ) is moved to task 0 so it can update seq.
+   ! Write posterior observation space diagnostics
    ! There is a transpose (all_copies_to_all_vars(obs_fwd_op_ens_handle)) in obs_space_diagnostics
    call obs_space_diagnostics(obs_fwd_op_ens_handle, qc_ens_handle, ens_size, &
       seq, keys, POSTERIOR_DIAG, num_output_obs_members, in_obs_copy+2, &

Modified: DART/branches/rma_trunk/assimilation_code/modules/assimilation/quality_control_mod.f90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/modules/assimilation/quality_control_mod.f90	2018-04-12 17:26:05 UTC (rev 12511)
+++ DART/branches/rma_trunk/assimilation_code/modules/assimilation/quality_control_mod.f90	2018-04-12 17:45:26 UTC (rev 12512)
@@ -57,8 +57,9 @@
 integer, parameter :: DARTQC_NOT_IN_NAMELIST       = 5
 integer, parameter :: DARTQC_BAD_INCOMING_QC       = 6
 integer, parameter :: DARTQC_FAILED_OUTLIER_TEST   = 7
-integer, parameter :: DARTQC_FAILED_VERT_CONVERT   = 8
-integer, parameter :: DARTQC_OUTSIDE_DOMAIN        = 9  ! we have no way (yet) for the model_mod to signal this
+integer, parameter :: DARTQC_FAILED_VERT_CONVERT   = 4   ! change this to 8 after we test more
+!integer, parameter :: DARTQC_FAILED_VERT_CONVERT   = 8
+!integer, parameter :: DARTQC_OUTSIDE_DOMAIN        = 9  ! we have no way (yet) for the model_mod to signal this
 
 !------------------------------------------------------------------------------
 ! namelist parameters
@@ -133,7 +134,7 @@
 if(input_qc == 0 .and. (assimilate_this_ob .or. evaluate_this_ob)) then
    set_input_qc = 0.0_r8
 else
-   set_input_qc = 1000.0_r8 + input_qc
+   set_input_qc = 1000.0_r8
 endif
 
 end function set_input_qc

Modified: DART/branches/rma_trunk/assimilation_code/modules/io/state_vector_io_mod.f90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/modules/io/state_vector_io_mod.f90	2018-04-12 17:26:05 UTC (rev 12511)
+++ DART/branches/rma_trunk/assimilation_code/modules/io/state_vector_io_mod.f90	2018-04-12 17:45:26 UTC (rev 12512)
@@ -68,8 +68,6 @@
 
 use state_structure_mod,  only : get_num_domains
 
-!use assim_tools_mod, only : get_missing_ok_status
-
 use netcdf
 
 
@@ -285,8 +283,6 @@
 integer :: domain     ! loop index
 type(stage_metadata_type) :: restart_files