Symbol Description Uses
icountW 11


File Line number Procedure Code
./pkg/flt/flt_exchg.F 103 FLT_EXCHG 
              icountW=icountW+1
./pkg/flt/flt_exchg.F 104 FLT_EXCHG 
              IF ( icountW.LE.max_npart_exch ) THEN
./pkg/flt/flt_exchg.F 106 FLT_EXCHG 
               ic = (icountW-1)*imax
./pkg/flt/flt_exchg.F 134 FLT_EXCHG 
           IF ( icountW.GT.max_npart_exch ) THEN
./pkg/flt/flt_exchg.F 137 FLT_EXCHG 
     &         ' icountW=', icountW,
./pkg/flt/flt_exchg.F 142 FLT_EXCHG 
     &     .OR. icountW.GT.max_npart_exch ) THEN
./pkg/flt/flt_exchg.F 145 FLT_EXCHG 
           IF ( (icountE+icountW).GT.0 ) THEN
./pkg/flt/flt_exchg.F 147 FLT_EXCHG 
             npNew = npart_tile(bi,bj) - (icountE+icountW)
./pkg/flt/flt_exchg.F 34 FLT_EXCHG 
      INTEGER icountE, icountW, icountN, icountS
./pkg/flt/flt_exchg.F 70 FLT_EXCHG 
           icountW=0