[Dart-dev] [5769] DART/branches/development: Added support for a water table depth observation.

[nancy at ucar.edu]

Revision: 5769
Author:   thoar
Date:     2012-06-21 16:31:28 -0600 (Thu, 21 Jun 2012)
Log Message:
-----------
Added support for a water table depth observation.
The CLM restart variable is ZWT(column) ...
The DART kind is (rather unimaginative) KIND_WATER_TABLE_DEPTH

Modified Paths:
--------------
    DART/branches/development/models/clm/model_mod.f90
    DART/branches/development/obs_def/obs_def_tower_mod.f90
    DART/branches/development/obs_kind/DEFAULT_obs_kind_mod.F90

-------------- next part --------------
Modified: DART/branches/development/models/clm/model_mod.f90
===================================================================
--- DART/branches/development/models/clm/model_mod.f90	2012-06-15 20:14:55 UTC (rev 5768)
+++ DART/branches/development/models/clm/model_mod.f90	2012-06-21 22:31:28 UTC (rev 5769)
@@ -61,6 +61,7 @@
                              KIND_SNOWCOVER_FRAC,     &
                              KIND_SNOW_THICKNESS,     &
                              KIND_LEAF_CARBON,        &
+                             KIND_WATER_TABLE_DEPTH,  &
                              paramname_length,        &
                              get_raw_obs_kind_index
 
@@ -2076,6 +2077,8 @@
    call compute_gridcell_value(x, location, 'frac_sno', interp_val, istatus)
 elseif (obs_kind == KIND_LEAF_CARBON ) then
    call compute_gridcell_value(x, location, 'leafc',    interp_val, istatus)
+elseif (obs_kind == KIND_WATER_TABLE_DEPTH ) then
+   call compute_gridcell_value(x, location, 'ZWT',    interp_val, istatus)
 elseif (obs_kind == KIND_SNOW_THICKNESS ) then
    write(string1,*)'model_interpolate for DZSNO not written yet.'
    call error_handler(E_ERR,'compute_gridcell_value',string1,source,revision,revdate)

Modified: DART/branches/development/obs_def/obs_def_tower_mod.f90
===================================================================
--- DART/branches/development/obs_def/obs_def_tower_mod.f90	2012-06-15 20:14:55 UTC (rev 5768)
+++ DART/branches/development/obs_def/obs_def_tower_mod.f90	2012-06-21 22:31:28 UTC (rev 5769)
@@ -3,6 +3,7 @@
 ! http://www.image.ucar.edu/DAReS/DART/DART_download
 
 ! BEGIN DART PREPROCESS KIND LIST
+!WATER_TABLE_DEPTH,              KIND_WATER_TABLE_DEPTH,        COMMON_CODE
 !SOIL_TEMPERATURE,               KIND_SOIL_TEMPERATURE,         COMMON_CODE
 !LAYER_LIQUID_WATER,             KIND_LIQUID_WATER,             COMMON_CODE
 !LAYER_ICE,                      KIND_ICE,                      COMMON_CODE

Modified: DART/branches/development/obs_kind/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/branches/development/obs_kind/DEFAULT_obs_kind_mod.F90	2012-06-15 20:14:55 UTC (rev 5768)
+++ DART/branches/development/obs_kind/DEFAULT_obs_kind_mod.F90	2012-06-21 22:31:28 UTC (rev 5769)
@@ -253,11 +253,12 @@
     KIND_SOIL_NITROGEN               = 124, &
     KIND_ROOT_NITROGEN               = 125, &
     KIND_STEM_NITROGEN               = 126, &
-    KIND_LEAF_NITROGEN               = 127
+    KIND_LEAF_NITROGEN               = 127, &
+    KIND_WATER_TABLE_DEPTH           = 128
 
 !! PRIVATE ONLY TO THIS MODULE. see comment below near the max_obs_specific
 !! declaration.
-integer, parameter :: max_obs_generic = 127
+integer, parameter :: max_obs_generic = 128
 
 !----------------------------------------------------------------------------
 ! This list is autogenerated by the 'preprocess' program.  To add new
@@ -504,6 +505,7 @@
 obs_kind_names(125) = obs_kind_type(KIND_ROOT_NITROGEN         ,'KIND_ROOT_NITROGEN')
 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')
 
 ! count here, then output below