| File |
Line number |
Procedure |
Code |
|
./pkg/kl10/KL10.h |
43 |
NO PROCEDURE |
_RL KLviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
|
./pkg/kl10/KL10.h |
46 |
NO PROCEDURE |
COMMON /KL_FIELDS/ KLviscAr, KLdiffKr, KLeps |
|
./pkg/kl10/kl10_calc.F |
122 |
KL10_CALC |
KLdiffKr(I,J,1,bi,bj) = MAX(KLviscAr(I,J,1,bi,bj), |
|
./pkg/kl10/kl10_calc.F |
165 |
KL10_CALC |
KLviscAr(I,J,K,bi,bj) = MAX(KTemp,viscArNr(K)) |
|
./pkg/kl10/kl10_calc.F |
193 |
KL10_CALC |
epsw(di)=tempu*tempu*KLviscAr(I+di,J-1,K,bi |
|
./pkg/kl10/kl10_calc.F |
212 |
KL10_CALC |
epss(di)=tempu*tempu*KLviscAr(I-1,J+di,K,bi |
|
./pkg/kl10/kl10_calc.F |
92 |
KL10_CALC |
KLviscAr(I,J,1,bi,bj) = viscArNr(1) |
|
./pkg/kl10/kl10_calc.F |
93 |
KL10_CALC |
KLviscold = KLviscAr(I,J,1,bi,bj) ! at previous cell center |
|
./pkg/kl10/kl10_calc_visc.F |
46 |
KL10_CALC_VISC |
& 0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i-1,j,k,bi,bj)) ) |
|
./pkg/kl10/kl10_calc_visc.F |
54 |
KL10_CALC_VISC |
& 0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i,j-1,k,bi,bj)) ) |
|
./pkg/kl10/kl10_init_varia.F |
42 |
KL10_INIT_VARIA |
KLviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/kl10/kl10_output.F |
122 |
KL10_OUTPUT |
CALL TIMEAVE_CUMULATE( KLviscArtave, KLviscAr, |
|
./pkg/kl10/kl10_output.F |
176 |
KL10_OUTPUT |
CALL DIAGNOSTICS_FILL(KLviscAr,'KLviscAr',0,Nr,0,1,1,myThid) |
|
./pkg/kl10/kl10_output.F |
92 |
KL10_OUTPUT |
CALL WRITE_FLD_XYZ_RL('KLviscAr.',suff,KLviscAr, |