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