| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
807 |
NO PROCEDURE |
& viscAhD, viscAhZ, viscA4D, viscA4Z, |
|
./model/inc/PARAMS.h |
892 |
NO PROCEDURE |
_RL viscA4D |
|
./pkg/mom_common/mom_calc_visc.F |
422 |
MOM_CALC_VISC |
Alin=viscA4D+viscA4Grid*L4rdt |
|
./pkg/mom_common/mom_calc_visc.F |
554 |
MOM_CALC_VISC |
shiftA4 = viscA4W - viscA4D |
|
./pkg/mom_fluxform/mom_fluxform.F |
393 |
MOM_FLUXFORM |
viscA4_D(i,j) = viscA4D |
|
./pkg/mom_vecinv/mom_vecinv.F |
363 |
MOM_VECINV |
viscA4_D(i,j) = viscA4D |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
218 |
MOM_VI_HDISSIP |
& viscA4D*( Dij-Dmj )*cosFacU(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
226 |
MOM_VI_HDISSIP |
& + viscA4D*( Dij-Dim ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
232 |
MOM_VI_HDISSIP |
uD4 = viscA4D* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
241 |
MOM_VI_HDISSIP |
& + viscA4D* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./model/src/config_check.F |
435 |
CONFIG_CHECK |
& .OR. viscA4D.NE.0. .OR. viscA4Z.NE.0. ) ) THEN |
|
./model/src/config_summary.F |
165 |
CONFIG_SUMMARY |
IF ( viscA4D.NE.viscA4 ) |
|
./model/src/config_summary.F |
166 |
CONFIG_SUMMARY |
& CALL WRITE_0D_RL( viscA4D, INDEX_NONE, 'viscA4D = ', |
|
./model/src/ini_parms.F |
191 |
INI_PARMS |
& viscAhD, viscAhZ, viscA4D, viscA4Z, |
|
./model/src/ini_parms.F |
372 |
INI_PARMS |
viscA4D = UNSET_RL |
|
./model/src/ini_parms.F |
479 |
INI_PARMS |
IF ( viscA4D .EQ. UNSET_RL ) viscA4D = viscA4 |
|
./model/src/ini_parms.F |
483 |
INI_PARMS |
IF ( viscA4W .EQ. UNSET_RL ) viscA4W = viscA4D |
|
./model/src/set_parms.F |
115 |
SET_PARMS |
& .OR. viscA4D .NE.zeroRL .OR. viscA4Z .NE.zeroRL |