File |
Line number |
Procedure |
Code |
./pkg/obcs/OBCS_PARAMS.h |
136 |
NO PROCEDURE |
& OBCS_balanceFacE, OBCS_balanceFacW, |
./pkg/obcs/OBCS_PARAMS.h |
144 |
NO PROCEDURE |
_RL OBCS_balanceFacE, OBCS_balanceFacW |
./pkg/obcs/obcs_balance_flow.F |
138 |
OBCS_BALANCE_FLOW |
flag = flag .OR. ( OBCS_balanceFacW.GT.0. ) |
./pkg/obcs/obcs_balance_flow.F |
157 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacW.GE.0. ) THEN |
./pkg/obcs/obcs_balance_flow.F |
160 |
OBCS_BALANCE_FLOW |
& + tileArea(bi,bj)*OBCS_balanceFacW |
./pkg/obcs/obcs_balance_flow.F |
169 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacW.LT.0. ) THEN |
./pkg/obcs/obcs_balance_flow.F |
298 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacW.GE.0. ) flowW = -inFlow*OBCS_balanceFacW |
./pkg/obcs/obcs_balance_flow.F |
339 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacW.NE.0. ) THEN |
./pkg/obcs/obcs_check.F |
83 |
OBCS_CHECK |
CALL WRITE_0D_RL( OBCS_balanceFacW, INDEX_NONE, |
./pkg/obcs/obcs_readparms.F |
173 |
OBCS_READPARMS |
& OBCS_balanceFacE, OBCS_balanceFacW, |
./pkg/obcs/obcs_readparms.F |
276 |
OBCS_READPARMS |
OBCS_balanceFacW = 1. _d 0 |