| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_readparms.F |
108 |
OBCS_READPARMS |
INTEGER OB_Ieast(W2_maxYStackNy) |
|
./pkg/obcs/obcs_readparms.F |
113 |
OBCS_READPARMS |
INTEGER OB_Ieast(Ny) |
|
./pkg/obcs/obcs_readparms.F |
141 |
OBCS_READPARMS |
& OB_Jnorth,OB_Jsouth,OB_Ieast,OB_Iwest, |
|
./pkg/obcs/obcs_readparms.F |
241 |
OBCS_READPARMS |
OB_Ieast(j) = OB_indexUnset |
|
./pkg/obcs/obcs_readparms.F |
463 |
OBCS_READPARMS |
IF ( OB_Ieast(j).EQ.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
464 |
OBCS_READPARMS |
OB_Ieast(j) = OB_singleIeast |
|
./pkg/obcs/obcs_readparms.F |
465 |
OBCS_READPARMS |
ELSEIF ( OB_Ieast(j).NE.OB_singleIeast ) THEN |
|
./pkg/obcs/obcs_readparms.F |
527 |
OBCS_READPARMS |
IF ( OB_Ieast(j) .NE.OB_indexUnset .AND. |
|
./pkg/obcs/obcs_readparms.F |
528 |
OBCS_READPARMS |
& OB_Ieast(j) .LT.0 ) OB_Ieast(j) = OB_Ieast(j)+OBEW_Nx+1 |
|
./pkg/obcs/obcs_readparms.F |
555 |
OBCS_READPARMS |
CALL PRINT_LIST_I( OB_Ieast, 1, OBEW_Ny, INDEX_J, |
|
./pkg/obcs/obcs_readparms.F |
620 |
OBCS_READPARMS |
IF ( OB_Ieast(jG).NE.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
624 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Ieast(jG) ) OB_Ie(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
650 |
OBCS_READPARMS |
IF ( OB_Ieast(jGm).NE.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
655 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Ieast(jGm) ) OB_Ie(j,bi,bj) = i |