mod_eoscoef.F

Go to the documentation of this file.

#include "cppdefs.h"
      MODULE mod_eoscoef
#ifdef NONLIN_EOS
!
!git $Id$
!================================================== Hernan G. Arango ===
!  Copyright (c) 2002-2025 The ROMS Group                              !
!    Licensed under a MIT/X style license                              !
!    See License_ROMS.md                                               !
!=======================================================================
!                                                                      !
!  Polynomial  expansion  coefficients for the computation of          !
!  "in situ" density  and other associated quantities via the          !
!  nonlinear equation of state for seawater  as a function of          !
!  potential temperature, salinity, and pressure (Jackett and          !
!  McDougall, 1992).                                                   !
!                                                                      !
!=======================================================================
!
        USE mod_kinds
 
        implicit none
 
        real(r8), parameter :: a00 = +1.909256e+04_r8
        real(r8), parameter :: a01 = +2.098925e+02_r8
        real(r8), parameter :: a02 = -3.041638e+00_r8
        real(r8), parameter :: a03 = -1.852732e-03_r8
        real(r8), parameter :: a04 = -1.361629e-05_r8
        real(r8), parameter :: b00 = +1.044077e+02_r8
        real(r8), parameter :: b01 = -6.500517e+00_r8
        real(r8), parameter :: b02 = +1.553190e-01_r8
        real(r8), parameter :: b03 = +2.326469e-04_r8
        real(r8), parameter :: d00 = -5.587545e+00_r8
        real(r8), parameter :: d01 = +7.390729e-01_r8
        real(r8), parameter :: d02 = -1.909078e-02_r8
        real(r8), parameter :: e00 = +4.721788e-01_r8
        real(r8), parameter :: e01 = +1.028859e-02_r8
        real(r8), parameter :: e02 = -2.512549e-04_r8
        real(r8), parameter :: e03 = -5.939910e-07_r8
        real(r8), parameter :: f00 = -1.571896e-02_r8
        real(r8), parameter :: f01 = -2.598241e-04_r8
        real(r8), parameter :: f02 = +7.267926e-06_r8
        real(r8), parameter :: g00 = +2.042967e-03_r8
        real(r8), parameter :: g01 = +1.045941e-05_r8
        real(r8), parameter :: g02 = -5.782165e-10_r8
        real(r8), parameter :: g03 = +1.296821e-07_r8
        real(r8), parameter :: h00 = -2.595994e-07_r8
        real(r8), parameter :: h01 = -1.248266e-09_r8
        real(r8), parameter :: h02 = -3.508914e-09_r8
        real(r8), parameter :: q00 = +9.99842594e+02_r8
        real(r8), parameter :: q01 = +6.793952e-02_r8
        real(r8), parameter :: q02 = -9.095290e-03_r8
        real(r8), parameter :: q03 = +1.001685e-04_r8
        real(r8), parameter :: q04 = -1.120083e-06_r8
        real(r8), parameter :: q05 = +6.536332e-09_r8
        real(r8), parameter :: u00 = +8.24493e-01_r8
        real(r8), parameter :: u01 = -4.08990e-03_r8
        real(r8), parameter :: u02 = +7.64380e-05_r8
        real(r8), parameter :: u03 = -8.24670e-07_r8
        real(r8), parameter :: u04 = +5.38750e-09_r8
        real(r8), parameter :: v00 = -5.72466e-03_r8
        real(r8), parameter :: v01 = +1.02270e-04_r8
        real(r8), parameter :: v02 = -1.65460e-06_r8
        real(r8), parameter :: w00 = +4.8314e-04_r8
 
#endif
 
      END MODULE mod_eoscoef