[Dart-dev] [3264] DART/trunk/obs_def/obs_def_MITgcm_ocean_mod.f90: Observation definitions and interfaces for MITgcm_ocean model types.

[nancy at subversion.ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080314/64359643/attachment.html
-------------- next part --------------
Added: DART/trunk/obs_def/obs_def_MITgcm_ocean_mod.f90
===================================================================
--- DART/trunk/obs_def/obs_def_MITgcm_ocean_mod.f90	                        (rev 0)
+++ DART/trunk/obs_def/obs_def_MITgcm_ocean_mod.f90	2008-03-14 22:41:36 UTC (rev 3264)
@@ -0,0 +1,52 @@
+! Data Assimilation Research Testbed -- DART
+! Copyright 2004-2007, Data Assimilation Research Section
+! University Corporation for Atmospheric Research
+! Licensed under the GPL -- www.gpl.org/licenses/gpl.html
+
+! <next few lines under version control, do not edit>
+! $URL$
+! $Id: $
+! $Revision$
+! $Date: $
+
+! BEGIN DART PREPROCESS KIND LIST
+!TEMPERATURE,            KIND_TEMPERATURE
+!SALINITY,               KIND_SALINITY
+!U_CURRENT_COMPONENT,    KIND_U_WIND_COMPONENT
+!V_CURRENT_COMPONENT,    KIND_V_WIND_COMPONENT
+!SEA_SURFACE_HEIGHT,     KIND_SEA_SURFACE_HEIGHT
+! END DART PREPROCESS KIND LIST
+
+! BEGIN DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
+!! No use statements are required for the MITgcm_ocean obs_def module
+! END DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
+
+! BEGIN DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
+!         case(TEMPERATURE)
+!            call interpolate(state, location, KIND_TEMPERATURE, obs_val, istatus)         
+!         case(SALINITY)
+!            call interpolate(state, location, KIND_SALINITY, obs_val, istatus)         
+!         case(U_CURRENT_COMPONENT)
+!            call interpolate(state, location, KIND_U_CURRENT_COMPONENT, obs_val, istatus)         
+!         case(V_CURRENT_COMPONENT)
+!            call interpolate(state, location, KIND_V_CURRENT_COMPONENT, obs_val, istatus)         
+!         case(GEOPOTENTIAL_HEIGHT)
+!            call interpolate(state, location, KIND_GEOPOTENTIAL_HEIGHT, obs_val, istatus)
+!
+! 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
+! 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
+! END DART PREPROCESS WRITE_OBS_DEF
+
+! BEGIN DART PREPROCESS INTERACTIVE_OBS_DEF
+!case(TEMPERATURE, SALINITY,  U_CURRENT_COMPONENT, V_CURRENT_COMPONENT, SEA_SURFACE_HEIGHT)
+!      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"