[Dart-dev] [3323] DART/branches/nancy_work/obs_def/obs_def_eval_mod.f90: My test branch only; prototype for revised format

[nancy at subversion.ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080428/0796a1cf/attachment-0001.html
-------------- next part --------------
Modified: DART/branches/nancy_work/obs_def/obs_def_eval_mod.f90
===================================================================
--- DART/branches/nancy_work/obs_def/obs_def_eval_mod.f90	2008-04-28 22:36:01 UTC (rev 3322)
+++ DART/branches/nancy_work/obs_def/obs_def_eval_mod.f90	2008-04-28 22:36:42 UTC (rev 3323)
@@ -9,50 +9,50 @@
 ! $Revision$
 ! $Date$
 
+
 ! BEGIN DART PREPROCESS KIND LIST
-!EVAL_U_WIND_COMPONENT,  KIND_U_WIND_COMPONENT
-!EVAL_V_WIND_COMPONENT,  KIND_V_WIND_COMPONENT
 !EVAL_SURFACE_PRESSURE,  KIND_SURFACE_PRESSURE
 !EVAL_TEMPERATURE,       KIND_TEMPERATURE
 !EVAL_SPECIFIC_HUMIDITY, KIND_SPECIFIC_HUMIDITY
+!EVAL_U_WIND_COMPONENT,  KIND_U_WIND_COMPONENT,   USERCODE
+!EVAL_V_WIND_COMPONENT,  KIND_V_WIND_COMPONENT,   USERCODE
 ! END DART PREPROCESS KIND LIST
 
+
 ! BEGIN DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
-!! No use statements are required for the reanalysis bufr obs_def module
+!! No use statements are required for the Eval obs_def module
 ! END DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
 
 ! BEGIN DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
 !         case(EVAL_U_WIND_COMPONENT)
 !            call interpolate(state, location, KIND_U_WIND_COMPONENT, obs_val, istatus)         
+!            call interpolate(state, location, KIND_V_WIND_COMPONENT, obs_val, istatus)         
+!            ! do something else here
 !         case(EVAL_V_WIND_COMPONENT)
+!            call interpolate(state, location, KIND_U_WIND_COMPONENT, obs_val, istatus)         
 !            call interpolate(state, location, KIND_V_WIND_COMPONENT, obs_val, istatus)         
-!         case(EVAL_TEMPERATURE)
-!            call interpolate(state, location, KIND_TEMPERATURE, obs_val, istatus)
-!
-!         case(EVAL_SPECIFIC_HUMIDITY)
-!            call interpolate(state, location, KIND_SPECIFIC_HUMIDITY, obs_val, istatus)
-!         case(EVAL_SURFACE_PRESSURE)
-!            call interpolate(state, location, KIND_SURFACE_PRESSURE, obs_val, istatus)
+!            ! do something else here
 ! END DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
 
 ! BEGIN DART PREPROCESS READ_OBS_DEF
-!case(EVAL_U_WIND_COMPONENT, EVAL_V_WIND_COMPONENT, EVAL_SURFACE_PRESSURE, &
-!   EVAL_TEMPERATURE, EVAL_SPECIFIC_HUMIDITY)
+!case(EVAL_U_WIND_COMPONENT, EVAL_V_WIND_COMPONENT)
+!      ! do something else here
 !      continue
 ! END DART PREPROCESS READ_OBS_DEF
 
 ! BEGIN DART PREPROCESS WRITE_OBS_DEF
-!case(EVAL_U_WIND_COMPONENT, EVAL_V_WIND_COMPONENT, EVAL_SURFACE_PRESSURE, &
-!   EVAL_TEMPERATURE, EVAL_SPECIFIC_HUMIDITY)
+!case(EVAL_U_WIND_COMPONENT, EVAL_V_WIND_COMPONENT)
+!      ! do something else here
 !      continue
 ! END DART PREPROCESS WRITE_OBS_DEF
 
 ! BEGIN DART PREPROCESS INTERACTIVE_OBS_DEF
-!case(EVAL_U_WIND_COMPONENT, EVAL_V_WIND_COMPONENT, EVAL_SURFACE_PRESSURE, &
-!   EVAL_TEMPERATURE, EVAL_SPECIFIC_HUMIDITY)
+!case(EVAL_U_WIND_COMPONENT, EVAL_V_WIND_COMPONENT)
+!      ! do something else here
 !      continue
 ! END DART PREPROCESS INTERACTIVE_OBS_DEF
 
 ! BEGIN DART PREPROCESS MODULE CODE
 ! No module code needed for the Eval obs_def module
 ! END DART PREPROCESS MODULE CODE
+