| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_readparms.F |
101 |
OBCS_READPARMS |
INTEGER OB_Jnorth(Nx) |
|
./pkg/obcs/obcs_readparms.F |
125 |
OBCS_READPARMS |
& OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest, |
|
./pkg/obcs/obcs_readparms.F |
210 |
OBCS_READPARMS |
OB_Jnorth(i) = OB_indexUnset |
|
./pkg/obcs/obcs_readparms.F |
419 |
OBCS_READPARMS |
IF ( OB_Jnorth(i).NE.OB_indexUnset .AND. |
|
./pkg/obcs/obcs_readparms.F |
420 |
OBCS_READPARMS |
& OB_Jnorth(i).LT.0 ) OB_Jnorth(i)=OB_Jnorth(i)+OBNS_Ny+1 |
|
./pkg/obcs/obcs_readparms.F |
432 |
OBCS_READPARMS |
CALL PRINT_LIST_I( OB_Jnorth, 1, OBNS_Nx, INDEX_I, |
|
./pkg/obcs/obcs_readparms.F |
486 |
OBCS_READPARMS |
IF ( OB_Jnorth(iG).NE.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
490 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iG) ) OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
560 |
OBCS_READPARMS |
IF ( OB_Jnorth(iGm).NE.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
564 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iGm) ) OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
96 |
OBCS_READPARMS |
INTEGER OB_Jnorth(W2_maxXStackNx) |