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