| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_readparms.F |
541 |
OBCS_READPARMS |
iGm = 1+MOD( iG-1+Nx , Nx ) |
|
./pkg/obcs/obcs_readparms.F |
549 |
OBCS_READPARMS |
iGm = 1+MOD( iG-1+Nx , Nx ) |
|
./pkg/obcs/obcs_readparms.F |
54 |
OBCS_READPARMS |
INTEGER bi, bj, iG, jG, iGm, jGm |
|
./pkg/obcs/obcs_readparms.F |
557 |
OBCS_READPARMS |
iGm = 1+MOD( iG-1+Nx , Nx ) |
|
./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 |
568 |
OBCS_READPARMS |
IF ( OB_Jsouth(iGm).NE.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
572 |
OBCS_READPARMS |
IF ( jG.EQ.OB_Jsouth(iGm) ) OB_Js(i,bi,bj) = j |