Symbol Description Uses
wtransp 11



File Line number Procedure Code
./pkg/ecco/ecco_local_params.h 52 NO PROCEDURE
     &                   , wtransp
./pkg/ecco/ecco_local_params.h 55 NO PROCEDURE
      _RL wtransp(maxNumDays)
./pkg/ecco/ecco_cost.h 274 NO PROCEDURE
     &                   , wtransp
./pkg/ecco/ecco_cost.h 277 NO PROCEDURE
      _RL wtransp(maxNumDays)
./pkg/ecco/ecco_cost_init_fixed.F 302 ECCO_COST_INIT_FIXED
       wtransp(irec)   = 0. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 320 ECCO_COST_INIT_FIXED
         read(gwunit,*) transpobs(irec), dummy, wtransp(irec)
./pkg/ecco/ecco_cost_init_fixed.F 322 ECCO_COST_INIT_FIXED
         if ( wtransp(irec) .NE. 0. )
./pkg/ecco/ecco_cost_init_fixed.F 323 ECCO_COST_INIT_FIXED
     &        wtransp(irec) =1.0/(wtransp(irec)*wtransp(irec))
./pkg/ecco/ecco_cost_init_fixed.F 326 ECCO_COST_INIT_FIXED
     &        wtransp(irec) = 0. _d 0