[Dart-dev] [3266] DART/trunk/models/MITgcm_ocean/model_mod.f90: add the use only lines for the kinds from the real kinds module.

[nancy at subversion.ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080314/773c4968/attachment.html
-------------- next part --------------
Modified: DART/trunk/models/MITgcm_ocean/model_mod.f90
===================================================================
--- DART/trunk/models/MITgcm_ocean/model_mod.f90	2008-03-14 22:43:00 UTC (rev 3265)
+++ DART/trunk/models/MITgcm_ocean/model_mod.f90	2008-03-14 22:45:29 UTC (rev 3266)
@@ -22,18 +22,12 @@
 use    utilities_mod, only : register_module, error_handler, E_ERR, E_WARN, E_MSG, &
                              logfileunit, get_unit, nc_check, &
                              find_namelist_in_file, check_namelist_read
+use     obs_kind_mod, only : KIND_TEMPERATURE, KIND_SALINITY, KIND_U_CURRENT_COMPONENT, &
+                             KIND_V_CURRENT_COMPONENT, KIND_SEA_SURFACE_HEIGHT
 
-use     obs_kind_mod, only : KIND_TEMPERATURE
-
 implicit none
 private
 
-! FIXME: these belong in obs_kind 
-integer, parameter :: KIND_U_CURRENT_COMPONENT = 90
-integer, parameter :: KIND_V_CURRENT_COMPONENT = 91
-integer, parameter :: KIND_SALINITY = 92
-integer, parameter :: KIND_SEA_SURFACE_HEIGHT = 93
-
 ! these routines must be public and you cannot change
 ! the arguments - they will be called *from* the DART code.
 public :: get_model_size,         &