| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_urms.F |
11 |
GMREDI_CALC_URMS |
U urms) |
|
./pkg/gmredi/gmredi_calc_urms.F |
37 |
GMREDI_CALC_URMS |
_RL urms(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/gmredi/gmredi_calc_urms.F |
62 |
GMREDI_CALC_URMS |
const(i,j) = (urms(i,j,k)-urms(i,j,1)) |
|
./pkg/gmredi/gmredi_calc_urms.F |
74 |
GMREDI_CALC_URMS |
urms(i,j,k) = urms(i,j,1) + |
|
./pkg/gmredi/gmredi_calc_urms.F |
77 |
GMREDI_CALC_URMS |
urms(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_calc_urms.F |
86 |
GMREDI_CALC_URMS |
if (kLowC(i,j,bi,bj).EQ.0) urms(i,j,1) = zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
1093 |
GMREDI_K3D |
CALL DIAGNOSTICS_FILL(urms, 'GM_URMS ',0,Nr,0,1,1,myThid) |
|
./pkg/gmredi/gmredi_k3d.F |
200 |
GMREDI_K3D |
_RL urms( 1-Olx:sNx+Olx,1-Oly:sNy+Oly,1:Nr) |
|
./pkg/gmredi/gmredi_k3d.F |
344 |
GMREDI_K3D |
urms(i,j,k)=zeroRL |
|
./pkg/gmredi/gmredi_k3d.F |
541 |
GMREDI_K3D |
urms(i,j,1) = GM_K3D_Lambda*eady(i,j)*Rurms(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
544 |
GMREDI_K3D |
IF (k.GT.0) urms(i,j,k) = 0.0 |
|
./pkg/gmredi/gmredi_k3d.F |
547 |
GMREDI_K3D |
RRhines(i,j) = SQRT(urms(i,j,1)/gradf(i,j)) |
|
./pkg/gmredi/gmredi_k3d.F |
568 |
GMREDI_K3D |
U urms) |
|
./pkg/gmredi/gmredi_k3d.F |
578 |
GMREDI_K3D |
IF (urms(i,j,k).EQ.0.0) THEN |
|
./pkg/gmredi/gmredi_k3d.F |
582 |
GMREDI_K3D |
supp(i,j,k)=1/(1+GM_K3D_b1*umc(i,j,k)**2/urms(i,j,1)**2) |
|
./pkg/gmredi/gmredi_k3d.F |
584 |
GMREDI_K3D |
K3D(i,j,k,bi,bj) = GM_K3D_gamma*urms(i,j,k) |