Symbol Description Uses
npart 84


File Line number Procedure Code
./pkg/flt/FLT.h 61 NO PROCEDURE 
      _RL     npart(max_npart_tile,nSx,nSy)
./pkg/flt/FLT.h 71 NO PROCEDURE 
      common /flt_v/ npart,tstart,tend,xpart,ypart,kpart,kfloat,iup,itop
./pkg/flt/flt_init.F 232 FLT_INIT 
              npart(npart_tile(bi,bj),bi,bj)  = tmp(1)
./pkg/flt/flt_exchg.F 106 FLT_EXCHG 
                     npart(ip,bi,bj) =   npart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 126 FLT_EXCHG 
                     fltbuf_sendW(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_exchg.F 136 FLT_EXCHG 
                     npart(ip,bi,bj)  =   npart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 174 FLT_EXCHG 
                  npart(npart_tile(bi,bj),bi,bj) =
./pkg/flt/flt_exchg.F 204 FLT_EXCHG 
                  npart(npart_tile(bi,bj),bi,bj) =
./pkg/flt/flt_exchg.F 267 FLT_EXCHG 
                     fltbuf_sendE(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_exchg.F 277 FLT_EXCHG 
                     npart(ip,bi,bj) =  npart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 296 FLT_EXCHG 
                     fltbuf_sendW(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_exchg.F 306 FLT_EXCHG 
                     npart(ip,bi,bj) =   npart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 345 FLT_EXCHG 
                  npart(npart_tile(bi,bj),bi,bj) =
./pkg/flt/flt_exchg.F 375 FLT_EXCHG 
                  npart(npart_tile(bi,bj),bi,bj) =
./pkg/flt/flt_exchg.F 96 FLT_EXCHG 
                     fltbuf_sendE(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_restart.F 65 FLT_RESTART 
            tmp(1) =   npart(ip,bi,bj)
./pkg/flt/flt_up.F 155 FLT_UP 
            tmp(1)  = npart(ip,bi,bj)
./pkg/flt/flt_traj.F 121 FLT_TRAJ 
            tmp(1)  = npart(ip,bi,bj)
./verification/flt_example/extra/write_float.F 108 NO PROCEDURE 
                   npart  = REAL(ip)
./verification/flt_example/extra/write_float.F 117 NO PROCEDURE 
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 135 NO PROCEDURE 
                   npart  = REAL(ip)
./verification/flt_example/extra/write_float.F 144 NO PROCEDURE 
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 161 NO PROCEDURE 
                   npart  = REAL(ip)
./verification/flt_example/extra/write_float.F 170 NO PROCEDURE 
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 183 NO PROCEDURE 
                   npart  = REAL(ip)
./verification/flt_example/extra/write_float.F 192 NO PROCEDURE 
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 205 NO PROCEDURE 
                   npart  = DBLE(ip)
./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 57 NO PROCEDURE 
                   npart  = 0.
./verification/flt_example/extra/write_float.F 66 NO PROCEDURE 
        if (flag)  write(1,rec=1)    npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 86 NO PROCEDURE 
                   npart  = REAL(ip)
./verification/flt_example/extra/write_float.F 95 NO PROCEDURE 
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/cvprofiles.F 164 NO PROCEDURE 
       npart       = INT(tmp(6))
./verification/flt_example/extra/cvprofiles.F 166 NO PROCEDURE 
      print*, 'npart    = ',npart
./verification/flt_example/extra/cvprofiles.F 177 NO PROCEDURE 
      allocate (pnum(npart))
./verification/flt_example/extra/cvprofiles.F 182 NO PROCEDURE 
      allocate (xpart(npart,icount))
./verification/flt_example/extra/cvprofiles.F 183 NO PROCEDURE 
      allocate (ypart(npart,icount))
./verification/flt_example/extra/cvprofiles.F 184 NO PROCEDURE 
      allocate (kpart(npart,icount))
./verification/flt_example/extra/cvprofiles.F 185 NO PROCEDURE 
      allocate (temp(npart,Nr,icount))
./verification/flt_example/extra/cvprofiles.F 187 NO PROCEDURE 
         allocate (uvel(npart,Nr,icount))
./verification/flt_example/extra/cvprofiles.F 188 NO PROCEDURE 
         allocate (vvel(npart,Nr,icount))
./verification/flt_example/extra/cvprofiles.F 189 NO PROCEDURE 
         allocate (salt(npart,Nr,icount))
./verification/flt_example/extra/cvprofiles.F 191 NO PROCEDURE 
      allocate (zeta(npart,icount))
./verification/flt_example/extra/cvprofiles.F 195 NO PROCEDURE 
      do m=1,npart
./verification/flt_example/extra/cvprofiles.F 22 NO PROCEDURE 
      integer narg, npart
./verification/flt_example/extra/cvprofiles.F 242 NO PROCEDURE 
      do ip=1,npart
./verification/flt_example/extra/cvprofiles.F 272 NO PROCEDURE 
               if (ip .gt. npart) then
./verification/flt_example/extra/cvprofiles.F 273 NO PROCEDURE 
                  print*,'ip out of order: ',ip,npart
./verification/flt_example/extra/cvprofiles.F 312 NO PROCEDURE 
      print*,icount,' x ',npart,' = ',icount*npart,' records expected,',
./verification/flt_example/extra/cvprofiles.F 314 NO PROCEDURE 
      print*,'==> ',icount*npart-itotalrecord,' float records missing'
./verification/flt_example/extra/cvprofiles.F 333 NO PROCEDURE 
      partdim = ncddef(ncid, 'Particles', npart, iret)
./verification/flt_example/extra/cvprofiles.F 497 NO PROCEDURE 
      edges(1) = npart
./verification/flt_example/extra/cvprofiles.F 520 NO PROCEDURE 
      edges(1) = npart
./verification/flt_example/extra/cvprofiles.F 534 NO PROCEDURE 
      edges(1) = npart
./verification/flt_example/extra/cvprofiles.F 76 NO PROCEDURE 
      data npart /10/
./verification/flt_example/extra/cvfloat.F 158 NO PROCEDURE 
       npart       = INT(tmp(6))
./verification/flt_example/extra/cvfloat.F 160 NO PROCEDURE 
      print*, 'npart    = ',npart
./verification/flt_example/extra/cvfloat.F 171 NO PROCEDURE 
      allocate (pnum(npart))
./verification/flt_example/extra/cvfloat.F 173 NO PROCEDURE 
      allocate (xpart(npart,icount))
./verification/flt_example/extra/cvfloat.F 174 NO PROCEDURE 
      allocate (ypart(npart,icount))
./verification/flt_example/extra/cvfloat.F 175 NO PROCEDURE 
      allocate (kpart(npart,icount))
./verification/flt_example/extra/cvfloat.F 176 NO PROCEDURE 
      allocate (uvel(npart,icount))
./verification/flt_example/extra/cvfloat.F 177 NO PROCEDURE 
      allocate (vvel(npart,icount))
./verification/flt_example/extra/cvfloat.F 178 NO PROCEDURE 
      allocate (temp(npart,icount))
./verification/flt_example/extra/cvfloat.F 179 NO PROCEDURE 
      allocate (salt(npart,icount))
./verification/flt_example/extra/cvfloat.F 180 NO PROCEDURE 
      allocate (zeta(npart,icount))
./verification/flt_example/extra/cvfloat.F 184 NO PROCEDURE 
      do m=1,npart
./verification/flt_example/extra/cvfloat.F 205 NO PROCEDURE 
      do ip=1,npart
./verification/flt_example/extra/cvfloat.F 21 NO PROCEDURE 
      integer narg, npart
./verification/flt_example/extra/cvfloat.F 234 NO PROCEDURE 
               if (ip .gt. npart) then
./verification/flt_example/extra/cvfloat.F 235 NO PROCEDURE 
                  print*,'ip out of order: ',ip,npart
./verification/flt_example/extra/cvfloat.F 268 NO PROCEDURE 
      print*,icount,' x ',npart,' = ',icount*npart,' records expected,',
./verification/flt_example/extra/cvfloat.F 270 NO PROCEDURE 
      print*,'==> ',icount*npart-itotalrecord,' float records missing'
./verification/flt_example/extra/cvfloat.F 290 NO PROCEDURE 
      partdim = ncddef(ncid, 'Particles', npart, iret)
./verification/flt_example/extra/cvfloat.F 420 NO PROCEDURE 
      edges(1) = npart
./verification/flt_example/extra/cvfloat.F 431 NO PROCEDURE 
      edges(1) = npart
./verification/flt_example/extra/cvfloat.F 69 NO PROCEDURE 
      data npart /10/