| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_set_connect.F |
244 |
OBCS_SET_CONNECT |
tmpRL = maxConnect |
|
./pkg/obcs/obcs_set_connect.F |
245 |
OBCS_SET_CONNECT |
_GLOBAL_MAX_RL( tmpRL, myThid ) |
|
./pkg/obcs/obcs_set_connect.F |
246 |
OBCS_SET_CONNECT |
maxConnect = NINT( tmpRL ) |
|
./pkg/obcs/obcs_set_connect.F |
251 |
OBCS_SET_CONNECT |
tmpRL = zeroRL |
|
./pkg/obcs/obcs_set_connect.F |
255 |
OBCS_SET_CONNECT |
IF ( listLocal(n,bi,bj).EQ.j ) tmpRL = oneRL |
|
./pkg/obcs/obcs_set_connect.F |
259 |
OBCS_SET_CONNECT |
_GLOBAL_MAX_RL( tmpRL, myThid ) |
|
./pkg/obcs/obcs_set_connect.F |
260 |
OBCS_SET_CONNECT |
IF ( tmpRL.EQ.oneRL ) THEN |
|
./pkg/obcs/obcs_set_connect.F |
51 |
OBCS_SET_CONNECT |
_RL tmpRL |