| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/GMREDI.h |
10 |
NO PROCEDURE |
_RL op25 |
|
./pkg/gmredi/GMREDI.h |
12 |
NO PROCEDURE |
PARAMETER( op25 = 0.25 _d 0 ) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
276 |
GMREDI_CALC_EIGS |
& + drC(k)*( op25*BuoyFreq(i,j,k+2) + op5*BuoyFreq(i,j,k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
277 |
GMREDI_CALC_EIGS |
& + op25*BuoyFreq(i,j,k+1) ) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
144 |
GMREDI_CALC_PSI_B |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op25 |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
152 |
GMREDI_CALC_PSI_B |
& *( op25*( kapGM(i-1,j,km1,bi,bj)+kapGM(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
175 |
GMREDI_CALC_PSI_B |
& *( op25*( kapGM(i,j-1,km1,bi,bj)+kapGM(i,j,km1,bi,bj) |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
108 |
GMREDI_CALC_PSI_BVP |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op25 |
|
./pkg/gmredi/gmredi_calc_psi_bvp.F |
188 |
GMREDI_CALC_PSI_BVP |
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op25 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
314 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j)=op25*( sigmaX(i+1,j,k-1)+sigmaX(i,j,k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
317 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j)=op25*( sigmaY(i,j+1,k-1)+sigmaY(i,j,k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
680 |
GMREDI_CALC_TENSOR |
dSigmaDy(i,j)=op25*( sigmaY(i-1,j+1,k)+sigmaY(i,j+1,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
683 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i-1,j, k )+sigmaR(i,j, k ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
895 |
GMREDI_CALC_TENSOR |
dSigmaDx(i,j)=op25*( sigmaX(i, j ,k) +sigmaX(i+1, j ,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
900 |
GMREDI_CALC_TENSOR |
dSigmaDr(i,j)=op25*( sigmaR(i,j-1, k )+sigmaR(i,j, k ) |
|
./pkg/gmredi/submeso_calc_psi.F |
136 |
SUBMESO_CALC_PSI |
MsquareH(i,j)= SQRT( op25*( |
|
./model/src/calc_eddy_stress.F |
58 |
CALC_EDDY_STRESS |
psiy = op25*(GM_PsiY(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
63 |
CALC_EDDY_STRESS |
psiy = op25*(eddyPsiY(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
77 |
CALC_EDDY_STRESS |
psix = op25*(GM_PsiX(i, j ,k,bi,bj) |
|
./model/src/calc_eddy_stress.F |
82 |
CALC_EDDY_STRESS |
psix = op25*(eddyPsiX(i, j ,k,bi,bj) |