| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
1039 |
GMREDI_K3D |
ustar(i,j,k) = -RenormU(i,j)*Xix(i,j,k)/coriU(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
147 |
GMREDI_K3D |
_RL coriU(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_k3d.F |
266 |
GMREDI_K3D |
coriU(i,j) = SIGN( MAX( ABS(fCoriU(i,j)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
283 |
GMREDI_K3D |
coriU(i,j) = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ), |
|
./model/src/calc_eddy_stress.F |
47 |
CALC_EDDY_STRESS |
_RL psix, psiy, coriU, coriV |
|
./model/src/calc_eddy_stress.F |
68 |
CALC_EDDY_STRESS |
coriU = op5*(fcori(i-1,j,bi,bj) |
|
./model/src/calc_eddy_stress.F |
70 |
CALC_EDDY_STRESS |
tauxEddy(i,j,k,bi,bj) = rhoConst*coriU*psiy |