[Dart-dev] [3397] DART/trunk/obs_def/obs_def_MITgcm_ocean_mod.f90: added instrument-specific types

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080527/5e2828b2/attachment.html
-------------- next part --------------
Modified: DART/trunk/obs_def/obs_def_MITgcm_ocean_mod.f90
===================================================================
--- DART/trunk/obs_def/obs_def_MITgcm_ocean_mod.f90	2008-05-27 20:12:36 UTC (rev 3396)
+++ DART/trunk/obs_def/obs_def_MITgcm_ocean_mod.f90	2008-05-27 20:55:01 UTC (rev 3397)
@@ -5,16 +5,23 @@
 
 ! <next few lines under version control, do not edit>
 ! $URL$
-! $Id: $
+! $Id$
 ! $Revision$
-! $Date: $
+! $Date$
 
 ! BEGIN DART PREPROCESS KIND LIST
-!SALINITY,               KIND_SALINITY
-!TEMPERATURE,            KIND_TEMPERATURE
-!U_CURRENT_COMPONENT,    KIND_U_WIND_COMPONENT
-!V_CURRENT_COMPONENT,    KIND_V_WIND_COMPONENT
-!SEA_SURFACE_HEIGHT,     KIND_SEA_SURFACE_HEIGHT
+!SALINITY,                      KIND_SALINITY
+!TEMPERATURE,                   KIND_TEMPERATURE
+!U_CURRENT_COMPONENT,           KIND_U_CURRENT_COMPONENT
+!V_CURRENT_COMPONENT,           KIND_V_CURRENT_COMPONENT
+!SEA_SURFACE_HEIGHT,            KIND_SEA_SURFACE_HEIGHT
+!ADCP_U_CURRENT_COMPONENT,      KIND_U_CURRENT_COMPONENT
+!ADCP_V_CURRENT_COMPONENT,      KIND_V_CURRENT_COMPONENT
+!DRIFTER_U_CURRENT_COMPONENT,   KIND_U_CURRENT_COMPONENT 
+!DRIFTER_V_CURRENT_COMPONENT,   KIND_V_CURRENT_COMPONENT
+!GLIDER_SALINITY,               KIND_SALINITY
+!GLIDER_TEMPERATURE,            KIND_TEMPERATURE
+!TMI_SEA_SURFACE_TEMPERATURE,   KIND_TEMPERATURE
 ! END DART PREPROCESS KIND LIST
 
 ! BEGIN DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
@@ -22,13 +29,13 @@
 ! END DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
 
 ! BEGIN DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
-!         case(SALINITY)
-!            call interpolate(state, location, KIND_SALINITY, obs_val, istatus)         
-!         case(TEMPERATURE)
-!            call interpolate(state, location, KIND_TEMPERATURE, obs_val, istatus)         
-!         case(U_CURRENT_COMPONENT)
+!         case(SALINITY, GLIDER_SALINITY)
+!            call interpolate(state, location, KIND_SALINITY, obs_val, istatus)
+!         case(TEMPERATURE, GLIDER_TEMPERATURE, TMI_SEA_SURFACE_TEMPERATURE )
+!            call interpolate(state, location, KIND_TEMPERATURE, obs_val, istatus)
+!         case(U_CURRENT_COMPONENT, ADCP_U_CURRENT_COMPONENT, DRIFTER_U_CURRENT_COMPONENT)
 !            call interpolate(state, location, KIND_U_WIND_COMPONENT, obs_val, istatus)
-!         case(V_CURRENT_COMPONENT)
+!         case(V_CURRENT_COMPONENT, ADCP_V_CURRENT_COMPONENT, DRIFTER_V_CURRENT_COMPONENT)
 !            call interpolate(state, location, KIND_V_WIND_COMPONENT, obs_val, istatus)
 !         case(SEA_SURFACE_HEIGHT)
 !            call interpolate(state, location, KIND_SEA_SURFACE_HEIGHT, obs_val, istatus)
@@ -36,17 +43,26 @@
 ! END DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
 
 ! BEGIN DART PREPROCESS READ_OBS_DEF
-!case(TEMPERATURE, SALINITY,  U_CURRENT_COMPONENT, V_CURRENT_COMPONENT, SEA_SURFACE_HEIGHT)
-!      continue
+! case(SALINITY, TEMPERATURE, U_CURRENT_COMPONENT, V_CURRENT_COMPONENT, SEA_SURFACE_HEIGHT, &
+!      ADCP_U_CURRENT_COMPONENT, ADCP_V_CURRENT_COMPONENT, &
+!      DRIFTER_U_CURRENT_COMPONENT, DRIFTER_V_CURRENT_COMPONENT,&
+!      GLIDER_SALINITY, GLIDER_TEMPERATURE, TMI_SEA_SURFACE_TEMPERATURE )
+! continue
 ! END DART PREPROCESS READ_OBS_DEF
 
 ! BEGIN DART PREPROCESS WRITE_OBS_DEF
-!case(TEMPERATURE, SALINITY,  U_CURRENT_COMPONENT, V_CURRENT_COMPONENT, SEA_SURFACE_HEIGHT)
-!      continue
+! case(SALINITY, TEMPERATURE, U_CURRENT_COMPONENT, V_CURRENT_COMPONENT, SEA_SURFACE_HEIGHT, &
+!      ADCP_U_CURRENT_COMPONENT, ADCP_V_CURRENT_COMPONENT, &
+!      DRIFTER_U_CURRENT_COMPONENT, DRIFTER_V_CURRENT_COMPONENT,&
+!      GLIDER_SALINITY, GLIDER_TEMPERATURE, TMI_SEA_SURFACE_TEMPERATURE)
+! continue
 ! END DART PREPROCESS WRITE_OBS_DEF
 
 ! BEGIN DART PREPROCESS INTERACTIVE_OBS_DEF
-!case(TEMPERATURE, SALINITY,  U_CURRENT_COMPONENT, V_CURRENT_COMPONENT, SEA_SURFACE_HEIGHT)
+! case(SALINITY, TEMPERATURE, U_CURRENT_COMPONENT, V_CURRENT_COMPONENT, SEA_SURFACE_HEIGHT, &
+!      ADCP_U_CURRENT_COMPONENT, ADCP_V_CURRENT_COMPONENT, &
+!      DRIFTER_U_CURRENT_COMPONENT, DRIFTER_V_CURRENT_COMPONENT,&
+!      GLIDER_SALINITY, GLIDER_TEMPERATURE, TMI_SEA_SURFACE_TEMPERATURE)
 !      continue
 ! END DART PREPROCESS INTERACTIVE_OBS_DEF
 


Property changes on: DART/trunk/obs_def/obs_def_MITgcm_ocean_mod.f90
___________________________________________________________________
Name: svn:keywords
   - "Date Rev Author URL Id"
   + Date Revision Author HeadURL Id