Symbol Description Uses
iGm 5



File Line number Procedure Code
./pkg/obcs/obcs_init_fixed.F 32 OBCS_INIT_FIXED
      INTEGER iG, jG, iGm, jGm
./pkg/obcs/obcs_init_fixed.F 59 OBCS_INIT_FIXED
          iGm = 1+mod( iG-1+Nx , Nx )
./pkg/obcs/obcs_init_fixed.F 70 OBCS_INIT_FIXED
          iGm = 1+mod( iG-1+Nx , Nx )
./pkg/obcs/obcs_init_fixed.F 72 OBCS_INIT_FIXED
          IF (jG.EQ.OB_Jnorth(iGm)) OB_Jn(I,bi,bj)=J
./pkg/obcs/obcs_init_fixed.F 73 OBCS_INIT_FIXED
          IF (jG.EQ.OB_Jsouth(iGm)) OB_Js(I,bi,bj)=J