Symbol Description Uses
kpart vertical level of float (decimal number in case of 3D float) 87


File Line number Procedure Code
./pkg/flt/FLT.h 103 NO PROCEDURE 
      _RL     kpart(max_npart_tile,nSx,nSy)
./pkg/flt/FLT.h 110 NO PROCEDURE 
     &       ipart, jpart, kpart,
./pkg/flt/flt_down.F 45 FLT_DOWN 
     &  (kpart(ip,bi,bj) .LE. flt_surf)
./pkg/flt/flt_down.F 59 FLT_DOWN 
     &      kpart(ip,bi,bj) = kfloat(ip,bi,bj)
./pkg/flt/flt_exch2.F 123 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_EAST) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 152 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_WEST) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 198 FLT_EXCH2 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exch2.F 238 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_NORTH) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 272 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_SOUTH) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 325 FLT_EXCH2 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exch2.F 399 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_EAST)
./pkg/flt/flt_exch2.F 428 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_WEST)
./pkg/flt/flt_exch2.F 457 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_NORTH)
./pkg/flt/flt_exch2.F 486 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_SOUTH)
./pkg/flt/flt_exchg.F 113 FLT_EXCHG 
               fltbuf_sendW(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 159 FLT_EXCHG 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exchg.F 208 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj)
./pkg/flt/flt_exchg.F 237 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj)
./pkg/flt/flt_exchg.F 300 FLT_EXCHG 
               fltbuf_sendE(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 329 FLT_EXCHG 
               fltbuf_sendW(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 380 FLT_EXCHG 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exchg.F 429 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj)
./pkg/flt/flt_exchg.F 458 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj)
./pkg/flt/flt_exchg.F 89 FLT_EXCHG 
               fltbuf_sendE(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_init_varia.F 141 FLT_INIT_VARIA 
              kpart( npart_tile(bi,bj),bi,bj) = kz
./pkg/flt/flt_init_varia.F 201 FLT_INIT_VARIA 
             kpart(ip,bi,bj)  = kz
./pkg/flt/flt_runga2.F 107 FLT_RUNGA2 
                kz=kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 191 FLT_RUNGA2 
                kpart(ip,bi,bj) = kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 204 FLT_RUNGA2 
                IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo
./pkg/flt/flt_runga2.F 205 FLT_RUNGA2 
     &                                      +kzlo-kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 207 FLT_RUNGA2 
                IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi
./pkg/flt/flt_runga2.F 80 FLT_RUNGA2 
            kpart(ip,bi,bj) = 0.
./pkg/flt/flt_runga2.F 92 FLT_RUNGA2 
              kc=NINT(kpart(ip,bi,bj))
./pkg/flt/flt_runga4.F 109 FLT_RUNGA4 
                kz=kpart(ip,bi,bj)
./pkg/flt/flt_runga4.F 298 FLT_RUNGA4 
                kpart(ip,bi,bj) = kpart(ip,bi,bj) + flt_deltaT/6
./pkg/flt/flt_runga4.F 311 FLT_RUNGA4 
                IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo
./pkg/flt/flt_runga4.F 312 FLT_RUNGA4 
     &                                      +kzlo-kpart(ip,bi,bj)
./pkg/flt/flt_runga4.F 314 FLT_RUNGA4 
                IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi
./pkg/flt/flt_runga4.F 80 FLT_RUNGA4 
            kpart(ip,bi,bj) = 0.
./pkg/flt/flt_runga4.F 92 FLT_RUNGA4 
              kc=NINT(kpart(ip,bi,bj))
./pkg/flt/flt_traj.F 119 FLT_TRAJ 
            zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid )
./pkg/flt/flt_traj.F 120 FLT_TRAJ 
            kp = NINT(kpart(ip,bi,bj))
./pkg/flt/flt_traj.F 128 FLT_TRAJ 
            tmp(8)  = kpart(ip,bi,bj)
./pkg/flt/flt_up.F 105 FLT_UP 
     &          kpart(ip,bi,bj).EQ.kfloat(ip,bi,bj) .AND.
./pkg/flt/flt_up.F 110 FLT_UP 
     &       kpart(ip,bi,bj) = flt_surf
