File |
Line number |
Procedure |
Code |
./pkg/obcs/OBCS_PARAMS.h |
135 |
NO PROCEDURE |
& OBCS_balanceFacN, OBCS_balanceFacS, |
./pkg/obcs/OBCS_PARAMS.h |
143 |
NO PROCEDURE |
_RL OBCS_balanceFacN, OBCS_balanceFacS |
./pkg/obcs/obcs_balance_flow.F |
187 |
OBCS_BALANCE_FLOW |
flag = flag .OR. ( OBCS_balanceFacN.GT.0. ) |
./pkg/obcs/obcs_balance_flow.F |
206 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacN.GE.0. ) THEN |
./pkg/obcs/obcs_balance_flow.F |
209 |
OBCS_BALANCE_FLOW |
& + tileArea(bi,bj)*OBCS_balanceFacN |
./pkg/obcs/obcs_balance_flow.F |
218 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacN.LT.0. ) THEN |
./pkg/obcs/obcs_balance_flow.F |
299 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacN.GE.0. ) flowN = inFlow*OBCS_balanceFacN |
./pkg/obcs/obcs_balance_flow.F |
359 |
OBCS_BALANCE_FLOW |
IF ( OBCS_balanceFacN.NE.0. ) THEN |
./pkg/obcs/obcs_check.F |
74 |
OBCS_CHECK |
CALL WRITE_0D_RL( OBCS_balanceFacN, INDEX_NONE, |
./pkg/obcs/obcs_readparms.F |
172 |
OBCS_READPARMS |
& OBCS_balanceFacN, OBCS_balanceFacS, |
./pkg/obcs/obcs_readparms.F |
273 |
OBCS_READPARMS |
OBCS_balanceFacN = 1. _d 0 |