From 589f263667c9b29dd4ae69a0eba3b1689568ea25 Mon Sep 17 00:00:00 2001 From: Gregory Lemieux Date: Wed, 20 Nov 2024 09:39:17 -0800 Subject: [PATCH] fix if then typo around Kb_sing --- radiation/TwoStreamMLPEMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/radiation/TwoStreamMLPEMod.F90 b/radiation/TwoStreamMLPEMod.F90 index c3c20b424e..c4bb99fec1 100644 --- a/radiation/TwoStreamMLPEMod.F90 +++ b/radiation/TwoStreamMLPEMod.F90 @@ -993,7 +993,7 @@ subroutine ZenithPrep(this,cosz_in) call endrun(msg=errMsg(sourcefile, __LINE__)) end if ! Test to see if there is a singularity and make corrections if needed - if any((abs(Kb_sing(:) - Kb_eff)) < sing_tol) then + if (any((abs(Kb_sing(:) - Kb_eff)) < sing_tol)) then Kb_eff = Kb_eff + sing_tol is_sing = .true. end if