| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
811 |
NO PROCEDURE |
& viscC4leith, viscC4leithD, viscArNr, |
|
./model/inc/PARAMS.h |
877 |
NO PROCEDURE |
_RL viscArNr(Nr) |
|
./pkg/ggl90/ggl90_calc.F |
429 |
GGL90_CALC |
KappaM(i,j) = MAX(KappaM(i,j),viscArNr(k)) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
740 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
770 |
GGL90_CALC |
GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc_visc.F |
50 |
GGL90_CALC_VISC |
& (GGL90viscArU(i,j,k,bi,bj) - viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc_visc.F |
57 |
GGL90_CALC_VISC |
& (GGL90viscArV(i,j,k,bi,bj) - viscArNr(k) ) |
|
./pkg/kl10/kl10_calc.F |
154 |
KL10_CALC |
KLviscTmp = MAX( viscArNr(K), 0.2*(RS(K)-rC(K))* |
|
./pkg/kl10/kl10_calc.F |
165 |
KL10_CALC |
KLviscAr(I,J,K,bi,bj) = MAX(KTemp,viscArNr(K)) |
|
./pkg/kl10/kl10_calc.F |
92 |
KL10_CALC |
KLviscAr(I,J,1,bi,bj) = viscArNr(1) |
|
./pkg/kl10/kl10_calc_visc.F |
45 |
KL10_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kl10/kl10_calc_visc.F |
53 |
KL10_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/kl10/kl10_init_varia.F |
42 |
KL10_INIT_VARIA |
KLviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/kpp/kpp_calc.F |
733 |
KPP_CALC_DUMMY |
KPPviscAz (i,j,k,bi,bj) = viscArNr(1) |
|
./pkg/kpp/kpp_calc_visc.F |
41 |
KPP_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(1) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
49 |
KPP_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(1) + _maskS(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_init_varia.F |
73 |
KPP_INIT_VARIA |
KPPviscAz (i,j,k,bi,bj) = viscArNr(1) |
|
./pkg/kpp/kpp_routines.F |
1086 |
RI_IWMIX |
diffus(i,ki,1) = viscArNr(1) |
|
./pkg/kpp/kpp_routines.F |
1092 |
RI_IWMIX |
diffus(i,ki,1) = viscArNr(1) |
|
./pkg/kpp/kpp_routines.F |
1099 |
RI_IWMIX |
diffus(i,ki,1) = viscArNr(1) + fcon*difmcon + fRi*difm0 |
|
./pkg/kpp/kpp_routines.F |
279 |
KPPMIX |
diffus(i,k,1) = max ( blmc(i,k,1), viscArNr(1) ) |
|
./model/src/calc_viscosity.F |
61 |
CALC_VISCOSITY |
kappaRU(i,j,k) = viscArNr(ki) |
|
./model/src/calc_viscosity.F |
62 |
CALC_VISCOSITY |
kappaRV(i,j,k) = viscArNr(ki) |
|
./model/src/config_summary.F |
191 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( viscArNr, Nr, INDEX_K, 'viscArNr =', |
|
./pkg/my82/my82_calc_visc.F |
42 |
MY82_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/my82/my82_calc_visc.F |
50 |
MY82_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/my82/my82_init_varia.F |
54 |
MY82_INIT_VARIA |
MYviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/pp81/pp81_calc.F |
85 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscArNr(k)) |
|
./pkg/pp81/pp81_calc_visc.F |
45 |
PP81_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) * |
|
./pkg/pp81/pp81_calc_visc.F |
53 |
PP81_CALC_VISC |
& KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) * |
|
./pkg/pp81/pp81_init_varia.F |
42 |
PP81_INIT_VARIA |
PPviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/pp81/pp81_readparms.F |
125 |
PP81_READPARMS |
& ((PPnu0+viscArNr(1))/PPviscMax)**(1. _d 0/RiLimit) |
|
./model/src/ini_parms.F |
1066 |
INI_PARMS |
pCellMix_viscAr(k) = viscArNr(k) |
|
./model/src/ini_parms.F |
219 |
INI_PARMS |
& viscAr, diffKrT, diffKrS, viscArNr, diffKrNrT, diffKrNrS, |
|
./model/src/ini_parms.F |
492 |
INI_PARMS |
IF ( viscArNr(k).NE.UNSET_RL ) vertSetCount = vertSetCount + 1 |
|
./model/src/ini_parms.F |
510 |
INI_PARMS |
viscArNr(k) = viscAr |
|
./model/src/set_defaults.F |
150 |
SET_DEFAULTS |
viscArNr(k) = UNSET_RL |