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