Skip to content

Commit c49bd99

Browse files
committed
minor update
1 parent 332c270 commit c49bd99

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/lighting_module.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -495,7 +495,7 @@ subroutine solar_fraction_alt2(r_l, Rl, r_e, Re, percentsun, info)
495495
if (rlp+rep<=dp) then ! corrected
496496
if (present(info)) info = 'full sun'
497497
percentsun = one ! full sun
498-
else if (rep>dp+rlp) then
498+
else if (rep>=dp+rlp) then
499499
if (present(info)) info = 'umbra'
500500
percentsun = zero ! umbra
501501
else if (rlp-rep>=dp .or. dp>=rlp+rep) then ! antumbra

0 commit comments

Comments
 (0)