/[MITgcm]/MITgcm/model/inc/EOS.h
ViewVC logotype

Diff of /MITgcm/model/inc/EOS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by mlosch, Wed Aug 7 16:55:52 2002 UTC revision 1.2 by mlosch, Thu Sep 5 20:49:33 2002 UTC
# Line 16  C     \ev Line 16  C     \ev
16  CEOP  CEOP
17    
18  C     PARAMETER SItoBar  C     PARAMETER SItoBar
19        _RL SItoBar        _RL SItoBar, SItodBar
20        PARAMETER ( SItoBar = 1. _d -05 )        PARAMETER ( SItoBar  = 1. _d -05 )
21          PARAMETER ( SItodBar = 1. _d -04 )
22    
23  C Linear equation of state  C Linear equation of state
24  C     tAlpha    :: Linear EOS thermal expansion coefficient ( 1/degree ).  C     tAlpha    :: Linear EOS thermal expansion coefficient ( 1/degree ).
# Line 40  C     eosJMDCSw  :: of sea water at pres Line 41  C     eosJMDCSw  :: of sea water at pres
41  C     eosJMDCKFw :: of secant bulk modulus K of fresh water at pressure 0  C     eosJMDCKFw :: of secant bulk modulus K of fresh water at pressure 0
42  C     eosJMDCKSw :: of secant bulk modulus K of sea water at pressure 0  C     eosJMDCKSw :: of secant bulk modulus K of sea water at pressure 0
43  C     eosJMDCKP  :: of secant bulk modulus K at pressure p  C     eosJMDCKP  :: of secant bulk modulus K at pressure p
44    C     eosType = 'DJWF02' (McDougall et al. 2002, JAOT, submitted)
45    C     COMMON /PARM_EOS_MDJWF/
46    C     eosMDJWFnum :: coefficients of numerator
47    C     eosMDJWFden :: coefficients of denominator
48  C     end nonlinear equation of state  C     end nonlinear equation of state
49        _RL eosJMDCFw(6), eosJMDCSw(9)        _RL eosJMDCFw(6), eosJMDCSw(9)
50        _RL eosJMDCKFw(5), eosJMDCKSw(7), eosJMDCKP(14)        _RL eosJMDCKFw(5), eosJMDCKSw(7), eosJMDCKP(14)
51        COMMON /PARM_EOS_JMD95/        COMMON /PARM_EOS_JMD95/
52       &     eosJMDCFw, eosJMDCSw, eosJMDCKFw, eosJMDCKSw, eosJMDCKP       &     eosJMDCFw, eosJMDCSw, eosJMDCKFw, eosJMDCKSw, eosJMDCKP
53          _RL eosMDJWFnum(0:11), eosMDJWFden(0:12)
54          COMMON /PARM_EOS_MDJWF/
55         &     eosMDJWFnum, eosMDJWFden
56    
57  C     pressure :: global absolute pressure variable needed for the  C     pressure :: global absolute pressure variable needed for the
58  C                 nonlinear equation of state  C                 nonlinear equation of state
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22