| 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 |
208 |
MOM_CALC_VISC |
leithD4fac=0.015625 _d 0*(viscC4leithD/pi)**6 |
|
./pkg/mom_common/mom_calc_visc.F |
213 |
MOM_CALC_VISC |
leithD4fac=0.125 _d 0*(viscC4leithD/pi)**3 |
|
./pkg/mom_common/mom_calc_visc.F |
219 |
MOM_CALC_VISC |
leithD4fac=0. _d 0 |
|
./pkg/mom_common/mom_calc_visc.F |
367 |
MOM_CALC_VISC |
& SQRT(leith4fac*grdVrt+leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
371 |
MOM_CALC_VISC |
& SQRT(leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
384 |
MOM_CALC_VISC |
viscA4_Dlth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
386 |
MOM_CALC_VISC |
viscA4_DlthD(i,j)=((leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
478 |
MOM_CALC_VISC |
& SQRT(leith4fac*grdVrt+leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
482 |
MOM_CALC_VISC |
& SQRT(leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
495 |
MOM_CALC_VISC |
viscA4_ZLth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
497 |
MOM_CALC_VISC |
viscA4_ZLthD(i,j)=(leithD4fac*grdDiv)*L5 |