File |
Line number |
Procedure |
Code |
./pkg/my82/my82_calc_visc.F |
43 |
MY82_CALC_VISC |
& KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) * |
./pkg/my82/my82_calc_visc.F |
51 |
MY82_CALC_VISC |
& KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) * |
./pkg/my82/my82_init.F |
54 |
MY82_INIT |
MYviscAr (i,j,k,bi,bj) = viscAr |
./pkg/my82/my82_calc.F |
169 |
MY82_CALC |
MYviscAr(I,J,K,bi,bj) = MAX(MYviscAr(I,J,K,bi,bj),viscAr) |
./model/src/calc_gw.F |
272 |
CALC_GW |
& -viscAr*recip_drF(K) |
./model/src/config_summary.F |
136 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( viscAr, INDEX_NONE,'viscAr =', |
./model/src/ini_parms.F |
166 |
INI_PARMS |
& viscAr, diffKrT, diffKrS, diffKrNrT, diffKrNrS, hFacMinDr, |
./model/src/ini_parms.F |
327 |
INI_PARMS |
viscAr = UNSET_RL |
./model/src/ini_parms.F |
497 |
INI_PARMS |
IF ( viscAr .NE. UNSET_RL ) rCoordInputData = .TRUE. |
./model/src/ini_parms.F |
498 |
INI_PARMS |
IF ( viscAr .EQ. UNSET_RL ) viscAr = viscAz |
./model/src/ini_parms.F |
499 |
INI_PARMS |
IF ( viscAr .EQ. UNSET_RL ) viscAr = viscAp |
./model/src/ini_parms.F |
500 |
INI_PARMS |
IF ( viscAr .EQ. UNSET_RL ) viscAr = viscArDefault |
./model/inc/PARAMS.h |
584 |
NO PROCEDURE |
& viscC4leith, viscC4leithD, viscAr, viscAstrain, viscAtension, |
./model/inc/PARAMS.h |
652 |
NO PROCEDURE |
_RL viscAr |
./pkg/kpp/kpp_calc.F |
777 |
KPP_CALC_DUMMY |
KPPviscAz (i,j,k,bi,bj) = viscAr |
./pkg/kpp/kpp_routines.F |
212 |
KPPMIX |
diffus(i,k,1) = max ( blmc(i,k,1), viscAr ) |
./pkg/kpp/kpp_routines.F |
788 |
RI_IWMIX |
diffus(i,ki,1) = viscAr + fcon * difmcon + fRi * difm0 |
./pkg/kpp/kpp_routines.F |
792 |
RI_IWMIX |
diffus(i,ki,1) = viscAr |
./pkg/kpp/kpp_routines.F |
797 |
RI_IWMIX |
diffus(i,ki,1) = viscAr |
./pkg/kpp/kpp_init.F |
140 |
KPP_INIT |
KPPviscAz (i,j,k,bi,bj) = viscAr |
./pkg/kpp/kpp_calc_visc.F |
41 |
KPP_CALC_VISC |
& KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) * |
./pkg/kpp/kpp_calc_visc.F |
49 |
KPP_CALC_VISC |
& KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) * |
./pkg/ggl90/ggl90_calc_visc.F |
43 |
GGL90_CALC_VISC |
& KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) * |
./pkg/ggl90/ggl90_calc_visc.F |
51 |
GGL90_CALC_VISC |
& KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) * |
./pkg/ggl90/ggl90_calc.F |
367 |
GGL90_CALC |
KappaM = MAX(KappaM,viscAr) |
./pkg/pp81/pp81_readparms.F |
106 |
PP81_READPARMS |
RiLimit=(((PPnu0+viscAr)/PPviscMax)**(1./REAL(PPnRi))-1.) |
./pkg/pp81/pp81_calc_visc.F |
45 |
PP81_CALC_VISC |
& KappaRU(i,j,k) - viscAr + _maskW(i,j,k,bi,bj) * |
./pkg/pp81/pp81_calc_visc.F |
53 |
PP81_CALC_VISC |
& KappaRV(i,j,k) - viscAr + _maskS(i,j,k,bi,bj) * |
./pkg/pp81/pp81_calc.F |
85 |
PP81_CALC |
PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscAr) |
./pkg/pp81/pp81_init.F |
42 |
PP81_INIT |
PPviscAr (i,j,k,bi,bj) = viscAr |
./model/src/calc_viscosity.F |
50 |
CALC_VISCOSITY |
KappaRU(i,j,k) = viscAr |
./model/src/calc_viscosity.F |
56 |
CALC_VISCOSITY |
KappaRV(i,j,k) = viscAr |