Symbol Description Uses
kLo 1rst level to - fill in / extract from - arrFld 97



File Line number Procedure Code
./pkg/mdsio/mdsio_pass_r4torl.F 100 MDS_PASS_R4TORL
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4torl.F 109 MDS_PASS_R4TORL
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4torl.F 17 MDS_PASS_R4TORL
     I                            oLi, oLj, nNz, kLo, kSize,
./pkg/mdsio/mdsio_pass_r4torl.F 49 MDS_PASS_R4TORL
      INTEGER kLo
./pkg/mdsio/mdsio_pass_r4torl.F 71 MDS_PASS_R4TORL
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4torl.F 84 MDS_PASS_R4TORL
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4tors.F 100 MDS_PASS_R4TORS
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4tors.F 109 MDS_PASS_R4TORS
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4tors.F 17 MDS_PASS_R4TORS
     I                            oLi, oLj, nNz, kLo, kSize,
./pkg/mdsio/mdsio_pass_r4tors.F 49 MDS_PASS_R4TORS
      INTEGER kLo
./pkg/mdsio/mdsio_pass_r4tors.F 71 MDS_PASS_R4TORS
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r4tors.F 84 MDS_PASS_R4TORS
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8torl.F 100 MDS_PASS_R8TORL
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8torl.F 109 MDS_PASS_R8TORL
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8torl.F 17 MDS_PASS_R8TORL
     I                            oLi, oLj, nNz, kLo, kSize,
./pkg/mdsio/mdsio_pass_r8torl.F 49 MDS_PASS_R8TORL
      INTEGER kLo
./pkg/mdsio/mdsio_pass_r8torl.F 71 MDS_PASS_R8TORL
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8torl.F 84 MDS_PASS_R8TORL
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8tors.F 100 MDS_PASS_R8TORS
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8tors.F 109 MDS_PASS_R8TORS
            kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8tors.F 17 MDS_PASS_R8TORS
     I                            oLi, oLj, nNz, kLo, kSize,
./pkg/mdsio/mdsio_pass_r8tors.F 49 MDS_PASS_R8TORS
      INTEGER kLo
./pkg/mdsio/mdsio_pass_r8tors.F 71 MDS_PASS_R8TORS
             kLev = kLo+k-1
./pkg/mdsio/mdsio_pass_r8tors.F 84 MDS_PASS_R8TORS
             kLev = kLo+k-1
./pkg/mdsio/mdsio_read_field.F 139 MDS_READ_FIELD
      nNz = 1 + kHi - kLo
./pkg/mdsio/mdsio_read_field.F 14 MDS_READ_FIELD
     I   kSize,kLo,kHi,
./pkg/mdsio/mdsio_read_field.F 161 MDS_READ_FIELD
      IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN
./pkg/mdsio/mdsio_read_field.F 168 MDS_READ_FIELD
     &    ' , kLo=', kLo, ' , kHi=', kHi
./pkg/mdsio/mdsio_read_field.F 276 MDS_READ_FIELD
       DO k=kLo,kHi
./pkg/mdsio/mdsio_read_field.F 280 MDS_READ_FIELD
          irec = 1 + k-kLo + (irecord-1)*nNz
./pkg/mdsio/mdsio_read_field.F 415 MDS_READ_FIELD
           DO k=kLo,kHi
./pkg/mdsio/mdsio_read_field.F 419 MDS_READ_FIELD
     &            +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize
./pkg/mdsio/mdsio_read_field.F 420 MDS_READ_FIELD
             i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_read_field.F 421 MDS_READ_FIELD
             i2 = bBij +         j*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_read_field.F 517 MDS_READ_FIELD
     I              0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid )
./pkg/mdsio/mdsio_read_field.F 520 MDS_READ_FIELD
     I              0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid )
./pkg/mdsio/mdsio_read_field.F 531 MDS_READ_FIELD
     I              0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid )
./pkg/mdsio/mdsio_read_field.F 534 MDS_READ_FIELD
     I              0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid )
./pkg/mdsio/mdsio_read_field.F 86 MDS_READ_FIELD
      INTEGER kSize, kLo, kHi
./pkg/mdsio/mdsio_write_field.F 100 MDS_WRITE_FIELD
      INTEGER kSize, kLo, kHi
./pkg/mdsio/mdsio_write_field.F 15 MDS_WRITE_FIELD
     I   kSize,kLo,kHi,
./pkg/mdsio/mdsio_write_field.F 165 MDS_WRITE_FIELD
      nNz = 1 + kHi - kLo
./pkg/mdsio/mdsio_write_field.F 189 MDS_WRITE_FIELD
      IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN
./pkg/mdsio/mdsio_write_field.F 196 MDS_WRITE_FIELD
     &    ' , kLo=', kLo, ' , kHi=', kHi
./pkg/mdsio/mdsio_write_field.F 262 MDS_WRITE_FIELD
       DO k=kLo,kHi
./pkg/mdsio/mdsio_write_field.F 263 MDS_WRITE_FIELD
        zeroBuff = k.EQ.kLo
./pkg/mdsio/mdsio_write_field.F 319 MDS_WRITE_FIELD
          irec = 1 + k-kLo + (irecord-1)*nNz
./pkg/mdsio/mdsio_write_field.F 353 MDS_WRITE_FIELD
     I              0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 356 MDS_WRITE_FIELD
     I              0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 367 MDS_WRITE_FIELD
     I              0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 370 MDS_WRITE_FIELD
     I              0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 451 MDS_WRITE_FIELD
           DO k=kLo,kHi
