File |
Line number |
Procedure |
Code |
./pkg/mom_common/mom_v_sidedrag.F |
60 |
MOM_V_SIDEDRAG |
Ahtmp=min(viscAh+viscAhGrid*rAs(i,j,bi,bj)/deltaTmom, |
./pkg/mom_common/mom_u_sidedrag.F |
60 |
MOM_U_SIDEDRAG |
Ahtmp=min(viscAh+viscAhGrid*rAw(i,j,bi,bj)/deltaTmom, |
./pkg/mom_common/mom_u_sidedrag.F |
75 |
MOM_U_SIDEDRAG |
& viscAh*uFld(i,j)*cosFacU(J,bi,bj) |
./model/src/config_summary.F |
102 |
CONFIG_SUMMARY |
IF ( viscAhZ.NE.viscAh ) |
./model/src/config_summary.F |
97 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =', |
./model/src/config_summary.F |
99 |
CONFIG_SUMMARY |
IF ( viscAhD.NE.viscAh ) |
./model/src/ini_parms.F |
139 |
INI_PARMS |
& viscAh, viscAhW, viscAhMax, |
./model/src/ini_parms.F |
482 |
INI_PARMS |
IF ( viscAhW .EQ. UNSET_RL ) viscAhW = viscAh |
./model/src/ini_parms.F |
485 |
INI_PARMS |
IF ( viscAhD .EQ. UNSET_RL ) viscAhD = viscAh |
./model/src/ini_parms.F |
486 |
INI_PARMS |
IF ( viscAhZ .EQ. UNSET_RL ) viscAhZ = viscAh |
./model/inc/PARAMS.h |
577 |
NO PROCEDURE |
& viscAh, viscAhW, viscAhMax, |
./model/inc/PARAMS.h |
639 |
NO PROCEDURE |
_RL viscAh |
./pkg/mom_fluxform/mom_u_xviscflux.F |
56 |
MOM_U_XVISCFLUX |
& -viscAh*(uFld(i+1,j)-uFld(i,j)) |
./pkg/mom_fluxform/mom_u_yviscflux.F |
57 |
MOM_U_YVISCFLUX |
& -viscAh*(uFld(i,j)-uFld(i,j-1)) |
./pkg/mom_fluxform/mom_v_yviscflux.F |
56 |
MOM_V_YVISCFLUX |
& -viscAh*(vFld(i,j+1)-vFld(i,j)) |
./pkg/mom_fluxform/mom_v_xviscflux.F |
57 |
MOM_V_XVISCFLUX |
& -viscAh*(vFld(i,j)-vFld(i-1,j)) |
./model/src/set_defaults.F |
92 |
SET_DEFAULTS |
viscAh = 0.D3 |