| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_visc.F |
116 |
MOM_CALC_VISC |
_RL viscAhRe_max, viscA4Re_max |
|
./pkg/mom_common/mom_calc_visc.F |
180 |
MOM_CALC_VISC |
viscA4Re_max=0.125 _d 0*SQRT(2. _d 0)/viscA4ReMax |
|
./pkg/mom_common/mom_calc_visc.F |
182 |
MOM_CALC_VISC |
viscA4Re_max=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
342 |
MOM_CALC_VISC |
IF ( viscA4Re_max.GT.0. .AND. KE(i,j).GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
343 |
MOM_CALC_VISC |
U4scl=SQRT(KE(i,j))*L3*viscA4Re_max |
|
./pkg/mom_common/mom_calc_visc.F |
445 |
MOM_CALC_VISC |
IF ( viscAhRe_max.GT.0. .OR. viscA4Re_max.GT.0. ) THEN |
|
./pkg/mom_common/mom_calc_visc.F |
450 |
MOM_CALC_VISC |
U4scl= SQRT(keZpt)*L3*viscA4Re_max |