[Dart-dev] DART/branches Revision: 12488

[dart at ucar.edu]

nancy at ucar.edu
2018-04-03 14:37:51 -0600 (Tue, 03 Apr 2018)
209
fix a typo in the comment in PMO.  in the QC module,
add the istatus to 1000 for failed FOs so we can track
more easily why obs aren't getting a value.  is this
something we want to migrate to the rma_trunk?




Modified: DART/branches/nsc_updates/assimilation_code/modules/assimilation/quality_control_mod.f90
===================================================================
--- DART/branches/nsc_updates/assimilation_code/modules/assimilation/quality_control_mod.f90	2018-04-03 20:20:04 UTC (rev 12487)
+++ DART/branches/nsc_updates/assimilation_code/modules/assimilation/quality_control_mod.f90	2018-04-03 20:37:51 UTC (rev 12488)
@@ -134,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
+   set_input_qc = 1000.0_r8 + input_qc
 endif
 
 end function set_input_qc

Modified: DART/branches/nsc_updates/assimilation_code/programs/perfect_model_obs/perfect_model_obs.f90
===================================================================
--- DART/branches/nsc_updates/assimilation_code/programs/perfect_model_obs/perfect_model_obs.f90	2018-04-03 20:20:04 UTC (rev 12487)
+++ DART/branches/nsc_updates/assimilation_code/programs/perfect_model_obs/perfect_model_obs.f90	2018-04-03 20:37:51 UTC (rev 12488)
@@ -553,7 +553,7 @@
             obs_value(1) = random_gaussian(random_seq, true_obs(1), &
                sqrt(get_obs_def_error_variance(obs_def)))
 
-            ! FIX ME SPINT: if the foward operater passed can we directly set the
+            ! FIX ME SPINT: if the forward operater passed can we directly set the
             ! qc status?
 
             ! Set qc to 0 if none existed before