Symbol Description Uses
n1 tile index 90



File Line number Procedure Code
./pkg/debug/debug_cs_corner_uv.F 103 DEBUG_CS_CORNER_UV
         n1 = W2_myTileList(n)
./pkg/debug/debug_cs_corner_uv.F 104 DEBUG_CS_CORNER_UV
         n2 = exch2_neighbourId(4,n1)
./pkg/debug/debug_cs_corner_uv.F 105 DEBUG_CS_CORNER_UV
         n3 = exch2_neighbourId(2,n1)
./pkg/debug/debug_cs_corner_uv.F 106 DEBUG_CS_CORNER_UV
         IF ( exch2_pj(1,4,n1).eq.-1 ) THEN
./pkg/debug/debug_cs_corner_uv.F 108 DEBUG_CS_CORNER_UV
     &      n1,tmpU(1,k,n1,1), n2,tmpV(4,k,n2,1),
./pkg/debug/debug_cs_corner_uv.F 109 DEBUG_CS_CORNER_UV
     &         tmpU(1,k,n1,1)  -  tmpV(4,k,n2,1)
./pkg/debug/debug_cs_corner_uv.F 111 DEBUG_CS_CORNER_UV
     &      n1,tmpU(2,k,n1,1), n2,tmpV(3,k,n2,1),
./pkg/debug/debug_cs_corner_uv.F 112 DEBUG_CS_CORNER_UV
     &         tmpU(2,k,n1,1)  -  tmpV(3,k,n2,1)
./pkg/debug/debug_cs_corner_uv.F 114 DEBUG_CS_CORNER_UV
         IF ( exch2_pj(2,4,n1).eq.1 ) THEN
./pkg/debug/debug_cs_corner_uv.F 116 DEBUG_CS_CORNER_UV
     &      n1,tmpU(1,k,n1,1), n2,tmpU(3,k,n2,1),
./pkg/debug/debug_cs_corner_uv.F 117 DEBUG_CS_CORNER_UV
     &         tmpU(1,k,n1,1)  -  tmpU(3,k,n2,1)
./pkg/debug/debug_cs_corner_uv.F 119 DEBUG_CS_CORNER_UV
     &      n1,tmpU(2,k,n1,1), n2,tmpU(4,k,n2,1),
./pkg/debug/debug_cs_corner_uv.F 120 DEBUG_CS_CORNER_UV
     &         tmpU(2,k,n1,1)  -  tmpU(4,k,n2,1)
./pkg/debug/debug_cs_corner_uv.F 122 DEBUG_CS_CORNER_UV
         IF ( exch2_pi(1,2,n1).eq.1 ) THEN
./pkg/debug/debug_cs_corner_uv.F 124 DEBUG_CS_CORNER_UV
     &      n1,tmpV(1,k,n1,1), n3,tmpV(3,k,n3,1),
./pkg/debug/debug_cs_corner_uv.F 125 DEBUG_CS_CORNER_UV
     &         tmpV(1,k,n1,1)  -  tmpV(3,k,n3,1)
./pkg/debug/debug_cs_corner_uv.F 127 DEBUG_CS_CORNER_UV
     &      n1,tmpV(2,k,n1,1), n3,tmpV(4,k,n3,1),
./pkg/debug/debug_cs_corner_uv.F 128 DEBUG_CS_CORNER_UV
     &         tmpV(2,k,n1,1)  -  tmpV(4,k,n3,1)
./pkg/debug/debug_cs_corner_uv.F 130 DEBUG_CS_CORNER_UV
         IF ( exch2_pi(2,2,n1).eq.-1 ) THEN
./pkg/debug/debug_cs_corner_uv.F 132 DEBUG_CS_CORNER_UV
     &      n1,tmpV(1,k,n1,1), n3,tmpU(4,k,n3,1),
./pkg/debug/debug_cs_corner_uv.F 133 DEBUG_CS_CORNER_UV
     &         tmpV(1,k,n1,1)  -  tmpU(4,k,n3,1)
