[Dart-dev] [6587] DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90: Add a kind for basic GEOMETRIC_HEIGHT.

[nancy at ucar.edu]

Revision: 6587
Author:   nancy
Date:     2013-11-08 16:27:09 -0700 (Fri, 08 Nov 2013)
Log Message:
-----------
Add a kind for basic GEOMETRIC_HEIGHT.  we had sea surface height
and geopotential height, but no kind that was just a vertical
measure in meters.

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	2013-11-08 23:26:22 UTC (rev 6586)
+++ DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2013-11-08 23:27:09 UTC (rev 6587)
@@ -156,6 +156,11 @@
     KIND_OCCULTATION_REFRACTIVITY    = 57, &
     KIND_OCCULTATION_EXCESSPHASE     = 58
 
+! kind for the other way of measuring elevation
+! contrast this with geopotential height
+integer, parameter, public :: &
+    KIND_GEOMETRIC_HEIGHT            = 59
+
 ! kinds for satellite radiances (jason o.)
 integer, parameter, public :: &
     KIND_INFRARED_RADIANCE           = 60, &
@@ -207,7 +212,7 @@
 integer, parameter, public :: &
     KIND_EXNER_FUNCTION              = 85, &
     KIND_TURBULENT_KINETIC_ENERGY    = 86, &
-    KIND_TOTAL_PRECIPITABLE_WATER    = 87, & ! kind for accumulated value - total water in a column
+    KIND_TOTAL_PRECIPITABLE_WATER    = 87, & ! accumulated value - total water in a column
     KIND_VERTLEVEL                   = 88, &
     KIND_MICROWAVE_BRIGHT_TEMP       = 89
 
@@ -500,6 +505,7 @@
 obs_kind_names(56) = obs_kind_type(KIND_W_CURRENT_COMPONENT, 'KIND_W_CURRENT_COMPONENT')
 obs_kind_names(57) = obs_kind_type(KIND_OCCULTATION_REFRACTIVITY, 'KIND_OCCULTATION_REFRACTIVITY')
 obs_kind_names(58) = obs_kind_type(KIND_OCCULTATION_EXCESSPHASE, 'KIND_OCCULTATION_EXCESSPHASE')
+obs_kind_names(59) = obs_kind_type(KIND_GEOMETRIC_HEIGHT, 'KIND_GEOMETRIC_HEIGHT')
 obs_kind_names(60) = obs_kind_type(KIND_INFRARED_RADIANCE, 'KIND_INFRARED_RADIANCE')
 obs_kind_names(61) = obs_kind_type(KIND_INFRARED_BRIGHT_TEMP, 'KIND_INFRARED_BRIGHT_TEMP')
 obs_kind_names(62) = obs_kind_type(KIND_LANDMASK, 'KIND_LANDMASK')