File |
Line number |
Procedure |
Code |
./pkg/mom_common/mom_calc_visc.F |
113 |
MOM_CALC_VISC |
_RL smag2fac, smag4fac |
./pkg/mom_common/mom_calc_visc.F |
196 |
MOM_CALC_VISC |
smag2fac=(viscC2smag/pi)**2 |
./pkg/mom_common/mom_calc_visc.F |
199 |
MOM_CALC_VISC |
smag2fac=0. _d 0 |
./pkg/mom_common/mom_calc_visc.F |
400 |
MOM_CALC_VISC |
viscAh_DSmg(i,j)=smag2fac*viscAh_DSmg(i,j) |
./pkg/mom_common/mom_calc_visc.F |
511 |
MOM_CALC_VISC |
viscAh_ZSmg(i,j)=smag2fac*viscAh_ZSmg(i,j) |