Symbol Description Uses
gradf gradient of the Coriolis paramater at a cell centre, 1/(m*s) 11



File Line number Procedure Code
./pkg/gmredi/GMREDI.h 274 NO PROCEDURE
      _RL gradf(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
./pkg/gmredi/GMREDI.h 276 NO PROCEDURE
      COMMON /GM_K3D/ K3D, modesC, modesW, modesS, Rdef, gradf
./pkg/gmredi/gmredi_init_varia.F 126 GMREDI_INIT_VARIA
           gradf(i,j,bi,bj) =  beta
./pkg/gmredi/gmredi_init_varia.F 136 GMREDI_INIT_VARIA
           gradf(i,j,bi,bj) = recip_rSphere*fCoriCos(i,j,bi,bj)
./pkg/gmredi/gmredi_init_varia.F 146 GMREDI_INIT_VARIA
           gradf(i,j,bi,bj)  =  .5 _d 0*angleSinC(i,j,bi,bj)*(
./pkg/gmredi/gmredi_init_varia.F 152 GMREDI_INIT_VARIA
           gradf(i,j,bi,bj)=max(1. _d -18, gradf(i,j,bi,bj) )
./pkg/gmredi/gmredi_init_varia.F 158 GMREDI_INIT_VARIA
      CALL EXCH_XY_RL( gradf, myThid)
./pkg/gmredi/gmredi_k3d.F 465 GMREDI_K3D
          Req  = SQRT(BVint(i,j)/(2. _d 0*pi*gradf(i,j,bi,bj)))
./pkg/gmredi/gmredi_k3d.F 560 GMREDI_K3D
        RRhines(i,j) = SQRT(urms(i,j,1)/gradf(i,j,bi,bj))
./pkg/gmredi/gmredi_k3d.F 569 GMREDI_K3D
     &                - gradf(i,j,bi,bj)*Rdef(i,j,bi,bj)*Rdef(i,j,bi,bj)