Symbol Description Uses
cori Coriolis parameter forced to be finite near the equator 8


File Line number Procedure Code
./pkg/gmredi/gmredi_k3d.F 146 GMREDI_K3D 
      _RL cori(1-Olx:sNx+Olx,1-Oly:sNy+Oly)
./pkg/gmredi/gmredi_k3d.F 264 GMREDI_K3D 
        cori(i,j)  = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ),
./pkg/gmredi/gmredi_k3d.F 272 GMREDI_K3D 
        coriU(i,j) = op5*( cori(i,j)+cori(i-1,j) )
./pkg/gmredi/gmredi_k3d.F 283 GMREDI_K3D 
        coriV(i,j) = op5*( cori(i,j)+cori(i,j-1) )
./pkg/gmredi/gmredi_k3d.F 299 GMREDI_K3D 
       coriU(i,j)=cori(i,j)
./pkg/gmredi/gmredi_k3d.F 304 GMREDI_K3D 
       coriV(i,j)=cori(i,j)