fix if then typo around Kb_sing

NGEET · Nov 20, 2024 · 589f263 · 589f263
1 parent a1e1797
commit 589f263
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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