| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
633 |
NO PROCEDURE |
& viscAhD, viscAhZ, viscA4D, viscA4Z, |
|
./model/inc/PARAMS.h |
707 |
NO PROCEDURE |
_RL viscA4D |
|
./model/src/config_check.F |
282 |
CONFIG_CHECK |
& .OR. viscA4D.NE.0. .OR. viscA4Z.NE.0. ) ) THEN |
|
./model/src/ini_parms.F |
159 |
INI_PARMS |
& viscAhD, viscAhZ, viscA4D, viscA4Z, |
|
./model/src/ini_parms.F |
356 |
INI_PARMS |
viscA4D = UNSET_RL |
|
./model/src/ini_parms.F |
495 |
INI_PARMS |
IF ( viscA4D .EQ. UNSET_RL ) viscA4D = viscA4 |
|
./model/src/config_summary.F |
126 |
CONFIG_SUMMARY |
IF ( viscA4D.NE.viscA4 ) |
|
./model/src/config_summary.F |
127 |
CONFIG_SUMMARY |
& CALL WRITE_0D_R8( viscA4D, INDEX_NONE,'viscA4D =', |
|
./pkg/mom_common/mom_calc_visc.F |
157 |
MOM_CALC_VISC |
& .OR.(viscA4D.NE.0.) |
|
./pkg/mom_common/mom_calc_visc.F |
221 |
MOM_CALC_VISC |
viscA4_D(i,j)=viscA4D |
|
./pkg/mom_common/mom_calc_visc.F |
412 |
MOM_CALC_VISC |
Alin=viscA4D+viscA4Grid*L4rdt |
|
./pkg/mom_common/mom_calc_visc.F |
553 |
MOM_CALC_VISC |
viscA4_D(i,j)=viscA4D |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
200 |
MOM_VI_HDISSIP |
uD4 = viscA4D* |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
209 |
MOM_VI_HDISSIP |
& + viscA4D* ( Dij-Dim )*recip_DYC(i,j,bi,bj) |