Symbol Description Uses
f_ice 5


File Line number Procedure Code
./pkg/seaice/seaice_cost_final.F 109 SEAICE_COST_FINAL 
     &     ' --> f_ice     =',f_ice
./pkg/seaice/seaice_cost_final.F 124 SEAICE_COST_FINAL 
        WRITE(ifc,*) 'f_ice   =', f_ice, no_ice
./pkg/seaice/seaice_cost_final.F 52 SEAICE_COST_FINAL 
      _RL f_ice
./pkg/seaice/seaice_cost_final.F 66 SEAICE_COST_FINAL 
      f_ice      = 0. _d 0
./pkg/seaice/seaice_cost_final.F 98 SEAICE_COST_FINAL 
      CALL GLOBAL_SUM_TILE_RL( objf_ice,     f_ice,     myThid )