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) |