| Symbol | Description | Uses |
| f_uwindm | 7 |
| File | Line number | Procedure | Code |
| ./pkg/ecco/ecco_cost_final.F | 148 | ECCO_COST_FINAL |
f_uwindm = 0. _d 0 |
| ./pkg/ecco/ecco_cost_final.F | 375 | ECCO_COST_FINAL |
f_uwindm = f_uwindm + objf_uwindm(bi,bj) |
| ./pkg/ecco/ecco_cost_final.F | 529 | ECCO_COST_FINAL |
_GLOBAL_SUM_R8( f_uwindm , myThid ) |
| ./pkg/ecco/ecco_cost_final.F | 58 | ECCO_COST_FINAL |
_RL f_uwindm, f_vwindm |
| ./pkg/ecco/ecco_cost_final.F | 722 | ECCO_COST_FINAL |
& ' --> f_uwindm =',f_uwindm |
| ./pkg/ecco/ecco_cost_final.F | 870 | ECCO_COST_FINAL |
write(ifc,*) 'f_uwindm =', f_uwindm, no_uwindm |