[Dart-dev] DART/branches Revision: 11453

[dart at ucar.edu]

thoar at ucar.edu
2017-04-11 13:54:03 -0600 (Tue, 11 Apr 2017)
286
Adding KINDS to the Tb branch for polarizations and frequencies.
Some frequencies and polarizations are better for bare ground vs. snow vs. vegetated areas,
so it is important to be able to distinguish among them.

The AMSR-E converter will need to be changed accordingly ... and soon.



Modified: DART/branches/Tb/obs_kind/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/branches/Tb/obs_kind/DEFAULT_obs_kind_mod.F90	2017-04-10 16:21:42 UTC (rev 11452)
+++ DART/branches/Tb/obs_kind/DEFAULT_obs_kind_mod.F90	2017-04-11 19:54:03 UTC (rev 11453)
@@ -377,10 +377,27 @@
     KIND_DEAD_ROOT_NITROGEN          = 327, &
     KIND_STEM_AREA_INDEX             = 328
 
+! kinds for satellite brightness temperatures. Certain
+! frequencies/polarizations are better for cloudy vs. vegetated vs. ...
+! so there is a need to discriminate.
+integer, parameter, public :: &
+    KIND_BRIGHTNESS_TEMPERATURE_6H   = 329, &
+    KIND_BRIGHTNESS_TEMPERATURE_6V   = 330, &
+    KIND_BRIGHTNESS_TEMPERATURE_10H  = 331, &
+    KIND_BRIGHTNESS_TEMPERATURE_10V  = 332, &
+    KIND_BRIGHTNESS_TEMPERATURE_18H  = 333, &
+    KIND_BRIGHTNESS_TEMPERATURE_18V  = 334, &
+    KIND_BRIGHTNESS_TEMPERATURE_23H  = 335, &
+    KIND_BRIGHTNESS_TEMPERATURE_23V  = 336, &
+    KIND_BRIGHTNESS_TEMPERATURE_36H  = 337, &
+    KIND_BRIGHTNESS_TEMPERATURE_36V  = 338, &
+    KIND_BRIGHTNESS_TEMPERATURE_89H  = 339, &
+    KIND_BRIGHTNESS_TEMPERATURE_89V  = 340
+
 !! PRIVATE ONLY TO THIS MODULE. see comment below near the max_obs_specific
 !! declaration.
 
-integer, parameter :: max_obs_generic = 328
+integer, parameter :: max_obs_generic = 340
 
 !----------------------------------------------------------------------------
 ! This list is autogenerated by the 'preprocess' program.  To add new
@@ -720,6 +737,19 @@
 obs_kind_names(327) = obs_kind_type(KIND_DEAD_ROOT_NITROGEN, 'KIND_DEAD_ROOT_NITROGEN')
 obs_kind_names(328) = obs_kind_type(KIND_STEM_AREA_INDEX, 'KIND_STEM_AREA_INDEX')
 
+obs_kind_names(329) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_6H,  'KIND_BRIGHTNESS_TEMPERATURE_6H')
+obs_kind_names(330) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_6V,  'KIND_BRIGHTNESS_TEMPERATURE_6V')
+obs_kind_names(331) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_10H, 'KIND_BRIGHTNESS_TEMPERATURE_10H')
+obs_kind_names(332) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_10V, 'KIND_BRIGHTNESS_TEMPERATURE_10V')
+obs_kind_names(333) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_18H, 'KIND_BRIGHTNESS_TEMPERATURE_18H')
+obs_kind_names(334) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_18V, 'KIND_BRIGHTNESS_TEMPERATURE_18V')
+obs_kind_names(335) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_23H, 'KIND_BRIGHTNESS_TEMPERATURE_23H')
+obs_kind_names(336) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_23V, 'KIND_BRIGHTNESS_TEMPERATURE_23V')
+obs_kind_names(337) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_36H, 'KIND_BRIGHTNESS_TEMPERATURE_36H')
+obs_kind_names(338) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_36V, 'KIND_BRIGHTNESS_TEMPERATURE_36V')
+obs_kind_names(339) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_89H, 'KIND_BRIGHTNESS_TEMPERATURE_89H')
+obs_kind_names(340) = obs_kind_type(KIND_BRIGHTNESS_TEMPERATURE_89V, 'KIND_BRIGHTNESS_TEMPERATURE_89V')
+
 ! count here, then output below
 
 num_kind_assimilate = 0