diff --git a/Source/wall.f90 b/Source/wall.f90 index b71736f4e6..48552aca20 100644 --- a/Source/wall.f90 +++ b/Source/wall.f90 @@ -728,7 +728,7 @@ SUBROUTINE SURFACE_HEAT_TRANSFER(NM,T,SF,BC,B1,WALL_INDEX,CFACE_INDEX,PARTICLE_I TSI = T - B1%T_IGN ENDIF - IF (B1%U_NORMAL>TWENTY_EPSILON_EB) THEN + IF (B1%U_NORMAL>TWENTY_EPSILON_EB .AND. .NOT.ANY(SF%LEAK_PATH>0)) THEN B1%TMP_F = B1%TMP_G ELSEIF (SF%TMP_FRONT>0._EB) THEN B1%TMP_F = TMP_0(BC%KKG) + &