gsw_mod_specvol_coefficients.f90

Go to the documentation of this file.

!==========================================================================
module gsw_mod_specvol_coefficients
!==========================================================================

use gsw_mod_kinds

implicit none

real (r8), parameter :: a000 = -1.56497346750e-5_r8 
real (r8), parameter :: a001 =  1.85057654290e-5_r8 
real (r8), parameter :: a002 = -1.17363867310e-6_r8 
real (r8), parameter :: a003 = -3.65270065530e-7_r8 
real (r8), parameter :: a004 =  3.14540999020e-7_r8 
real (r8), parameter :: a010 =  5.55242129680e-5_r8 
real (r8), parameter :: a011 = -2.34332137060e-5_r8 
real (r8), parameter :: a012 =  4.26100574800e-6_r8 
real (r8), parameter :: a013 =  5.73918103180e-7_r8 
real (r8), parameter :: a020 = -4.95634777770e-5_r8 
real (r8), parameter :: a021 =  2.37838968519e-5_r8 
real (r8), parameter :: a022 = -1.38397620111e-6_r8 
real (r8), parameter :: a030 =  2.76445290808e-5_r8 
real (r8), parameter :: a031 = -1.36408749928e-5_r8 
real (r8), parameter :: a032 = -2.53411666056e-7_r8 
real (r8), parameter :: a040 = -4.02698077700e-6_r8 
real (r8), parameter :: a041 =  2.53683834070e-6_r8 
real (r8), parameter :: a050 =  1.23258565608e-6_r8 
real (r8), parameter :: a100 =  3.50095997640e-5_r8 
real (r8), parameter :: a101 = -9.56770881560e-6_r8 
real (r8), parameter :: a102 = -5.56991545570e-6_r8 
real (r8), parameter :: a103 = -2.72956962370e-7_r8 
real (r8), parameter :: a110 = -7.48716846880e-5_r8 
real (r8), parameter :: a111 = -4.73566167220e-7_r8 
real (r8), parameter :: a112 =  7.82747741600e-7_r8 
real (r8), parameter :: a120 =  7.24244384490e-5_r8 
real (r8), parameter :: a121 = -1.03676320965e-5_r8 
real (r8), parameter :: a122 =  2.32856664276e-8_r8 
real (r8), parameter :: a130 = -3.50383492616e-5_r8 
real (r8), parameter :: a131 =  5.18268711320e-6_r8 
real (r8), parameter :: a140 = -1.65263794500e-6_r8 
real (r8), parameter :: a200 = -4.35926785610e-5_r8 
real (r8), parameter :: a201 =  1.11008347650e-5_r8 
real (r8), parameter :: a202 =  5.46207488340e-6_r8 
real (r8), parameter :: a210 =  7.18156455200e-5_r8 
real (r8), parameter :: a211 =  5.85666925900e-6_r8 
real (r8), parameter :: a212 = -1.31462208134e-6_r8 
real (r8), parameter :: a220 = -4.30608991440e-5_r8 
real (r8), parameter :: a221 =  9.49659182340e-7_r8 
real (r8), parameter :: a230 =  1.74814722392e-5_r8 
real (r8), parameter :: a300 =  3.45324618280e-5_r8 
real (r8), parameter :: a301 = -9.84471178440e-6_r8 
real (r8), parameter :: a302 = -1.35441856270e-6_r8 
real (r8), parameter :: a310 = -3.73971683740e-5_r8 
real (r8), parameter :: a311 = -9.76522784000e-7_r8 
real (r8), parameter :: a320 =  6.85899736680e-6_r8 
real (r8), parameter :: a400 = -1.19594097880e-5_r8 
real (r8), parameter :: a401 =  2.59092252600e-6_r8 
real (r8), parameter :: a410 =  7.71906784880e-6_r8 
real (r8), parameter :: a500 =  1.38645945810e-6_r8 

