[Dart-dev] DART/branches Revision: 11192
dart at ucar.edu
dart at ucar.edu
Fri Mar 3 16:20:42 MST 2017
thoar at ucar.edu
2017-03-03 16:20:42 -0700 (Fri, 03 Mar 2017)
59
Adding the KIND for the sea surface anomaly observations.
Modified: DART/branches/rma_trunk/obs_kind/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/branches/rma_trunk/obs_kind/DEFAULT_obs_kind_mod.F90 2017-03-03 23:18:55 UTC (rev 11191)
+++ DART/branches/rma_trunk/obs_kind/DEFAULT_obs_kind_mod.F90 2017-03-03 23:20:42 UTC (rev 11192)
@@ -405,10 +405,13 @@
KIND_SEAICE_FY = 354, &
KIND_SEAICE_AGREG_FY = 355
+integer, parameter, public :: &
+ KIND_SEA_SURFACE_ANOMALY = 356
+
! max_obs_generic is private to this module. see comment below near the max_obs_specific
! declaration for more info about publics and private values.
-integer, parameter :: max_obs_generic = 355
+integer, parameter :: max_obs_generic = 356
!----------------------------------------------------------------------------
! This list is autogenerated by the 'preprocess' program. To add new
@@ -776,9 +779,11 @@
obs_kind_names(350) = obs_kind_type(KIND_SEAICE_SNOWENTHALPY001,'KIND_SEAICE_SNOWENTHALPY001')
obs_kind_names(351) = obs_kind_type(KIND_SEAICE_SNOWENTHALPY002,'KIND_SEAICE_SNOWENTHALPY002')
obs_kind_names(352) = obs_kind_type(KIND_SEAICE_SNOWENTHALPY003,'KIND_SEAICE_SNOWENTHALPY003')
-obs_kind_names(353) = obs_kind_type(KIND_SOM_TEMPERATURE,'KIND_SOM_TEMPERATURE')
-obs_kind_names(354) = obs_kind_type(KIND_SEAICE_FY, 'KIND_SEAICE_FY')
-obs_kind_names(355) = obs_kind_type(KIND_SEAICE_AGREG_FY,'KIND_SEAICE_AGREG_FY')
+obs_kind_names(353) = obs_kind_type(KIND_SOM_TEMPERATURE, 'KIND_SOM_TEMPERATURE')
+obs_kind_names(354) = obs_kind_type(KIND_SEAICE_FY, 'KIND_SEAICE_FY')
+obs_kind_names(355) = obs_kind_type(KIND_SEAICE_AGREG_FY, 'KIND_SEAICE_AGREG_FY')
+obs_kind_names(356) = obs_kind_type(KIND_SEA_SURFACE_ANOMALY, 'KIND_SEA_SURFACE_ANOMALY')
+
! count here, then output below
num_kind_assimilate = 0
More information about the Dart-dev
mailing list