./pkg/debug/debug_cs_corner_uv.F 135 DEBUG_CS_CORNER_UV
     &      n1,tmpV(2,k,n1,1), n3,tmpU(3,k,n3,1),
./pkg/debug/debug_cs_corner_uv.F 136 DEBUG_CS_CORNER_UV
     &         tmpV(2,k,n1,1)  -  tmpU(3,k,n3,1)
./pkg/debug/debug_cs_corner_uv.F 139 DEBUG_CS_CORNER_UV
         n1 = n
./pkg/debug/debug_cs_corner_uv.F 140 DEBUG_CS_CORNER_UV
         IF (MOD(n1,2).EQ.1 ) THEN
./pkg/debug/debug_cs_corner_uv.F 147 DEBUG_CS_CORNER_UV
          n2=1+mod(n1-2+5,6)
./pkg/debug/debug_cs_corner_uv.F 148 DEBUG_CS_CORNER_UV
          n3=1+mod(n1-1+5,6)
./pkg/debug/debug_cs_corner_uv.F 150 DEBUG_CS_CORNER_UV
     &      n1,tmpU(1,k,n1,1), n2,tmpV(4,k,n2,1),
./pkg/debug/debug_cs_corner_uv.F 151 DEBUG_CS_CORNER_UV
     &         tmpU(1,k,n1,1)  -  tmpV(4,k,n2,1)
./pkg/debug/debug_cs_corner_uv.F 153 DEBUG_CS_CORNER_UV
     &      n1,tmpU(2,k,n1,1), n2,tmpV(3,k,n2,1),
./pkg/debug/debug_cs_corner_uv.F 154 DEBUG_CS_CORNER_UV
     &         tmpU(2,k,n1,1)  -  tmpV(3,k,n2,1)
./pkg/debug/debug_cs_corner_uv.F 156 DEBUG_CS_CORNER_UV
     &      n1,tmpV(1,k,n1,1), n3,tmpV(3,k,n3,1),
./pkg/debug/debug_cs_corner_uv.F 157 DEBUG_CS_CORNER_UV
     &         tmpV(1,k,n1,1)  -  tmpV(3,k,n3,1)
./pkg/debug/debug_cs_corner_uv.F 159 DEBUG_CS_CORNER_UV
     &      n1,tmpV(2,k,n1,1), n3,tmpV(4,k,n3,1),
./pkg/debug/debug_cs_corner_uv.F 160 DEBUG_CS_CORNER_UV
     &         tmpV(2,k,n1,1)  -  tmpV(4,k,n3,1)
./pkg/debug/debug_cs_corner_uv.F 168 DEBUG_CS_CORNER_UV
          n2=1+mod(n1-1+5,6)
./pkg/debug/debug_cs_corner_uv.F 169 DEBUG_CS_CORNER_UV
          n3=1+mod(n1-2+5,6)
./pkg/debug/debug_cs_corner_uv.F 171 DEBUG_CS_CORNER_UV
     &      n1,tmpU(1,k,n1,1), n2,tmpU(3,k,n2,1),
./pkg/debug/debug_cs_corner_uv.F 172 DEBUG_CS_CORNER_UV
     &         tmpU(1,k,n1,1)  -  tmpU(3,k,n2,1)
./pkg/debug/debug_cs_corner_uv.F 174 DEBUG_CS_CORNER_UV
     &      n1,tmpU(2,k,n1,1), n2,tmpU(4,k,n2,1),
./pkg/debug/debug_cs_corner_uv.F 175 DEBUG_CS_CORNER_UV
     &         tmpU(2,k,n1,1)  -  tmpU(4,k,n2,1)
./pkg/debug/debug_cs_corner_uv.F 177 DEBUG_CS_CORNER_UV
     &      n1,tmpV(1,k,n1,1), n3,tmpU(4,k,n3,1),
./pkg/debug/debug_cs_corner_uv.F 178 DEBUG_CS_CORNER_UV
     &         tmpV(1,k,n1,1)  -  tmpU(4,k,n3,1)
./pkg/debug/debug_cs_corner_uv.F 180 DEBUG_CS_CORNER_UV
     &      n1,tmpV(2,k,n1,1), n3,tmpU(3,k,n3,1),
