| File |
Line number |
Procedure |
Code |
|
./model/src/find_alpha.F |
115 |
FIND_ALPHA |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_alpha.F |
116 |
FIND_ALPHA |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/find_alpha.F |
224 |
FIND_ALPHA |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_alpha.F |
282 |
FIND_ALPHA |
ELSEIF ( equationOfState.EQ.'TEOS10' ) THEN |
|
./model/src/find_alpha.F |
336 |
FIND_ALPHA |
WRITE(*,*) 'FIND_ALPHA: equationOfState = ',equationOfState |
|
./model/src/find_alpha.F |
408 |
FIND_BETA |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/find_alpha.F |
416 |
FIND_BETA |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./model/src/find_alpha.F |
443 |
FIND_BETA |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_alpha.F |
444 |
FIND_BETA |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/find_alpha.F |
538 |
FIND_BETA |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_alpha.F |
589 |
FIND_BETA |
ELSEIF ( equationOfState.EQ.'TEOS10' ) THEN |
|
./model/src/find_alpha.F |
637 |
FIND_BETA |
WRITE(*,*) 'FIND_BETA: equationOfState = ',equationOfState |
|
./model/src/find_alpha.F |
78 |
FIND_ALPHA |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/find_alpha.F |
86 |
FIND_ALPHA |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./model/src/find_rho.F |
1094 |
FIND_RHO_SCALAR |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_rho.F |
1125 |
FIND_RHO_SCALAR |
ELSEIF( equationOfState .EQ. 'TEOS10' ) THEN |
|
./model/src/find_rho.F |
114 |
FIND_RHO_2D |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./model/src/find_rho.F |
1162 |
FIND_RHO_SCALAR |
ELSEIF( equationOfState .EQ. 'IDEALG' ) THEN |
|
./model/src/find_rho.F |
1173 |
FIND_RHO_SCALAR |
& equationOfState,'"' |
|
./model/src/find_rho.F |
149 |
FIND_RHO_2D |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_rho.F |
150 |
FIND_RHO_2D |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/find_rho.F |
186 |
FIND_RHO_2D |
ELSEIF ( equationOfState.EQ.'MDJWF' ) THEN |
|
./model/src/find_rho.F |
215 |
FIND_RHO_2D |
ELSEIF ( equationOfState.EQ.'TEOS10' ) THEN |
|
./model/src/find_rho.F |
238 |
FIND_RHO_2D |
ELSEIF( equationOfState .EQ. 'IDEALG' ) THEN |
|
./model/src/find_rho.F |
262 |
FIND_RHO_2D |
& ' FIND_RHO_2D: equationOfState = "',equationOfState,'"' |
|
./model/src/find_rho.F |
937 |
FIND_RHO_SCALAR |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/find_rho.F |
945 |
FIND_RHO_SCALAR |
ELSEIF (equationOfState.EQ.'POLY3') THEN |
|
./model/src/find_rho.F |
94 |
FIND_RHO_2D |
IF (equationOfState.EQ.'LINEAR') THEN |
|
./model/src/find_rho.F |
959 |
FIND_RHO_SCALAR |
ELSEIF ( equationOfState(1:5).EQ.'JMD95' |
|
./model/src/find_rho.F |
960 |
FIND_RHO_SCALAR |
& .OR. equationOfState.EQ.'UNESCO' ) THEN |
|
./model/src/ini_eos.F |
106 |
INI_EOS |
IF ( equationOfState .EQ. 'JMD95Z' .AND. usingPCoords ) THEN |
|
./model/src/ini_eos.F |
137 |
INI_EOS |
IF ( equationOfState(1:5) .EQ. 'JMD95' ) THEN |
|
./model/src/ini_eos.F |
168 |
INI_EOS |
ELSEIF ( equationOfState .EQ. 'UNESCO' ) THEN |
|
./model/src/ini_eos.F |
225 |
INI_EOS |
ELSEIF ( equationOfState .EQ. 'MDJWF' ) THEN |
|
./model/src/ini_eos.F |
255 |
INI_EOS |
ELSEIF ( equationOfState .EQ. 'TEOS10' ) THEN |
|
./model/src/ini_eos.F |
306 |
INI_EOS |
ELSEIF( equationOfState .EQ. 'IDEALG' ) THEN |
|
./model/src/ini_eos.F |
311 |
INI_EOS |
& equationOfState,'"' |
|
./model/src/ini_eos.F |
457 |
EOS_CHECK |
IF ( equationOfState.NE.'LINEAR' |
|
./model/src/ini_eos.F |
458 |
EOS_CHECK |
& .AND. equationOfState.NE.'POLY3' |
|
./model/src/ini_eos.F |
459 |
EOS_CHECK |
& .AND. equationOfState.NE.'IDEALG' ) THEN |
|
./model/src/ini_eos.F |
463 |
EOS_CHECK |
& equationOfState |
|
./model/src/ini_eos.F |
478 |
EOS_CHECK |
IF ( equationOfState.NE.'UNESCO' ) THEN |
|
./model/src/ini_eos.F |
493 |
EOS_CHECK |
IF ( equationOfState.EQ.'MDJWF' .OR. |
|
./model/src/ini_eos.F |
494 |
EOS_CHECK |
& equationOfState.EQ.'TEOS10' ) THEN |
|
./model/src/ini_eos.F |
49 |
INI_EOS |
equationOfState = eosType |
|
./model/src/ini_eos.F |
76 |
INI_EOS |
IF ( equationOfState .EQ. 'LINEAR' ) THEN |
|
./model/src/ini_eos.F |
79 |
INI_EOS |
ELSEIF ( equationOfState .EQ. 'POLY3' ) THEN |
|
./model/src/ini_eos.F |
97 |
INI_EOS |
ELSEIF ( equationOfState .EQ. 'JMD95Z' |
|
./model/src/ini_eos.F |
98 |
INI_EOS |
& .OR. equationOfState .EQ. 'JMD95P' |
|
./model/src/ini_eos.F |
99 |
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 |