| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_calc_visc.F |
123 |
MOM_CALC_VISC |
_RL vrtDx(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/mom_common/mom_calc_visc.F |
253 |
MOM_CALC_VISC |
vrtDx(i,j) = 0. |
|
./pkg/mom_common/mom_calc_visc.F |
290 |
MOM_CALC_VISC |
vrtDx(i,j) = (vort3(i+1,j)-vort3(i,j)) |
|
./pkg/mom_common/mom_calc_visc.F |
352 |
MOM_CALC_VISC |
grdVrt=0.25 _d 0*( (vrtDx(i,j+1)*vrtDx(i,j+1) |
|
./pkg/mom_common/mom_calc_visc.F |
353 |
MOM_CALC_VISC |
& + vrtDx(i,j)*vrtDx(i,j) ) |
|
./pkg/mom_common/mom_calc_visc.F |
374 |
MOM_CALC_VISC |
grdVrt=MAX( ABS(vrtDx(i,j+1)), ABS(vrtDx(i,j)) ) |
|
./pkg/mom_common/mom_calc_visc.F |
464 |
MOM_CALC_VISC |
grdVrt=0.25 _d 0*( (vrtDx(i-1,j)*vrtDx(i-1,j) |
|
./pkg/mom_common/mom_calc_visc.F |
465 |
MOM_CALC_VISC |
& + vrtDx(i,j)*vrtDx(i,j) ) |
|
./pkg/mom_common/mom_calc_visc.F |
486 |
MOM_CALC_VISC |
grdVrt=MAX( ABS(vrtDx(i-1,j)), ABS(vrtDx(i,j)) ) |