./pkg/debug/debug_cs_corner_uv.F 181 DEBUG_CS_CORNER_UV
     &         tmpV(2,k,n1,1)  -  tmpU(3,k,n3,1)
./pkg/debug/debug_cs_corner_uv.F 64 DEBUG_CS_CORNER_UV
      INTEGER n,n1,n2,n3
./pkg/mnc/mnc_cwrapper.F 497 MNC_CW_ADD_VATTR_ANY
      integer n, nvf,nvl, n1,n2, indv
./pkg/mnc/mnc_cwrapper.F 518 MNC_CW_ADD_VATTR_ANY
        n1 = IFNBLNK(tname)
./pkg/mnc/mnc_cwrapper.F 523 MNC_CW_ADD_VATTR_ANY
        mnc_cw_vtnm(n,indv)(1:(n2-n1+1)) = tname(n1:n2)
./pkg/mnc/mnc_cwrapper.F 524 MNC_CW_ADD_VATTR_ANY
        n1 = IFNBLNK(tval)
./pkg/mnc/mnc_cwrapper.F 526 MNC_CW_ADD_VATTR_ANY
        IF ((n1 .EQ. 0) .OR. (n2 .EQ. 0)) THEN
./pkg/mnc/mnc_cwrapper.F 533 MNC_CW_ADD_VATTR_ANY
          mnc_cw_vtat(n,indv)(1:(n2-n1+1)) = tval(n1:n2)
./pkg/mnc/mnc_cwrapper.F 541 MNC_CW_ADD_VATTR_ANY
        n1 = IFNBLNK(iname)
./pkg/mnc/mnc_cwrapper.F 544 MNC_CW_ADD_VATTR_ANY
        mnc_cw_vinm(n,indv)(1:(n2-n1+1)) = iname(n1:n2)
./pkg/mnc/mnc_cwrapper.F 552 MNC_CW_ADD_VATTR_ANY
        n1 = IFNBLNK(dname)
./pkg/mnc/mnc_cwrapper.F 555 MNC_CW_ADD_VATTR_ANY
        mnc_cw_vdnm(n,indv)(1:(n2-n1+1)) = dname(n1:n2)
./pkg/mnc/mnc_grid.F 239 MNC_GRID_GET_DIMIND
      integer i,j,k,l, n,n1, ngrid, ds,de
./pkg/mnc/mnc_grid.F 254 MNC_GRID_GET_DIMIND
          n1 = ILNBLNK(mnc_d_names(l))
./pkg/mnc/mnc_grid.F 255 MNC_GRID_GET_DIMIND
          IF ((n .EQ. n1) 
./pkg/mnc/mnc_grid.F 256 MNC_GRID_GET_DIMIND
     &         .AND. (mnc_d_names(l)(1:n1) .EQ. dname(1:n))) THEN
./pkg/mnc/mnc_file.F 257 MNC_FILE_ADD_ATTR_ANY
      integer n, err, fid, ind, n1, lens
./pkg/mnc/mnc_file.F 278 MNC_FILE_ADD_ATTR_ANY
      n1 = ILNBLNK(atname)
./pkg/mnc/mnc_file.F 279 MNC_FILE_ADD_ATTR_ANY
      s1(1:n1) = atname(1:n1)
./pkg/mnc/mnc_file.F 651 MNC_FILE_TRY_READ
      integer ndv, did, ns,ne, n1,n2, indg, indv
./pkg/mnc/mnc_file.F 695 MNC_FILE_TRY_READ
          n1 = IFNBLNK(mnc_d_names(j))
./pkg/mnc/mnc_file.F 697 MNC_FILE_TRY_READ
          IF (((ne-ns) .EQ. (n2-n1)) 
./pkg/mnc/mnc_file.F 713 MNC_FILE_TRY_READ
        n1 = IFNBLNK(name)
./pkg/mnc/mnc_file.F 726 MNC_FILE_TRY_READ
        mnc_v_names(indv)(1:(n2-n1+1)) = name(n1:n2)