| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_visc.F |
117 |
MOM_CALC_VISC |
_RL Alin,grdVrt,grdDiv, keZpt |
|
./pkg/mom_common/mom_calc_visc.F |
347 |
MOM_CALC_VISC |
grdVrt=0.25 _d 0*( (vrtDx(i,j+1)*vrtDx(i,j+1) |
|
./pkg/mom_common/mom_calc_visc.F |
360 |
MOM_CALC_VISC |
& SQRT(leith2fac*grdVrt+leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
362 |
MOM_CALC_VISC |
& SQRT(leith4fac*grdVrt+leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
369 |
MOM_CALC_VISC |
grdVrt=MAX( ABS(vrtDx(i,j+1)), ABS(vrtDx(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
370 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i+1,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
371 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
378 |
MOM_CALC_VISC |
viscAh_Dlth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
379 |
MOM_CALC_VISC |
viscA4_Dlth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
459 |
MOM_CALC_VISC |
grdVrt=0.25 _d 0*( (vrtDx(i-1,j)*vrtDx(i-1,j) |
|
./pkg/mom_common/mom_calc_visc.F |
471 |
MOM_CALC_VISC |
& SQRT(leith2fac*grdVrt+leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
473 |
MOM_CALC_VISC |
& SQRT(leith4fac*grdVrt+leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
481 |
MOM_CALC_VISC |
grdVrt=MAX( ABS(vrtDx(i-1,j)), ABS(vrtDx(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
482 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i,j-1)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
483 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
489 |
MOM_CALC_VISC |
viscAh_ZLth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
490 |
MOM_CALC_VISC |
viscA4_ZLth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |