| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_visc.F |
122 |
MOM_CALC_VISC |
_RL vrtDy(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_visc.F |
292 |
MOM_CALC_VISC |
vrtDy(i,j) = 0. |
|
./pkg/mom_common/mom_calc_visc.F |
339 |
MOM_CALC_VISC |
vrtDy(i,j) = (vort3(i,j+1)-vort3(i,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
389 |
MOM_CALC_VISC |
& + (vrtDy(i+1,j)*vrtDy(i+1,j) |
|
./pkg/mom_common/mom_calc_visc.F |
390 |
MOM_CALC_VISC |
& + vrtDy(i,j)*vrtDy(i,j) ) ) |
|
./pkg/mom_common/mom_calc_visc.F |
411 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i+1,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
412 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
526 |
MOM_CALC_VISC |
& + (vrtDy(i,j-1)*vrtDy(i,j-1) |
|
./pkg/mom_common/mom_calc_visc.F |
527 |
MOM_CALC_VISC |
& + vrtDy(i,j)*vrtDy(i,j) ) ) |
|
./pkg/mom_common/mom_calc_visc.F |
547 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i,j-1)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
548 |
MOM_CALC_VISC |
grdVrt=MAX( grdVrt, ABS(vrtDy(i,j)) ) |