| File |
Line number |
Procedure |
Code |
|
./model/src/config_summary.F |
132 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =', |
|
./model/src/ini_parms.F |
143 |
INI_PARMS |
& viscC2leithD, viscC4leithD, viscC2Smag, |
|
./model/inc/PARAMS.h |
584 |
NO PROCEDURE |
& viscC4leith, viscC4leithD, viscAr, viscAstrain, viscAtension, |
|
./model/inc/PARAMS.h |
660 |
NO PROCEDURE |
_RL viscC4leithD |
|
./pkg/mom_vecinv/mom_vecinv.F |
213 |
MOM_VECINV |
& .OR. viscC4leithD.NE.0. |
|
./pkg/mom_vecinv/mom_vecinv.F |
228 |
MOM_VECINV |
& .OR. viscC2leithD.NE.0. .OR. viscC4leithD.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 |
59 |
MOM_VI_HDISSIP |
& .OR.(viscC4leithD.NE.0.) |
|
./model/src/set_defaults.F |
119 |
SET_DEFAULTS |
viscC4leithD = 0.D0 |