[Dart-dev] [4526] DART/trunk: Updates from Glen Romine. Move all
nancy at ucar.edu
nancy at ucar.edu
Wed Oct 13 15:47:16 MDT 2010
Revision: 4526
Author: nancy
Date: 2010-10-13 15:47:16 -0600 (Wed, 13 Oct 2010)
Log Message:
-----------
Updates from Glen Romine. Move all the different types of
DEWPOINT obs definitions into the dew_point module, and remove
them from the others. In some cases they were incorrectly
calling the direct interpolation routine instead of the
forward operator code. Also updated the two input.nml
files which need the dew_point mod added to the preprocess list.
If you get an error about DEWPOINT being missing or unknown,
add obs_def_dew_point_mod.f90 to your preprocess namelist
(&preprocess_nml in file input.nml) and rerun quickbuild.csh.
Modified Paths:
--------------
DART/trunk/obs_def/obs_def_dew_point_mod.f90
DART/trunk/obs_def/obs_def_gts_mod.f90
DART/trunk/obs_def/obs_def_metar_mod.f90
DART/trunk/obs_def/obs_def_reanalysis_bufr_mod.f90
DART/trunk/observations/MADIS/work/input.nml
DART/trunk/observations/NCEP/ascii_to_obs/work/input.nml
-------------- next part --------------
Modified: DART/trunk/obs_def/obs_def_dew_point_mod.f90
===================================================================
--- DART/trunk/obs_def/obs_def_dew_point_mod.f90 2010-10-13 20:37:49 UTC (rev 4525)
+++ DART/trunk/obs_def/obs_def_dew_point_mod.f90 2010-10-13 21:47:16 UTC (rev 4526)
@@ -3,8 +3,22 @@
! http://www.image.ucar.edu/DAReS/DART/DART_download
! BEGIN DART PREPROCESS KIND LIST
-! DEWPOINT, KIND_DEWPOINT
-! DEWPOINT_2_METER, KIND_DEWPOINT
+! DEWPOINT, KIND_DEWPOINT
+! DEWPOINT_2_METER, KIND_DEWPOINT
+! BUOY_DEWPOINT, KIND_DEWPOINT
+! SHIP_DEWPOINT, KIND_DEWPOINT
+! SYNOP_DEWPOINT, KIND_DEWPOINT
+! AIREP_DEWPOINT, KIND_DEWPOINT
+! AMDAR_DEWPOINT, KIND_DEWPOINT
+! PILOT_DEWPOINT, KIND_DEWPOINT
+! BOGUS_DEWPOINT, KIND_DEWPOINT
+! METAR_DEWPOINT_2_METER, KIND_DEWPOINT
+! RADIOSONDE_DEWPOINT, KIND_DEWPOINT
+! DROPSONDE_DEWPOINT, KIND_DEWPOINT
+! AIRCRAFT_DEWPOINT, KIND_DEWPOINT
+! ACARS_DEWPOINT, KIND_DEWPOINT
+! MARINE_SFC_DEWPOINT, KIND_DEWPOINT
+! LAND_SFC_DEWPOINT, KIND_DEWPOINT
! END DART PREPROCESS KIND LIST
! BEGIN DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
@@ -14,23 +28,63 @@
! BEGIN DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
! case(DEWPOINT)
! call get_expected_dew_point(state, location, 1, obs_val, istatus)
+! case(AIREP_DEWPOINT, AMDAR_DEWPOINT, PILOT_DEWPOINT, BOGUS_DEWPOINT)
+! call get_expected_dew_point(state, location, 1, obs_val, istatus)
+! case(RADIOSONDE_DEWPOINT, AIRCRAFT_DEWPOINT, ACARS_DEWPOINT, DROPSONDE_DEWPOINT)
+! call get_expected_dew_point(state, location, 1, obs_val, istatus)
! case(DEWPOINT_2_METER)
! call get_expected_dew_point(state, location, 2, obs_val, istatus)
+! case(BUOY_DEWPOINT, SHIP_DEWPOINT, SYNOP_DEWPOINT)
+! call get_expected_dew_point(state, location, 2, obs_val, istatus)
+! case(MARINE_SFC_DEWPOINT, LAND_SFC_DEWPOINT)
+! call get_expected_dew_point(state, location, 2, obs_val, istatus)
+! case(METAR_DEWPOINT_2_METER)
+! call get_expected_dew_point(state, location, 2, obs_val, istatus)
! END DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
! BEGIN DART PREPROCESS READ_OBS_DEF
! case(DEWPOINT, DEWPOINT_2_METER)
! continue
+! case(METAR_DEWPOINT_2_METER)
+! continue
+! case(AIREP_DEWPOINT, AMDAR_DEWPOINT, PILOT_DEWPOINT, BOGUS_DEWPOINT)
+! continue
+! case(BUOY_DEWPOINT, SHIP_DEWPOINT, SYNOP_DEWPOINT)
+! continue
+! case(RADIOSONDE_DEWPOINT, AIRCRAFT_DEWPOINT, ACARS_DEWPOINT, DROPSONDE_DEWPOINT)
+! continue
+! case(MARINE_SFC_DEWPOINT, LAND_SFC_DEWPOINT)
+! continue
! END DART PREPROCESS READ_OBS_DEF
! BEGIN DART PREPROCESS WRITE_OBS_DEF
! case(DEWPOINT, DEWPOINT_2_METER)
! continue
+! case(METAR_DEWPOINT_2_METER)
+! continue
+! case(AIREP_DEWPOINT, AMDAR_DEWPOINT, PILOT_DEWPOINT, BOGUS_DEWPOINT)
+! continue
+! case(BUOY_DEWPOINT, SHIP_DEWPOINT, SYNOP_DEWPOINT)
+! continue
+! case(RADIOSONDE_DEWPOINT, AIRCRAFT_DEWPOINT, ACARS_DEWPOINT, DROPSONDE_DEWPOINT)
+! continue
+! case(MARINE_SFC_DEWPOINT, LAND_SFC_DEWPOINT)
+! continue
! END DART PREPROCESS WRITE_OBS_DEF
! BEGIN DART PREPROCESS INTERACTIVE_OBS_DEF
! case(DEWPOINT, DEWPOINT_2_METER)
! continue
+! case(METAR_DEWPOINT_2_METER)
+! continue
+! case(AIREP_DEWPOINT, AMDAR_DEWPOINT, PILOT_DEWPOINT, BOGUS_DEWPOINT)
+! continue
+! case(BUOY_DEWPOINT, SHIP_DEWPOINT, SYNOP_DEWPOINT)
+! continue
+! case(RADIOSONDE_DEWPOINT, AIRCRAFT_DEWPOINT, ACARS_DEWPOINT, DROPSONDE_DEWPOINT)
+! continue
+! case(MARINE_SFC_DEWPOINT, LAND_SFC_DEWPOINT)
+! continue
! END DART PREPROCESS INTERACTIVE_OBS_DEF
! BEGIN DART PREPROCESS MODULE CODE
Modified: DART/trunk/obs_def/obs_def_gts_mod.f90
===================================================================
--- DART/trunk/obs_def/obs_def_gts_mod.f90 2010-10-13 20:37:49 UTC (rev 4525)
+++ DART/trunk/obs_def/obs_def_gts_mod.f90 2010-10-13 21:47:16 UTC (rev 4526)
@@ -7,37 +7,30 @@
!BUOY_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!BUOY_SURFACE_PRESSURE, KIND_SURFACE_PRESSURE, COMMON_CODE
!BUOY_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
-!BUOY_DEWPOINT, KIND_DEWPOINT
!SHIP_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!SHIP_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!SHIP_SURFACE_PRESSURE, KIND_SURFACE_PRESSURE, COMMON_CODE
!SHIP_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
-!SHIP_DEWPOINT, KIND_DEWPOINT
!SYNOP_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!SYNOP_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!SYNOP_SURFACE_PRESSURE, KIND_SURFACE_PRESSURE, COMMON_CODE
!SYNOP_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
-!SYNOP_DEWPOINT, KIND_DEWPOINT
!AIREP_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!AIREP_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!AIREP_PRESSURE, KIND_PRESSURE, COMMON_CODE
!AIREP_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
-!AIREP_DEWPOINT, KIND_DEWPOINT
!AMDAR_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!AMDAR_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!AMDAR_PRESSURE, KIND_PRESSURE, COMMON_CODE
!AMDAR_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
-!AMDAR_DEWPOINT, KIND_DEWPOINT
!PILOT_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!PILOT_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!PILOT_PRESSURE, KIND_PRESSURE, COMMON_CODE
!PILOT_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
-!PILOT_DEWPOINT, KIND_DEWPOINT
!BOGUS_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!BOGUS_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!BOGUS_PRESSURE, KIND_PRESSURE, COMMON_CODE
!BOGUS_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
-!BOGUS_DEWPOINT, KIND_DEWPOINT
!PROFILER_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!PROFILER_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!PROFILER_PRESSURE, KIND_PRESSURE, COMMON_CODE
@@ -50,37 +43,21 @@
! END DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
! BEGIN DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
-! case(AIREP_DEWPOINT, AMDAR_DEWPOINT, PILOT_DEWPOINT, BOGUS_DEWPOINT)
-! call get_expected_dew_point(state, location, 1, obs_val, istatus)
-! case(BUOY_DEWPOINT, SHIP_DEWPOINT, SYNOP_DEWPOINT)
-! call get_expected_dew_point(state, location, 2, obs_val, istatus)
! case(SATEM_THICKNESS)
! call get_expected_thickness(state, location, obs_val, istatus)
! END DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
! BEGIN DART PREPROCESS READ_OBS_DEF
-! case(AIREP_DEWPOINT, AMDAR_DEWPOINT, PILOT_DEWPOINT, BOGUS_DEWPOINT)
-! continue
-! case(BUOY_DEWPOINT, SHIP_DEWPOINT, SYNOP_DEWPOINT)
-! continue
! case(SATEM_THICKNESS)
! continue
! END DART PREPROCESS READ_OBS_DEF
! BEGIN DART PREPROCESS WRITE_OBS_DEF
-! case(AIREP_DEWPOINT, AMDAR_DEWPOINT, PILOT_DEWPOINT, BOGUS_DEWPOINT)
-! continue
-! case(BUOY_DEWPOINT, SHIP_DEWPOINT, SYNOP_DEWPOINT)
-! continue
! case(SATEM_THICKNESS)
! continue
! END DART PREPROCESS WRITE_OBS_DEF
! BEGIN DART PREPROCESS INTERACTIVE_OBS_DEF
-! case(AIREP_DEWPOINT, AMDAR_DEWPOINT, PILOT_DEWPOINT, BOGUS_DEWPOINT)
-! continue
-! case(BUOY_DEWPOINT, SHIP_DEWPOINT, SYNOP_DEWPOINT)
-! continue
! case(SATEM_THICKNESS)
! continue
! END DART PREPROCESS INTERACTIVE_OBS_DEF
Modified: DART/trunk/obs_def/obs_def_metar_mod.f90
===================================================================
--- DART/trunk/obs_def/obs_def_metar_mod.f90 2010-10-13 20:37:49 UTC (rev 4525)
+++ DART/trunk/obs_def/obs_def_metar_mod.f90 2010-10-13 21:47:16 UTC (rev 4526)
@@ -8,7 +8,6 @@
! METAR_TEMPERATURE_2_METER, KIND_TEMPERATURE, COMMON_CODE
! METAR_SPECIFIC_HUMIDITY_2_METER, KIND_SPECIFIC_HUMIDITY, COMMON_CODE
! METAR_RELATIVE_HUMIDITY_2_METER, KIND_RELATIVE_HUMIDITY, COMMON_CODE
-! METAR_DEWPOINT_2_METER, KIND_DEWPOINT, COMMON_CODE
! METAR_SURFACE_PRESSURE, KIND_SURFACE_PRESSURE, COMMON_CODE
! METAR_POT_TEMP_2_METER, KIND_POTENTIAL_TEMPERATURE, COMMON_CODE
! END DART PREPROCESS KIND LIST
Modified: DART/trunk/obs_def/obs_def_reanalysis_bufr_mod.f90
===================================================================
--- DART/trunk/obs_def/obs_def_reanalysis_bufr_mod.f90 2010-10-13 20:37:49 UTC (rev 4525)
+++ DART/trunk/obs_def/obs_def_reanalysis_bufr_mod.f90 2010-10-13 21:47:16 UTC (rev 4526)
@@ -10,38 +10,32 @@
!RADIOSONDE_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
!RADIOSONDE_SPECIFIC_HUMIDITY, KIND_SPECIFIC_HUMIDITY, COMMON_CODE
!RADIOSONDE_RELATIVE_HUMIDITY, KIND_RELATIVE_HUMIDITY, COMMON_CODE
-!RADIOSONDE_DEWPOINT, KIND_DEWPOINT, COMMON_CODE
!DROPSONDE_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!DROPSONDE_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!DROPSONDE_SURFACE_PRESSURE, KIND_SURFACE_PRESSURE, COMMON_CODE
!DROPSONDE_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
!DROPSONDE_SPECIFIC_HUMIDITY, KIND_SPECIFIC_HUMIDITY, COMMON_CODE
!DROPSONDE_RELATIVE_HUMIDITY, KIND_RELATIVE_HUMIDITY, COMMON_CODE
-!DROPSONDE_DEWPOINT, KIND_DEWPOINT, COMMON_CODE
!AIRCRAFT_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!AIRCRAFT_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!AIRCRAFT_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
!AIRCRAFT_SPECIFIC_HUMIDITY, KIND_SPECIFIC_HUMIDITY, COMMON_CODE
!AIRCRAFT_RELATIVE_HUMIDITY, KIND_RELATIVE_HUMIDITY, COMMON_CODE
-!AIRCRAFT_DEWPOINT, KIND_DEWPOINT, COMMON_CODE
!ACARS_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!ACARS_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!ACARS_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
!ACARS_SPECIFIC_HUMIDITY, KIND_SPECIFIC_HUMIDITY, COMMON_CODE
!ACARS_RELATIVE_HUMIDITY, KIND_RELATIVE_HUMIDITY, COMMON_CODE
-!ACARS_DEWPOINT, KIND_DEWPOINT, COMMON_CODE
!MARINE_SFC_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!MARINE_SFC_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!MARINE_SFC_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
!MARINE_SFC_SPECIFIC_HUMIDITY, KIND_SPECIFIC_HUMIDITY, COMMON_CODE
!MARINE_SFC_RELATIVE_HUMIDITY, KIND_RELATIVE_HUMIDITY, COMMON_CODE
-!MARINE_SFC_DEWPOINT, KIND_DEWPOINT, COMMON_CODE
!LAND_SFC_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!LAND_SFC_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!LAND_SFC_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
!LAND_SFC_SPECIFIC_HUMIDITY, KIND_SPECIFIC_HUMIDITY, COMMON_CODE
!LAND_SFC_RELATIVE_HUMIDITY, KIND_RELATIVE_HUMIDITY, COMMON_CODE
-!LAND_SFC_DEWPOINT, KIND_DEWPOINT, COMMON_CODE
!SAT_U_WIND_COMPONENT, KIND_U_WIND_COMPONENT, COMMON_CODE
!SAT_V_WIND_COMPONENT, KIND_V_WIND_COMPONENT, COMMON_CODE
!ATOV_TEMPERATURE, KIND_TEMPERATURE, COMMON_CODE
Modified: DART/trunk/observations/MADIS/work/input.nml
===================================================================
--- DART/trunk/observations/MADIS/work/input.nml 2010-10-13 20:37:49 UTC (rev 4525)
+++ DART/trunk/observations/MADIS/work/input.nml 2010-10-13 21:47:16 UTC (rev 4526)
@@ -7,6 +7,7 @@
input_files = '../../../obs_def/obs_def_altimeter_mod.f90',
'../../../obs_def/obs_def_reanalysis_bufr_mod.f90',
'../../../obs_def/obs_def_metar_mod.f90',
+ '../../../obs_def/obs_def_dew_point_mod.f90',
/
&obs_kind_nml
Modified: DART/trunk/observations/NCEP/ascii_to_obs/work/input.nml
===================================================================
--- DART/trunk/observations/NCEP/ascii_to_obs/work/input.nml 2010-10-13 20:37:49 UTC (rev 4525)
+++ DART/trunk/observations/NCEP/ascii_to_obs/work/input.nml 2010-10-13 21:47:16 UTC (rev 4526)
@@ -50,5 +50,7 @@
output_obs_def_mod_file = '../../../../obs_def/obs_def_mod.f90',
input_files = '../../../../obs_def/obs_def_reanalysis_bufr_mod.f90',
'../../../../obs_def/obs_def_altimeter_mod.f90',
- '../../../../obs_def/obs_def_gps_mod.f90' /
+ '../../../../obs_def/obs_def_gps_mod.f90'
+ '../../../../obs_def/obs_def_dew_point_mod.f90'
+ /
More information about the Dart-dev
mailing list