| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_visc.F |
102 |
MOM_CALC_VISC |
_RL recip_dt,L2,L3,L4,L5,L2rdt,L4rdt |
|
./pkg/mom_common/mom_calc_visc.F |
319 |
MOM_CALC_VISC |
L5=(L2**2.5) |
|
./pkg/mom_common/mom_calc_visc.F |
362 |
MOM_CALC_VISC |
& sqrt(leith4fac*grdVrt+leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
366 |
MOM_CALC_VISC |
& sqrt(leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
380 |
MOM_CALC_VISC |
viscA4_Dlth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
382 |
MOM_CALC_VISC |
viscA4_DlthD(i,j)=((leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
450 |
MOM_CALC_VISC |
L5=(L2**2.5) |
|
./pkg/mom_common/mom_calc_visc.F |
494 |
MOM_CALC_VISC |
& sqrt(leith4fac*grdVrt+leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
498 |
MOM_CALC_VISC |
& sqrt(leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
511 |
MOM_CALC_VISC |
viscA4_ZLth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
513 |
MOM_CALC_VISC |
viscA4_ZLthD(i,j)=(leithD4fac*grdDiv)*L5 |