| Symbol | Description | Uses |
| f_ice | 7 |
| File | Line number | Procedure | Code |
| ./pkg/ecco/ecco_cost_final.F | 138 | ECCO_COST_FINAL |
f_ice = 0. _d 0 |
| ./pkg/ecco/ecco_cost_final.F | 288 | ECCO_COST_FINAL |
f_ice = f_ice + objf_ice(bi,bj) |
| ./pkg/ecco/ecco_cost_final.F | 394 | ECCO_COST_FINAL |
_GLOBAL_SUM_R8( f_ice , myThid ) |
| ./pkg/ecco/ecco_cost_final.F | 545 | ECCO_COST_FINAL |
& ' --> f_ice =',f_ice |
| ./pkg/ecco/ecco_cost_final.F | 58 | ECCO_COST_FINAL |
_RL f_ice |
| ./pkg/ecco/ecco_cost_final.F | 613 | ECCO_COST_FINAL |
write(ifc,*) 'f_ice =', f_ice, no_ice |