File |
Line number |
Procedure |
Code |
./pkg/kl10/kl10_calc.F |
191 |
KL10_CALC |
tempu = (uVel(I+di,J-1,Km1,bi,bj)-uVel(I+di,J |
./pkg/kl10/kl10_calc.F |
193 |
KL10_CALC |
epsw(di)=tempu*tempu*KLviscAr(I+di,J-1,K,bi |
./pkg/kl10/kl10_calc.F |
210 |
KL10_CALC |
tempu = (vVel(I-1,J+di,Km1,bi,bj)-vVel(I-1,J |
./pkg/kl10/kl10_calc.F |
212 |
KL10_CALC |
epss(di)=tempu*tempu*KLviscAr(I-1,J+di,K,bi |
./pkg/kl10/kl10_calc.F |
63 |
KL10_CALC |
_RL KLviscTmp, rhot, tempu |
./pkg/my82/my82_ri_number.F |
104 |
MY82_RI_NUMBER |
tempu= .5 _d 0*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
./pkg/my82/my82_ri_number.F |
110 |
MY82_RI_NUMBER |
vertShear(I,J) = tempu*tempu+tempv*tempv |
./pkg/my82/my82_ri_number.F |
63 |
MY82_RI_NUMBER |
_RL tempu, tempv |
./pkg/pp81/pp81_ri_number.F |
108 |
PP81_RI_NUMBER |
tempu= .5*( uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj) |
./pkg/pp81/pp81_ri_number.F |
114 |
PP81_RI_NUMBER |
RiFlux = tempu*tempu+tempv*tempv |
./pkg/pp81/pp81_ri_number.F |
65 |
PP81_RI_NUMBER |
_RL tempu, tempv |
./pkg/streamice/streamice_get_fp_err_oad.F |
36 |
STREAMICE_GET_FP_ERR_OAD |
_RL max_vel, tempu, tempv, err_lastchange, cgtol |
./pkg/streamice/streamice_get_vel_fp_err.F |
36 |
STREAMICE_GET_VEL_FP_ERR |
_RL max_vel, tempu, tempv, err_lastchange, cgtol |
./pkg/streamice/streamice_get_vel_resid_err.F |
35 |
STREAMICE_GET_VEL_RESID_ERR |
_RL max_vel, tempu, tempv, err_lastchange, cgtol |
./pkg/streamice/streamice_get_vel_resid_err_oad.F |
45 |
STREAMICE_GET_VEL_RESID_ERR_OAD |
_RL max_vel, tempu, tempv, err_lastchange, cgtol |
./pkg/streamice/streamice_vel_solve.F |
56 |
STREAMICE_VEL_SOLVE |
_RL max_vel, tempu, tempv, err_lastchange, cgtol |