| File |
Line number |
Procedure |
Code |
|
./pkg/mom_common/mom_v_sidedrag.F |
62 |
MOM_V_SIDEDRAG |
A4tmp=min(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_v_sidedrag.F |
79 |
MOM_V_SIDEDRAG |
& -viscA4*del2v(i,j)*sqcosFacV(J,bi,bj) |
|
./pkg/mom_common/mom_v_sidedrag.F |
81 |
MOM_V_SIDEDRAG |
& -viscA4*del2v(i,j)*cosFacV(J,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
62 |
MOM_U_SIDEDRAG |
A4tmp=min(viscA4+viscA4Grid*(rAw(i,j,bi,bj)**2)/deltaTmom, |
|
./pkg/mom_common/mom_u_sidedrag.F |
77 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*sqcosFacU(J,bi,bj) |
|
./pkg/mom_common/mom_u_sidedrag.F |
79 |
MOM_U_SIDEDRAG |
& -viscA4*del2u(i,j)*cosFacU(J,bi,bj) |
|
./model/src/config_summary.F |
118 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =', |
|
./model/src/config_summary.F |
120 |
CONFIG_SUMMARY |
IF ( viscA4D.NE.viscA4 ) |
|
./model/src/config_summary.F |
123 |
CONFIG_SUMMARY |
IF ( viscA4Z.NE.viscA4 ) |
|
./model/src/ini_parms.F |
145 |
INI_PARMS |
& viscA4, viscA4W, |
|
./model/src/ini_parms.F |
483 |
INI_PARMS |
IF ( viscA4W .EQ. UNSET_RL ) viscA4W = viscA4 |
|
./model/src/ini_parms.F |
487 |
INI_PARMS |
IF ( viscA4D .EQ. UNSET_RL ) viscA4D = viscA4 |
|
./model/src/ini_parms.F |
488 |
INI_PARMS |
IF ( viscA4Z .EQ. UNSET_RL ) viscA4Z = viscA4 |
|
./model/inc/PARAMS.h |
582 |
NO PROCEDURE |
& viscA4, viscA4W, |
|
./model/inc/PARAMS.h |
653 |
NO PROCEDURE |
_RL viscA4 |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
58 |
MOM_U_XVISCFLUX |
& +viscA4*(del2u(i+1,j) -del2u(i,j) ) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
61 |
MOM_U_YVISCFLUX |
& +viscA4*(del2u(i,j) -del2u(i,j-1) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
319 |
MOM_FLUXFORM |
IF (momViscosity .AND. viscA4.NE.0. ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
480 |
MOM_FLUXFORM |
IF (momViscosity .AND. viscA4.NE.0. ) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
60 |
MOM_V_YVISCFLUX |
& +viscA4*(del2v(i,j+1) -del2v(i,j) ) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
59 |
MOM_V_XVISCFLUX |
& +viscA4*(del2v(i,j) -del2v(i-1,j) ) |
|
./pkg/mom_vecinv/mom_vecinv.F |
209 |
MOM_VECINV |
IF ( (viscA4.NE.0. .AND. no_slip_sides) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
378 |
MOM_VI_HDISSIP |
& viscA4*( (Dij-Dmj)*cosFacU(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
379 |
MOM_VI_HDISSIP |
& -recip_hFacW(i,j,k,bi,bj)*viscA4*( Zip-Zij ) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
381 |
MOM_VI_HDISSIP |
& recip_hFacS(i,j,k,bi,bj)*viscA4*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
382 |
MOM_VI_HDISSIP |
& + viscA4*( Dij-Dim ) ) |
|
./model/src/set_defaults.F |
113 |
SET_DEFAULTS |
viscA4 = 0.D11 |