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