Skip to content

Commit d08f001

Browse files
authored
ThinCurr: Fix edge case bug in jumper construction with single edge jumper, fixes OpenFUSIONToolkit#331 (OpenFUSIONToolkit#333)
Bug introduced in 3db6ce3
1 parent 96f76b0 commit d08f001

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/physics/thin_wall.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2764,7 +2764,7 @@ SUBROUTINE order_jumper_list(list_in,list_out,n)
27642764
END IF
27652765
END IF
27662766
END DO
2767-
IF(flag_list(i0)==1)THEN
2767+
IF((flag_list(i0)==1).AND.(n>2))THEN
27682768
list_out(n+1)=lloop_tmp(i0)
27692769
ELSE
27702770
list_out(n+1)=0

0 commit comments

Comments
 (0)