Symbol Description Uses
npart_tile actual number of floats per tile 63


File Line number Procedure Code
./pkg/flt/FLT.h 84 NO PROCEDURE 
      INTEGER npart_tile(nSx,nSy)
./pkg/flt/FLT.h 85 NO PROCEDURE 
      COMMON / FLT_STATE_I / npart_tile
./pkg/flt/flt_down.F 37 FLT_DOWN 
        DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 147 FLT_EXCHG 
             npNew = npart_tile(bi,bj) - (icountE+icountW)
./pkg/flt/flt_exchg.F 149 FLT_EXCHG 
             DO jp = npNew+1,npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 165 FLT_EXCHG 
             npart_tile(bi,bj) = npNew
./pkg/flt/flt_exchg.F 200 FLT_EXCHG 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exchg.F 201 FLT_EXCHG 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 202 FLT_EXCHG 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 216 FLT_EXCHG 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 219 FLT_EXCHG 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exchg.F 229 FLT_EXCHG 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exchg.F 230 FLT_EXCHG 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 231 FLT_EXCHG 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 245 FLT_EXCHG 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 248 FLT_EXCHG 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exchg.F 287 FLT_EXCHG 
           DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 368 FLT_EXCHG 
             npNew = npart_tile(bi,bj) - (icountN+icountS)
./pkg/flt/flt_exchg.F 370 FLT_EXCHG 
             DO jp = npNew+1,npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 386 FLT_EXCHG 
             npart_tile(bi,bj) = npNew
./pkg/flt/flt_exchg.F 421 FLT_EXCHG 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exchg.F 422 FLT_EXCHG 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 423 FLT_EXCHG 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 437 FLT_EXCHG 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 440 FLT_EXCHG 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exchg.F 450 FLT_EXCHG 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exchg.F 451 FLT_EXCHG 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 452 FLT_EXCHG 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 466 FLT_EXCHG 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 469 FLT_EXCHG 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exchg.F 76 FLT_EXCHG 
           DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_init_varia.F 100 FLT_INIT_VARIA 
           npart_tile(bi,bj) = npart_read
./pkg/flt/flt_init_varia.F 125 FLT_INIT_VARIA 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_init_varia.F 126 FLT_INIT_VARIA 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_init_varia.F 128 FLT_INIT_VARIA 
              npart( npart_tile(bi,bj),bi,bj) = tmp(1)
./pkg/flt/flt_init_varia.F 129 FLT_INIT_VARIA 
              tstart(npart_tile(bi,bj),bi,bj) = tmp(2)
./pkg/flt/flt_init_varia.F 130 FLT_INIT_VARIA 
              ipart( npart_tile(bi,bj),bi,bj) = ix
./pkg/flt/flt_init_varia.F 131 FLT_INIT_VARIA 
              jpart( npart_tile(bi,bj),bi,bj) = jy
./pkg/flt/flt_init_varia.F 132 FLT_INIT_VARIA 
              kpart( npart_tile(bi,bj),bi,bj) = kz
./pkg/flt/flt_init_varia.F 133 FLT_INIT_VARIA 
              kfloat(npart_tile(bi,bj),bi,bj) = tmp(6)
./pkg/flt/flt_init_varia.F 134 FLT_INIT_VARIA 
              iup(   npart_tile(bi,bj),bi,bj) = tmp(7)
./pkg/flt/flt_init_varia.F 135 FLT_INIT_VARIA 
              itop(  npart_tile(bi,bj),bi,bj) = tmp(8)
./pkg/flt/flt_init_varia.F 136 FLT_INIT_VARIA 
              tend(  npart_tile(bi,bj),bi,bj) = tmp(9)
./pkg/flt/flt_init_varia.F 165 FLT_INIT_VARIA 
         npart_dist = npart_dist + DBLE(npart_tile(bi,bj))
./pkg/flt/flt_init_varia.F 166 FLT_INIT_VARIA 
         IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_init_varia.F 169 FLT_INIT_VARIA 
     &       ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_init_varia.F 98 FLT_INIT_VARIA 
           npart_tile(bi,bj) = 0
./pkg/flt/flt_runga2.F 74 FLT_RUNGA2 
         DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_traj.F 106 FLT_TRAJ 
         DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_traj.F 163 FLT_TRAJ 
            IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord
./pkg/flt/flt_traj.F 84 FLT_TRAJ 
         tmp(1) = DBLE(npart_tile(bi,bj))+npart_read
./pkg/flt/flt_up.F 105 FLT_UP 
         DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_up.F 167 FLT_UP 
           IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord
./pkg/flt/flt_up.F 84 FLT_UP 
         tmp(1) = DBLE(npart_tile(bi,bj))+npart_read
./pkg/flt/flt_write_pickup.F 62 FLT_WRITE_PICKUP 
          tmp(1) = npart_tile(bi,bj)
./pkg/flt/flt_write_pickup.F 77 FLT_WRITE_PICKUP 
          DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_write_pickup.F 91 FLT_WRITE_PICKUP 
            IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord
./pkg/flt/flt_write_pickup.F 99 FLT_WRITE_PICKUP 
          npart_dist = npart_dist + DBLE(npart_tile(bi,bj))