Symbol Description Uses
gam 18



File Line number Procedure Code
./model/src/impldiff.F 204 IMPLDIFF
          gam(i,j,k) = 0. _d 0
./model/src/impldiff.F 240 IMPLDIFF
          gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1)
./model/src/impldiff.F 241 IMPLDIFF
          IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.)
./model/src/impldiff.F 242 IMPLDIFF
     &        bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) )
./model/src/impldiff.F 284 IMPLDIFF
          locTr(i,j,k) = locTr(i,j,k) - gam(i,j,k+1)*locTr(i,j,k+1)
./model/src/impldiff.F 71 IMPLDIFF
      _RL gam(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/seaice/seaice_fgmres.F 345 SEAICE_FGMRES
      _RL r0, gam, eps1(MAX_NO_THREADS)
./pkg/seaice/seaice_fgmres.F 504 SEAICE_FGMRES
      gam = sqrt(hh(i,i,myThid)**2 + hh(i1,i,myThid)**2)
./pkg/seaice/seaice_fgmres.F 505 SEAICE_FGMRES
      if (gam .eq. 0.0 _d 0) gam = epsmac
./pkg/seaice/seaice_fgmres.F 507 SEAICE_FGMRES
      c(i,myThid)   = hh(i, i,myThid)/gam
./pkg/seaice/seaice_fgmres.F 508 SEAICE_FGMRES
      s(i,myThid)   = hh(i1,i,myThid)/gam
./pkg/smooth/smooth_impldiff.F 107 SMOOTH_IMPLDIFF
          gam(i,j,k) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 133 SMOOTH_IMPLDIFF
          gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1)
./pkg/smooth/smooth_impldiff.F 134 SMOOTH_IMPLDIFF
          IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.)
./pkg/smooth/smooth_impldiff.F 135 SMOOTH_IMPLDIFF
     &        bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) )
./pkg/smooth/smooth_impldiff.F 165 SMOOTH_IMPLDIFF
     &              -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj)
./pkg/smooth/smooth_impldiff.F 43 SMOOTH_IMPLDIFF
      _RL gam(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)