[Dart-dev] DART/branches Revision: 11138

[dart at ucar.edu]

mizzi at ucar.edu
2017-02-22 13:51:31 -0700 (Wed, 22 Feb 2017)
34
Update WRF-Chem/DART repository.




Copied: DART/branches/mizzi/obs_def/obs_def_AIRNOW_OBS_mod.f90 (from rev 11122, DART/branches/mizzi/obs_def/obs_def_airnow_o3_mod.f90)
===================================================================
--- DART/branches/mizzi/obs_def/obs_def_AIRNOW_OBS_mod.f90	                        (rev 0)
+++ DART/branches/mizzi/obs_def/obs_def_AIRNOW_OBS_mod.f90	2017-02-22 20:51:31 UTC (rev 11138)
@@ -0,0 +1,28 @@
+! DART software - Copyright 2004 - 2013 UCAR. This open source software is
+! provided by UCAR, "as is", without charge, subject to all terms of use at
+! http://www.image.ucar.edu/DAReS/DART/DART_download
+!
+! $Id$
+
+! BEGIN DART PREPROCESS KIND LIST
+! AIRNOW_CO,                       KIND_CO,                     COMMON_CODE
+! AIRNOW_SO2,                      KIND_SO2,                    COMMON_CODE
+! AIRNOW_NO2,                      KIND_NO2,                    COMMON_CODE
+! AIRNOW_NOy,                      KIND_NOy,                    COMMON_CODE
+! AIRNOW_O3,                       KIND_O3,                     COMMON_CODE
+! AIRNOW_PM10,                     KIND_PM10,                   COMMON_CODE
+! AIRNOW_PM25,                     KIND_PM25,                   COMMON_CODE
+! AIRNOW_PB,                       KIND_PB,                     COMMON_CODE
+! AIRNOW_NMOC,                     KIND_NMOC,                   COMMON_CODE
+! AIRNOW_PRESSURE,                 KIND_PRESSURE,               COMMON_CODE
+! AIRNOW_TEMPERATURE,              KIND_TEMPERATURE,            COMMON_CODE
+! AIRNOW_RELATIVE_HUMIDITY,        KIND_RELATIVE_HUMIDITY,      COMMON_CODE
+! AIRNOW_U_WIND_COMPONENT,         KIND_U_WIND_COMPONENT,       COMMON_CODE
+! AIRNOW_V_WIND_COMPONENT,         KIND_V_WIND_COMPONENT,       COMMON_CODE
+! END DART PREPROCESS KIND LIST
+
+! <next few lines under version control, do not edit>
+! $URL$
+! $Id$
+! $Revision$
+! $Date$

Deleted: DART/branches/mizzi/obs_def/obs_def_IASI_CO_Mig_mod.f90
===================================================================
--- DART/branches/mizzi/obs_def/obs_def_IASI_CO_Mig_mod.f90	2017-02-22 20:20:38 UTC (rev 11137)
+++ DART/branches/mizzi/obs_def/obs_def_IASI_CO_Mig_mod.f90	2017-02-22 20:51:31 UTC (rev 11138)
@@ -1,691 +0,0 @@
-! DART software - Copyright 2004 - 2013 UCAR. This open source software is
-! provided by UCAR, "as is", without charge, subject to all terms of use at
-! http://www.image.ucar.edu/DAReS/DART/DART_download
-!
-! $Id$
-
-! BEGIN DART PREPROCESS KIND LIST
-! IASI_CO_RETRIEVAL, KIND_CO
-! END DART PREPROCESS KIND LIST
-
-! BEGIN DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
-!   use obs_def_iasi_co_mod, only : write_iasi_co, read_iasi_co, &
-!                                  interactive_iasi_co, get_expected_iasi_co, &
-!                                  set_obs_def_iasi_co
-! END DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
-
-! BEGIN DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
-!         case(IASI_CO_RETRIEVAL)
-!            call get_expected_iasi_co(state, location, obs_def%key, obs_val, istatus)
-! END DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
-
-! BEGIN DART PREPROCESS READ_OBS_DEF
-!      case(IASI_CO_RETRIEVAL)
-!         call read_iasi_co(obs_def%key, ifile, fileformat)
-! END DART PREPROCESS READ_OBS_DEF
-
-! BEGIN DART PREPROCESS WRITE_OBS_DEF
-!      case(IASI_CO_RETRIEVAL)
-!         call write_iasi_co(obs_def%key, ifile, fileformat)
-! END DART PREPROCESS WRITE_OBS_DEF
-
-! BEGIN DART PREPROCESS INTERACTIVE_OBS_DEF
-!      case(IASI_CO_RETRIEVAL)
-!         call interactive_iasi_co(obs_def%key)
-! END DART PREPROCESS INTERACTIVE_OBS_DEF
-
-! BEGIN DART PREPROCESS SET_OBS_DEF_IASI_CO
-!      case(IASI_CO_RETRIEVAL)
-!         call set_obs_def_iasi_co(obs_def%key)
-! END DART PREPROCESS SET_OBS_DEF_IASI_CO
-
-! BEGIN DART PREPROCESS MODULE CODE
-
-module obs_def_iasi_CO_mod
-
-use        types_mod, only : r8, MISSING_R8
-use    utilities_mod, only : register_module, error_handler, E_ERR, E_MSG
-use     location_mod, only : location_type, set_location, get_location, VERTISPRESSURE, VERTISSURFACE
-use  assim_model_mod, only : interpolate
-use     obs_kind_mod, only : KIND_CO, KIND_SURFACE_PRESSURE
-
-implicit none
-private
-
-public :: write_iasi_co, &
-          read_iasi_co, &
-          interactive_iasi_co, &
-          get_expected_iasi_co, &
-          set_obs_def_iasi_co
-
-! Storage for the special information required for observations of this type
-integer, parameter :: MAX_IASI_CO_OBS = 10000000