| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_visc.F |
119 |
MOM_CALC_VISC |
_RL L2, L3, L5, L2rdt, L4rdt, recip_dt |
|
./pkg/mom_common/mom_calc_visc.F |
331 |
MOM_CALC_VISC |
L3 = L3_D(i,j,bi,bj)*deepFac3 |
|
./pkg/mom_common/mom_calc_visc.F |
333 |
MOM_CALC_VISC |
L5 = (L2*L3) |
|
./pkg/mom_common/mom_calc_visc.F |
343 |
MOM_CALC_VISC |
U4scl=SQRT(KE(i,j))*L3*viscA4Re_max |
|
./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 |
439 |
MOM_CALC_VISC |
L3 = L3_Z(i,j,bi,bj)*deepFac3 |
|
./pkg/mom_common/mom_calc_visc.F |
441 |
MOM_CALC_VISC |
L5 = (L2*L3) |
|
./pkg/mom_common/mom_calc_visc.F |
450 |
MOM_CALC_VISC |
U4scl= SQRT(keZpt)*L3*viscA4Re_max |
|
./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 |