| Symbol | Description | Uses |
| f_atl | 7 |
| File | Line number | Procedure | Code |
| ./pkg/ecco/ecco_cost_final.F | 116 | ECCO_COST_FINAL |
f_atl = 0. _d 0 |
| ./pkg/ecco/ecco_cost_final.F | 270 | ECCO_COST_FINAL |
f_atl = f_atl + objf_atl(bi,bj) |
| ./pkg/ecco/ecco_cost_final.F | 370 | ECCO_COST_FINAL |
_GLOBAL_SUM_R8( f_atl , myThid ) |
| ./pkg/ecco/ecco_cost_final.F | 493 | ECCO_COST_FINAL |
& ' --> f_atl =',f_atl |
| ./pkg/ecco/ecco_cost_final.F | 52 | ECCO_COST_FINAL |
_RL f_sst, f_tmi, f_sss, f_atl, f_ctdt, f_ctds |
| ./pkg/ecco/ecco_cost_final.F | 591 | ECCO_COST_FINAL |
write(ifc,*) 'f_atl =', f_atl, no_atl |