Skip to content

Fix for RRTMGP errors caused by high surface temperatures. #3643

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

Open
wants to merge 5 commits into
base: master
Choose a base branch
from
+16 −3
Open

Fix for RRTMGP errors caused by high surface temperatures. #3643

Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
918af16
Fix for RRTMGP errors caused by high surface temperatures.
olyson Dec 2, 2025
bb86640
Human readability.
olyson Dec 3, 2025
a33f75f
Add min_lai parameter
olyson Dec 3, 2025
e944928
Clarify comment
olyson Dec 3, 2025
e02b9a5
Remove duplicate comment
olyson Dec 3, 2025
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
19 changes: 16 additions & 3 deletions src/biogeophys/CanopyFluxesMod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -437,6 +437,8 @@ subroutine CanopyFluxes(bounds, num_exposedvegp, filter_exposedvegp,
real(r8), parameter :: k_cyl_area = 1.0_r8 !departure from cylindrical area
real(r8), parameter :: k_internal = 0.0_r8 !self-absorbtion of leaf/stem longwave
real(r8), parameter :: min_stem_diameter = 0.05_r8 !minimum stem diameter for which to calculate stem interactions
real(r8), parameter :: min_lai = 0.1_r8 !minimum elai threshold to add esai to sa_leaf calculation
!value is arbitrary but has been effective in avoiding RRTMGP errors in CESM3 development simulations

integer :: dummy_to_make_pgi_happy
!------------------------------------------------------------------------------
Expand Down Expand Up @@ -745,15 +747,26 @@ subroutine CanopyFluxes(bounds, num_exposedvegp, filter_exposedvegp,
! adjust for departure of cylindrical stem model
sa_stem(p) = k_cyl_area * sa_stem(p)

!
! only calculate separate leaf/stem heat capacity for trees
! and shrubs if dbh is greater than some minimum value
! (set surface area for stem, and fraction absorbed by stem to zero)
! and shrubs if dbh is greater than some minimum value.
! otherwise, set surface area for stem and fraction absorbed by stem to zero,
! and add esai to sa_leaf.
if(.not.(is_tree(patch%itype(p)) .or. is_shrub(patch%itype(p))) &
.or. dbh(p) < min_stem_diameter) then
frac_rad_abs_by_stem(p) = 0.0_r8
sa_stem(p) = 0.0_r8
sa_leaf(p) = sa_leaf(p) + esai(p)
else
! Add esai to sa_leaf if elai is less than threshold.
! Intended to avoid small sa_leaf which leads to small leaf conductance
! and high leaf temperature. This in turn can lead to unrealistically
! high surface temperatures passed to the atmospheric model (The RRTMGP
! component in particular, which returns an error and stops the model
! if the surface temperature is greater than 355K).
! See https://github.com/ESCOMP/CTSM/issues/3589 for more info.
if(elai(p) < min_lai) then
sa_leaf(p) = sa_leaf(p) + esai(p)
endif
endif

! if using Satellite Phenology mode, calculate leaf and stem biomass
Expand Down