| File |
Line number |
Procedure |
Code |
|
./pkg/kl10/kl10_calc.F |
182 |
KL10_CALC |
tempu = (uVel(I+di,J-1,Km1,bi,bj)-uVel(I+di,J |
|
./pkg/kl10/kl10_calc.F |
184 |
KL10_CALC |
epsw(di)=tempu*tempu*KLviscAr(I+di,J-1,K,bi |
|
./pkg/kl10/kl10_calc.F |
201 |
KL10_CALC |
tempu = (vVel(I-1,J+di,Km1,bi,bj)-vVel(I-1,J |
|
./pkg/kl10/kl10_calc.F |
203 |
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_vel_solve.F |
51 |
STREAMICE_VEL_SOLVE |
_RL max_vel, tempu, tempv, err_lastchange, cgtol |