9 |
C | the parameters can also be found here. | |
C | the parameters can also be found here. | |
10 |
C \==========================================================/ |
C \==========================================================/ |
11 |
|
|
12 |
|
C Macros for special grid options |
13 |
|
#include "PARAMS_MACROS.h" |
14 |
|
|
15 |
C-- Contants |
C-- Contants |
16 |
C Useful physical values |
C Useful physical values |
17 |
Real*8 PI |
Real*8 PI |
267 |
|
|
268 |
C Equation of State (polynomial coeffients) |
C Equation of State (polynomial coeffients) |
269 |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS |
270 |
_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) |
271 |
C Linear equation of state |
C Linear equation of state |
272 |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
C tAlpha - Linear EOS thermal expansion coefficient ( 1/degree ). |
273 |
C sBeta - Linear EOS haline contraction coefficient. |
C sBeta - Linear EOS haline contraction coefficient. |
274 |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta |
COMMON /PARM_EOS_LIN/ tAlpha,sBeta,eosType |
275 |
_RL tAlpha |
_RL tAlpha |
276 |
_RL sBeta |
_RL sBeta |
277 |
|
character*(6) eosType |
278 |
|
|