real (r8), parameter :: b000 = -3.10389819760e-4_r8 
real (r8), parameter :: b003 =  3.63101885150e-7_r8 
real (r8), parameter :: b004 = -1.11471254230e-7_r8 
real (r8), parameter :: b010 =  3.50095997640e-5_r8 
real (r8), parameter :: b013 = -2.72956962370e-7_r8 
real (r8), parameter :: b020 = -3.74358423440e-5_r8 
real (r8), parameter :: b030 =  2.41414794830e-5_r8 
real (r8), parameter :: b040 = -8.75958731540e-6_r8 
real (r8), parameter :: b050 = -3.30527589000e-7_r8 
real (r8), parameter :: b100 =  1.33856134076e-3_r8 
real (r8), parameter :: b103 =  3.34926075600e-8_r8 
real (r8), parameter :: b110 = -8.71853571220e-5_r8 
real (r8), parameter :: b120 =  7.18156455200e-5_r8 
real (r8), parameter :: b130 = -2.87072660960e-5_r8 
real (r8), parameter :: b140 =  8.74073611960e-6_r8 
real (r8), parameter :: b200 = -2.55143801811e-3_r8 
real (r8), parameter :: b210 =  1.03597385484e-4_r8 
real (r8), parameter :: b220 = -5.60957525610e-5_r8 
real (r8), parameter :: b230 =  6.85899736680e-6_r8 
real (r8), parameter :: b300 =  2.32344279772e-3_r8 
real (r8), parameter :: b310 = -4.78376391520e-5_r8 
real (r8), parameter :: b320 =  1.54381356976e-5_r8 
real (r8), parameter :: b400 = -1.05461852535e-3_r8 
real (r8), parameter :: b410 =  6.93229729050e-6_r8 
real (r8), parameter :: b500 =  1.91594743830e-4_r8 
real (r8), parameter :: b001 =  2.42624687470e-5_r8 
real (r8), parameter :: b011 = -9.56770881560e-6_r8 
real (r8), parameter :: b021 = -2.36783083610e-7_r8 
real (r8), parameter :: b031 = -3.45587736550e-6_r8 
real (r8), parameter :: b041 =  1.29567177830e-6_r8 
real (r8), parameter :: b101 = -6.95849219480e-5_r8 
real (r8), parameter :: b111 =  2.22016695300e-5_r8 
real (r8), parameter :: b121 =  5.85666925900e-6_r8 
real (r8), parameter :: b131 =  6.33106121560e-7_r8 
real (r8), parameter :: b201 =  1.12412331915e-4_r8 
real (r8), parameter :: b211 = -2.95341353532e-5_r8 
real (r8), parameter :: b221 = -1.46478417600e-6_r8 
real (r8), parameter :: b301 = -6.92888744480e-5_r8 
real (r8), parameter :: b311 =  1.03636901040e-5_r8 
real (r8), parameter :: b401 =  1.54637136265e-5_r8 
real (r8), parameter :: b002 = -5.84844329840e-7_r8 
real (r8), parameter :: b012 = -5.56991545570e-6_r8 
real (r8), parameter :: b022 =  3.91373870800e-7_r8 
real (r8), parameter :: b032 =  7.76188880920e-9_r8 
real (r8), parameter :: b102 = -9.62445031940e-6_r8 
real (r8), parameter :: b112 =  1.09241497668e-5_r8 
real (r8), parameter :: b122 = -1.31462208134e-6_r8 
real (r8), parameter :: b202 =  1.47789320994e-5_r8 
real (r8), parameter :: b212 = -4.06325568810e-6_r8 
real (r8), parameter :: b302 = -7.12478989080e-6_r8

