model/inc/EOS.h

C $Header: $
C $Name:   $
CBOP
C    !ROUTINE: EOS.h
C    !INTERFACE:
C    include EOS.h
C    !DESCRIPTION: \bv
C     *==========================================================*
C     | EOS.h                                                  
C     | o Header file defining coefficients for equation of state.
C     *==========================================================*
C     | The values from the model standard input file are         
C     | stored into the variables held here.                   
C     *==========================================================*
C     \ev
CEOP

C     PARAMETER SItoBar
      _RL SItoBar
      PARAMETER ( SItoBar = 1. _d -05 )

C Linear equation of state
C     tAlpha    :: Linear EOS thermal expansion coefficient ( 1/degree ).
C     sBeta     :: Linear EOS haline contraction coefficient.
      COMMON /PARM_EOS_LIN/ tAlpha,sBeta,equationOfState
      _RL tAlpha
      _RL sBeta
      character*(6) equationOfState

C Equation of State (polynomial coeffients)
      COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS
      _RL eosC(9,Nr+1),eosSig0(Nr+1),eosRefT(Nr+1),eosRefS(Nr+1)

C Full Equation of State
C     eosType = 'JMD95' (Jackett and McDougall 1995, JPO)
C     eosType = 'UNESCO' (Millero et al. 1980, DSR)
C     COMMON /PARM_EOS_JMD95/ 
C     eosJMDCFw  :: of fresh water at pressure 0
C     eosJMDCSw  :: of sea water at pressure 0
C     eosJMDCKFw :: of secant bulk modulus K of fresh water at pressure 0
C     eosJMDCKSw :: of secant bulk modulus K of sea water at pressure 0
C     eosJMDCKP  :: of secant bulk modulus K at pressure p
C     end nonlinear equation of state
      _RL eosJMDCFw(6), eosJMDCSw(9)
      _RL eosJMDCKFw(5), eosJMDCKSw(7), eosJMDCKP(14)
      COMMON /PARM_EOS_JMD95/
     &     eosJMDCFw, eosJMDCSw, eosJMDCKFw, eosJMDCKSw, eosJMDCKP

C     pressure :: global absolute pressure variable needed for the 
C                 nonlinear equation of state
      _RL pressure(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
      COMMON /EOS_PRESSURE/ pressure
1	mlosch	1.1	C $Header: $
2			C $Name: $
3			CBOP
4			C !ROUTINE: EOS.h
5			C !INTERFACE:
6			C include EOS.h
7			C !DESCRIPTION: \bv
8			C ==========================================================
9			C \| EOS.h
10			C \| o Header file defining coefficients for equation of state.
11			C ==========================================================
12			C \| The values from the model standard input file are
13			C \| stored into the variables held here.
14			C ==========================================================
15			C \ev
16			CEOP
17
18			C PARAMETER SItoBar
19			_RL SItoBar
20			PARAMETER ( SItoBar = 1. _d -05 )
21
22			C Linear equation of state
23			C tAlpha :: Linear EOS thermal expansion coefficient ( 1/degree ).
24			C sBeta :: Linear EOS haline contraction coefficient.
25			COMMON /PARM_EOS_LIN/ tAlpha,sBeta,equationOfState
26			_RL tAlpha
27			_RL sBeta
28			character*(6) equationOfState
29
30			C Equation of State (polynomial coeffients)
31			COMMON /PARM_EOS_NL/ eosC,eosSig0,eosRefT,eosRefS
32			_RL eosC(9,Nr+1),eosSig0(Nr+1),eosRefT(Nr+1),eosRefS(Nr+1)
33
34			C Full Equation of State
35			C eosType = 'JMD95' (Jackett and McDougall 1995, JPO)
36			C eosType = 'UNESCO' (Millero et al. 1980, DSR)
37			C COMMON /PARM_EOS_JMD95/
38			C eosJMDCFw :: of fresh water at pressure 0
39			C eosJMDCSw :: of sea water at pressure 0
40			C eosJMDCKFw :: of secant bulk modulus K of fresh water at pressure 0
41			C eosJMDCKSw :: of secant bulk modulus K of sea water at pressure 0
42			C eosJMDCKP :: of secant bulk modulus K at pressure p
43			C end nonlinear equation of state
44			_RL eosJMDCFw(6), eosJMDCSw(9)
45			_RL eosJMDCKFw(5), eosJMDCKSw(7), eosJMDCKP(14)
46			COMMON /PARM_EOS_JMD95/
47			& eosJMDCFw, eosJMDCSw, eosJMDCKFw, eosJMDCKSw, eosJMDCKP
48
49			C pressure :: global absolute pressure variable needed for the
50			C nonlinear equation of state
51			_RL pressure(1-OLx:sNx+OLx,1-OLy:sNy+OLy,1:Nr,nSx,nSy)
52			COMMON /EOS_PRESSURE/ pressure