Symbol Description Uses
no_ice 6



File Line number Procedure Code
./pkg/seaice/seaice_cost_final.F 101 SEAICE_COST_FINAL
          no_ice = no_ice + num_ice(bi,bj)
./pkg/seaice/seaice_cost_final.F 120 SEAICE_COST_FINAL
      _GLOBAL_SUM_RL( no_ice , myThid )
./pkg/seaice/seaice_cost_final.F 141 SEAICE_COST_FINAL
        write(ifc,*) 'f_ice   =', f_ice, no_ice
./pkg/seaice/seaice_cost_final.F 52 SEAICE_COST_FINAL
      _RL no_ice
./pkg/seaice/seaice_cost_final.F 76 SEAICE_COST_FINAL
      no_ice     = 0. _d 0