| Symbol | Description | Uses |
| wtransp | 11 |
| File | Line number | Procedure | Code |
| ./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 |
| ./pkg/ecco/ecco_cost.h | 299 | NO PROCEDURE |
& , wtransp |
| ./pkg/ecco/ecco_cost.h | 302 | NO PROCEDURE |
_RL wtransp(maxNumDays) |
| ./pkg/ecco/ecco_cost_init_fixed.F | 184 | ECCO_COST_INIT_FIXED |
wtransp(irec) = 0. _d 0 |
| ./pkg/ecco/ecco_cost_init_fixed.F | 202 | ECCO_COST_INIT_FIXED |
read(gwunit,*) transpobs(irec), dummy, wtransp(irec) |
| ./pkg/ecco/ecco_cost_init_fixed.F | 204 | ECCO_COST_INIT_FIXED |
if ( wtransp(irec) .NE. 0. ) |
| ./pkg/ecco/ecco_cost_init_fixed.F | 205 | ECCO_COST_INIT_FIXED |
& wtransp(irec) =1.0/(wtransp(irec)*wtransp(irec)) |
| ./pkg/ecco/ecco_cost_init_fixed.F | 208 | ECCO_COST_INIT_FIXED |
& wtransp(irec) = 0. _d 0 |