[Dart-dev] DART/branches Revision: 12375

[dart at ucar.edu]

hendric at ucar.edu
2018-01-24 16:40:47 -0700 (Wed, 24 Jan 2018)
59

adding molar mass for O, O2, H, and N2 needed for WACCMX




Modified: DART/branches/recam/models/cam-fv/chem_tables_mod.f90
===================================================================
--- DART/branches/recam/models/cam-fv/chem_tables_mod.f90	2018-01-24 16:25:07 UTC (rev 12374)
+++ DART/branches/recam/models/cam-fv/chem_tables_mod.f90	2018-01-24 23:40:47 UTC (rev 12375)
@@ -73,14 +73,14 @@
 enddo
 
 ! and now add entries for real items
-!>todo FIXME : is this correct, or should we be using QTY_O?
 call add_entry('H',     1.0_r8,    'QTY_ATOMIC_H_MIXING_RATIO')
+call add_entry('N2',   28.0_r8,    'QTY_NITROGEN')
 call add_entry('O',    15.9994_r8, 'QTY_ATOMIC_OXYGEN_MIXING_RATIO')
-call add_entry('O1D',  15.9994_r8, 'QTY_O1D')
-call add_entry('N2',   28.0_r8,    'QTY_NITROGEN')
 call add_entry('O2',   32.0_r8,    'QTY_ION_O_MIXING_RATIO')
 call add_entry('O3',   47.9982_r8, 'QTY_O3') 
 
+! call add_entry('O1D',  15.9994_r8, 'QTY_O1D')
+
 !%!  'N2O                            ',       44.01288,     'QTY_N2O                         ', &
 !%!  'NO                             ',       30.00614,     'QTY_NO                          ', &
 !%!  'NO2                            ',       46.00554,     'QTY_NO2                         ', &
@@ -285,7 +285,7 @@
                       source, revision, revdate)
 endif
 
-chem_convert_factor = chem_conv_table(qty)%convert_factor * molar_mass_dry_air  !??
+chem_convert_factor = chem_conv_table(qty)%convert_factor !* molar_mass_dry_air  !??
 
 end function chem_convert_factor