| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
725 |
NO PROCEDURE |
& viscAhD, viscAhZ, viscA4D, viscA4Z, |
|
./model/inc/PARAMS.h |
806 |
NO PROCEDURE |
_RL viscA4D |
|
./pkg/mom_common/mom_calc_visc.F |
193 |
MOM_CALC_VISC |
& .OR.(viscA4D.NE.0.) |
|
./pkg/mom_common/mom_calc_visc.F |
265 |
MOM_CALC_VISC |
viscA4_D(i,j)=viscA4D |
|
./pkg/mom_common/mom_calc_visc.F |
455 |
MOM_CALC_VISC |
Alin=viscA4D+viscA4Grid*L4rdt |
|
./pkg/mom_common/mom_calc_visc.F |
606 |
MOM_CALC_VISC |
viscA4_D(i,j)=viscA4D |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
208 |
MOM_VI_HDISSIP |
uD4 = viscA4D* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
217 |
MOM_VI_HDISSIP |
& + viscA4D* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |
|
./model/src/config_check.F |
280 |
CONFIG_CHECK |
& .OR. viscA4D.NE.0. .OR. viscA4Z.NE.0. ) ) THEN |
|
./model/src/config_summary.F |
125 |
CONFIG_SUMMARY |
IF ( viscA4D.NE.viscA4 ) |
|
./model/src/config_summary.F |
126 |
CONFIG_SUMMARY |
& CALL WRITE_0D_RL( viscA4D, INDEX_NONE, 'viscA4D = ', |
|
./model/src/ini_parms.F |
164 |
INI_PARMS |
& viscAhD, viscAhZ, viscA4D, viscA4Z, |
|
./model/src/ini_parms.F |
325 |
INI_PARMS |
viscA4D = UNSET_RL |
|
./model/src/ini_parms.F |
446 |
INI_PARMS |
IF ( viscA4D .EQ. UNSET_RL ) viscA4D = viscA4 |