Skip to content

Make bgc balance_check_tolerance a nml variable and increase the default #6651

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 4 commits into from
Oct 1, 2024
Merged

Make bgc balance_check_tolerance a nml variable and increase the default #6651

Show file tree
Hide file tree
Changes from 2 commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
8c905eb
Make bgc balance_check_tolerance a nml variable and increase the default
wlin7 Sep 27, 2024
c1631a8
Remove extra blank lines
wlin7 Sep 27, 2024
f46455b
Rename the nml variable as bgc_balance_check_tolerance
wlin7 Sep 27, 2024
632faeb
Use same balance_check_tolerance for C and P
wlin7 Sep 30, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 6 additions & 0 deletions components/elm/bld/namelist_files/namelist_definition.xml
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -139,6 +139,12 @@ If TRUE consider priority of plant to get a fraction of
symbiotic N fixation and P phosphatase
</entry>

<entry id="balance_check_tolerance" type="real" category="elm_physics"
group="elm_inparm" valid_values="" >
BGC balance check tolerance
Default 1.0e-7 hardwired
</entry>

<entry id="startdate_add_temperature" type="char*8" category="elm_physics"
group="elm_inparm" valid_values="" >
Set date for beginning of adding temperature to atmospheric forcing
Expand Down
5 changes: 3 additions & 2 deletions components/elm/src/biogeochem/EcosystemBalanceCheckMod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -48,7 +48,8 @@ module EcosystemBalanceCheckMod
implicit none
save
private
real(r8), parameter :: balance_check_tolerance = 1e-8_r8

real(r8), public :: balance_check_tolerance = 1e-7_r8
!
! !PUBLIC MEMBER FUNCTIONS:
public :: BeginColCBalance
Expand Down Expand Up @@ -498,7 +499,7 @@ subroutine ColNBalanceCheck(bounds, &
! here is '-' adjustment. It says that the adding to PF decomp n pools was less.
end if

if (abs(col_errnb(c)) > 1e-8_r8) then
if (abs(col_errnb(c)) > balance_check_tolerance) then
err_found = .true.
err_index = c
end if
Expand Down
8 changes: 7 additions & 1 deletion components/elm/src/main/controlMod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -55,6 +55,7 @@ module controlMod
use elm_varctl , only: const_climate_hist
use elm_varctl , only: use_top_solar_rad
use elm_varctl , only: snow_shape, snicar_atm_type, use_dust_snow_internal_mixing
use EcosystemBalanceCheckMod, only: balance_check_tolerance

!
! !PUBLIC TYPES:
Expand Down Expand Up @@ -181,6 +182,10 @@ subroutine control_init( )
namelist /elm_inparm/ &
NFIX_PTASE_plant

! BGC balance check
namelist /elm_inparm/ &
balance_check_tolerance

! For experimental manipulations
namelist /elm_inparm/ &
startdate_add_temperature
Expand Down Expand Up @@ -325,7 +330,7 @@ subroutine control_init( )

namelist /elm_mosart/ &
lnd_rof_coupling_nstep

namelist /elm_inparm/ &
snow_shape, snicar_atm_type, use_dust_snow_internal_mixing

Expand Down Expand Up @@ -796,6 +801,7 @@ subroutine control_spmd()
call mpi_bcast (forest_fert_exp, 1, MPI_LOGICAL, 0, mpicom, ier)
call mpi_bcast (ECA_Pconst_RGspin, 1, MPI_LOGICAL, 0, mpicom, ier)
call mpi_bcast (NFIX_PTASE_plant, 1, MPI_LOGICAL, 0, mpicom, ier)
call mpi_bcast (balance_check_tolerance, 1, MPI_REAL8, 0, mpicom, ier)
call mpi_bcast (use_pheno_flux_limiter, 1, MPI_LOGICAL, 0, mpicom, ier)
call mpi_bcast (startdate_add_temperature, 1, MPI_CHARACTER, 0, mpicom, ier)
call mpi_bcast (startdate_add_co2, 1, MPI_CHARACTER, 0, mpicom, ier)
Expand Down