[Dart-dev] DART/branches Revision: 12191

[dart at ucar.edu]

hendric at ucar.edu
2017-12-08 13:55:50 -0700 (Fri, 08 Dec 2017)
164

added QTY_ION_O_MIXING_RATIO and QTY_ATOMIC_H_MIXING_RATIO
to the kinds list and pulled out oxygen_ion_density routine
from WACCAM and put it into a new obs_def.




Modified: DART/branches/recam/assimilation_code/modules/observations/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/branches/recam/assimilation_code/modules/observations/DEFAULT_obs_kind_mod.F90	2017-12-08 20:54:05 UTC (rev 12190)
+++ DART/branches/recam/assimilation_code/modules/observations/DEFAULT_obs_kind_mod.F90	2017-12-08 20:55:50 UTC (rev 12191)
@@ -458,10 +458,15 @@
   QTY_CWP_PATH                      = 363, &
   QTY_CWP_PATH_ZERO                 = 364
 
+! WACCAM
+integer, parameter, public :: &
+  QTY_ION_O_MIXING_RATIO            = 365, &
+  QTY_ATOMIC_H_MIXING_RATIO         = 366
+
 ! max_defined_quantities is private to this module.  see comment below near the max_obs_specific
 ! declaration for more info about publics and private values.
 
-integer, parameter :: max_defined_quantities = 364
+integer, parameter :: max_defined_quantities = 366
 
 !----------------------------------------------------------------------------
 ! This list is autogenerated by the 'preprocess' program.  To add new
@@ -868,6 +873,8 @@
 obs_kind_names(362) = obs_kind_type(QTY_SMALL_SCALE_STATE,     'QTY_SMALL_SCALE_STATE')
 obs_kind_names(363) = obs_kind_type(QTY_CWP_PATH,              'QTY_CWP_PATH')
 obs_kind_names(364) = obs_kind_type(QTY_CWP_PATH_ZERO,         'QTY_CWP_PATH_ZERO')
+obs_kind_names(365) = obs_kind_type(QTY_ION_O_MIXING_RATIO,    'QTY_ION_O_MIXING_RATIO')
+obs_kind_names(366) = obs_kind_type(QTY_ATOMIC_H_MIXING_RATIO, 'QTY_ATOMIC_H_MIXING_RATIO')
 
 ! count here, then output below