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


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 180 MDS_READ_FIELD 
      IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN
./pkg/mdsio/mdsio_read_field.F 187 MDS_READ_FIELD 
     &    ' , kLo=', kLo, ' , kHi=', kHi
./pkg/mdsio/mdsio_read_field.F 291 MDS_READ_FIELD 
       DO k=kLo,kHi
./pkg/mdsio/mdsio_read_field.F 295 MDS_READ_FIELD 
          irec = 1 + k-kLo + (irecord-1)*nNz
./pkg/mdsio/mdsio_read_field.F 430 MDS_READ_FIELD 
           DO k=kLo,kHi
./pkg/mdsio/mdsio_read_field.F 434 MDS_READ_FIELD 
     &            +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize
./pkg/mdsio/mdsio_read_field.F 435 MDS_READ_FIELD 
             i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_read_field.F 436 MDS_READ_FIELD 
             i2 = bBij +         j*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_read_field.F 532 MDS_READ_FIELD 
     I              0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid )
./pkg/mdsio/mdsio_read_field.F 535 MDS_READ_FIELD 
     I              0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid )
./pkg/mdsio/mdsio_read_field.F 546 MDS_READ_FIELD 
     I              0, 0, nNz, kLo, kSize, 0, 0, .TRUE., myThid )
./pkg/mdsio/mdsio_read_field.F 549 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 208 MDS_WRITE_FIELD 
      IF ( kLo.LT.1 .OR. kHi.GT.kSize ) THEN
./pkg/mdsio/mdsio_write_field.F 215 MDS_WRITE_FIELD 
     &    ' , kLo=', kLo, ' , kHi=', kHi
./pkg/mdsio/mdsio_write_field.F 259 MDS_WRITE_FIELD 
     &      kSize, kLo, kHi, ' file=', pfName(1:pIL)
./pkg/mdsio/mdsio_write_field.F 288 MDS_WRITE_FIELD 
       DO k=kLo,kHi
./pkg/mdsio/mdsio_write_field.F 289 MDS_WRITE_FIELD 
        zeroBuff = k.EQ.kLo
./pkg/mdsio/mdsio_write_field.F 345 MDS_WRITE_FIELD 
          irec = 1 + k-kLo + (irecord-1)*nNz
./pkg/mdsio/mdsio_write_field.F 379 MDS_WRITE_FIELD 
     I              0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 382 MDS_WRITE_FIELD 
     I              0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 393 MDS_WRITE_FIELD 
     I              0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 396 MDS_WRITE_FIELD 
     I              0, 0, nNz, kLo, kSize, 0,0, .FALSE., myThid )
./pkg/mdsio/mdsio_write_field.F 477 MDS_WRITE_FIELD 
           DO k=kLo,kHi
./pkg/mdsio/mdsio_write_field.F 481 MDS_WRITE_FIELD 
     &            +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize
./pkg/mdsio/mdsio_write_field.F 482 MDS_WRITE_FIELD 
             i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_write_field.F 483 MDS_WRITE_FIELD 
             i2 = bBij +         j*sNx + (k-kLo)*sNx*sNy
./pkg/obcs/obcs_apply_ptracer.F 105 OBCS_APPLY_PTRACER 
         DO k = kLo,kHi
./pkg/obcs/obcs_apply_ptracer.F 120 OBCS_APPLY_PTRACER 
         DO k = kLo,kHi
./pkg/obcs/obcs_apply_ptracer.F 52 OBCS_APPLY_PTRACER 
      INTEGER k, kLo, kHi
./pkg/obcs/obcs_apply_ptracer.F 58 OBCS_APPLY_PTRACER 
        kLo = 1
./pkg/obcs/obcs_apply_ptracer.F 62 OBCS_APPLY_PTRACER 
        kLo = kArg
./pkg/obcs/obcs_apply_ptracer.F 74 OBCS_APPLY_PTRACER 
         DO k = kLo,kHi
./pkg/obcs/obcs_apply_ptracer.F 89 OBCS_APPLY_PTRACER 
         DO k = kLo,kHi
./pkg/obcs/obcs_apply_ts.F 100 OBCS_APPLY_TS 
            DO k = kLo,kHi
./pkg/obcs/obcs_apply_ts.F 119 OBCS_APPLY_TS 
            DO k = kLo,kHi
./pkg/obcs/obcs_apply_ts.F 134 OBCS_APPLY_TS 
            DO k = kLo,kHi