real (r8), parameter :: c000 = -6.07991438090e-5_r8 
real (r8), parameter :: c001 =  1.99712338438e-5_r8 
real (r8), parameter :: c002 = -3.39280843110e-6_r8 
real (r8), parameter :: c003 =  4.21246123200e-7_r8 
real (r8), parameter :: c004 = -6.32363064300e-8_r8 
real (r8), parameter :: c005 =  1.17681023580e-8_r8 
real (r8), parameter :: c010 =  1.85057654290e-5_r8 
real (r8), parameter :: c011 = -2.34727734620e-6_r8 
real (r8), parameter :: c012 = -1.09581019659e-6_r8 
real (r8), parameter :: c013 =  1.25816399608e-6_r8 
real (r8), parameter :: c020 = -1.17166068530e-5_r8 
real (r8), parameter :: c021 =  4.26100574800e-6_r8 
real (r8), parameter :: c022 =  8.60877154770e-7_r8 
real (r8), parameter :: c030 =  7.92796561730e-6_r8 
real (r8), parameter :: c031 = -9.22650800740e-7_r8 
real (r8), parameter :: c040 = -3.41021874820e-6_r8 
real (r8), parameter :: c041 = -1.26705833028e-7_r8 
real (r8), parameter :: c050 =  5.07367668140e-7_r8 
real (r8), parameter :: c100 =  2.42624687470e-5_r8 
real (r8), parameter :: c101 = -1.16968865968e-6_r8 
real (r8), parameter :: c102 =  1.08930565545e-6_r8 
real (r8), parameter :: c103 = -4.45885016920e-7_r8 
real (r8), parameter :: c110 = -9.56770881560e-6_r8 
real (r8), parameter :: c111 = -1.11398309114e-5_r8 
real (r8), parameter :: c112 = -8.18870887110e-7_r8 
real (r8), parameter :: c120 = -2.36783083610e-7_r8 
real (r8), parameter :: c121 =  7.82747741600e-7_r8 
real (r8), parameter :: c130 = -3.45587736550e-6_r8 
real (r8), parameter :: c131 =  1.55237776184e-8_r8 
real (r8), parameter :: c140 =  1.29567177830e-6_r8 
real (r8), parameter :: c200 = -3.47924609740e-5_r8 
real (r8), parameter :: c201 = -9.62445031940e-6_r8 
real (r8), parameter :: c202 =  5.02389113400e-8_r8 
real (r8), parameter :: c210 =  1.11008347650e-5_r8 
real (r8), parameter :: c211 =  1.09241497668e-5_r8 
real (r8), parameter :: c220 =  2.92833462950e-6_r8 
real (r8), parameter :: c221 = -1.31462208134e-6_r8 
real (r8), parameter :: c230 =  3.16553060780e-7_r8 
real (r8), parameter :: c300 =  3.74707773050e-5_r8 
real (r8), parameter :: c301 =  9.85262139960e-6_r8 
real (r8), parameter :: c310 = -9.84471178440e-6_r8 
real (r8), parameter :: c311 = -2.70883712540e-6_r8 
real (r8), parameter :: c320 = -4.88261392000e-7_r8 
real (r8), parameter :: c400 = -1.73222186120e-5_r8 
real (r8), parameter :: c401 = -3.56239494540e-6_r8 
real (r8), parameter :: c410 =  2.59092252600e-6_r8 
real (r8), parameter :: c500 =  3.09274272530e-6_r8 
  
