[Dart-dev] [6774] DART/trunk: Added a couple more land-related kinds and types.

[nancy at ucar.edu]

Revision: 6774
Author:   thoar
Date:     2014-01-29 15:57:15 -0700 (Wed, 29 Jan 2014)
Log Message:
-----------
Added a couple more land-related kinds and types.

Modified Paths:
--------------
    DART/trunk/obs_def/obs_def_tower_mod.f90
    DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90

-------------- next part --------------
Modified: DART/trunk/obs_def/obs_def_tower_mod.f90
===================================================================
--- DART/trunk/obs_def/obs_def_tower_mod.f90	2014-01-29 22:54:45 UTC (rev 6773)
+++ DART/trunk/obs_def/obs_def_tower_mod.f90	2014-01-29 22:57:15 UTC (rev 6774)
@@ -13,6 +13,7 @@
 !SNOW_THICKNESS,                 KIND_SNOW_THICKNESS,           COMMON_CODE
 !SNOW_WATER,                     KIND_SNOW_WATER,               COMMON_CODE
 !MODIS_SNOWCOVER_FRAC,           KIND_SNOWCOVER_FRAC,           COMMON_CODE
+!MODIS_LEAF_AREA_INDEX,          KIND_LEAF_AREA_INDEX,          COMMON_CODE
 !LEAF_CARBON,                    KIND_LEAF_CARBON,              COMMON_CODE
 !LEAF_AREA_INDEX,                KIND_LEAF_AREA_INDEX,          COMMON_CODE
 !TOWER_AIR_TEMPERATURE,          KIND_TEMPERATURE,              COMMON_CODE
@@ -24,6 +25,7 @@
 !TOWER_LATENT_HEAT_FLUX,         KIND_LATENT_HEAT_FLUX
 !TOWER_SENSIBLE_HEAT_FLUX,       KIND_SENSIBLE_HEAT_FLUX
 !TOWER_NETC_ECO_EXCHANGE,        KIND_NET_CARBON_PRODUCTION
+!MODIS_FPAR,                     KIND_FPAR,                     COMMON_CODE
 ! END DART PREPROCESS KIND LIST
 
 !-----------------------------------------------------------------------------

Modified: DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2014-01-29 22:54:45 UTC (rev 6773)
+++ DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2014-01-29 22:57:15 UTC (rev 6774)
@@ -263,17 +263,18 @@
     KIND_ROOT_NITROGEN               = 125, &
     KIND_STEM_NITROGEN               = 126, &
     KIND_LEAF_NITROGEN               = 127, &
-    KIND_WATER_TABLE_DEPTH           = 128
+    KIND_WATER_TABLE_DEPTH           = 128, &
+    KIND_FPAR                        = 129
 
 ! kinds for NOAH  (Tim Hoar)
 integer, parameter, public :: &
-    KIND_NEUTRON_INTENSITY           = 129, &
-    KIND_CANOPY_WATER                = 130, &
-    KIND_GROUND_HEAT_FLUX            = 131
+    KIND_NEUTRON_INTENSITY           = 140, &
+    KIND_CANOPY_WATER                = 141, &
+    KIND_GROUND_HEAT_FLUX            = 142
 
 ! more kinds for TIEGCM Alex Chartier 
 integer, parameter, public :: &
-    KIND_VERTICAL_TEC                = 132  ! total electron content
+    KIND_VERTICAL_TEC                = 143  ! total electron content
 
 !! For now we have agreed to reserve kind numbers 151 to 250
 !! for chemistry types, specifically for WRF-Chem/DART, but
@@ -573,11 +574,13 @@
 obs_kind_names(126) = obs_kind_type(KIND_STEM_NITROGEN         ,'KIND_STEM_NITROGEN')
 obs_kind_names(127) = obs_kind_type(KIND_LEAF_NITROGEN         ,'KIND_LEAF_NITROGEN')
 obs_kind_names(128) = obs_kind_type(KIND_WATER_TABLE_DEPTH     ,'KIND_WATER_TABLE_DEPTH')
-obs_kind_names(129) = obs_kind_type(KIND_NEUTRON_INTENSITY     ,'KIND_NEUTRON_INTENSITY')
-obs_kind_names(130) = obs_kind_type(KIND_CANOPY_WATER          ,'KIND_CANOPY_WATER')
-obs_kind_names(131) = obs_kind_type(KIND_GROUND_HEAT_FLUX      ,'KIND_GROUND_HEAT_FLUX')
-obs_kind_names(132) = obs_kind_type(KIND_VERTICAL_TEC          ,'KIND_VERTICAL_TEC')
+obs_kind_names(129) = obs_kind_type(KIND_FPAR                  ,'KIND_FPAR')
 
+obs_kind_names(140) = obs_kind_type(KIND_NEUTRON_INTENSITY     ,'KIND_NEUTRON_INTENSITY')
+obs_kind_names(141) = obs_kind_type(KIND_CANOPY_WATER          ,'KIND_CANOPY_WATER')
+obs_kind_names(142) = obs_kind_type(KIND_GROUND_HEAT_FLUX      ,'KIND_GROUND_HEAT_FLUX')
+obs_kind_names(143) = obs_kind_type(KIND_VERTICAL_TEC          ,'KIND_VERTICAL_TEC')
+
 obs_kind_names(251) = obs_kind_type(KIND_TEMPERATURE_ELECTRON  ,'KIND_TEMPERATURE_ELECTRON')
 obs_kind_names(252) = obs_kind_type(KIND_TEMPERATURE_ION       ,'KIND_TEMPERATURE_ION')
 obs_kind_names(253) = obs_kind_type(KIND_DENSITY_NEUTRAL_O3P   ,'KIND_DENSITY_NEUTRAL_O3P')