[Dart-dev] DART/branches Revision: 12177

dart at ucar.edu dart at ucar.edu
Tue Dec 5 11:16:42 MST 2017


nancy at ucar.edu
2017-12-05 11:16:41 -0700 (Tue, 05 Dec 2017)
158
fixed up the chem conversion tables module, 
added it to all the path_names files.
it still needs to be checked and made to work
but the mechanism is there.




Deleted: DART/branches/recam/models/cam-fv/chem_tables.f90
===================================================================
--- DART/branches/recam/models/cam-fv/chem_tables.f90	2017-12-05 17:54:38 UTC (rev 12176)
+++ DART/branches/recam/models/cam-fv/chem_tables.f90	2017-12-05 18:16:41 UTC (rev 12177)
@@ -1,250 +0,0 @@
-! DART software - Copyright 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$
-!----------------------------------------------------------------
-!>
-!> this routines supports unit conversions between chemistry values
-!> in the cam state and the observed quantities
-!>
-!----------------------------------------------------------------
-
-module chem_tables_mod
-
-
-public :: init_chem_tables, &
-          finalize_chem_tables, &
-          chem_convert_factor
-
-use types_mod
-use utilities_mod
-use obs_kind_mod
-
-implicit none
-private
-
-!public :: chem_convert_factors, molar_mass_dry_air
-
-type chem_convert
- character(len=31) :: netcdf_varname
- real(r8)          :: convert_factor
- character(len=31) :: quantity_name
-end type
-
-
-! table of chemistry conversion factors from mmr to vmr and back
-type(chem_convert), allocatable :: chem_conv_table(:) 
-
-real(r8), parameter :: molar_mass_dry_air = 28.9644_r8
-
-character(len=256) :: string1, string2
-
-!--------------------------------------------------------------------
-!> call once to allocate and initialize the table
-
-subroutine init_chem_tables()
-
-! to add more quantities, add entries here following the pattern.
-! there can be only one entry per 'QTY_xxx'
-
-
-allocate(chem_conv_table(0:max_defined_quantities))
-
-call add_entry('O3',   47.9982, 'QTY_O3')
-call add_entry('O',    15.9994, 'QTY_O')
-call add_entry('O1D',  15.9994, 'QTY_O1D')
-
-!%!  'N2O                            ',       44.01288,     'QTY_N2O                         ', &
-!%!  'NO                             ',       30.00614,     'QTY_NO                          ', &
-!%!  'NO2                            ',       46.00554,     'QTY_NO2                         ', &
-!%!  'NO3                            ',       62.00494,     'QTY_NO3                         ', &
-!%!  'HNO3                           ',       63.01234,     'QTY_HNO3                        ', &
-!%!  'HO2NO2                         ',       79.01174,     'QTY_HO2NO2                      ', &
-!%!  'N2O5                           ',      108.01048,     'QTY_N2O5                        ', &
-!%!  'H2                             ',         2.0148,     'QTY_H2                          ', &
-!%!  'OH                             ',        17.0068,     'QTY_OH                          ', &
-!%!  'HO2                            ',        33.0062,     'QTY_HO2                         ', &
-!%!  'H2O2                           ',        34.0136,     'QTY_H2O2                        ', &
-!%!  'CH4                            ',        16.0406,     'QTY_CH4                         ', &
-!%!  'CO                             ',        28.0104,     'QTY_CO                          ', &
-!%!  'CH3O2                          ',         47.032,     'QTY_CH3O2                       ', &
-!%!  'CH3OOH                         ',        48.0394,     'QTY_CH3OOH                      ', &
-!%!  'CH2O                           ',        30.0252,     'QTY_CH2O                        ', &
-!%!  'CH3OH                          ',          32.04,     'QTY_CH3OH                       ', &
-!%!  'C2H5OH                         ',        46.0658,     'QTY_C2H5OH                      ', &
-!%!  'C2H4                           ',        28.0516,     'QTY_C2H4                        ', &
-!%!  'EO                             ',        61.0578,     'QTY_EO                          ', &
-!%!  'EO2                            ',        77.0572,     'QTY_EO2                         ', &
-!%!  'CH3COOH                        ',        60.0504,     'QTY_CH3COOH                     ', &
-!%!  'GLYALD                         ',        60.0504,     'QTY_GLYALD                      ', &
-!%!  'C2H6                           ',        30.0664,     'QTY_C2H6                        ', &
-!%!  'C2H5O2                         ',        61.0578,     'QTY_C2H5O2                      ', &
-!%!  'C2H5OOH                        ',        62.0652,     'QTY_C2H5OOH                     ', &
-!%!  'CH3CHO                         ',         44.051,     'QTY_CH3CHO                      ', &
-!%!  'CH3CO3                         ',        75.0424,     'QTY_CH3CO3                      ', &
-!%!  'CH3COOOH                       ',        76.0498,     'QTY_CH3COOOH                    ', &
-!%!  'C3H6                           ',        42.0774,     'QTY_C3H6                        ', &
-!%!  'C3H8                           ',        44.0922,     'QTY_C3H8                        ', &
-!%!  'C3H7O2                         ',        75.0836,     'QTY_C3H7O2                      ', &
-!%!  'C3H7OOH                        ',         76.091,     'QTY_C3H7OOH                     ', &
-!%!  'PO2                            ',         91.083,     'QTY_PO2                         ', &
-!%!  'POOH                           ',        92.0904,     'QTY_POOH                        ', &
-!%!  'CH3COCH3                       ',        58.0768,     'QTY_CH3COCH3                    ', &
-!%!  'RO2                            ',        89.0682,     'QTY_RO2                         ', &
-!%!  'ROOH                           ',        90.0756,     'QTY_ROOH                        ', &
-!%!  'BIGENE                         ',        56.1032,     'QTY_BIGENE                      ', &


More information about the Dart-dev mailing list