./pkg/obcs/obcs_apply_ts.F 154 OBCS_APPLY_TS 
            DO k = kLo,kHi
./pkg/obcs/obcs_apply_ts.F 169 OBCS_APPLY_TS 
            DO k = kLo,kHi
./pkg/obcs/obcs_apply_ts.F 188 OBCS_APPLY_TS 
            DO k = kLo,kHi
./pkg/obcs/obcs_apply_ts.F 203 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 65 OBCS_APPLY_TS 
        kLo = 1
./pkg/obcs/obcs_apply_ts.F 68 OBCS_APPLY_TS 
        kLo = kArg
./pkg/obcs/obcs_apply_ts.F 85 OBCS_APPLY_TS 
            DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 103 OBCS_APPLY_UV 
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 119 OBCS_APPLY_UV 
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 133 OBCS_APPLY_UV 
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 150 OBCS_APPLY_UV 
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 167 OBCS_APPLY_UV 
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 186 OBCS_APPLY_UV 
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 203 OBCS_APPLY_UV 
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_uv.F 50 OBCS_APPLY_UV 
      INTEGER k, kLo, kHi
./pkg/obcs/obcs_apply_uv.F 71 OBCS_APPLY_UV 
        kLo = 1
./pkg/obcs/obcs_apply_uv.F 74 OBCS_APPLY_UV 
        kLo = kArg
./pkg/obcs/obcs_apply_uv.F 89 OBCS_APPLY_UV 
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_w.F 109 OBCS_APPLY_W 
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_w.F 128 OBCS_APPLY_W 
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_w.F 47 OBCS_APPLY_W 
      INTEGER kLo, kHi
./pkg/obcs/obcs_apply_w.F 56 OBCS_APPLY_W 
          kLo = 1
./pkg/obcs/obcs_apply_w.F 70 OBCS_APPLY_W 
           DO k = kLo,kHi
./pkg/obcs/obcs_apply_w.F 89 OBCS_APPLY_W 
           DO k = kLo,kHi
./pkg/obcs/obcs_save_uv_n.F 101 OBCS_SAVE_UV_N 
         DO k = kLo,kHi
./pkg/obcs/obcs_save_uv_n.F 115 OBCS_SAVE_UV_N 
         DO k = kLo,kHi
./pkg/obcs/obcs_save_uv_n.F 53 OBCS_SAVE_UV_N 
      INTEGER k, kLo, kHi
./pkg/obcs/obcs_save_uv_n.F 59 OBCS_SAVE_UV_N 
        kLo = 1
./pkg/obcs/obcs_save_uv_n.F 62 OBCS_SAVE_UV_N 
        kLo = kArg
./pkg/obcs/obcs_save_uv_n.F 72 OBCS_SAVE_UV_N 
         DO k = kLo,kHi
./pkg/obcs/obcs_save_uv_n.F 86 OBCS_SAVE_UV_N 
         DO k = kLo,kHi
./pkg/rw/read_mflds.F 371 READ_MFLDS_LEV_RL 
     I                fPrec, kSiz, kLo, kHi, myIter, myThid )
./pkg/rw/read_mflds.F 402 READ_MFLDS_LEV_RL 
      INTEGER kSiz, kLo, kHi
./pkg/rw/read_mflds.F 482 READ_MFLDS_LEV_RL 
     I                       fType, kSiz, kLo, kHi,
./pkg/rw/read_mflds.F 500 READ_MFLDS_LEV_RS 
     I                fPrec, kSiz, kLo, kHi, myIter, myThid )
./pkg/rw/read_mflds.F 531 READ_MFLDS_LEV_RS 
      INTEGER kSiz, kLo, kHi
./pkg/rw/read_mflds.F 611 READ_MFLDS_LEV_RS 
     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 1114 PRINT_MAPRL 
     I        iLo,   iHi,   jLo,   jHi,  kLo,  kHi, nBx, nBy,
./eesupp/src/print.F 1171 PRINT_MAPRL 
      INTEGER kLo, kHi
./eesupp/src/print.F 1173 PRINT_MAPRL 
      _RL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)
./eesupp/src/print.F 681 PRINT_MAPRS 
     I        iLo,   iHi,   jLo,   jHi,  kLo,  kHi, nBx, nBy,
./eesupp/src/print.F 738 PRINT_MAPRS 
      INTEGER kLo, kHi
./eesupp/src/print.F 740 PRINT_MAPRS 
      _RS fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)