[Dart-dev] [4536] DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90: Add 2 new kinds for tomoko, for the champ instrument,

[nancy at ucar.edu]

Revision: 4536
Author:   nancy
Date:     2010-10-20 15:03:14 -0600 (Wed, 20 Oct 2010)
Log Message:
-----------
Add 2 new kinds for tomoko, for the champ instrument,
upper atmosphere computation of density.

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-10-20 20:02:34 UTC (rev 4535)
+++ DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2010-10-20 21:03:14 UTC (rev 4536)
@@ -135,6 +135,11 @@
     KIND_2D_PARAMETER                = 44, &
     KIND_3D_PARAMETER                = 45
 
+! kinds for CHAMP upper atmosphere computations
+integer, parameter, public :: &
+    KIND_ATOMIC_OXYGEN_MIXING_RATIO  = 46, &
+    KIND_MOLEC_OXYGEN_MIXING_RATIO   = 47
+
 ! kinds for the MITgcm, POP ocean model
 integer, parameter, public :: &
     KIND_SALINITY                    = 50, &
@@ -351,6 +356,8 @@
 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(46) = obs_kind_type(KIND_ATOMIC_OXYGEN_MIXING_RATIO, 'KIND_ATOMIC_OXYGEN_MIXING_RATIO')
+obs_kind_names(47) = obs_kind_type(KIND_MOLEC_OXYGEN_MIXING_RATIO, 'KIND_MOLEC_OXYGEN_MIXING_RATIO')
 
 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')