Symbol Description Uses
ipcl 18



File Line number Procedure Code
./model/src/the_main_loop.F 160 THE_MAIN_LOOP
      INTEGER pcl_counter_list(5), flags, nevents, res, ipcl
./model/src/the_main_loop.F 266 THE_MAIN_LOOP
      do ipcl = 1, nevents
./model/src/the_main_loop.F 268 THE_MAIN_LOOP
     $        pcl_counter_name(pcl_counter_list(ipcl)),
./model/src/the_main_loop.F 269 THE_MAIN_LOOP
     $        'before timestepping:', fp_result(ipcl)
./model/src/the_main_loop.F 501 THE_MAIN_LOOP
      do ipcl = 1, nevents
./model/src/the_main_loop.F 502 THE_MAIN_LOOP
         WRITE(msgBuf,'(F10.6,A2,A22,A17,I8)'), fp_result(ipcl),
./model/src/the_main_loop.F 503 THE_MAIN_LOOP
     $        ' ', pcl_counter_name(pcl_counter_list(ipcl)),
./model/src/solve_for_pressure.F 578 SOLVE_FOR_PRESSURE
      do ipcl = 1, nevents
./model/src/solve_for_pressure.F 580 SOLVE_FOR_PRESSURE
     $        pcl_counter_name(pcl_counter_list(ipcl)),
./model/src/solve_for_pressure.F 581 SOLVE_FOR_PRESSURE
     $        'during this timestep:', fp_results(ipcl)
./model/src/solve_for_pressure.F 91 SOLVE_FOR_PRESSURE
      INTEGER pcl_counter_list(5), flags, nevents, res, ipcl
./pkg/ecco/the_main_loop.F 1073 THE_MAIN_LOOP
      do ipcl = 1, nevents
./pkg/ecco/the_main_loop.F 1074 THE_MAIN_LOOP
         WRITE(msgBuf,'(F10.6,A2,A22,A17,I8)'), fp_result(ipcl),
./pkg/ecco/the_main_loop.F 1075 THE_MAIN_LOOP
     $        ' ', pcl_counter_name(pcl_counter_list(ipcl)),
./pkg/ecco/the_main_loop.F 212 THE_MAIN_LOOP
      INTEGER pcl_counter_list(5), flags, nevents, res, ipcl
./pkg/ecco/the_main_loop.F 336 THE_MAIN_LOOP
      do ipcl = 1, nevents
./pkg/ecco/the_main_loop.F 338 THE_MAIN_LOOP
     $        pcl_counter_name(pcl_counter_list(ipcl)),
./pkg/ecco/the_main_loop.F 339 THE_MAIN_LOOP
     $        'before timestepping:', fp_result(ipcl)