| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
523 |
OPPS_CALC |
IF ( equationOfState .EQ. 'LINEAR' ) THEN |
|
./pkg/opps/opps_calc.F |
530 |
OPPS_CALC |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./pkg/opps/opps_calc.F |
540 |
OPPS_CALC |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./pkg/opps/opps_calc.F |
541 |
OPPS_CALC |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./pkg/opps/opps_calc.F |
619 |
OPPS_CALC |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./pkg/opps/opps_calc.F |
651 |
OPPS_CALC |
ELSEIF( equationOfState .EQ. 'IDEALG' ) THEN |
|
./pkg/opps/opps_calc.F |
656 |
OPPS_CALC |
& equationOfState,'"' |
|
./model/src/find_alpha.F |
110 |
FIND_ALPHA |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_alpha.F |
111 |
FIND_ALPHA |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/find_alpha.F |
216 |
FIND_ALPHA |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_alpha.F |
271 |
FIND_ALPHA |
WRITE(*,*) 'FIND_ALPHA: equationOfState = ',equationOfState |
|
./model/src/find_alpha.F |
335 |
FIND_BETA |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/find_alpha.F |
343 |
FIND_BETA |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./model/src/find_alpha.F |
370 |
FIND_BETA |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_alpha.F |
371 |
FIND_BETA |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/find_alpha.F |
462 |
FIND_BETA |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_alpha.F |
510 |
FIND_BETA |
WRITE(*,*) 'FIND_BETA: equationOfState = ',equationOfState |
|
./model/src/find_alpha.F |
73 |
FIND_ALPHA |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/find_alpha.F |
81 |
FIND_ALPHA |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./model/src/find_rho.F |
108 |
FIND_RHO_2D |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./model/src/find_rho.F |
143 |
FIND_RHO_2D |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_rho.F |
144 |
FIND_RHO_2D |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/find_rho.F |
180 |
FIND_RHO_2D |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_rho.F |
209 |
FIND_RHO_2D |
ELSEIF( equationOfState .EQ. 'IDEALG' ) THEN |
|
./model/src/find_rho.F |
213 |
FIND_RHO_2D |
& ' FIND_RHO_2D: equationOfState = "',equationOfState,'"' |
|
./model/src/find_rho.F |
630 |
FIND_RHO_SCALAR |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/find_rho.F |
638 |
FIND_RHO_SCALAR |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./model/src/find_rho.F |
652 |
FIND_RHO_SCALAR |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_rho.F |
653 |
FIND_RHO_SCALAR |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/find_rho.F |
731 |
FIND_RHO_SCALAR |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_rho.F |
763 |
FIND_RHO_SCALAR |
ELSEIF( equationOfState .EQ. 'IDEALG' ) THEN |
|
./model/src/find_rho.F |
768 |
FIND_RHO_SCALAR |
& equationOfState,'"' |
|
./model/src/find_rho.F |
88 |
FIND_RHO_2D |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/ini_eos.F |
103 |
INI_EOS |
IF ( equationOfState .EQ. 'JMD95Z' .AND. usingPCoords ) THEN |
|
./model/src/ini_eos.F |
134 |
INI_EOS |
IF ( equationOfState(1:5) .EQ. 'JMD95' ) THEN |
|
./model/src/ini_eos.F |
165 |
INI_EOS |
ELSEIF ( equationOfState .EQ. 'UNESCO' ) THEN |
|
./model/src/ini_eos.F |
222 |
INI_EOS |
ELSEIF ( equationOfState .EQ. 'MDJWF' ) THEN |
|
./model/src/ini_eos.F |
252 |
INI_EOS |
ELSEIF( equationOfState .EQ. 'IDEALG' ) THEN |
|
./model/src/ini_eos.F |
257 |
INI_EOS |
& equationOfState,'"' |
|
./model/src/ini_eos.F |
381 |
EOS_CHECK |
IF ( equationOfState.NE.'LINEAR' |
|
./model/src/ini_eos.F |
382 |
EOS_CHECK |
& .AND. equationOfState.NE.'POLY3' |
|
./model/src/ini_eos.F |
383 |
EOS_CHECK |
& .AND. equationOfState.NE.'IDEALG' ) THEN |
|
./model/src/ini_eos.F |
387 |
EOS_CHECK |
& equationOfState |
|
./model/src/ini_eos.F |
402 |
EOS_CHECK |
IF ( equationOfState.NE.'UNESCO' ) THEN |
|
./model/src/ini_eos.F |
417 |
EOS_CHECK |
IF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/ini_eos.F |
49 |
INI_EOS |
equationOfState = eosType |
|
./model/src/ini_eos.F |
73 |
INI_EOS |
IF ( equationOfState .EQ. 'LINEAR' ) THEN |
|
./model/src/ini_eos.F |
76 |
INI_EOS |
ELSEIF ( equationOfState .EQ. 'POLY3' ) THEN |
|
./model/src/ini_eos.F |
94 |
INI_EOS |
ELSEIF ( equationOfState .EQ. 'JMD95Z' |
|
./model/src/ini_eos.F |
95 |
INI_EOS |
& .OR. equationOfState .EQ. 'JMD95P' |
|
./model/src/ini_eos.F |
96 |
INI_EOS |
& .OR. equationOfState .EQ. 'UNESCO' ) THEN |
|
./model/inc/EOS.h |
26 |
NO PROCEDURE |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta,equationOfState |
|
./model/inc/EOS.h |
29 |
NO PROCEDURE |
character*(6) equationOfState |