File |
Line number |
Procedure |
Code |
./pkg/mom_common/mom_calc_visc.F |
122 |
MOM_CALC_VISC |
_RL divDy(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/mom_common/mom_calc_visc.F |
252 |
MOM_CALC_VISC |
divDy(i,j) = 0. |
./pkg/mom_common/mom_calc_visc.F |
281 |
MOM_CALC_VISC |
divDy(i,j) = (hDiv(i,j)-hDiv(i,j-1)) |
./pkg/mom_common/mom_calc_visc.F |
361 |
MOM_CALC_VISC |
& + (divDy(i,j+1)*divDy(i,j+1) |
./pkg/mom_common/mom_calc_visc.F |
362 |
MOM_CALC_VISC |
& + divDy(i,j)*divDy(i,j) ) ) |
./pkg/mom_common/mom_calc_visc.F |
380 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i,j+1)) ) |
./pkg/mom_common/mom_calc_visc.F |
381 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i,j)) ) |
./pkg/mom_common/mom_calc_visc.F |
472 |
MOM_CALC_VISC |
& + (divDy(i-1,j)*divDy(i-1,j) |
./pkg/mom_common/mom_calc_visc.F |
473 |
MOM_CALC_VISC |
& + divDy(i,j)*divDy(i,j) ) ) |
./pkg/mom_common/mom_calc_visc.F |
491 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i,j)) ) |
./pkg/mom_common/mom_calc_visc.F |
492 |
MOM_CALC_VISC |
grdDiv=MAX( grdDiv, ABS(divDy(i-1,j)) ) |