Symbol Description Uses
junk 9



File Line number Procedure Code
./pkg/ecco/cost_ssh.F 247 COST_SSH
                junk       = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 250 COST_SSH
                tpcost   = tpcost + junk*junk*wwwtp(i,j)
./pkg/ecco/cost_ssh.F 251 COST_SSH
                if ( wwwtp(i,j)*junk .ne. 0. )
./pkg/ecco/cost_ssh.F 262 COST_SSH
                junk        = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 265 COST_SSH
                erscost   = erscost + junk*junk*wwwers(i,j)
./pkg/ecco/cost_ssh.F 266 COST_SSH
                if ( wwwers(i,j)*junk .ne. 0. )
./pkg/ecco/cost_ssh.F 76 COST_SSH
      _RL junk