| File |
Line number |
Procedure |
Code |
|
./model/src/config_summary.F |
114 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =', |
|
./model/src/ini_parms.F |
143 |
INI_PARMS |
& viscC2leithD, viscC4leithD, viscC2Smag, |
|
./model/inc/PARAMS.h |
579 |
NO PROCEDURE |
& viscC2leith, viscC2leithD, |
|
./model/inc/PARAMS.h |
648 |
NO PROCEDURE |
_RL viscC2leithD |
|
./pkg/mom_vecinv/mom_vecinv.F |
228 |
MOM_VECINV |
& .OR. viscC2leithD.NE.0. .OR. viscC4leithD.NE.0. |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
108 |
MOM_VI_HDISSIP |
IF ( (viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
110 |
MOM_VI_HDISSIP |
Alth2=sqrt(viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv)*L3 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
140 |
MOM_VI_HDISSIP |
Alth2=(viscC2leith*grdVrt+(viscC2leithD*grdDiv))*L3 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
203 |
MOM_VI_HDISSIP |
IF ( (viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
205 |
MOM_VI_HDISSIP |
Alth2=sqrt(viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv)*L3 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
234 |
MOM_VI_HDISSIP |
Alth2=(viscC2leith*grdVrt+(viscC2leithD*grdDiv))*L3 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
57 |
MOM_VI_HDISSIP |
& .OR.(viscC2leithD.NE.0.) |
|
./model/src/set_defaults.F |
98 |
SET_DEFAULTS |
viscC2leithD = 0.D0 |