Symbol Description Uses
jj local index of open boundary 285


File Line number Procedure Code
./pkg/exch2/w2_map_procs.F 151 W2_MAP_PROCS 
         jj = exch2_neighbourId(J,myTileId)
./pkg/exch2/w2_map_procs.F 152 W2_MAP_PROCS 
         IF ( W2_tileProc(jj).EQ.thisProc ) commFlag = 'P'
./pkg/exch2/w2_map_procs.F 46 W2_MAP_PROCS 
      INTEGER np, ii, jj, bi, bj
./pkg/exch2/w2_map_procs.F 85 W2_MAP_PROCS 
        jj = J/(nSx*nPx)
./pkg/exch2/w2_map_procs.F 90 W2_MAP_PROCS 
        np = 1 + jj/nSy + (ii/nSx)*nPy
./pkg/exch2/w2_map_procs.F 91 W2_MAP_PROCS 
        bj = 1 + MOD(jj,nSy)
./pkg/exch2/w2_set_cs6_facets.F 145 W2_SET_CS6_FACETS 
          jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_cs6_facets.F 147 W2_SET_CS6_FACETS 
          IF ( jj.GE.1 .AND. jj.LE.nFacets
./pkg/exch2/w2_set_cs6_facets.F 152 W2_SET_CS6_FACETS 
           ll = 2*(jj-1)+(ii+1)/2
./pkg/exch2/w2_set_cs6_facets.F 159 W2_SET_CS6_FACETS 
     &         ' from',jj,'.',edge(ii),' :',facet_dims(ll)
./pkg/exch2/w2_set_cs6_facets.F 40 W2_SET_CS6_FACETS 
      INTEGER i, j, ii, jj, lo, ll
./pkg/exch2/w2_set_cs6_facets.F 64 W2_SET_CS6_FACETS 
         jj = j+2
./pkg/exch2/w2_set_cs6_facets.F 65 W2_SET_CS6_FACETS 
         facet_link(1,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 66 W2_SET_CS6_FACETS 
         jj = j-1
./pkg/exch2/w2_set_cs6_facets.F 67 W2_SET_CS6_FACETS 
         facet_link(2,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 68 W2_SET_CS6_FACETS 
         jj = j+1
./pkg/exch2/w2_set_cs6_facets.F 69 W2_SET_CS6_FACETS 
         facet_link(3,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 70 W2_SET_CS6_FACETS 
         jj = j-2
./pkg/exch2/w2_set_cs6_facets.F 71 W2_SET_CS6_FACETS 
         facet_link(4,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 73 W2_SET_CS6_FACETS 
         jj = j+1
./pkg/exch2/w2_set_cs6_facets.F 74 W2_SET_CS6_FACETS 
         facet_link(1,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 75 W2_SET_CS6_FACETS 
         jj = j-2
./pkg/exch2/w2_set_cs6_facets.F 76 W2_SET_CS6_FACETS 
         facet_link(2,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 77 W2_SET_CS6_FACETS 
         jj = j+2
./pkg/exch2/w2_set_cs6_facets.F 78 W2_SET_CS6_FACETS 
         facet_link(3,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 79 W2_SET_CS6_FACETS 
         jj = j-1
./pkg/exch2/w2_set_cs6_facets.F 80 W2_SET_CS6_FACETS 
         facet_link(4,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_f2f_index.F 108 W2_SET_F2F_INDEX 
        jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_f2f_index.F 110 W2_SET_F2F_INDEX 
        IF ( jj.GE.1 ) THEN
./pkg/exch2/w2_set_f2f_index.F 111 W2_SET_F2F_INDEX 
         ll = 2*(jj-1)+(ii+1)/2
./pkg/exch2/w2_set_f2f_index.F 118 W2_SET_F2F_INDEX 
     &      edge(ii),'.Edge facet #', jj, ' (=',ll,') are different'
./pkg/exch2/w2_set_f2f_index.F 142 W2_SET_F2F_INDEX 
           facet_oj(i,j) = -facet_dims(2*jj)
./pkg/exch2/w2_set_f2f_index.F 149 W2_SET_F2F_INDEX 
           facet_oi(i,j) = -facet_dims(2*jj-1)
./pkg/exch2/w2_set_f2f_index.F 169 W2_SET_F2F_INDEX 
           facet_oj(i,j) = -facet_dims(2*jj-1)
./pkg/exch2/w2_set_f2f_index.F 186 W2_SET_F2F_INDEX 
           facet_oi(i,j) = -facet_dims(2*jj)
./pkg/exch2/w2_set_f2f_index.F 191 W2_SET_F2F_INDEX 
     &      edge(ii),'.Edge (facet#', jj,' )'
./pkg/exch2/w2_set_f2f_index.F 201 W2_SET_F2F_INDEX 
     &          edge(ii),'.Edge Facet', jj,
./pkg/exch2/w2_set_f2f_index.F 222 W2_SET_F2F_INDEX 
        jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_f2f_index.F 224 W2_SET_F2F_INDEX 
        IF ( jj.GE.1 ) THEN
./pkg/exch2/w2_set_f2f_index.F 232 W2_SET_F2F_INDEX 
         chk1 = facet_pij(1,i,j)*facet_pij(1,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 233 W2_SET_F2F_INDEX 
     &        + facet_pij(2,i,j)*facet_pij(3,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 234 W2_SET_F2F_INDEX 
         chk2 = facet_pij(1,i,j)*facet_pij(2,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 235 W2_SET_F2F_INDEX 
     &        + facet_pij(2,i,j)*facet_pij(4,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 236 W2_SET_F2F_INDEX 
         chk3 = facet_pij(3,i,j)*facet_pij(1,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 237 W2_SET_F2F_INDEX 
     &        + facet_pij(4,i,j)*facet_pij(3,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 238 W2_SET_F2F_INDEX 
         chk4 = facet_pij(3,i,j)*facet_pij(2,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 239 W2_SET_F2F_INDEX 
     &        + facet_pij(4,i,j)*facet_pij(4,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 241 W2_SET_F2F_INDEX 
         chk5 = facet_pij(1,i,j)*facet_oi(ii,jj)
./pkg/exch2/w2_set_f2f_index.F 242 W2_SET_F2F_INDEX 
     &        + facet_pij(2,i,j)*facet_oj(ii,jj)
./pkg/exch2/w2_set_f2f_index.F 244 W2_SET_F2F_INDEX 
         chk6 = facet_pij(3,i,j)*facet_oi(ii,jj)
./pkg/exch2/w2_set_f2f_index.F 245 W2_SET_F2F_INDEX 
     &        + facet_pij(4,i,j)*facet_oj(ii,jj)
./pkg/exch2/w2_set_f2f_index.F 251 W2_SET_F2F_INDEX 
     &      edge(ii),'.Edge (facet#', jj,' )'
./pkg/exch2/w2_set_f2f_index.F 37 W2_SET_F2F_INDEX 
      INTEGER i, j, ii, jj, i1, j1, k, lo, ll
./pkg/exch2/w2_set_f2f_index.F 55 W2_SET_F2F_INDEX 
         jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_f2f_index.F 63 W2_SET_F2F_INDEX 
         ELSEIF ( jj.LT.1 .OR. jj.GT.nFacets
./pkg/exch2/w2_set_f2f_index.F 71 W2_SET_F2F_INDEX 
          j1 = INT(facet_link(ii,jj))
./pkg/exch2/w2_set_f2f_index.F 72 W2_SET_F2F_INDEX 
          i1 = MOD( NINT(facet_link(ii,jj)*10.), 10 )
./pkg/exch2/w2_set_f2f_index.F 76 W2_SET_F2F_INDEX 
     &      edge(ii),'.Edge facet #',jj,' (',facet_link(i,j),' )'
./pkg/exch2/w2_set_f2f_index.F 80 W2_SET_F2F_INDEX 
     &      edge(ii),'.Edge facet #',jj,' connect to: ',
./pkg/exch2/w2_set_f2f_index.F 81 W2_SET_F2F_INDEX 
     &      edge(i1),'.Edge facet #',j1,' (',facet_link(ii,jj),' )'
./pkg/exch2/w2_set_f2f_index.F 84 W2_SET_F2F_INDEX 
     &      edge(ii),'.Edge facet #',jj,' connect to: ',
./pkg/exch2/w2_set_f2f_index.F 85 W2_SET_F2F_INDEX 
     &           '?' ,'.Edge facet #',j1,' (',facet_link(ii,jj),' )'
./pkg/exch2/w2_set_gen_facets.F 100 W2_SET_GEN_FACETS 
         j = (jj+1)/2
./pkg/exch2/w2_set_gen_facets.F 102 W2_SET_GEN_FACETS 
     &     ' of facet', j, ' =', facet_dims(jj), ' : invalid (< 0)'
./pkg/exch2/w2_set_gen_facets.F 38 W2_SET_GEN_FACETS 
      INTEGER i,j,jj,fNx,fNy
./pkg/exch2/w2_set_gen_facets.F 87 W2_SET_GEN_FACETS 
      DO jj=2*nFacets+1,2*W2_maxNbFacets
./pkg/exch2/w2_set_gen_facets.F 88 W2_SET_GEN_FACETS 
        IF ( facet_dims(jj).NE.0 ) THEN
./pkg/exch2/w2_set_gen_facets.F 90 W2_SET_GEN_FACETS 
          WRITE(msgBuf,'(A,I3,A,I5,A)') ' dimsFacets(j=',jj,') =',
./pkg/exch2/w2_set_gen_facets.F 91 W2_SET_GEN_FACETS 
     &           facet_dims(jj), ' : beyond end of list (=1rst zero)'
./pkg/exch2/w2_set_gen_facets.F 96 W2_SET_GEN_FACETS 
      DO jj=1,2*nFacets
./pkg/exch2/w2_set_gen_facets.F 97 W2_SET_GEN_FACETS 
       IF ( facet_dims(jj).LT.0 ) THEN
./pkg/exch2/w2_set_gen_facets.F 99 W2_SET_GEN_FACETS 
         i=1+MOD(jj-1,2)
./pkg/exch2/w2_set_map_cumsum.F 111 W2_SET_MAP_CUMSUM 
            jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_map_cumsum.F 114 W2_SET_MAP_CUMSUM 
            IF ( .NOT.fIsSet(jj) .AND. nType.EQ.1 ) THEN
./pkg/exch2/w2_set_map_cumsum.F 118 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F 119 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F 121 W2_SET_MAP_CUMSUM 
              W2_cumSum_facet(2,j,jj) = W2_cumSum_facet(2,j,jj) + 1
./pkg/exch2/w2_set_map_cumsum.F 123 W2_SET_MAP_CUMSUM 
              fIsSet(jj) = .TRUE.
./pkg/exch2/w2_set_map_cumsum.F 125 W2_SET_MAP_CUMSUM 
     &         ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F 131 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F 132 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F 134 W2_SET_MAP_CUMSUM 
              W2_cumSum_facet(1,j,jj) = W2_cumSum_facet(1,j,jj) + 1
./pkg/exch2/w2_set_map_cumsum.F 136 W2_SET_MAP_CUMSUM 
              fIsSet(jj) = .TRUE.
./pkg/exch2/w2_set_map_cumsum.F 138 W2_SET_MAP_CUMSUM 
     &         ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F 143 W2_SET_MAP_CUMSUM 
            IF ( .NOT.fIsSet(jj) .AND. nType.EQ.2 ) THEN
./pkg/exch2/w2_set_map_cumsum.F 147 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F 148 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F 150 W2_SET_MAP_CUMSUM 
              W2_cumSum_facet(2,jj,jj) = W2_cumSum_facet(2,jj,jj) - 1
./pkg/exch2/w2_set_map_cumsum.F 152 W2_SET_MAP_CUMSUM 
              fIsSet(jj) = .TRUE.
./pkg/exch2/w2_set_map_cumsum.F 154 W2_SET_MAP_CUMSUM 
     &         ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F 160 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F 161 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F 163 W2_SET_MAP_CUMSUM 
              W2_cumSum_facet(1,jj,jj) = W2_cumSum_facet(1,jj,jj) - 1
./pkg/exch2/w2_set_map_cumsum.F 165 W2_SET_MAP_CUMSUM 
              fIsSet(jj) = .TRUE.
./pkg/exch2/w2_set_map_cumsum.F 167 W2_SET_MAP_CUMSUM 
     &         ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F 173 W2_SET_MAP_CUMSUM 
            IF ( .NOT.fIsSet(jj) .AND. nType.EQ.3
./pkg/exch2/w2_set_map_cumsum.F 179 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F 180 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F 182 W2_SET_MAP_CUMSUM 
              W2_cumSum_facet(2,j, jj) = W2_cumSum_facet(2,j, jj) + 1
./pkg/exch2/w2_set_map_cumsum.F 183 W2_SET_MAP_CUMSUM 
              W2_cumSum_facet(2,jj,jj) = W2_cumSum_facet(2,jj,jj) - 1
./pkg/exch2/w2_set_map_cumsum.F 185 W2_SET_MAP_CUMSUM 
              fIsSet(jj) = .TRUE.
./pkg/exch2/w2_set_map_cumsum.F 187 W2_SET_MAP_CUMSUM 
     &         ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F 194 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(1,k,jj) = W2_cumSum_facet(1,k,j)
./pkg/exch2/w2_set_map_cumsum.F 195 W2_SET_MAP_CUMSUM 
               W2_cumSum_facet(2,k,jj) = W2_cumSum_facet(2,k,j)
./pkg/exch2/w2_set_map_cumsum.F 197 W2_SET_MAP_CUMSUM 
              W2_cumSum_facet(1,j, jj) = W2_cumSum_facet(1,j, jj) + 1
./pkg/exch2/w2_set_map_cumsum.F 198 W2_SET_MAP_CUMSUM 
              W2_cumSum_facet(1,jj,jj) = W2_cumSum_facet(1,jj,jj) - 1
./pkg/exch2/w2_set_map_cumsum.F 200 W2_SET_MAP_CUMSUM 
              fIsSet(jj) = .TRUE.
./pkg/exch2/w2_set_map_cumsum.F 202 W2_SET_MAP_CUMSUM 
     &         ' CumSum SW.corner of facet #', jj,' set from facet',j,
./pkg/exch2/w2_set_map_cumsum.F 42 W2_SET_MAP_CUMSUM 
      INTEGER tN, i, j, k, ii, jj
./pkg/mdsio/mdsio_facef_read.F 60 MDS_FACEF_READ_RS 
      INTEGER tN, dNx, dNy, tBx, tBy, tNx, tNY, jj, jBase
./pkg/mdsio/mdsio_facef_read.F 86 MDS_FACEF_READ_RS 
        DO jj=1+tBy,sNy+1+tBy
./pkg/mdsio/mdsio_facef_read.F 87 MDS_FACEF_READ_RS 
         READ(dUnit,rec=jj+jBase) (ioBuf4(i),i=1,dNx+1)
./pkg/mdsio/mdsio_facef_read.F 97 MDS_FACEF_READ_RS 
        DO jj=1+tBy,sNy+1+tBy
./pkg/mdsio/mdsio_facef_read.F 98 MDS_FACEF_READ_RS 
         READ(dUnit,rec=jj+jBase) (ioBuf8(i),i=1,dNx+1)
./pkg/mdsio/mdsio_gl.F 1292 MDSWRITEFIELD_2D_GL 
      integer ii,jj
./pkg/mdsio/mdsio_gl.F 504 MDSWRITEFIELD_3D_GL 
      integer ii,jj
./pkg/mdsio/mdsio_gl.F 82 MDSREADFIELD_3D_GL 
      integer ii,jj
./pkg/mdsio/mdsio_gl.F 869 MDSREADFIELD_2D_GL 
      integer ii,jj
./pkg/mdsio/mdsio_gl_slice.F 313 MDSREADFIELD_YZ_GL 
      integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 461 MDSREADFIELD_YZ_GL 
       do jj=1,sNy
./pkg/mdsio/mdsio_gl_slice.F 462 MDSREADFIELD_YZ_GL 
        arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj)
./pkg/mdsio/mdsio_gl_slice.F 808 MDSWRITEFIELD_YZ_GL 
      integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 879 MDSWRITEFIELD_YZ_GL 
            do jj=1,sNy
./pkg/mdsio/mdsio_gl_slice.F 880 MDSWRITEFIELD_YZ_GL 
               arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k)
./model/src/calc_r_star.F 279 CALC_R_STAR 
          jj = sNy+j
./model/src/calc_r_star.F 283 CALC_R_STAR 
          IF (kSurfC(1-i,jj, bi,bj).GT.Nr) rStarFacC(1-i,jj, bi,bj)= 1.
./model/src/calc_r_star.F 284 CALC_R_STAR 
          IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1.
./model/src/calc_r_star.F 288 CALC_R_STAR 
          IF (kSurfW(1-i,jj, bi,bj).GT.Nr) rStarFacW(1-i,jj, bi,bj)= 1.
./model/src/calc_r_star.F 289 CALC_R_STAR 
          IF (kSurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1.
./model/src/calc_r_star.F 293 CALC_R_STAR 
          IF (kSurfS(1-i,jj, bi,bj).GT.Nr) rStarFacS(1-i,jj, bi,bj)= 1.
./model/src/calc_r_star.F 294 CALC_R_STAR 
          IF (kSurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1.
./model/src/calc_r_star.F 60 CALC_R_STAR 
      INTEGER ii,jj
./pkg/mnc/mnc_grid.F 144 MNC_GRID_INIT_ALL 
          DO jj = ig1,ig2
./pkg/mnc/mnc_grid.F 146 MNC_GRID_INIT_ALL 
            IF (mnc_d_names(mnc_fd_ind(indf,jj)) .NE. dnames(k)) THEN
./pkg/mnc/mnc_grid.F 186 MNC_GRID_INIT_ALL 
          jj = mnc_f_alld(indf,ii+1)
./pkg/mnc/mnc_grid.F 187 MNC_GRID_INIT_ALL 
          kk = ILNBLNK(mnc_d_names(jj))
./pkg/mnc/mnc_grid.F 189 MNC_GRID_INIT_ALL 
     &         .AND. (dnames(i)(1:n) .EQ. mnc_d_names(jj)(1:kk))) THEN
./pkg/mnc/mnc_grid.F 190 MNC_GRID_INIT_ALL 
            indd = jj
./pkg/mnc/mnc_grid.F 72 MNC_GRID_INIT_ALL 
      integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid
./pkg/obcs/obcs_mon_stats.F 314 OBCS_MON_STATS_NS_RL 
      INTEGER jj, jB
./pkg/obcs/obcs_mon_stats.F 345 OBCS_MON_STATS_NS_RL 
             jj = jNb(i,bi,bj)
./pkg/obcs/obcs_mon_stats.F 348 OBCS_MON_STATS_NS_RL 
             IF ( jj.NE.jNone .AND. jj.GT.1 ) THEN
./pkg/obcs/obcs_mon_stats.F 349 OBCS_MON_STATS_NS_RL 
              jB = jj
./pkg/obcs/obcs_mon_stats.F 351 OBCS_MON_STATS_NS_RL 
     &                *( mskInC(i,jj-1,bi,bj)-mskInC(i,jj,bi,bj) )
./pkg/obcs/obcs_mon_stats.F 354 OBCS_MON_STATS_NS_RL 
              tmpV = arr(i,jj,k,bi,bj)
./pkg/obcs/obcs_mon_stats.F 417 OBCS_MON_STATS_NS_RL 
             jj = jSb(i,bi,bj)
./pkg/obcs/obcs_mon_stats.F 420 OBCS_MON_STATS_NS_RL 
             IF ( jj.NE.jNone .AND. jj.LT.sNy ) THEN
./pkg/obcs/obcs_mon_stats.F 421 OBCS_MON_STATS_NS_RL 
              jB = jj+1
./pkg/obcs/obcs_mon_stats.F 423 OBCS_MON_STATS_NS_RL 
     &                *( mskInC(i,jj+1,bi,bj)-mskInC(i,jj,bi,bj) )
./pkg/obcs/obcs_mon_stats.F 426 OBCS_MON_STATS_NS_RL 
              IF ( gPos.EQ.2 .OR. gPos.EQ.3 ) jj = jB
./pkg/obcs/obcs_mon_stats.F 427 OBCS_MON_STATS_NS_RL 
              tmpV = arr(i,jj,k,bi,bj)
./pkg/ptracers/ptracers_mnc_init.F 32 PTRACERS_MNC_INIT 
      INTEGER ii, jj, ilnb
./pkg/ptracers/ptracers_mnc_init.F 42 PTRACERS_MNC_INIT 
          DO jj = 1,80
./pkg/ptracers/ptracers_mnc_init.F 43 PTRACERS_MNC_INIT 
            name(jj:jj) = ' '
./pkg/ptracers/ptracers_write_timeave.F 102 PTRACERS_WRITE_TIMEAVE 
            DO jj = 1,MAX_LEN_FNAM
./pkg/ptracers/ptracers_write_timeave.F 103 PTRACERS_WRITE_TIMEAVE 
              prefix(jj:jj) = ' '
./pkg/ptracers/ptracers_write_timeave.F 51 PTRACERS_WRITE_TIMEAVE 
      INTEGER jj, ilnb
./pkg/seaice/seaice_fgmres.F 140 SEAICE_MAP_RS2VEC 
      INTEGER ii, jj, m
./pkg/seaice/seaice_fgmres.F 150 SEAICE_MAP_RS2VEC 
          jj = 2*sNx*(J-1)
./pkg/seaice/seaice_fgmres.F 152 SEAICE_MAP_RS2VEC 
           ii = jj + 2*I
./pkg/seaice/seaice_fgmres.F 159 SEAICE_MAP_RS2VEC 
          jj = 2*sNx*(J-1)
./pkg/seaice/seaice_fgmres.F 161 SEAICE_MAP_RS2VEC 
           ii = jj + 2*I
./pkg/seaice/seaice_fgmres.F 170 SEAICE_MAP_RS2VEC 
          jj = sNx*(J-1)
./pkg/seaice/seaice_fgmres.F 172 SEAICE_MAP_RS2VEC 
           ii = jj + I
./pkg/seaice/seaice_fgmres.F 179 SEAICE_MAP_RS2VEC 
          jj = sNx*(J-1)
./pkg/seaice/seaice_fgmres.F 181 SEAICE_MAP_RS2VEC 
           ii = jj + I
./pkg/seaice/seaice_fgmres.F 343 SEAICE_FGMRES 
      integer i1, ii, j, jj, k, k1!, n1
./pkg/seaice/seaice_fgmres.F 48 SEAICE_MAP2VEC 
      INTEGER ii, jj, m
./pkg/seaice/seaice_fgmres.F 582 SEAICE_FGMRES 
       jj = i1-j+1
./pkg/seaice/seaice_fgmres.F 583 SEAICE_FGMRES 
       rs(jj-1,myThid) = -s(jj-1,myThid)*rs(jj,myThid)
./pkg/seaice/seaice_fgmres.F 584 SEAICE_FGMRES 
       rs(jj  ,myThid) =  c(jj-1,myThid)*rs(jj,myThid)
./pkg/seaice/seaice_fgmres.F 58 SEAICE_MAP2VEC 
          jj = 2*sNx*(J-1)
./pkg/seaice/seaice_fgmres.F 60 SEAICE_MAP2VEC 
           ii = jj + 2*I
./pkg/seaice/seaice_fgmres.F 67 SEAICE_MAP2VEC 
          jj = 2*sNx*(J-1)
./pkg/seaice/seaice_fgmres.F 69 SEAICE_MAP2VEC 
           ii = jj + 2*I
./pkg/seaice/seaice_fgmres.F 78 SEAICE_MAP2VEC 
          jj = sNx*(J-1)
./pkg/seaice/seaice_fgmres.F 80 SEAICE_MAP2VEC 
           ii = jj + I
./pkg/seaice/seaice_fgmres.F 87 SEAICE_MAP2VEC 
          jj = sNx*(J-1)
./pkg/seaice/seaice_fgmres.F 89 SEAICE_MAP2VEC 
           ii = jj + I
./pkg/smooth/smooth_diff3d.F 37 SMOOTH_DIFF3D 
      integer ii, jj, kk
./pkg/smooth/smooth_filtervar2d.F 137 SMOOTH_FILTERVAR2D 
         DO j=jj,sNy,djLoc
./pkg/smooth/smooth_filtervar2d.F 28 SMOOTH_FILTERVAR2D 
      integer i,j,k, bi, bj, ii, jj, kk
./pkg/smooth/smooth_filtervar2d.F 85 SMOOTH_FILTERVAR2D 
      DO jj=1,djLoc
./pkg/smooth/smooth_filtervar2d.F 95 SMOOTH_FILTERVAR2D 
         DO j=jj,sNy,djLoc
./pkg/smooth/smooth_filtervar3d.F 113 SMOOTH_FILTERVAR3D 
      DO jj=1,djLoc,2
./pkg/smooth/smooth_filtervar3d.F 126 SMOOTH_FILTERVAR3D 
         DO j=jj,sNy,djLoc
./pkg/smooth/smooth_filtervar3d.F 172 SMOOTH_FILTERVAR3D 
         DO j=jj,sNy,djLoc
./pkg/smooth/smooth_filtervar3d.F 28 SMOOTH_FILTERVAR3D 
      integer i,j,k, bi, bj, ii, jj, kk
./pkg/smooth/smooth_init3d.F 35 SMOOTH_INIT3D 
      integer ii,jj,kk
./pkg/thsice/thsice_albedo.F 161 THSICE_ALBEDO 
          jj=j
./pkg/thsice/thsice_albedo.F 177 THSICE_ALBEDO 
     &      'THSICE_ALBEDO: Problem, e.g., at:', myIter,ii,jj,bi,bj
./pkg/thsice/thsice_albedo.F 180 THSICE_ALBEDO 
     &      'THSICE_ALBEDO: albedo=', sAlb(ii,jj),ageSnw(ii,jj),
./pkg/thsice/thsice_albedo.F 181 THSICE_ALBEDO 
     &      hsnow(ii,jj)
./pkg/thsice/thsice_albedo.F 88 THSICE_ALBEDO 
      INTEGER ii,jj,icount
./pkg/thsice/thsice_solve4temp.F 157 THSICE_SOLVE4TEMP 
      INTEGER ii, jj, icount, stdUnit
./pkg/thsice/thsice_solve4temp.F 265 THSICE_SOLVE4TEMP 
           jj = j
./pkg/thsice/thsice_solve4temp.F 347 THSICE_SOLVE4TEMP 
     &      'THSICE_SOLVE4TEMP: the last one was at (',ii,',',jj,
./pkg/thsice/thsice_solve4temp.F 348 THSICE_SOLVE4TEMP 
     &      ') with hIce = ', hIce(ii,jj)
./model/src/solve_uv_tridiago.F 347 SOLVE_UV_TRIDIAGO 
           DO jj= 1,sNy-1
./model/src/solve_uv_tridiago.F 348 SOLVE_UV_TRIDIAGO 
            j = sNy - jj
./model/src/solve_uv_tridiago.F 80 SOLVE_UV_TRIDIAGO 
      INTEGER jj, jm, jp
./pkg/admtlm/admtlm_dsvd.F 204 ADMTLM_DSVD 
      integer l, ilinsysinfo, ii, jj
./pkg/atm2d/init_atm2d.F 109 INIT_ATM2D 
        DO jj=2,jm0-1
./pkg/atm2d/init_atm2d.F 110 INIT_ATM2D 
          IF  ((yG(1,j,1,1).GE.atm_yG(jj)).AND.
./pkg/atm2d/init_atm2d.F 111 INIT_ATM2D 
     &         (yG(1,j,1,1).LT.atm_yG(jj+1))) j_atm=jj
./pkg/atm2d/init_atm2d.F 135 INIT_ATM2D 
        DO jj=1,jm0-1
./pkg/atm2d/init_atm2d.F 136 INIT_ATM2D 
          IF (( yG(1,j,1,1) .GE. atm_yC(jj)).AND.
./pkg/atm2d/init_atm2d.F 137 INIT_ATM2D 
     &        ( yG(1,j,1,1) .LT. atm_yC(jj+1))) j_atm=jj
./pkg/atm2d/init_atm2d.F 47 INIT_ATM2D 
      INTEGER i,j,jj
./pkg/cheapaml/gad_2d_calc_rhs.F 245 GAD_2D_CALC_RHS 
             DO jj=1-OLy,1
./pkg/cheapaml/gad_2d_calc_rhs.F 246 GAD_2D_CALC_RHS 
              localT(i,jj)=localT(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F 251 GAD_2D_CALC_RHS 
             DO jj=sNy,sNy+OLy
./pkg/cheapaml/gad_2d_calc_rhs.F 252 GAD_2D_CALC_RHS 
              localT(i,jj)=localT(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F 98 GAD_2D_CALC_RHS 
      INTEGER i,j,iG,jG, ii, jj
./pkg/ctrl/ctrl_set_pack_xz.F 202 CTRL_SET_PACK_XZ 
                  jj=mod((j-1)*nr+k-1,sny)+1
./pkg/ctrl/ctrl_set_pack_xz.F 208 CTRL_SET_PACK_XZ 
     &                    globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_xz.F 213 CTRL_SET_PACK_XZ 
     &                       globfld3d(i,bi,ip,jj,bj,jp,kk) *
./pkg/ctrl/ctrl_set_pack_xz.F 221 CTRL_SET_PACK_XZ 
     &                       globfld3d(i,bi,ip,jj,bj,jp,kk) /
./pkg/ctrl/ctrl_set_pack_xz.F 232 CTRL_SET_PACK_XZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_xz.F 57 CTRL_SET_PACK_XZ 
      integer ii,jj,kk
./pkg/ctrl/ctrl_set_pack_yz.F 206 CTRL_SET_PACK_YZ 
                  jj=mod( ((i-1)*nr*sny+(k-1)*sny+j-1)/snx , sny ) + 1
./pkg/ctrl/ctrl_set_pack_yz.F 212 CTRL_SET_PACK_YZ 
     &                    globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_yz.F 217 CTRL_SET_PACK_YZ 
     &                       globfld3d(ii,bi,ip,jj,bj,jp,kk) *
./pkg/ctrl/ctrl_set_pack_yz.F 225 CTRL_SET_PACK_YZ 
     &                       globfld3d(ii,bi,ip,jj,bj,jp,kk) /
./pkg/ctrl/ctrl_set_pack_yz.F 236 CTRL_SET_PACK_YZ 
                     cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_yz.F 57 CTRL_SET_PACK_YZ 
      integer ii,jj,kk
./pkg/ctrl/ctrl_set_unpack_xz.F 224 CTRL_SET_UNPACK_XZ 
               jj=mod((j-1)*nr+k-1,sny)+1
./pkg/ctrl/ctrl_set_unpack_xz.F 233 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F 240 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F 241 CTRL_SET_UNPACK_XZ 
     &                      globfld3d(i,bi,ip,jj,bj,jp,kk)/
./pkg/ctrl/ctrl_set_unpack_xz.F 249 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 253 CTRL_SET_UNPACK_XZ 
     &                   globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_unpack_xz.F 58 CTRL_SET_UNPACK_XZ 
      integer ii,jj,kk
./pkg/ctrl/ctrl_set_unpack_yz.F 229 CTRL_SET_UNPACK_YZ 
                    jj=mod(((i-1)*nr*sny+(k-1)*sny+j-1)/snx,sny)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 233 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_yz.F 236 CTRL_SET_UNPACK_YZ 
                       globfldtmp2(bi,ip,jj,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_yz.F 240 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_yz.F 241 CTRL_SET_UNPACK_YZ 
     &                      globfld3d(ii,bi,ip,jj,bj,jp,kk)/
./pkg/ctrl/ctrl_set_unpack_yz.F 249 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 252 CTRL_SET_UNPACK_YZ 
                    globfldtmp3(bi,ip,jj,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_yz.F 253 CTRL_SET_UNPACK_YZ 
     &                   globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_unpack_yz.F 58 CTRL_SET_UNPACK_YZ 
      integer ii,jj,kk
./pkg/debug/fill_in_corners_rl.F 38 FILL_IN_CORNERS_RL 
      INTEGER ii, jj
./pkg/debug/fill_in_corners_rl.F 45 FILL_IN_CORNERS_RL 
          jj = j + sNy+Oly
./pkg/debug/fill_in_corners_rl.F 50 FILL_IN_CORNERS_RL 
           fld(i,jj,k,bi,bj)  = spvFld
./pkg/debug/fill_in_corners_rl.F 51 FILL_IN_CORNERS_RL 
           fld(ii,jj,k,bi,bj) = spvFld