| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_readparms.F |
59 |
OBCS_READPARMS |
INTEGER bi, bj, iG, jG, iGm, jGm |
|
./pkg/obcs/obcs_readparms.F |
654 |
OBCS_READPARMS |
iGm = 1+MOD( iG-1+Nx , Nx ) |
|
./pkg/obcs/obcs_readparms.F |
662 |
OBCS_READPARMS |
iGm = 1+MOD( iG-1+Nx , Nx ) |
|
./pkg/obcs/obcs_readparms.F |
670 |
OBCS_READPARMS |
iGm = 1+MOD( iG-1+Nx , Nx ) |
|
./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 |
|
./pkg/obcs/obcs_readparms.F |
681 |
OBCS_READPARMS |
IF ( OB_Jsouth(iGm).NE.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
685 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iGm) ) OB_Js(i,bi,bj) = j |