./pkg/flt/flt_up.F 117 FLT_UP 
             kpart(ip,bi,bj) = 0.
./pkg/flt/flt_up.F 125 FLT_UP 
           zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid )
./pkg/flt/flt_up.F 134 FLT_UP 
           tmp(8) = kpart(ip,bi,bj)
./pkg/flt/flt_write_pickup.F 84 FLT_WRITE_PICKUP 
            tmp(5) =   kpart(ip,bi,bj)
./verification/flt_example/extra/cvprofiles.F 184 NO PROCEDURE 
      allocate (kpart(npart,icount))
./verification/flt_example/extra/cvprofiles.F 199 NO PROCEDURE 
            kpart(m,n) = spval
./verification/flt_example/extra/cvprofiles.F 286 NO PROCEDURE 
               kpart(ip,np)  = SNGL(tmp(5))
./verification/flt_example/extra/cvprofiles.F 527 NO PROCEDURE 
      call NCVPT(ncid, VARid, corner, edges, kpart, iret)
./verification/flt_example/extra/cvprofiles.F 66 NO PROCEDURE 
      real, dimension(:,:), allocatable :: xpart,ypart,kpart,zeta
./verification/flt_example/extra/write_float.F 101 NO PROCEDURE 
     &                            kpart,kfloat,iup,itop,tstart,tend
./verification/flt_example/extra/write_float.F 112 NO PROCEDURE 
                   kpart  = 5.
./verification/flt_example/extra/write_float.F 113 NO PROCEDURE 
                   kfloat = kpart
./verification/flt_example/extra/write_float.F 118 NO PROCEDURE 
     &                               kpart,kfloat,iup,itop,tend
./verification/flt_example/extra/write_float.F 123 NO PROCEDURE 
     &                            kpart,kfloat,iup,itop,tstart,tend
./verification/flt_example/extra/write_float.F 139 NO PROCEDURE 
                   kpart  = 0.
./verification/flt_example/extra/write_float.F 145 NO PROCEDURE 
     &                               kpart,kfloat,iup,itop,tend
./verification/flt_example/extra/write_float.F 150 NO PROCEDURE 
     &                            kpart,kfloat,iup,itop,tstart,tend
./verification/flt_example/extra/write_float.F 165 NO PROCEDURE 
                   kpart  = 0.
./verification/flt_example/extra/write_float.F 171 NO PROCEDURE 
     &                               kpart,kfloat,iup,itop,tend
./verification/flt_example/extra/write_float.F 176 NO PROCEDURE 
     &                            kpart,kfloat,iup,itop,tstart,tend
./verification/flt_example/extra/write_float.F 187 NO PROCEDURE 
                   kpart  = 0.
./verification/flt_example/extra/write_float.F 188 NO PROCEDURE 
                   kfloat = kpart
./verification/flt_example/extra/write_float.F 193 NO PROCEDURE 
     &                               kpart,kfloat,iup,itop,tend
./verification/flt_example/extra/write_float.F 196 NO PROCEDURE 
     &                            kpart,kfloat,iup,itop,tstart,tend
./verification/flt_example/extra/write_float.F 209 NO PROCEDURE 
                   kpart  = 0.
./verification/flt_example/extra/write_float.F 215 NO PROCEDURE 
     & write(1,rec=1) npart,tstart,xpart,ypart,kpart,kfloat,iup,itop,tend
./verification/flt_example/extra/write_float.F 3 NO PROCEDURE 
        double precision npart,xpart,ypart,kpart,kfloat,iup,itop
./verification/flt_example/extra/write_float.F 61 NO PROCEDURE 
                   kpart  = 0.
./verification/flt_example/extra/write_float.F 67 NO PROCEDURE 
     &                               kpart,kfloat,iup,itop,tend
./verification/flt_example/extra/write_float.F 90 NO PROCEDURE 
                   kpart  = 5.
./verification/flt_example/extra/write_float.F 91 NO PROCEDURE 
                   kfloat = kpart
./verification/flt_example/extra/write_float.F 96 NO PROCEDURE 
     &                               kpart,kfloat,iup,itop,tend