real (r8), parameter :: h001 =  1.07699958620e-3_r8
real (r8), parameter :: h002 = -3.03995719050e-5_r8
real (r8), parameter :: h003 =  3.32853897400e-6_r8
real (r8), parameter :: h004 = -2.82734035930e-7_r8
real (r8), parameter :: h005 =  2.10623061600e-8_r8
real (r8), parameter :: h006 = -2.10787688100e-9_r8
real (r8), parameter :: h007 =  2.80192913290e-10_r8
real (r8), parameter :: h011 = -1.56497346750e-5_r8
real (r8), parameter :: h012 =  9.25288271450e-6_r8
real (r8), parameter :: h013 = -3.91212891030e-7_r8
real (r8), parameter :: h014 = -9.13175163830e-8_r8
real (r8), parameter :: h015 =  6.29081998040e-8_r8
real (r8), parameter :: h021 =  2.77621064840e-5_r8
real (r8), parameter :: h022 = -5.85830342650e-6_r8
real (r8), parameter :: h023 =  7.10167624670e-7_r8
real (r8), parameter :: h024 =  7.17397628980e-8_r8
real (r8), parameter :: h031 = -1.65211592590e-5_r8
real (r8), parameter :: h032 =  3.96398280870e-6_r8
real (r8), parameter :: h033 = -1.53775133460e-7_r8
real (r8), parameter :: h042 = -1.70510937410e-6_r8
real (r8), parameter :: h043 = -2.11176388380e-8_r8
real (r8), parameter :: h041 =  6.91113227020e-6_r8
real (r8), parameter :: h051 = -8.05396155400e-7_r8
real (r8), parameter :: h052 =  2.53683834070e-7_r8
real (r8), parameter :: h061 =  2.05430942680e-7_r8
real (r8), parameter :: h101 = -3.10389819760e-4_r8
real (r8), parameter :: h102 =  1.21312343735e-5_r8
real (r8), parameter :: h103 = -1.94948109950e-7_r8
real (r8), parameter :: h104 =  9.07754712880e-8_r8
real (r8), parameter :: h105 = -2.22942508460e-8_r8
real (r8), parameter :: h111 =  3.50095997640e-5_r8
real (r8), parameter :: h112 = -4.78385440780e-6_r8
real (r8), parameter :: h113 = -1.85663848520e-6_r8
real (r8), parameter :: h114 = -6.82392405930e-8_r8
real (r8), parameter :: h121 = -3.74358423440e-5_r8
real (r8), parameter :: h122 = -1.18391541805e-7_r8
real (r8), parameter :: h123 =  1.30457956930e-7_r8
real (r8), parameter :: h131 =  2.41414794830e-5_r8
real (r8), parameter :: h132 = -1.72793868275e-6_r8
real (r8), parameter :: h133 =  2.58729626970e-9_r8
real (r8), parameter :: h141 = -8.75958731540e-6_r8
real (r8), parameter :: h142 =  6.47835889150e-7_r8
real (r8), parameter :: h151 = -3.30527589000e-7_r8
real (r8), parameter :: h201 =  6.69280670380e-4_r8
real (r8), parameter :: h202 = -1.73962304870e-5_r8
real (r8), parameter :: h203 = -1.60407505320e-6_r8
real (r8), parameter :: h204 =  4.18657594500e-9_r8
real (r8), parameter :: h211 = -4.35926785610e-5_r8
real (r8), parameter :: h212 =  5.55041738250e-6_r8
real (r8), parameter :: h213 =  1.82069162780e-6_r8
real (r8), parameter :: h221 =  3.59078227600e-5_r8
real (r8), parameter :: h222 =  1.46416731475e-6_r8
real (r8), parameter :: h223 = -2.19103680220e-7_r8
real (r8), parameter :: h231 = -1.43536330480e-5_r8
real (r8), parameter :: h232 =  1.58276530390e-7_r8
real (r8), parameter :: h241 =  4.37036805980e-6_r8
real (r8), parameter :: h301 = -8.50479339370e-4_r8
real (r8), parameter :: h302 =  1.87353886525e-5_r8
real (r8), parameter :: h303 =  1.64210356660e-6_r8
real (r8), parameter :: h311 =  3.45324618280e-5_r8
real (r8), parameter :: h312 = -4.92235589220e-6_r8
real (r8), parameter :: h313 = -4.51472854230e-7_r8
real (r8), parameter :: h321 = -1.86985841870e-5_r8
real (r8), parameter :: h322 = -2.44130696000e-7_r8
real (r8), parameter :: h331 =  2.28633245560e-6_r8
real (r8), parameter :: h401 =  5.80860699430e-4_r8
real (r8), parameter :: h402 = -8.66110930600e-6_r8
real (r8), parameter :: h403 = -5.93732490900e-7_r8
real (r8), parameter :: h411 = -1.19594097880e-5_r8
real (r8), parameter :: h421 =  3.85953392440e-6_r8
real (r8), parameter :: h412 =  1.29546126300e-6_r8
real (r8), parameter :: h501 = -2.10923705070e-4_r8
real (r8), parameter :: h502 =  1.54637136265e-6_r8
real (r8), parameter :: h511 =  1.38645945810e-6_r8
real (r8), parameter :: h601 =  3.19324573050e-5_r8

