real(r8), parameter, public micro_mg_utils::omsm = 1._r8 - 1.e-6_r8