| Symbol | Description | Uses |
| f_kapgm | 7 |
| File | Line number | Procedure | Code |
| ./pkg/ecco/ecco_cost_final.F | 140 | ECCO_COST_FINAL |
f_kapgm = 0. _d 0 |
| ./pkg/ecco/ecco_cost_final.F | 289 | ECCO_COST_FINAL |
f_kapgm = f_kapgm + objf_kapgm(bi,bj) |
| ./pkg/ecco/ecco_cost_final.F | 392 | ECCO_COST_FINAL |
_GLOBAL_SUM_R8( f_kapgm , myThid ) |
| ./pkg/ecco/ecco_cost_final.F | 547 | ECCO_COST_FINAL |
& ' --> f_kapgm =',f_kapgm |
| ./pkg/ecco/ecco_cost_final.F | 60 | ECCO_COST_FINAL |
_RL f_kapgm, f_diffkr |
| ./pkg/ecco/ecco_cost_final.F | 614 | ECCO_COST_FINAL |
write(ifc,*) 'f_kapgm =', f_kapgm, no_kapgm |