Symbol Description Uses
wsigmaRLev 4


File Line number Procedure Code
./pkg/ecco/cost_sigmar.F 190 COST_SIGMAR 
     &                (wsigmaRLev(i,j,k,bi,bj)*cmask(i,j)*
./pkg/ecco/cost_sigmar.F 193 COST_SIGMAR 
                     if ( wsigmaRLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/ecco_cost.h 1140 NO PROCEDURE 
     &                      wsigmaR,wsigmaR2,wsigmaRLev,
./pkg/ecco/ecco_cost.h 1196 NO PROCEDURE 
      _RL wsigmaRLev(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)