diff --git a/Source/part.f90 b/Source/part.f90 index 699cf7e743..e644bb6bfe 100644 --- a/Source/part.f90 +++ b/Source/part.f90 @@ -1013,9 +1013,9 @@ SUBROUTINE INSERT_VOLUMETRIC_PARTICLES ! If the INIT volume is outside the current mesh, return IF (IN%SHAPE/='RING' .AND. IN%SHAPE/='LINE') THEN - IF (IN_X1>XF*ONE_M_EPS .OR. IN_X2YF*ONE_M_EPS .OR. IN_Y2ZF*ONE_M_EPS .OR. IN_Z2-50._EB*TWO_EPSILON_EB .OR. (IN_X2-XS)<50._EB*TWO_EPSILON_EB .OR. & + (IN_Y1-YF)>-50._EB*TWO_EPSILON_EB .OR. (IN_Y2-YS)<50._EB*TWO_EPSILON_EB .OR. & + (IN_Z1-ZF)>-50._EB*TWO_EPSILON_EB .OR. (IN_Z2-ZS)<50._EB*TWO_EPSILON_EB) RETURN ELSE IF (IN_X1>XF .OR. IN_X2YF .OR. IN_Y2ZF .OR. IN_Z2