| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_k3d.F |
1040 |
GMREDI_K3D |
vstar(i,j,k) = -RenormV(i,j)*Xiy(i,j,k)/coriV(i,j) |
|
./pkg/gmredi/gmredi_k3d.F |
148 |
GMREDI_K3D |
_RL coriV(1-Olx:sNx+Olx,1-Oly:sNy+Oly) |
|
./pkg/gmredi/gmredi_k3d.F |
283 |
GMREDI_K3D |
coriV(i,j) = op5*( cori(i,j)+cori(i,j-1) ) |
|
./pkg/gmredi/gmredi_k3d.F |
284 |
GMREDI_K3D |
coriV(i,j) = SIGN( MAX( ABS(coriV(i,j)),GM_K3D_minCori ), |
|
./pkg/gmredi/gmredi_k3d.F |
285 |
GMREDI_K3D |
& coriV(i,j) ) |
|
./pkg/gmredi/gmredi_k3d.F |
304 |
GMREDI_K3D |
coriV(i,j)=cori(i,j) |
|
./model/src/calc_eddy_stress.F |
48 |
CALC_EDDY_STRESS |
_RL psix, psiy, coriU, coriV |
|
./model/src/calc_eddy_stress.F |
88 |
CALC_EDDY_STRESS |
coriV = op5*(fcori(i,j-1,bi,bj) |
|
./model/src/calc_eddy_stress.F |
91 |
CALC_EDDY_STRESS |
tauyEddy(i,j,k,bi,bj) = -rhoConst*coriV*psix |