./pkg/mdsio/mdsio_write_field.F 455 MDS_WRITE_FIELD
     &            +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize
./pkg/mdsio/mdsio_write_field.F 456 MDS_WRITE_FIELD
             i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_write_field.F 457 MDS_WRITE_FIELD
             i2 = bBij +         j*sNx + (k-kLo)*sNx*sNy
./pkg/obcs/obcs_apply_ptracer.F 113 OBCS_APPLY_PTRACER
         DO k = kLo,kHi
./pkg/obcs/obcs_apply_ptracer.F 131 OBCS_APPLY_PTRACER
         DO k = kLo,kHi
./pkg/obcs/obcs_apply_ptracer.F 53 OBCS_APPLY_PTRACER
      INTEGER k, kLo, kHi
./pkg/obcs/obcs_apply_ptracer.F 60 OBCS_APPLY_PTRACER
        kLo = 1
./pkg/obcs/obcs_apply_ptracer.F 64 OBCS_APPLY_PTRACER
        kLo = kArg
./pkg/obcs/obcs_apply_ptracer.F 76 OBCS_APPLY_PTRACER
         DO k = kLo,kHi
./pkg/obcs/obcs_apply_ptracer.F 94 OBCS_APPLY_PTRACER
         DO k = kLo,kHi
./pkg/obcs/obcs_apply_ts.F 101 OBCS_APPLY_TS
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_ts.F 120 OBCS_APPLY_TS
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_ts.F 138 OBCS_APPLY_TS
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_ts.F 49 OBCS_APPLY_TS
      INTEGER k, kLo, kHi
./pkg/obcs/obcs_apply_ts.F 66 OBCS_APPLY_TS
        kLo = 1
./pkg/obcs/obcs_apply_ts.F 69 OBCS_APPLY_TS
        kLo = kArg
./pkg/obcs/obcs_apply_ts.F 83 OBCS_APPLY_TS
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 119 OBCS_APPLY_UV
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 137 OBCS_APPLY_UV
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 48 OBCS_APPLY_UV
      INTEGER k, kLo, kHi
./pkg/obcs/obcs_apply_uv.F 64 OBCS_APPLY_UV
        kLo = 1
./pkg/obcs/obcs_apply_uv.F 67 OBCS_APPLY_UV
        kLo = kArg
./pkg/obcs/obcs_apply_uv.F 81 OBCS_APPLY_UV
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 99 OBCS_APPLY_UV
           DO k = kLo,kHi
./pkg/rw/read_mflds.F 365 READ_MFLDS_LEV_RL
     I                fPrec, kSiz, kLo, kHi, myIter, myThid )
./pkg/rw/read_mflds.F 396 READ_MFLDS_LEV_RL
      INTEGER kSiz, kLo, kHi
./pkg/rw/read_mflds.F 474 READ_MFLDS_LEV_RL
     I                       fType, kSiz, kLo, kHi,
./pkg/rw/read_rec.F 388 READ_REC_LEV_RS
     I                           fName, fPrec, kSiz, kLo, kHi,
./pkg/rw/read_rec.F 410 READ_REC_LEV_RS
      INTEGER kSiz, kLo, kHi
./pkg/rw/read_rec.F 441 READ_REC_LEV_RS
     I                     fType, kSiz, kLo, kHi,
./pkg/rw/read_rec.F 453 READ_REC_LEV_RL
     I                           fName, fPrec, kSiz, kLo, kHi,
./pkg/rw/read_rec.F 475 READ_REC_LEV_RL
      INTEGER kSiz, kLo, kHi
./pkg/rw/read_rec.F 506 READ_REC_LEV_RL
     I                     fType, kSiz, kLo, kHi,
./pkg/rw/write_rec.F 473 WRITE_REC_LEV_RS
     I                            fName, fPrec, kSiz, kLo, kHi, field,
./pkg/rw/write_rec.F 494 WRITE_REC_LEV_RS
      INTEGER kSiz, kLo, kHi
./pkg/rw/write_rec.F 529 WRITE_REC_LEV_RS
     I                      fType, kSiz, kLo, kHi, dummyRL, field,
./pkg/rw/write_rec.F 540 WRITE_REC_LEV_RL
     I                            fName, fPrec, kSiz, kLo, kHi, field,
./pkg/rw/write_rec.F 561 WRITE_REC_LEV_RL
      INTEGER kSiz, kLo, kHi
./pkg/rw/write_rec.F 596 WRITE_REC_LEV_RL
     I                      fType, kSiz, kLo, kHi, field, dummyRS,
./eesupp/src/print.F 1112 PRINT_MAPRL
     I        iLo,   iHi,   jLo,   jHi,  kLo,  kHi, nBx, nBy,
./eesupp/src/print.F 1169 PRINT_MAPRL
      INTEGER kLo, kHi
./eesupp/src/print.F 1171 PRINT_MAPRL
      _RL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)
./eesupp/src/print.F 679 PRINT_MAPRS
     I        iLo,   iHi,   jLo,   jHi,  kLo,  kHi, nBx, nBy,
./eesupp/src/print.F 736 PRINT_MAPRS
      INTEGER kLo, kHi
./eesupp/src/print.F 738 PRINT_MAPRS
      _RS fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)