| 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 |
647 |
OBCS_READPARMS |
jGm = 1+MOD( jG-1+Ny , Ny ) |
|
./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 |
|
./pkg/obcs/obcs_readparms.F |
659 |
OBCS_READPARMS |
IF ( OB_Iwest(jGm).NE.OB_indexUnset ) THEN |
|
./pkg/obcs/obcs_readparms.F |
663 |
OBCS_READPARMS |
IF ( iG.EQ.OB_Iwest(jGm) ) OB_Iw(j,bi,bj) = i |
|
./pkg/obcs/obcs_readparms.F |
676 |
OBCS_READPARMS |
jGm = 1+MOD( jG-1+Ny , Ny ) |
|
./pkg/obcs/obcs_readparms.F |
684 |
OBCS_READPARMS |
jGm = 1+MOD( jG-1+Ny , Ny ) |