From 16dbcf1dd085b14876d0716a19b7b915b97ce6ca Mon Sep 17 00:00:00 2001 From: Fengming Yuan Date: Wed, 14 Aug 2024 20:50:30 -0400 Subject: [PATCH] two changes in bgc submodules from pflotran v5.0.0 --- .../emi/src/em/alquimia/ExternalModelAlquimiaMod.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/components/elm/src/external_models/emi/src/em/alquimia/ExternalModelAlquimiaMod.F90 b/components/elm/src/external_models/emi/src/em/alquimia/ExternalModelAlquimiaMod.F90 index 834a79b12433..657564a402bd 100644 --- a/components/elm/src/external_models/emi/src/em/alquimia/ExternalModelAlquimiaMod.F90 +++ b/components/elm/src/external_models/emi/src/em/alquimia/ExternalModelAlquimiaMod.F90 @@ -44,6 +44,8 @@ module ExternalModelAlquimiaMod type, public, extends(em_base_type) :: em_alquimia_type + integer :: natural_id + integer :: index_l2e_col_dz integer :: index_l2e_col_zi @@ -2217,7 +2219,7 @@ recursive subroutine run_onestep(this,dt,num_cuts,max_cuts) porosity=this%chem_state%porosity call this%chem%ReactionStepOperatorSplit(this%chem_engine, actual_dt, this%chem_properties, this%chem_state, & - this%chem_aux_data, this%chem_status) + this%chem_aux_data, this%natural_id, this%chem_status) ! Reset porosity because Pflotran tends to mess it up this%chem_state%porosity=porosity ! write(iulog,*),'Converged =',this%chem_status%converged,"ncuts =",num_cuts @@ -2362,7 +2364,7 @@ recursive subroutine run_column_onestep(this,dt,num_cuts,max_cuts, & porosity_tmp=this%chem_state%porosity call this%chem%ReactionStepOperatorSplit(this%chem_engine, actual_dt, this%chem_properties, this%chem_state, & - this%chem_aux_data, this%chem_status) + this%chem_aux_data, this%natural_id, this%chem_status) ! Reset porosity because Pflotran tends to mess it up this%chem_state%porosity=porosity_tmp