File |
Line number |
Procedure |
Code |
./model/inc/PARAMS.h |
229 |
NO PROCEDURE |
& selectNHfreeSurf, selectP_inEOS_Zc, |
./model/inc/PARAMS.h |
254 |
NO PROCEDURE |
INTEGER selectP_inEOS_Zc |
./model/src/config_summary.F |
274 |
CONFIG_SUMMARY |
buffI(1) = selectP_inEOS_Zc |
./pkg/opps/opps_calc.F |
481 |
OPPS_CALC |
IF ( selectP_inEOS_Zc.EQ.3 ) THEN |
./pkg/opps/opps_calc.F |
486 |
OPPS_CALC |
ELSEIF ( selectP_inEOS_Zc.EQ.2 ) THEN |
./pkg/opps/opps_calc.F |
488 |
OPPS_CALC |
IF ( selectP_inEOS_Zc.EQ.2 ) THEN |
./pkg/opps/opps_calc.F |
500 |
OPPS_CALC |
ELSEIF ( selectP_inEOS_Zc.LE.1 ) THEN |
./model/src/ini_parms.F |
198 |
INI_PARMS |
& eosType, selectP_inEOS_Zc, integr_GeoPot, selectFindRoSurf, |
./model/src/post_cg3d.F |
104 |
POST_CG3D |
& ( implicitNHPress.LT.oneRL .OR. selectP_inEOS_Zc.EQ.3 ) ) THEN |
./model/src/pressure_for_eos.F |
55 |
PRESSURE_FOR_EOS |
IF ( selectP_inEOS_Zc.EQ.3 ) THEN |
./model/src/pressure_for_eos.F |
66 |
PRESSURE_FOR_EOS |
ELSEIF ( selectP_inEOS_Zc.EQ.2 ) THEN |
./model/src/pressure_for_eos.F |
68 |
PRESSURE_FOR_EOS |
IF ( selectP_inEOS_Zc.EQ.2 ) THEN |
./model/src/pressure_for_eos.F |
86 |
PRESSURE_FOR_EOS |
ELSEIF ( selectP_inEOS_Zc.LE.1 ) THEN |
./model/src/set_defaults.F |
177 |
SET_DEFAULTS |
selectP_inEOS_Zc = UNSET_I |
./model/src/set_parms.F |
232 |
SET_PARMS |
IF ( selectP_inEOS_Zc.EQ.UNSET_I ) THEN |
./model/src/set_parms.F |
236 |
SET_PARMS |
selectP_inEOS_Zc = 2 |
./model/src/set_parms.F |
238 |
SET_PARMS |
selectP_inEOS_Zc = 0 |
./model/src/set_parms.F |
240 |
SET_PARMS |
ELSEIF ( selectP_inEOS_Zc.LT.0 |
./model/src/set_parms.F |
241 |
SET_PARMS |
& .OR. selectP_inEOS_Zc.GT.3 ) THEN |
./model/src/set_parms.F |
243 |
SET_PARMS |
& selectP_inEOS_Zc, ' : invalid selection' |
./model/src/set_parms.F |
247 |
SET_PARMS |
selectP_inEOS_Zc = MIN( selectP_inEOS_Zc, 2 ) |
./model/src/set_parms.F |
250 |
SET_PARMS |
& .AND. selectP_inEOS_Zc.NE.0 ) THEN |
./model/src/set_parms.F |
252 |
SET_PARMS |
& selectP_inEOS_Zc, ' : invalid with eosType=', eosType |
./model/src/set_parms.F |
257 |
SET_PARMS |
selectP_inEOS_Zc = -1 |
./model/src/set_parms.F |
261 |
SET_PARMS |
storePhiHyd4Phys = selectP_inEOS_Zc.GE.2 |
./model/src/set_ref_state.F |
176 |
SET_REF_STATE |
IF ( selectP_inEOS_Zc.GE.1 ) THEN |
./model/src/set_ref_state.F |
372 |
SET_REF_STATE |
IF ( selectP_inEOS_Zc.GE.1 ) THEN |