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


File Line number Procedure Code
./pkg/flt/FLT.h 115 NO PROCEDURE 
      _RL     kpart(max_npart_tile,nSx,nSy)
./pkg/flt/FLT.h 122 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 121 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_EAST) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 154 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_WEST) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 200 FLT_EXCH2 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exch2.F 246 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_NORTH) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 284 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_SOUTH) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 337 FLT_EXCH2 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exch2.F 400 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_EAST)
./pkg/flt/flt_exch2.F 429 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_WEST)
./pkg/flt/flt_exch2.F 458 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_NORTH)
./pkg/flt/flt_exch2.F 487 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_SOUTH)
./pkg/flt/flt_exchg.F 117 FLT_EXCHG 
               fltbuf_sendE(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 150 FLT_EXCHG 
               fltbuf_sendW(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 196 FLT_EXCHG 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exchg.F 245 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj)
./pkg/flt/flt_exchg.F 274 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj)
./pkg/flt/flt_exchg.F 350 FLT_EXCHG 
               fltbuf_sendE(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 388 FLT_EXCHG 
               fltbuf_sendW(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 439 FLT_EXCHG 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exchg.F 488 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj)
./pkg/flt/flt_exchg.F 517 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj)
./pkg/flt/flt_init_varia.F 162 FLT_INIT_VARIA 
              kpart( npart_tile(bi,bj),bi,bj) = kz
./pkg/flt/flt_init_varia.F 206 FLT_INIT_VARIA 
             kpart(ip,bi,bj)  = 1. _d 0
./pkg/flt/flt_init_varia.F 248 FLT_INIT_VARIA 
             kpart(ip,bi,bj)  = kz
./pkg/flt/flt_runga2.F 112 FLT_RUNGA2 
                kz=kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 196 FLT_RUNGA2 
                kpart(ip,bi,bj) = kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 209 FLT_RUNGA2 
                IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo
./pkg/flt/flt_runga2.F 210 FLT_RUNGA2 
     &                                      +kzlo-kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 212 FLT_RUNGA2 
                IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi
./pkg/flt/flt_runga2.F 85 FLT_RUNGA2 
            kpart(ip,bi,bj) = 0.
./pkg/flt/flt_runga2.F 97 FLT_RUNGA2 
              kc=NINT(kpart(ip,bi,bj))
./pkg/flt/flt_runga4.F 114 FLT_RUNGA4 
                kz=kpart(ip,bi,bj)
./pkg/flt/flt_runga4.F 303 FLT_RUNGA4 
                kpart(ip,bi,bj) = kpart(ip,bi,bj) + flt_deltaT/6
./pkg/flt/flt_runga4.F 316 FLT_RUNGA4 
                IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo
./pkg/flt/flt_runga4.F 317 FLT_RUNGA4 
     &                                      +kzlo-kpart(ip,bi,bj)
./pkg/flt/flt_runga4.F 319 FLT_RUNGA4 
                IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi
./pkg/flt/flt_runga4.F 85 FLT_RUNGA4 
            kpart(ip,bi,bj) = 0.
./pkg/flt/flt_runga4.F 97 FLT_RUNGA4 
              kc=NINT(kpart(ip,bi,bj))
./pkg/flt/flt_traj.F 108 FLT_TRAJ 
            zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid )
./pkg/flt/flt_traj.F 109 FLT_TRAJ 
            kp = NINT(kpart(ip,bi,bj))
./pkg/flt/flt_traj.F 117 FLT_TRAJ 
            tmp(8) = kpart(ip,bi,bj)
./pkg/flt/flt_up.F 101 FLT_UP 
     &       kpart(ip,bi,bj) = flt_surf
./pkg/flt/flt_up.F 108 FLT_UP 
             kpart(ip,bi,bj) = 0.
./pkg/flt/flt_up.F 117 FLT_UP 
             zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid )
./pkg/flt/flt_up.F 126 FLT_UP 
             tmp(8) = kpart(ip,bi,bj)
./pkg/flt/flt_up.F 96 FLT_UP 
     &          kpart(ip,bi,bj).EQ.kfloat(ip,bi,bj) .AND.
./pkg/flt/flt_write_pickup.F 85 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