Symbol Description Uses
Ssq 4



File Line number Procedure Code
./pkg/gmredi/gmredi_calc_tensor.F 424 GMREDI_CALC_TENSOR
        Ssq(i,j)=SlopeSqr(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 440 GMREDI_CALC_TENSOR
        IF ( Ssq(i,j).NE.0. .AND. dSigmaDr(i,j).NE.0. ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 442 GMREDI_CALC_TENSOR
         SNloc = SQRT(Ssq(i,j)*N2loc )
./pkg/gmredi/gmredi_calc_tensor.F 93 GMREDI_CALC_TENSOR
      _RL Ssq(1-Olx:sNx+Olx,1-Oly:sNy+Oly)