| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_visc.F |
116 |
MOM_CALC_VISC |
_RL Alin,grdVrt,grdDiv, keZpt |
|
./pkg/mom_common/mom_calc_visc.F |
394 |
MOM_CALC_VISC |
grdDiv=0.25 _d 0*( (divDx(i+1,j)*divDx(i+1,j) |
|
./pkg/mom_common/mom_calc_visc.F |
400 |
MOM_CALC_VISC |
& SQRT(leith2fac*grdVrt+leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
402 |
MOM_CALC_VISC |
& SQRT(leith4fac*grdVrt+leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
404 |
MOM_CALC_VISC |
& SQRT(leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
406 |
MOM_CALC_VISC |
& SQRT(leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
415 |
MOM_CALC_VISC |
grdDiv=MAX( ABS(divDx(i+1,j)), ABS(divDx(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
416 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i,j+1)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
417 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
419 |
MOM_CALC_VISC |
viscAh_Dlth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
420 |
MOM_CALC_VISC |
viscA4_Dlth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
421 |
MOM_CALC_VISC |
viscAh_DlthD(i,j)=((leithD2fac*grdDiv))*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
422 |
MOM_CALC_VISC |
viscA4_DlthD(i,j)=((leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
530 |
MOM_CALC_VISC |
grdDiv=0.25 _d 0*( (divDx(i,j-1)*divDx(i,j-1) |
|
./pkg/mom_common/mom_calc_visc.F |
536 |
MOM_CALC_VISC |
& SQRT(leith2fac*grdVrt+leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
538 |
MOM_CALC_VISC |
& SQRT(leith4fac*grdVrt+leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
540 |
MOM_CALC_VISC |
& SQRT(leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
542 |
MOM_CALC_VISC |
& SQRT(leithD4fac*grdDiv)*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
550 |
MOM_CALC_VISC |
grdDiv=MAX( ABS(divDx(i,j)), ABS(divDx(i,j-1)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
551 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
552 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i-1,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
554 |
MOM_CALC_VISC |
viscAh_ZLth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
555 |
MOM_CALC_VISC |
viscA4_ZLth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5 |
|
./pkg/mom_common/mom_calc_visc.F |
556 |
MOM_CALC_VISC |
viscAh_ZLthD(i,j)=(leithD2fac*grdDiv)*L3 |
|
./pkg/mom_common/mom_calc_visc.F |
557 |
MOM_CALC_VISC |
viscA4_ZLthD(i,j)=(leithD4fac*grdDiv)*L5 |