| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
729 |
NO PROCEDURE |
& viscC4leith, viscC4leithD, viscArNr, |
|
./model/inc/PARAMS.h |
792 |
NO PROCEDURE |
_RL viscArNr(Nr) |
|
./pkg/ggl90/ggl90_calc.F |
416 |
GGL90_CALC |
KappaM = MAX(KappaM,viscArNr(k)) * maskC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
616 |
GGL90_CALC |
GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) ) |
|
./pkg/ggl90/ggl90_calc.F |
650 |
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/kpp/kpp_calc.F |
671 |
KPP_CALC_DUMMY |
KPPviscAz (i,j,k,bi,bj) = viscArNr(1) |
|
./pkg/kpp/kpp_calc_visc.F |
43 |
KPP_CALC_VISC |
& KappaRU(i,j,k) - viscArNr(1) + _maskW(i,j,k,bi,bj) * |
|
./pkg/kpp/kpp_calc_visc.F |
51 |
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 |
251 |
KPPMIX |
diffus(i,k,1) = max ( blmc(i,k,1), viscArNr(1) ) |
|
./pkg/kpp/kpp_routines.F |
950 |
RI_IWMIX |
diffus(i,ki,1) = viscArNr(1) + fcon*difmcon + fRi*difm0 |
|
./pkg/kpp/kpp_routines.F |
959 |
RI_IWMIX |
diffus(i,ki,1) = viscArNr(1) |
|
./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) |
|
./model/src/calc_viscosity.F |
54 |
CALC_VISCOSITY |
KappaRU(i,j,k) = viscArNr(k) |
|
./model/src/calc_viscosity.F |
55 |
CALC_VISCOSITY |
KappaRV(i,j,k) = viscArNr(k) |
|
./pkg/pp81/pp81_calc.F |
82 |
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) * |
|
./model/src/config_summary.F |
145 |
CONFIG_SUMMARY |
CALL WRITE_1D_RL( viscArNr, Nr, INDEX_K, 'viscArNr =', |
|
./pkg/pp81/pp81_init_varia.F |
42 |
PP81_INIT_VARIA |
PPviscAr (i,j,k,bi,bj) = viscArNr(k) |
|
./pkg/pp81/pp81_readparms.F |
108 |
PP81_READPARMS |
& ((PPnu0+viscArNr(1))/PPviscMax)**(1. _d 0/RiLimit) |
|
./model/src/ini_parms.F |
191 |
INI_PARMS |
& viscAr, diffKrT, diffKrS, viscArNr, diffKrNrT, diffKrNrS, |
|
./model/src/ini_parms.F |
337 |
INI_PARMS |
viscArNr(k) = UNSET_RL |
|
./model/src/ini_parms.F |
457 |
INI_PARMS |
IF ( viscArNr(k).EQ.UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
458 |
INI_PARMS |
viscArNr(k) = viscAr |