| 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 |
317 |
MOM_CALC_VISC |
L3=(L2**1.5) |
|
./pkg/mom_common/mom_calc_visc.F |
339 |
MOM_CALC_VISC |
U4scl=sqrt(KE(i,j))*L3*viscA4Re_max |
|
./pkg/mom_common/mom_calc_visc.F |
360 |
MOM_CALC_VISC |
& sqrt(leith2fac*grdVrt+leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
364 |
MOM_CALC_VISC |
& sqrt(leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
379 |
MOM_CALC_VISC |
viscAh_Dlth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
381 |
MOM_CALC_VISC |
viscAh_DlthD(i,j)=((leithD2fac*grdDiv))*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
448 |
MOM_CALC_VISC |
L3=(L2**1.5) |
|
./pkg/mom_common/mom_calc_visc.F |
467 |
MOM_CALC_VISC |
U4scl= sqrt(keZpt)*L3*viscA4Re_max |
|
./pkg/mom_common/mom_calc_visc.F |
492 |
MOM_CALC_VISC |
& sqrt(leith2fac*grdVrt+leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
496 |
MOM_CALC_VISC |
& sqrt(leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
510 |
MOM_CALC_VISC |
viscAh_ZLth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
512 |
MOM_CALC_VISC |
viscAh_ZLthD(i,j)=(leithD2fac*grdDiv)*L3 |