Skip to content

Commit

Permalink
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
remove unneeded subroutine
Browse files Browse the repository at this point in the history
jcurtis2 committed Oct 23, 2024
1 parent 1c8f222 commit 4f23bcb
Showing 1 changed file with 0 additions and 14 deletions.
14 changes: 0 additions & 14 deletions src/gas_state.F90
Original file line number Diff line number Diff line change
@@ -188,20 +188,6 @@ subroutine gas_state_molar_conc_to_ppb(gas_state, env_state)

end subroutine gas_state_molar_conc_to_ppb

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!> Convert (ppb) to (mol m^{-3}).
subroutine gas_state_ppb_to_molar_conc(gas_state, env_state)

!> Gas state.
type(gas_state_t), intent(inout) :: gas_state
!> Environment state.
type(env_state_t), intent(in) :: env_state

call gas_state_scale(gas_state, env_state_air_molar_den(env_state) / 1e9)

end subroutine gas_state_ppb_to_molar_conc

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

#ifdef PMC_USE_CAMP

0 comments on commit 4f23bcb

Please sign in to comment.