| 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/ini_eos.F |
128 |
INI_EOS |
if ( equationOfState(1:5) .eq. 'JMD95' ) then |
|
./model/src/ini_eos.F |
159 |
INI_EOS |
elseif ( equationOfState .eq. 'UNESCO' ) then |
|
./model/src/ini_eos.F |
216 |
INI_EOS |
elseif ( equationOfState .eq. 'MDJWF' ) then |
|
./model/src/ini_eos.F |
246 |
INI_EOS |
elseif( equationOfState .eq. 'IDEALG' ) then |
|
./model/src/ini_eos.F |
251 |
INI_EOS |
& equationOfState,'"' |
|
./model/src/ini_eos.F |
371 |
CHECK_EOS |
if ( equationOfState.ne.'LINEAR' |
|
./model/src/ini_eos.F |
372 |
CHECK_EOS |
& .and. equationOfState.ne.'POLY3' ) then |
|
./model/src/ini_eos.F |
376 |
CHECK_EOS |
& equationOfState |
|
./model/src/ini_eos.F |
382 |
CHECK_EOS |
if ( equationOfState.ne.'UNESCO' ) then |
|
./model/src/ini_eos.F |
44 |
INI_EOS |
equationOfState = eosType |
|
./model/src/ini_eos.F |
68 |
INI_EOS |
if ( equationOfState .eq. 'LINEAR' ) then |
|
./model/src/ini_eos.F |
71 |
INI_EOS |
elseif ( equationOfState .eq. 'POLY3' ) then |
|
./model/src/ini_eos.F |
89 |
INI_EOS |
elseif ( equationOfState(1:5) .eq. 'JMD95' |
|
./model/src/ini_eos.F |
90 |
INI_EOS |
& .or. equationOfState .eq. 'UNESCO' ) then |
|
./model/src/ini_eos.F |
97 |
INI_EOS |
if ( equationOfState .eq. 'JMD95Z' .and. usingPCoords ) then |
|
./model/src/find_alpha.F |
106 |
FIND_ALPHA |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_alpha.F |
107 |
FIND_ALPHA |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/find_alpha.F |
212 |
FIND_ALPHA |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_alpha.F |
264 |
FIND_ALPHA |
WRITE(*,*) 'FIND_ALPHA: equationOfState = ',equationOfState |
|
./model/src/find_alpha.F |
324 |
FIND_BETA |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/find_alpha.F |
332 |
FIND_BETA |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./model/src/find_alpha.F |
359 |
FIND_BETA |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_alpha.F |
360 |
FIND_BETA |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/find_alpha.F |
451 |
FIND_BETA |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_alpha.F |
496 |
FIND_BETA |
WRITE(*,*) 'FIND_BETA: equationOfState = ',equationOfState |
|
./model/src/find_alpha.F |
69 |
FIND_ALPHA |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/find_alpha.F |
77 |
FIND_ALPHA |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./model/src/find_rho.F |
132 |
FIND_RHO |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_rho.F |
133 |
FIND_RHO |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/find_rho.F |
171 |
FIND_RHO |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_rho.F |
195 |
FIND_RHO |
ELSEIF( equationOfState .EQ. 'IDEALG' ) THEN |
|
./model/src/find_rho.F |
199 |
FIND_RHO |
& ' FIND_RHO: equationOfState = "',equationOfState,'"' |
|
./model/src/find_rho.F |
626 |
FIND_RHO_SCALAR |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/find_rho.F |
630 |
FIND_RHO_SCALAR |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./model/src/find_rho.F |
640 |
FIND_RHO_SCALAR |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_rho.F |
641 |
FIND_RHO_SCALAR |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/find_rho.F |
719 |
FIND_RHO_SCALAR |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_rho.F |
751 |
FIND_RHO_SCALAR |
ELSEIF( equationOfState .EQ. 'IDEALG' ) THEN |
|
./model/src/find_rho.F |
756 |
FIND_RHO_SCALAR |
& equationOfState,'"' |
|
./model/src/find_rho.F |
77 |
FIND_RHO |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/find_rho.F |
97 |
FIND_RHO |
ELSEIF (equationOfState.EQ.'POLY3') 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 |