| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_readparms.F |
106 |
OBCS_READPARMS |
INTEGER OB_Jnorth(W2_maxXStackNx) |
|
./pkg/obcs/obcs_readparms.F |
111 |
OBCS_READPARMS |
INTEGER OB_Jnorth(Nx) |
|
./pkg/obcs/obcs_readparms.F |
141 |
OBCS_READPARMS |
& OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest, |
|
./pkg/obcs/obcs_readparms.F |
237 |
OBCS_READPARMS |
OB_Jnorth(i) = OB_indexUnset |
|
./pkg/obcs/obcs_readparms.F |
495 |
OBCS_READPARMS |
IF ( OB_Jnorth(i).EQ.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
496 |
OBCS_READPARMS |
OB_Jnorth(i) = OB_singleJnorth |
|
./pkg/obcs/obcs_readparms.F |
497 |
OBCS_READPARMS |
ELSEIF ( OB_Jnorth(i).NE.OB_singleJnorth ) THEN |
|
./pkg/obcs/obcs_readparms.F |
531 |
OBCS_READPARMS |
IF ( OB_Jnorth(i).NE.OB_indexUnset .AND. |
|
./pkg/obcs/obcs_readparms.F |
532 |
OBCS_READPARMS |
& OB_Jnorth(i).LT.0 ) OB_Jnorth(i)=OB_Jnorth(i)+OBNS_Ny+1 |
|
./pkg/obcs/obcs_readparms.F |
545 |
OBCS_READPARMS |
CALL PRINT_LIST_I( OB_Jnorth, 1, OBNS_Nx, INDEX_I, |
|
./pkg/obcs/obcs_readparms.F |
599 |
OBCS_READPARMS |
IF ( OB_Jnorth(iG).NE.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
603 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iG) ) OB_Jn(i,bi,bj) = j |
|
./pkg/obcs/obcs_readparms.F |
673 |
OBCS_READPARMS |
IF ( OB_Jnorth(iGm).NE.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
677 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jnorth(iGm) ) OB_Jn(i,bi,bj) = j |