| Symbol | Description | Uses |
| ftmp | 7 |
| File | Line number | Procedure | Code |
| ./pkg/ecco/cost_gen_transport.F | 56 | COST_GEN_TRANSPORT |
_RL ftmp |
| ./pkg/ecco/cost_gen_transport.F | 74 | COST_GEN_TRANSPORT |
ftmp = 0. _d 0 |
| ./pkg/ecco/cost_gen_transport.F | 77 | COST_GEN_TRANSPORT |
ftmp = ftmp + transpbar(irec,bi,bj) |
| ./pkg/ecco/cost_gen_transport.F | 80 | COST_GEN_TRANSPORT |
_GLOBAL_SUM_RL( ftmp , myThid ) |
| ./pkg/ecco/cost_gen_transport.F | 88 | COST_GEN_TRANSPORT |
if ( ftmp.NE.0. .AND. wtransp(irec).NE.0. ) then |
| ./pkg/ecco/cost_gen_transport.F | 90 | COST_GEN_TRANSPORT |
& wtransp(irec)*( ftmp - transpobs(irec) )**2 |