[Dart-dev] DART/branches Revision: 11853

[dart at ucar.edu]

nancy at ucar.edu
2017-08-01 15:51:36 -0600 (Tue, 01 Aug 2017)
78
add CWP_PATH and CWP_PATH_ZERO for the obs_def_cwp_mod.f90
forward operator.




Modified: DART/branches/rma_trunk/assimilation_code/modules/observations/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/branches/rma_trunk/assimilation_code/modules/observations/DEFAULT_obs_kind_mod.F90	2017-08-01 13:17:22 UTC (rev 11852)
+++ DART/branches/rma_trunk/assimilation_code/modules/observations/DEFAULT_obs_kind_mod.F90	2017-08-01 21:51:36 UTC (rev 11853)
@@ -171,6 +171,7 @@
     QTY_EDGE_NORMAL_SPEED           = 63
 
 ! kind for cloud liquid water path
+! see also kinds 363, 364
 integer, parameter, public :: &
     QTY_CLW_PATH                    = 64
 
@@ -445,10 +446,15 @@
   QTY_LARGE_SCALE_STATE             = 361, &
   QTY_SMALL_SCALE_STATE             = 362
 
+! see also CLW_PATH at 64
+integer, parameter, public :: &
+  QTY_CWP_PATH                      = 363, &
+  QTY_CWP_PATH_ZERO                 = 364
+
 ! 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 = 362
+integer, parameter :: max_defined_quantities = 364
 
 !----------------------------------------------------------------------------
 ! This list is autogenerated by the 'preprocess' program.  To add new
@@ -852,6 +858,8 @@
 obs_kind_names(360) = obs_kind_type(QTY_SEA_SURFACE_ANOMALY,   'QTY_SEA_SURFACE_ANOMALY')
 obs_kind_names(361) = obs_kind_type(QTY_LARGE_SCALE_STATE,     'QTY_LARGE_SCALE_STATE')
 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')
 
 ! count here, then output below