Symbol Description Uses
Ssq 4



File Line number Procedure Code
./pkg/gmredi/gmredi_calc_tensor.F 100 GMREDI_CALC_TENSOR
      _RL Ssq(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/gmredi/gmredi_calc_tensor.F 462 GMREDI_CALC_TENSOR
        Ssq(i,j)=SlopeSqr(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 478 GMREDI_CALC_TENSOR
        IF ( Ssq(i,j).NE.0. .AND. dSigmaDr(i,j).NE.0. ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 480 GMREDI_CALC_TENSOR
         SNloc = SQRT(Ssq(i,j)*N2loc )