| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/OBCS_PARAMS.h |
25 |
NO PROCEDURE |
INTEGER OBCS_maxConnect |
|
./pkg/obcs/OBCS_PARAMS.h |
27 |
NO PROCEDURE |
PARAMETER ( OBCS_maxConnect = sNx+sNy ) |
|
./pkg/obcs/obcs_diag_balance.F |
65 |
OBCS_DIAG_BALANCE |
_RL areaOB(OBCS_maxConnect), tmpA |
|
./pkg/obcs/obcs_diag_balance.F |
66 |
OBCS_DIAG_BALANCE |
_RL inFlow(OBCS_maxConnect) |
|
./pkg/obcs/obcs_diag_balance.F |
67 |
OBCS_DIAG_BALANCE |
_RL tileAreaOB(nSx,nSy,OBCS_maxConnect) |
|
./pkg/obcs/obcs_diag_balance.F |
68 |
OBCS_DIAG_BALANCE |
_RL tileInFlow(nSx,nSy,OBCS_maxConnect) |
|
./pkg/obcs/obcs_set_connect.F |
192 |
OBCS_SET_CONNECT |
DO n=1,OBCS_maxConnect |
|
./pkg/obcs/obcs_set_connect.F |
203 |
OBCS_SET_CONNECT |
IF ( numLocal(bi,bj).LE.OBCS_maxConnect ) |
|
./pkg/obcs/obcs_set_connect.F |
211 |
OBCS_SET_CONNECT |
IF ( numLocal(bi,bj).GT.OBCS_maxConnect ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
214 |
OBCS_SET_CONNECT |
& ' exceeds OBCS_maxConnect=', OBCS_maxConnect |
|
./pkg/obcs/obcs_set_connect.F |
262 |
OBCS_SET_CONNECT |
IF ( numConnect.LE.OBCS_maxConnect ) |
|
./pkg/obcs/obcs_set_connect.F |
266 |
OBCS_SET_CONNECT |
IF ( numConnect.GT.OBCS_maxConnect ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
269 |
OBCS_SET_CONNECT |
& ' exceeds OBCS_maxConnect=', OBCS_maxConnect |
|
./pkg/obcs/obcs_set_connect.F |
46 |
OBCS_SET_CONNECT |
INTEGER numConnect, listConnect(OBCS_maxConnect) |
|
./pkg/obcs/obcs_set_connect.F |
47 |
OBCS_SET_CONNECT |
INTEGER numLocal(nSx,nSy), listLocal(OBCS_maxConnect,nSx,nSy) |