diff --git a/Source/init.f90 b/Source/init.f90 index d5a6aa8e497..a7852efcd96 100644 --- a/Source/init.f90 +++ b/Source/init.f90 @@ -2543,14 +2543,15 @@ SUBROUTINE INITIALIZE_DEVICES(NM) IF (DV%QUANTITY_INDEX(1)>=0) CYCLE DEVICE_LOOP ! Do not process gas phsae devices + IW = 0 + ICF = 0 + IF (DV%INIT_ID=='null' .AND. DV%LP_TAG==0) THEN ! Assume the device is tied to a WALL cell or CFACE IF (NM/=DV%MESH) CYCLE DEVICE_LOOP II = INT(GINV(DV%X-M%XS,1,NM)*M%RDXI + 1._EB) JJ = INT(GINV(DV%Y-M%YS,2,NM)*M%RDETA + 1._EB) KK = INT(GINV(DV%Z-M%ZS,3,NM)*M%RDZETA + 1._EB) - IW = 0 - ICF = 0 IF (DV%IOR/=0) CALL GET_WALL_INDEX(NM,II,JJ,KK,DV%IOR,IW)