From 1c8f22252d5dc411ddda67ecb128198cb3339a4e Mon Sep 17 00:00:00 2001 From: Jeff Curtis Date: Wed, 23 Oct 2024 11:09:32 -0500 Subject: [PATCH] change mole_dens subroutines to molar_conc --- src/gas_state.F90 | 8 ++++---- src/scenario.F90 | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/gas_state.F90 b/src/gas_state.F90 index a91e0a1a5..d90490d8d 100644 --- a/src/gas_state.F90 +++ b/src/gas_state.F90 @@ -177,7 +177,7 @@ end subroutine gas_state_ensure_nonnegative !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !> Convert (mol m^{-3}) to (ppb). - subroutine gas_state_mole_dens_to_ppb(gas_state, env_state) + subroutine gas_state_molar_conc_to_ppb(gas_state, env_state) !> Gas state. type(gas_state_t), intent(inout) :: gas_state @@ -186,12 +186,12 @@ subroutine gas_state_mole_dens_to_ppb(gas_state, env_state) call gas_state_scale(gas_state, 1d9 / env_state_air_molar_den(env_state)) - end subroutine gas_state_mole_dens_to_ppb + end subroutine gas_state_molar_conc_to_ppb !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !> Convert (ppb) to (mol m^{-3}). - subroutine gas_state_ppb_to_mole_dens(gas_state, env_state) + subroutine gas_state_ppb_to_molar_conc(gas_state, env_state) !> Gas state. type(gas_state_t), intent(inout) :: gas_state @@ -200,7 +200,7 @@ subroutine gas_state_ppb_to_mole_dens(gas_state, env_state) call gas_state_scale(gas_state, env_state_air_molar_den(env_state) / 1e9) - end subroutine gas_state_ppb_to_mole_dens + end subroutine gas_state_ppb_to_molar_conc !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! diff --git a/src/scenario.F90 b/src/scenario.F90 index dc62a5202..ead729f94 100644 --- a/src/scenario.F90 +++ b/src/scenario.F90 @@ -228,7 +228,7 @@ subroutine scenario_update_gas_state(scenario, delta_t, env_state, & call gas_state_interp_1d(scenario%gas_emission, & scenario%gas_emission_time, scenario%gas_emission_rate_scale, & env_state%elapsed_time, emissions, emission_rate_scale) - call gas_state_mole_dens_to_ppb(emissions, env_state) + call gas_state_molar_conc_to_ppb(emissions, env_state) p = emission_rate_scale * delta_t / env_state%height call gas_state_add_scaled(gas_state, emissions, p) end if