@@ -114,14 +114,15 @@ void gas_washout(
114114 // calculate gas washout by cloud if not saturated
115115 // ------------------------------------------------------------------------
116116 // FIXME: BAD CONSTANTS
117- constexpr Real allca = 0.0 ; // total of ca between level plev and kk [#/cm3]
118- constexpr Real const0 = boltz_cgs * 1.0e-6 ; // [atmospheres/deg k/cm^3]
117+ const Real const0 = boltz_cgs * 1.0e-6 ; // [atmospheres/deg k/cm^3]
119118 constexpr Real geo_fac =
120119 6.0 ; // geometry factor (surf area/volume = geo_fac/diameter)
121120 constexpr Real xrm = .189 ; // mean diameter of rain drop [cm]
122121 constexpr Real xum = 748.0 ; // mean rain drop terminal velocity [cm/s]
123- constexpr Real xeqca = 0.0 ;
124- constexpr Real xca = 0.0 ;
122+ Real xeqca = 0.0 ;
123+ Real xca = 0.0 ;
124+ Real allca = 0.0 ; // total of ca between level plev and kk [#/cm3]
125+
125126
126127 // -----------------------------------------------------------------
127128 // ... calculate the saturation concentration eqca
@@ -232,7 +233,7 @@ void sethet(
232233 constexpr Real satf_hno3 = .016 ; // saturation factor for hno3 in clouds
233234 constexpr Real satf_h2o2 = .016 ; // saturation factor for h2o2 in clouds
234235 constexpr Real satf_so2 = .016 ; // saturation factor for so2 in clouds
235- constexpr Real const0 = boltz_cgs * 1.0e-6 ; // [atmospheres/deg k/cm^3]
236+ const Real const0 = boltz_cgs * 1.0e-6 ; // [atmospheres/deg k/cm^3]
236237 constexpr Real hno3_diss = 15.4 ; // hno3 dissociation constant
237238 constexpr Real mass_air = 29.0 ; // mass of background atmosphere [amu]
238239 constexpr Real km2cm = 1.0e5 ; // convert km to cm
0 commit comments