real (r8), parameter :: v000 =  1.0769995862e-3_r8 
real (r8), parameter :: v001 = -6.0799143809e-5_r8 
real (r8), parameter :: v002 =  9.9856169219e-6_r8 
real (r8), parameter :: v003 = -1.1309361437e-6_r8 
real (r8), parameter :: v004 =  1.0531153080e-7_r8 
real (r8), parameter :: v005 = -1.2647261286e-8_r8 
real (r8), parameter :: v006 =  1.9613503930e-9_r8 
real (r8), parameter :: v010 = -3.1038981976e-4_r8 
real (r8), parameter :: v011 =  2.4262468747e-5_r8 
real (r8), parameter :: v012 = -5.8484432984e-7_r8 
real (r8), parameter :: v013 =  3.6310188515e-7_r8 
real (r8), parameter :: v014 = -1.1147125423e-7_r8 
real (r8), parameter :: v020 =  6.6928067038e-4_r8 
real (r8), parameter :: v021 = -3.4792460974e-5_r8 
real (r8), parameter :: v022 = -4.8122251597e-6_r8 
real (r8), parameter :: v023 =  1.6746303780e-8_r8 
real (r8), parameter :: v030 = -8.5047933937e-4_r8 
real (r8), parameter :: v031 =  3.7470777305e-5_r8 
real (r8), parameter :: v032 =  4.9263106998e-6_r8 
real (r8), parameter :: v040 =  5.8086069943e-4_r8 
real (r8), parameter :: v041 = -1.7322218612e-5_r8 
real (r8), parameter :: v042 = -1.7811974727e-6_r8 
real (r8), parameter :: v050 = -2.1092370507e-4_r8 
real (r8), parameter :: v051 =  3.0927427253e-6_r8 
real (r8), parameter :: v060 =  3.1932457305e-5_r8 
real (r8), parameter :: v100 = -1.5649734675e-5_r8 
real (r8), parameter :: v101 =  1.8505765429e-5_r8 
real (r8), parameter :: v102 = -1.1736386731e-6_r8 
real (r8), parameter :: v103 = -3.6527006553e-7_r8 
real (r8), parameter :: v104 =  3.1454099902e-7_r8 
real (r8), parameter :: v110 =  3.5009599764e-5_r8 
real (r8), parameter :: v111 = -9.5677088156e-6_r8 
real (r8), parameter :: v112 = -5.5699154557e-6_r8 
real (r8), parameter :: v113 = -2.7295696237e-7_r8 
real (r8), parameter :: v120 = -4.3592678561e-5_r8 
real (r8), parameter :: v121 =  1.1100834765e-5_r8 
real (r8), parameter :: v122 =  5.4620748834e-6_r8 
real (r8), parameter :: v130 =  3.4532461828e-5_r8 
real (r8), parameter :: v131 = -9.8447117844e-6_r8 
real (r8), parameter :: v132 = -1.3544185627e-6_r8 
real (r8), parameter :: v140 = -1.1959409788e-5_r8 
real (r8), parameter :: v141 =  2.5909225260e-6_r8 
real (r8), parameter :: v150 =  1.3864594581e-6_r8
real (r8), parameter :: v200 =  2.7762106484e-5_r8 
real (r8), parameter :: v201 = -1.1716606853e-5_r8 
real (r8), parameter :: v202 =  2.1305028740e-6_r8 
real (r8), parameter :: v203 =  2.8695905159e-7_r8 
real (r8), parameter :: v210 = -3.7435842344e-5_r8 
real (r8), parameter :: v211 = -2.3678308361e-7_r8 
real (r8), parameter :: v212 =  3.9137387080e-7_r8 
real (r8), parameter :: v220 =  3.5907822760e-5_r8 
real (r8), parameter :: v221 =  2.9283346295e-6_r8 
real (r8), parameter :: v222 = -6.5731104067e-7_r8 
real (r8), parameter :: v230 = -1.8698584187e-5_r8 
real (r8), parameter :: v231 = -4.8826139200e-7_r8 
real (r8), parameter :: v240 =  3.8595339244e-6_r8 
real (r8), parameter :: v300 = -1.6521159259e-5_r8 
real (r8), parameter :: v301 =  7.9279656173e-6_r8 
real (r8), parameter :: v302 = -4.6132540037e-7_r8 
real (r8), parameter :: v310 =  2.4141479483e-5_r8 
real (r8), parameter :: v311 = -3.4558773655e-6_r8 
real (r8), parameter :: v312 =  7.7618888092e-9_r8 
real (r8), parameter :: v320 = -1.4353633048e-5_r8 
real (r8), parameter :: v321 =  3.1655306078e-7_r8 
real (r8), parameter :: v330 =  2.2863324556e-6_r8
real (r8), parameter :: v400 =  6.9111322702e-6_r8 
real (r8), parameter :: v401 = -3.4102187482e-6_r8 
real (r8), parameter :: v402 = -6.3352916514e-8_r8 
real (r8), parameter :: v410 = -8.7595873154e-6_r8 
real (r8), parameter :: v411 =  1.2956717783e-6_r8 
real (r8), parameter :: v420 =  4.3703680598e-6_r8 
real (r8), parameter :: v500 = -8.0539615540e-7_r8 
real (r8), parameter :: v501 =  5.0736766814e-7_r8 
real (r8), parameter :: v510 = -3.3052758900e-7_r8 
real (r8), parameter :: v600 =  2.0543094268e-7_r8

end module

!--------------------------------------------------------------------------