Symbol Description Uses
Ssq 4



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