[Dart-dev] [4432] DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90: Added 3 generic parameter types. These ar

[nancy at ucar.edu]

Revision: 4432
Author:   nancy
Date:     2010-07-28 09:09:21 -0600 (Wed, 28 Jul 2010)
Log Message:
-----------
Added 3 generic parameter types.  These are not specific enough to
be used for interpolation in cases where you have direct observations
of the parms (use a more specific kind in that case).  They are
intended for use where you have parameters in your state vector
that will be adjusted by assimilation of other observations based 
on the covariances.

Modified Paths:
--------------
    DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90

-------------- next part --------------
Modified: DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2010-07-27 17:18:31 UTC (rev 4431)
+++ DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2010-07-28 15:09:21 UTC (rev 4432)
@@ -127,6 +127,13 @@
 integer, parameter, public :: &
     KIND_ELECTRON_DENSITY            = 42
    
+! kinds for generic parameters that aren't going to be
+! directly observed but are going to be adjusted by the
+! assimilation.
+    KIND_1D_PARAMETER                = 43, &
+    KIND_2D_PARAMETER                = 44, &
+    KIND_3D_PARAMETER                = 45
+
 ! kinds for the MITgcm, POP ocean model
 integer, parameter, public :: &
     KIND_SALINITY                    = 50, &
@@ -336,6 +343,9 @@
 obs_kind_names(40) = obs_kind_type(KIND_ICE_FRACTION, 'KIND_ICE_FRACTION')
 obs_kind_names(41) = obs_kind_type(KIND_RELATIVE_HUMIDITY, 'KIND_RELATIVE_HUMIDITY')
 obs_kind_names(42) = obs_kind_type(KIND_ELECTRON_DENSITY, 'KIND_ELECTRON_DENSITY')
+obs_kind_names(43) = obs_kind_type(KIND_1D_PARAMETER, 'KIND_1D_PARAMETER')
+obs_kind_names(44) = obs_kind_type(KIND_2D_PARAMETER, 'KIND_2D_PARAMETER')
+obs_kind_names(45) = obs_kind_type(KIND_3D_PARAMETER, 'KIND_3D_PARAMETER')
 obs_kind_names(50) = obs_kind_type(KIND_SALINITY, 'KIND_SALINITY')
 obs_kind_names(51) = obs_kind_type(KIND_U_CURRENT_COMPONENT, 'KIND_U_CURRENT_COMPONENT')
 obs_kind_names(52) = obs_kind_type(KIND_V_CURRENT_COMPONENT, 'KIND_V_CURRENT_COMPONENT')