Symbol Description Uses
tpcost 7


File Line number Procedure Code
./pkg/ecco/cost_ssh.F 219 COST_SSH 
      tpcost     = 0. _d 0
./pkg/ecco/cost_ssh.F 240 COST_SSH 
            tpcost     = 0. _d 0
./pkg/ecco/cost_ssh.F 250 COST_SSH 
                tpcost   = tpcost + junk*junk*wwwtp(i,j)
./pkg/ecco/cost_ssh.F 273 COST_SSH 
            objf_h(bi,bj) = objf_h(bi,bj) + tpcost + erscost
./pkg/ecco/cost_ssh.F 284 COST_SSH 
     &        ' COST_SSH: cost function (TOPEX) = ',tpcost
./pkg/ecco/cost_ssh.F 70 COST_SSH 
      _RL tpcost