& OBCS_balanceFacE, OBCS_balanceFacW,
_RL OBCS_balanceFacE, OBCS_balanceFacW
IF ( OBCS_balanceFacE.GE.0. ) THEN
& + tileArea(bi,bj)*OBCS_balanceFacE
IF ( OBCS_balanceFacE.LT.0. ) THEN
IF ( OBCS_balanceFacE.GE.0. ) flowE = inFlow*OBCS_balanceFacE
IF ( OBCS_balanceFacE.NE.0. ) THEN
flag = flag .OR. ( OBCS_balanceFacE.GT.0. )
CALL WRITE_0D_RL( OBCS_balanceFacE, INDEX_NONE,
OBCS_balanceFacE = 1. _d 0