[Dart-dev] DART/branches Revision: 10803

[dart at ucar.edu]

nancy at ucar.edu
2016-12-16 09:58:48 -0700 (Fri, 16 Dec 2016)
248
add the radiance forward operator code, add back in the
paramname_length parameter into obs_kind_mod - i still want
to eventually deprecate it.  also add the radiance obs_def
to the wrf namelist.

thanks to glen romine for finding these problems.




Modified: DART/branches/rma_trunk_inf/models/wrf/work/input.nml
===================================================================
--- DART/branches/rma_trunk_inf/models/wrf/work/input.nml	2016-12-16 16:57:04 UTC (rev 10802)
+++ DART/branches/rma_trunk_inf/models/wrf/work/input.nml	2016-12-16 16:58:48 UTC (rev 10803)
@@ -390,6 +390,7 @@
   input_files              = '../../../obs_def/obs_def_reanalysis_bufr_mod.f90',
                              '../../../obs_def/obs_def_altimeter_mod.f90',
                              '../../../obs_def/obs_def_radar_mod.f90',
+                             '../../../obs_def/obs_def_radiance_mod.f90',
                              '../../../obs_def/obs_def_metar_mod.f90',
                              '../../../obs_def/obs_def_dew_point_mod.f90',
                              '../../../obs_def/obs_def_gps_mod.f90',

Added: DART/branches/rma_trunk_inf/obs_def/obs_def_radiance_mod.f90
===================================================================
--- DART/branches/rma_trunk_inf/obs_def/obs_def_radiance_mod.f90	                        (rev 0)
+++ DART/branches/rma_trunk_inf/obs_def/obs_def_radiance_mod.f90	2016-12-16 16:58:48 UTC (rev 10803)
@@ -0,0 +1,43 @@
+! DART software - Copyright 2004 - 2013 UCAR. This open source software is
+! provided by UCAR, "as is", without charge, subject to all terms of use at
+! http://www.image.ucar.edu/DAReS/DART/DART_download
+!
+! $Id$
+
+! This module supports the observation types from the AIRS instruments.
+! http://winds.jpl.nasa.gov/missions/quikscat/index.cfm
+
+! BEGIN DART PREPROCESS KIND LIST
+! AMSUA_METOP_A_CH5,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_METOP_A_CH6,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_METOP_A_CH7,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_METOP_A_CH8,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_METOP_A_CH9,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N15_CH5,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N15_CH6,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N15_CH7,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N15_CH8,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N15_CH9,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N18_CH5,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N18_CH6,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N18_CH7,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N18_CH8,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N18_CH9,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N19_CH5,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N19_CH6,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N19_CH7,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N19_CH8,            KIND_TEMPERATURE,        COMMON_CODE
+! AMSUA_N19_CH9,            KIND_TEMPERATURE,        COMMON_CODE
+! MHS_METOP_A_CH3,            KIND_TEMPERATURE,        COMMON_CODE
+! MHS_METOP_A_CH4,            KIND_TEMPERATURE,        COMMON_CODE
+! MHS_METOP_A_CH5,            KIND_TEMPERATURE,        COMMON_CODE
+! MHS_N18_CH3,            KIND_TEMPERATURE,        COMMON_CODE
+! MHS_N18_CH4,            KIND_TEMPERATURE,        COMMON_CODE
+! MHS_N18_CH5,            KIND_TEMPERATURE,        COMMON_CODE
+! END DART PREPROCESS KIND LIST
+
+! <next few lines under version control, do not edit>
+! $URL$
+! $Id$
+! $Revision$
+! $Date$


Property changes on: DART/branches/rma_trunk_inf/obs_def/obs_def_radiance_mod.f90
___________________________________________________________________
Added: svn:mime-type
## -0,0 +1 ##
+text/plain
\ No newline at end of property
Added: svn:keywords
## -0,0 +1 ##
+Date Rev Author HeadURL Id
\ No newline at end of property
Added: svn:eol-style
## -0,0 +1 ##
+native
\ No newline at end of property
Modified: DART/branches/rma_trunk_inf/obs_kind/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/branches/rma_trunk_inf/obs_kind/DEFAULT_obs_kind_mod.F90	2016-12-16 16:57:04 UTC (rev 10802)
+++ DART/branches/rma_trunk_inf/obs_kind/DEFAULT_obs_kind_mod.F90	2016-12-16 16:58:48 UTC (rev 10803)
@@ -38,6 +38,12 @@
 
 public :: do_obs_form_pair, add_wind_names
 
+! i'm leaving this in for backwards compatibility, but any use of it
+! should change to one of the lengths above so it indicates what kind
+! of parameter this is.
+integer, parameter :: paramname_length = 31  ! will be deprecated
+public :: paramname_length
+                                           
 !----------------------------------------------------------------------------
 ! Note: this list is currently maintained by hand; new kinds must be added
 ! to the DEFAULT_obs_kind_mod.F90 file and then the preprocess program must