File |
Line number |
Procedure |
Code |
./pkg/mom_common/mom_calc_visc.F |
115 |
MOM_CALC_VISC |
_RL leithD2fac, leithD4fac |
./pkg/mom_common/mom_calc_visc.F |
206 |
MOM_CALC_VISC |
leithD2fac=(viscC2leithD/pi)**6 |
./pkg/mom_common/mom_calc_visc.F |
211 |
MOM_CALC_VISC |
leithD2fac=(viscC2leithD/pi)**3 |
./pkg/mom_common/mom_calc_visc.F |
218 |
MOM_CALC_VISC |
leithD2fac=0. _d 0 |
./pkg/mom_common/mom_calc_visc.F |
365 |
MOM_CALC_VISC |
& SQRT(leith2fac*grdVrt+leithD2fac*grdDiv)*L3 |
./pkg/mom_common/mom_calc_visc.F |
369 |
MOM_CALC_VISC |
& SQRT(leithD2fac*grdDiv)*L3 |
./pkg/mom_common/mom_calc_visc.F |
383 |
MOM_CALC_VISC |
viscAh_Dlth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3 |
./pkg/mom_common/mom_calc_visc.F |
385 |
MOM_CALC_VISC |
viscAh_DlthD(i,j)=((leithD2fac*grdDiv))*L3 |
./pkg/mom_common/mom_calc_visc.F |
476 |
MOM_CALC_VISC |
& SQRT(leith2fac*grdVrt+leithD2fac*grdDiv)*L3 |
./pkg/mom_common/mom_calc_visc.F |
480 |
MOM_CALC_VISC |
& SQRT(leithD2fac*grdDiv)*L3 |
./pkg/mom_common/mom_calc_visc.F |
494 |
MOM_CALC_VISC |
viscAh_ZLth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3 |
./pkg/mom_common/mom_calc_visc.F |
496 |
MOM_CALC_VISC |
viscAh_ZLthD(i,j)=(leithD2fac*grdDiv)*L3 |