| File |
Line number |
Procedure |
Code |
|
./model/src/config_summary.F |
130 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( viscC4leith, INDEX_NONE,'viscC4leith =', |
|
./model/src/config_check.F |
262 |
CONFIG_CHECK |
& ( viscC4leith.NE.0. .OR. viscA4Grid.NE.0. |
|
./model/src/ini_parms.F |
141 |
INI_PARMS |
& viscC2leith, viscC4leith, |
|
./model/inc/PARAMS.h |
584 |
NO PROCEDURE |
& viscC4leith, viscC4leithD, viscAr, viscAstrain, viscAtension, |
|
./model/inc/PARAMS.h |
659 |
NO PROCEDURE |
_RL viscC4leith |
|
./pkg/mom_vecinv/mom_vecinv.F |
212 |
MOM_VECINV |
& .OR. viscC4leith.NE.0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
227 |
MOM_VECINV |
& .OR. viscC2leith.NE.0. .OR. viscC4leith.NE.0. |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
114 |
MOM_VI_HDISSIP |
IF ( (viscC4leith**2*grdVrt+viscC4leithD**2*grdDiv) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
116 |
MOM_VI_HDISSIP |
Alth4=sqrt(viscC4leith**2*grdVrt+viscC4leithD**2*grdDiv)*L5 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
141 |
MOM_VI_HDISSIP |
Alth4=(viscC4leith*grdVrt+(viscC4leithD*grdDiv))*L5 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
209 |
MOM_VI_HDISSIP |
IF ( (viscC4leith**2*grdVrt+viscC4leithD**2*grdDiv) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
211 |
MOM_VI_HDISSIP |
Alth4=sqrt(viscC4leith**2*grdVrt+viscC4leithD**2*grdDiv)*L5 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
235 |
MOM_VI_HDISSIP |
Alth4=(viscC4leith*grdVrt+(viscC4leithD*grdDiv))*L5 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
335 |
MOM_VI_HDISSIP |
IF ( viscC4leith.NE.0. .OR. viscA4Grid.NE.0. |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
58 |
MOM_VI_HDISSIP |
& .OR.(viscC4leith.NE.0.) |
|
./model/src/set_defaults.F |
118 |
SET_DEFAULTS |
viscC4leith = 0.D0 |