264 |
|
|
265 |
C Equation of State (polynomial coeffients) |
C Equation of State (polynomial coeffients) |
266 |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
267 |
_RL eosC(Nz+1,9),eosSig0(Nz+1),eosRefT(Nz+1),eosRefS(Nz+1) |
_RL eosC(9,Nz+1),eosSig0(Nz+1),eosRefT(Nz+1),eosRefS(Nz+1) |
268 |
C Linear equation of state |
C Linear equation of state |
269 |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
270 |
C sBeta - Linear EOS haline contraction coefficient. |
C sBeta - Linear EOS haline contraction coefficient. |
271 |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType |
272 |
_RL tAlpha |
_RL tAlpha |
273 |
_RL sBeta |
_RL sBeta |
274 |
|
character*(6) eosType |
275 |
|
|