Symbol Description Uses
f_ice 7



File Line number Procedure Code
./pkg/seaice/seaice_cost_final.F 115 SEAICE_COST_FINAL
      _GLOBAL_SUM_RL( f_ice , myThid )
./pkg/seaice/seaice_cost_final.F 126 SEAICE_COST_FINAL
     &     ' --> f_ice     =',f_ice
./pkg/seaice/seaice_cost_final.F 141 SEAICE_COST_FINAL
        write(ifc,*) 'f_ice   =', f_ice, no_ice
./pkg/seaice/seaice_cost_final.F 47 SEAICE_COST_FINAL
      _RL f_ice
./pkg/seaice/seaice_cost_final.F 71 SEAICE_COST_FINAL
      f_ice      = 0. _d 0
./pkg/seaice/seaice_cost_final.F 96 SEAICE_COST_FINAL
          f_ice = f_ice + objf_ice(bi,bj)