| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
769 |
NO PROCEDURE |
& freeSurfFac, implicSurfPress, implicDiv2Dflow, implicitNHPress, |
|
./model/inc/PARAMS.h |
816 |
NO PROCEDURE |
_RL implicDiv2Dflow |
|
./model/src/calc_div_ghat.F |
115 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gU(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
116 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
138 |
CALC_DIV_GHAT |
IF (implicDiv2Dflow.EQ.1.) THEN |
|
./model/src/calc_div_ghat.F |
150 |
CALC_DIV_GHAT |
pf(i,j) = implicDiv2Dflow |
|
./model/src/calc_div_ghat.F |
158 |
CALC_DIV_GHAT |
pf(i,j) = ( implicDiv2Dflow * gV(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
159 |
CALC_DIV_GHAT |
& + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
79 |
CALC_DIV_GHAT |
IF (implicDiv2Dflow.EQ.1.) THEN |
|
./model/src/calc_div_ghat.F |
91 |
CALC_DIV_GHAT |
pf(i,j) = implicDiv2Dflow |
|
./pkg/monitor/mon_vort3.F |
81 |
MON_VORT3 |
IF( implicDiv2Dflow.GT.0 .AND. abEps.GT.-0.5 ) |
|
./pkg/monitor/mon_vort3.F |
82 |
MON_VORT3 |
& tmpFac = (0.5+abEps) / implicDiv2Dflow |
|
./model/src/config_check.F |
571 |
CONFIG_CHECK |
& .AND. implicDiv2Dflow.EQ.0. _d 0 |
|
./model/src/config_check.F |
583 |
CONFIG_CHECK |
& .AND. implicDiv2Dflow.NE.1. ) THEN |
|
./model/src/config_check.F |
675 |
CONFIG_CHECK |
IF ( implicitNHPress*implicSurfPress*implicDiv2Dflow.NE.1. |
|
./model/src/config_check.F |
686 |
CONFIG_CHECK |
& .AND. implicDiv2Dflow.NE.1. ) THEN |
|
./model/src/config_summary.F |
319 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( implicDiv2Dflow, INDEX_NONE, |
|
./model/src/forward_step.F |
758 |
FORWARD_STEP |
IF (implicDiv2Dflow.LT.1.) THEN |
|
./model/src/forward_step.F |
771 |
FORWARD_STEP |
IF (implicDiv2Dflow.LT.1.) THEN |
|
./model/src/ini_parms.F |
198 |
INI_PARMS |
& implicSurfPress, implicDiv2Dflow, implicitNHPress, |
|
./model/src/integr_continuity.F |
145 |
INTEGR_CONTINUITY |
& / (implicDiv2Dflow*deltaTfreesurf) |
|
./model/src/integr_continuity.F |
206 |
INTEGR_CONTINUITY |
IF (implicDiv2Dflow.EQ. 0. _d 0) THEN |
|
./model/src/integr_continuity.F |
216 |
INTEGR_CONTINUITY |
& + implicDiv2Dflow*dEtaHdt(i,j,bi,bj)*deltaTfreesurf |
|
./model/src/integr_continuity.F |
302 |
INTEGR_CONTINUITY |
& .AND. implicDiv2Dflow .NE. 0. _d 0 ) |
|
./model/src/set_defaults.F |
241 |
SET_DEFAULTS |
implicDiv2Dflow = 1. _d 0 |
|
./model/src/update_etah.F |
62 |
UPDATE_ETAH |
IF (implicDiv2Dflow.EQ. 1. _d 0) THEN |
|
./model/src/update_etah.F |
73 |
UPDATE_ETAH |
& + (1. - implicDiv2Dflow)*dEtaHdt(i,j,bi,bj) |
|
./model/src/update_etah.F |
92 |
UPDATE_ETAH |
IF ( implicDiv2Dflow .NE. 1. _d 0 .OR. |