Symbol Description Uses
wwwers1 4


File Line number Procedure Code
./pkg/ecco/cost_ssh_new.F 141 COST_SSH_NEW 
              wwwers1(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 231 COST_SSH_NEW 
                  wwwers1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F 377 COST_SSH_NEW 
                wwwers2(i,j,bi,bj) = wwwers1(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 87 COST_SSH_NEW 
      _RL wwwers1 ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy )