FV3 Bundle
gsw_mod_check_data.f90
Go to the documentation of this file.
1 
2 !
3 !** $Id$
4 !** Extracted from gsw_data_v3_0.nc
5 !
6 !==========================================================================
7 module gsw_mod_check_data
8 !==========================================================================
9 
10 use gsw_mod_kinds
11 
12 implicit none
13 
14 integer, parameter :: cast_mpres_m = 44
15 integer, parameter :: cast_mpres_n = 3
16 integer, parameter :: cast_m = 45
17 integer, parameter :: cast_n = 3
18 integer, parameter :: cast_ice_m = 36
19 integer, parameter :: cast_ice_n = 3
20 
21 type gsw_result
22  character (50) :: variable_name
23  real (r8) :: computation_accuracy
24  real (r8), dimension(cast_m,cast_n) :: values
25 end type gsw_result
26 
27 type gsw_result_ice
28  character (50) :: variable_name
29  real (r8) :: computation_accuracy
30  real (r8), dimension(cast_ice_m,cast_ice_n) :: values
31 end type gsw_result_ice
32 
33 type gsw_result_mpres
34  character (50) :: variable_name
35  real (r8) :: computation_accuracy
36  real (r8), dimension(cast_mpres_m,cast_mpres_n) :: values
37 end type gsw_result_mpres
38 
39 type gsw_result_cast
40  character (50) :: variable_name
41  real (r8) :: computation_accuracy
42  real (r8), dimension(cast_n) :: values
43 end type gsw_result_cast
44 
45 real (r8), dimension(cast_m,cast_n) :: ct
46 data ct / &
47  27.994827331978655_r8, 27.993492458241032_r8, 27.944213680466301_r8, &
48  27.949774879518014_r8, 27.884179948892477_r8, 27.793319825682374_r8, &
49  26.94734608082809_r8, 25.464307276520451_r8, 23.379820676678719_r8, &
50  20.638474591729903_r8, 18.143915714714613_r8, 15.858592965626864_r8, &
51  12.005103039522865_r8, 10.265575172256595_r8, 9.2473179461449533_r8, &
52  8.3897191572737579_r8, 7.2259862751990047_r8, 6.4668711669914796_r8, &
53  5.8444172841219135_r8, 5.3204133981088306_r8, 4.8418803985128331_r8, &
54  4.3913347689901476_r8, 3.9764271435476717_r8, 3.6021512542309115_r8, &
55  3.2883333327081914_r8, 2.9933860754579489_r8, 2.7553035518851954_r8, &
56  2.3150448546650733_r8, 1.9771492962849544_r8, 1.7639139735829745_r8, &
57  1.592014195832729_r8, 1.4723471561844643_r8, 1.3795290982534194_r8, &
58  1.3092323718851937_r8, 1.2362158470049516_r8, 1.1851119841848845_r8, &
59  1.1343476986712904_r8, 1.0919973856577563_r8, 1.0759044077233486_r8, &
60  1.047539554934861_r8, 1.0290342473007708_r8, 1.0269634786560562_r8, &
61  1.0171112605235975_r8, 1.0155713449034443_r8, 1.0149634033235932_r8, &
62  27.320893180033327_r8, 27.258004994462006_r8, 27.324713453943083_r8, &
63  27.279898123599327_r8, 27.306210016001014_r8, 26.984520662238797_r8, &
64  24.844748285782678_r8, 21.909930415707521_r8, 18.793136014359735_r8, &
65  15.009081326228692_r8, 12.944289997453303_r8, 11.48826918286381_r8, &
66  10.402384857672656_r8, 9.8477626588835445_r8, 9.4138854127839426_r8, &
67  8.9682331074201471_r8, 8.0087208215432479_r8, 7.0889445244783191_r8, &
68  6.2481613625223922_r8, 5.6244493769452646_r8, 5.1170582706497205_r8, &
69  4.6079367124573443_r8, 4.2699702988359771_r8, 3.9328928453607017_r8, &
70  3.5959682882934763_r8, 3.2691230935997551_r8, 2.9557520915302158_r8, &
71  2.4970408562072413_r8, 2.0537091528134308_r8, 1.8745237698529809_r8, &
72  1.6842706911938217_r8, 1.5570066554770765_r8, 1.4382440661901825_r8, &
73  1.3359600921445294_r8, 1.2390646514638055_r8, 1.1386797401175506_r8, &
74  1.0482212593719955_r8, 0.96803553122254105_r8, 0.9227069097888797_r8, &
75  0.88704031144930462_r8, 0.85738474529935427_r8, 0.84629138894924971_r8, &
76  0.84408786867688412_r8, 0.84286638656010171_r8, 0.83823534122093035_r8, &
77  10.50276773530223_r8, 9.5454546799605353_r8, 7.3853472726034788_r8, &
78  5.1971595673275859_r8, 3.9369185696308904_r8, 3.2887461722779783_r8, &
79  4.0054812867257672_r8, 4.6113979927987803_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
80  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
81  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
82  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
83  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
84  9e90_r8, 9e90_r8 /
85 
86 real (r8), dimension(cast_m,cast_n) :: rt
87 data rt / &
88  0.98337377909524537_r8, 0.98336175487016408_r8, 0.98323033377489477_r8, &
89  0.98329579224819419_r8, 0.98395874690421548_r8, 0.98413121544391424_r8, &
90  0.98915176646753356_r8, 0.9955451489106607_r8, 0.99886086717730027_r8, &
91  0.99882515069960953_r8, 0.99545286881632966_r8, 0.99157486467293021_r8, &
92  0.98572343606899504_r8, 0.98538196163509195_r8, 0.9860207449004329_r8, &
93  0.98666103601468025_r8, 0.98690506352498963_r8, 0.9871034912706127_r8, &
94  0.98742526210540837_r8, 0.98769943158537488_r8, 0.98795574544864051_r8, &
95  0.98821258675595913_r8, 0.98849326838406737_r8, 0.9887494124784445_r8, &
96  0.98903530254727923_r8, 0.98923775419222348_r8, 0.98946189431410703_r8, &
97  0.98995547001897621_r8, 0.99041575828035455_r8, 0.99076018262260002_r8, &
98  0.99101562952480904_r8, 0.99121157349208766_r8, 0.99137535507404706_r8, &
99  0.99149941701489575_r8, 0.99164004745308565_r8, 0.99173119034772306_r8, &
100  0.99182922705784438_r8, 0.99192352136350082_r8, 0.99195294313975124_r8, &
101  0.99200563885551718_r8, 0.99202775999282655_r8, 0.99201390756988328_r8, &
102  0.99202063140181485_r8, 0.99202288411930173_r8, 0.9920248689249912_r8, &
103  0.9858793642806889_r8, 0.98550584030685628_r8, 0.98623945209206443_r8, &
104  0.98585364101584072_r8, 0.98613469264220732_r8, 0.9871561444960617_r8, &
105  0.99426572698623539_r8, 0.9994731572640968_r8, 0.99511082519687788_r8, &
106  0.98932637342375895_r8, 0.98828366873974927_r8, 0.98927506108637953_r8, &
107  0.99080977303892803_r8, 0.99125670958630629_r8, 0.99099276217063015_r8, &
108  0.99058276972834403_r8, 0.98947600604068242_r8, 0.98871787023170887_r8, &
109  0.98826512713616099_r8, 0.9882175790213048_r8, 0.988316030892191_r8, &
110  0.98843128263473057_r8, 0.98865153455001564_r8, 0.98885967029129229_r8, &
111  0.98909302333307914_r8, 0.98931364007316891_r8, 0.98954197356996632_r8, &
112  0.99006036200196912_r8, 0.99056709254786168_r8, 0.9908421349742278_r8, &
113  0.99113772445222459_r8, 0.99132195690892322_r8, 0.99151962236568869_r8, &
114  0.9916653948166938_r8, 0.99178608011606217_r8, 0.99191821123871604_r8, &
115  0.99201817694606631_r8, 0.99213128446515331_r8, 0.99222011685753042_r8, &
116  0.99226773596316153_r8, 0.99230000058436751_r8, 0.99231567195045545_r8, &
117  0.99232403214778198_r8, 0.99233525104034248_r8, 0.99238583299978855_r8, &
118  0.21554079457255351_r8, 0.21854645673755352_r8, 0.22239705506380522_r8, &
119  0.22877877458372836_r8, 0.23541530620083984_r8, 0.24189575141112912_r8, &
120  0.2891917533834788_r8, 0.32528563718265163_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
121  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
122  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
123  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
124  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
125  9e90_r8, 9e90_r8 /
126 
127 real (r8), dimension(cast_m,cast_n) :: sa
128 data sa / &
129  34.507499465692057_r8, 34.507024988454411_r8, 34.501848858511124_r8, &
130  34.504435326018303_r8, 34.530643613166241_r8, 34.537484086977358_r8, &
131  34.736078147785769_r8, 34.989090287230475_r8, 35.120394623392798_r8, &
132  35.119256777183253_r8, 34.986762856758006_r8, 34.835021959582981_r8, &
133  34.6075463959262_r8, 34.595840357793747_r8, 34.621926348233984_r8, &
134  34.648001549218201_r8, 34.659174492303265_r8, 34.668361402162844_r8, &
135  34.682170848906445_r8, 34.694080110951049_r8, 34.705238130448521_r8, &
136  34.716513959838096_r8, 34.728518191975681_r8, 34.739505619354659_r8, &
137  34.751452325212476_r8, 34.76007230200036_r8, 34.769407785423603_r8, &
138  34.789641936940299_r8, 34.808295026001559_r8, 34.822151570281157_r8, &
139  34.832369913788057_r8, 34.84008816927286_r8, 34.846482961025117_r8, &
140  34.851270079602436_r8, 34.856641575125224_r8, 34.860019411635662_r8, &
141  34.863619225501608_r8, 34.867061882500025_r8, 34.868072764781168_r8, &
142  34.869952495228397_r8, 34.870706954223124_r8, 34.869948548765649_r8, &
143  34.870177007927204_r8, 34.870163920170896_r8, 34.870229963515541_r8, &
144  34.606687646961717_r8, 34.591948048620182_r8, 34.620913179144324_r8, &
145  34.60569590953979_r8, 34.616792273632271_r8, 34.657212493964735_r8, &
146  34.938587996850579_r8, 35.144639998851318_r8, 34.972934057672106_r8, &
147  34.746556607465408_r8, 34.706863851407881_r8, 34.746964646708207_r8, &
148  34.80823260637704_r8, 34.826327152152196_r8, 34.816456153416041_r8, &
149  34.800921106392714_r8, 34.758899158900199_r8, 34.730693983601974_r8, &
150  34.714397236345654_r8, 34.713783487811952_r8, 34.718735529718685_r8, &
151  34.724380077920181_r8, 34.734010000495132_r8, 34.743084410712932_r8, &
152  34.753058494526307_r8, 34.762475024105797_r8, 34.772124124595273_r8, &
153  34.793567706862049_r8, 34.814396506585204_r8, 34.825581702080612_r8, &
154  34.837454882015884_r8, 34.844788711633527_r8, 34.852503925854755_r8, &
155  34.858062359024089_r8, 34.862564801305901_r8, 34.867323800310018_r8, &
156  34.87075343050742_r8, 34.874612605794937_r8, 34.877672506820787_r8, &
157  34.879244950054655_r8, 34.880316871763739_r8, 34.880826475872325_r8, &
158  34.88108664328702_r8, 34.881476814694921_r8, 34.883401613801887_r8, &
159  6.669904340924572_r8, 6.7737814418914271_r8, 6.9129530644765707_r8, &
160  7.1375206720971418_r8, 7.3661052164125715_r8, 7.5862209196422841_r8, &
161  9.1676241523679991_r8, 10.389468455026284_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
162  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
163  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
164  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
165  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
166  9e90_r8, 9e90_r8 /
167 
168 real (r8), dimension(cast_m,cast_n) :: sk
169 data sk / &
170  34.345367_r8, 34.344894_r8, 34.339741_r8, 34.342312_r8, 34.368393_r8, &
171  34.375198_r8, 34.572834_r8, 34.8246_r8, 34.955181_r8, 34.953842_r8, &
172  34.821655_r8, 34.670124_r8, 34.442738_r8, 34.430153_r8, 34.455452_r8, &
173  34.480721_r8, 34.4907_r8, 34.498734_r8, 34.511494_r8, 34.522358_r8, &
174  34.532505_r8, 34.542656_r8, 34.553711_r8, 34.563793_r8, 34.574997_r8, &
175  34.582958_r8, 34.591732_r8, 34.611008_r8, 34.628944_r8, 34.642342_r8, &
176  34.652279_r8, 34.659893_r8, 34.666252_r8, 34.671066_r8, 34.676521_r8, &
177  34.680054_r8, 34.683853_r8, 34.687504_r8, 34.688637_r8, 34.690674_r8, &
178  34.691525_r8, 34.690979_r8, 34.691231_r8, 34.691307_r8, 34.691372_r8, &
179  34.444057_r8, 34.429386_r8, 34.458214_r8, 34.443054_r8, 34.454098_r8, &
180  34.494339_r8, 34.774319_r8, 34.979286_r8, 34.808174_r8, 34.582397_r8, &
181  34.542274_r8, 34.581402_r8, 34.641544_r8, 34.659107_r8, 34.648941_r8, &
182  34.633102_r8, 34.590336_r8, 34.561188_r8, 34.543926_r8, 34.542332_r8, &
183  34.54636_r8, 34.551041_r8, 34.559719_r8, 34.567924_r8, 34.577103_r8, &
184  34.585781_r8, 34.594749_r8, 34.614994_r8, 34.634769_r8, 34.64547_r8, &
185  34.656967_r8, 34.664131_r8, 34.67181_r8, 34.677475_r8, 34.682167_r8, &
186  34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, &
187  34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, &
188  6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, &
189  7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
190  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
191  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
192  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
193  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
194  9e90_r8 /
195 
196 real (r8), dimension(cast_m,cast_n) :: sp
197 data sp / &
198  34.345367_r8, 34.344894_r8, 34.339741_r8, 34.342312_r8, 34.368393_r8, &
199  34.375198_r8, 34.572834_r8, 34.8246_r8, 34.955181_r8, 34.953842_r8, &
200  34.821655_r8, 34.670124_r8, 34.442738_r8, 34.430153_r8, 34.455452_r8, &
201  34.480721_r8, 34.4907_r8, 34.498734_r8, 34.511494_r8, 34.522358_r8, &
202  34.532505_r8, 34.542656_r8, 34.553711_r8, 34.563793_r8, 34.574997_r8, &
203  34.582958_r8, 34.591732_r8, 34.611008_r8, 34.628944_r8, 34.642342_r8, &
204  34.652279_r8, 34.659893_r8, 34.666252_r8, 34.671066_r8, 34.676521_r8, &
205  34.680054_r8, 34.683853_r8, 34.687504_r8, 34.688637_r8, 34.690674_r8, &
206  34.691525_r8, 34.690979_r8, 34.691231_r8, 34.691307_r8, 34.691372_r8, &
207  34.444057_r8, 34.429386_r8, 34.458214_r8, 34.443054_r8, 34.454098_r8, &
208  34.494339_r8, 34.774319_r8, 34.979286_r8, 34.808174_r8, 34.582397_r8, &
209  34.542274_r8, 34.581402_r8, 34.641544_r8, 34.659107_r8, 34.648941_r8, &
210  34.633102_r8, 34.590336_r8, 34.561188_r8, 34.543926_r8, 34.542332_r8, &
211  34.54636_r8, 34.551041_r8, 34.559719_r8, 34.567924_r8, 34.577103_r8, &
212  34.585781_r8, 34.594749_r8, 34.614994_r8, 34.634769_r8, 34.64547_r8, &
213  34.656967_r8, 34.664131_r8, 34.67181_r8, 34.677475_r8, 34.682167_r8, &
214  34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, &
215  34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, &
216  6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, &
217  7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
218  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
219  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
220  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
221  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
222  9e90_r8 /
223 
224 real (r8), dimension(cast_m,cast_n) :: t
225 data t / &
226  27.962_r8, 27.963_r8, 27.916_r8, 27.924_r8, 27.862_r8, 27.774_r8, &
227  26.944_r8, 25.479_r8, 23.407_r8, 20.672_r8, 18.178_r8, 15.892_r8, &
228  12.037_r8, 10.301_r8, 9.2869_r8, 8.4331_r8, 7.2761_r8, 6.5238_r8, &
229  5.9079_r8, 5.3902_r8, 4.9176_r8, 4.4726_r8, 4.063_r8, 3.694_r8, 3.3856_r8, &
230  3.096_r8, 2.8636_r8, 2.439_r8, 2.1178_r8, 1.9233_r8, 1.7713_r8, 1.6731_r8, &
231  1.6031_r8, 1.5568_r8, 1.5086_r8, 1.4837_r8, 1.4601_r8, 1.4459_r8, &
232  1.4599_r8, 1.462_r8, 1.4753_r8, 1.5064_r8, 1.5306_r8, 1.5642_r8, 1.5998_r8, &
233  27.294_r8, 27.233_r8, 27.303_r8, 27.26_r8, 27.289_r8, 26.972_r8, 24.853_r8, &
234  21.934_r8, 18.818_r8, 15.032_r8, 12.969_r8, 11.516_r8, 10.436_r8, &
235  9.8867_r8, 9.4574_r8, 9.016_r8, 8.0635_r8, 7.1498_r8, 6.3144_r8, 5.6965_r8, &
236  5.195_r8, 4.6911_r8, 4.3593_r8, 4.0281_r8, 3.6966_r8, 3.375_r8, 3.0666_r8, &
237  2.6237_r8, 2.1957_r8, 2.036_r8, 1.8655_r8, 1.7597_r8, 1.6633_r8, 1.5843_r8, &
238  1.5116_r8, 1.436_r8, 1.3714_r8, 1.318_r8, 1.3016_r8, 1.2959_r8, 1.2974_r8, &
239  1.3189_r8, 1.3508_r8, 1.3845_r8, 1.4157_r8, 10.046_r8, 9.1279_r8, &
240  7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e90_r8, &
241  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
242  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
243  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
244  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
245  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 /
246 
247 real (r8), dimension(cast_m,cast_n) :: p
248 data p / &
249  0._r8, 10._r8, 20._r8, 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 126._r8, &
250  151._r8, 176._r8, 202._r8, 252._r8, 303._r8, 353._r8, 404._r8, 505._r8, &
251  606._r8, 707._r8, 808._r8, 909._r8, 1010._r8, 1111._r8, 1213._r8, 1314._r8, &
252  1416._r8, 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, &
253  3045._r8, 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, &
254  4840._r8, 5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, &
255  20._r8, 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 126._r8, 151._r8, 176._r8, &
256  202._r8, 252._r8, 303._r8, 353._r8, 404._r8, 505._r8, 606._r8, 707._r8, &
257  808._r8, 909._r8, 1010._r8, 1111._r8, 1213._r8, 1314._r8, 1416._r8, &
258  1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, 3045._r8, &
259  3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, 4840._r8, &
260  5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, 20._r8, &
261  30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, &
262  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
263  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
264  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
265  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
266  9e90_r8, 9e90_r8 /
267 
268 real (r8), dimension(cast_m,cast_n) :: delta_p
269 data delta_p / &
270  0._r8, 10._r8, 10._r8, 10._r8, 10._r8, 10._r8, 26._r8, 25._r8, 25._r8, &
271  25._r8, 25._r8, 26._r8, 50._r8, 51._r8, 50._r8, 51._r8, 101._r8, 101._r8, &
272  101._r8, 101._r8, 101._r8, 101._r8, 101._r8, 102._r8, 101._r8, 102._r8, &
273  101._r8, 254._r8, 254._r8, 254._r8, 255._r8, 255._r8, 256._r8, 255._r8, &
274  256._r8, 256._r8, 257._r8, 256._r8, 258._r8, 257._r8, 258._r8, 257._r8, &
275  259._r8, 258._r8, 259._r8, 0._r8, 10._r8, 10._r8, 10._r8, 10._r8, 10._r8, &
276  26._r8, 25._r8, 25._r8, 25._r8, 25._r8, 26._r8, 50._r8, 51._r8, 50._r8, &
277  51._r8, 101._r8, 101._r8, 101._r8, 101._r8, 101._r8, 101._r8, 101._r8, &
278  102._r8, 101._r8, 102._r8, 101._r8, 254._r8, 254._r8, 254._r8, 255._r8, &
279  255._r8, 256._r8, 255._r8, 256._r8, 256._r8, 257._r8, 256._r8, 258._r8, &
280  257._r8, 258._r8, 257._r8, 259._r8, 258._r8, 259._r8, 0._r8, 10._r8, &
281  10._r8, 10._r8, 10._r8, 10._r8, 26._r8, 25._r8, 9e90_r8, 9e90_r8, 9e90_r8, &
282  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
283  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
284  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
285  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
286  9e90_r8, 9e90_r8 /
287 
288 real (r8), dimension(cast_m,cast_n) :: p_shallow
289 data p_shallow / &
290  0._r8, 10._r8, 20._r8, 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 126._r8, &
291  151._r8, 176._r8, 202._r8, 252._r8, 303._r8, 353._r8, 404._r8, 505._r8, &
292  606._r8, 707._r8, 808._r8, 909._r8, 1010._r8, 1111._r8, 1213._r8, 1314._r8, &
293  1416._r8, 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, &
294  3045._r8, 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, &
295  4840._r8, 5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, &
296  20._r8, 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 126._r8, 151._r8, 176._r8, &
297  202._r8, 252._r8, 303._r8, 353._r8, 404._r8, 505._r8, 606._r8, 707._r8, &
298  808._r8, 909._r8, 1010._r8, 1111._r8, 1213._r8, 1314._r8, 1416._r8, &
299  1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, 3045._r8, &
300  3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, 4840._r8, &
301  5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, 20._r8, &
302  30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, &
303  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
304  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
305  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
306  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
307  9e90_r8, 9e90_r8 /
308 
309 real (r8), dimension(cast_m,cast_n) :: p_deep
310 data p_deep / &
311  10._r8, 20._r8, 30._r8, 40._r8, 50._r8, 60._r8, 86._r8, 111._r8, 136._r8, &
312  161._r8, 186._r8, 212._r8, 262._r8, 313._r8, 363._r8, 414._r8, 515._r8, &
313  616._r8, 717._r8, 818._r8, 919._r8, 1020._r8, 1121._r8, 1223._r8, 1324._r8, &
314  1426._r8, 1527._r8, 1781._r8, 2035._r8, 2289._r8, 2544._r8, 2799._r8, &
315  3055._r8, 3310._r8, 3566._r8, 3822._r8, 4079._r8, 4335._r8, 4593._r8, &
316  4850._r8, 5108._r8, 5365._r8, 5624._r8, 5882._r8, 6141._r8, 10._r8, 20._r8, &
317  30._r8, 40._r8, 50._r8, 60._r8, 86._r8, 111._r8, 136._r8, 161._r8, 186._r8, &
318  212._r8, 262._r8, 313._r8, 363._r8, 414._r8, 515._r8, 616._r8, 717._r8, &
319  818._r8, 919._r8, 1020._r8, 1121._r8, 1223._r8, 1324._r8, 1426._r8, &
320  1527._r8, 1781._r8, 2035._r8, 2289._r8, 2544._r8, 2799._r8, 3055._r8, &
321  3310._r8, 3566._r8, 3822._r8, 4079._r8, 4335._r8, 4593._r8, 4850._r8, &
322  5108._r8, 5365._r8, 5624._r8, 5882._r8, 6141._r8, 10._r8, 20._r8, 30._r8, &
323  40._r8, 50._r8, 60._r8, 86._r8, 111._r8, 9e90_r8, 9e90_r8, 9e90_r8, &
324  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
325  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
326  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
327  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
328  9e90_r8, 9e90_r8 /
329 
330 real (r8), dimension(cast_n) :: lat_cast
331 data lat_cast / &
332  11._r8, 9.5_r8, 59._r8 /
333 
334 real (r8), dimension(cast_n) :: long_cast
335 data long_cast / &
336  142._r8, 183._r8, 20._r8 /
337 
338 real (r8), dimension(cast_ice_m,cast_ice_n) :: ct_arctic
339 data ct_arctic / &
340  -1.3444686871020561_r8, -1.3502829858439536_r8, -1.3233466230979716_r8, &
341  -1.3144289342376947_r8, -0.56849535559603381_r8, -0.051328114615178611_r8, &
342  -1.0854443942224383_r8, -1.3587441544696428_r8, -1.4728463234749103_r8, &
343  -1.5447361639822599_r8, -1.5091417930275246_r8, -1.3066800293567493_r8, &
344  -0.49989996396081654_r8, 0.20500483193120814_r8, 0.65815931738526501_r8, &
345  0.70620984402046938_r8, 0.6191762070534309_r8, 0.44458137012895449_r8, &
346  0.31756073518864109_r8, 0.16271029775083107_r8, 0.035785201530171715_r8, &
347  -0.054674749899050093_r8, -0.14437968317812847_r8, -0.21816734264826423_r8, &
348  -0.27567224676533097_r8, -0.33243313912085065_r8, -0.37926872897777475_r8, &
349  -0.47499086094091597_r8, -0.50908873611994487_r8, -0.51720139213675231_r8, &
350  -0.51744857091363061_r8, -0.51429765535782601_r8, -0.5104688357785333_r8, &
351  -0.51046559405705505_r8, -0.51043437685275239_r8, -0.51028174742531651_r8, &
352  -1.1592761667828166_r8, -1.1782878852658163_r8, -1.1737794640372983_r8, &
353  -0.28423125554994155_r8, 0.040194081902684822_r8, -0.70081022735775877_r8, &
354  -1.3298064009245656_r8, -1.6059641129622053_r8, -1.6211195266663763_r8, &
355  -1.6304315193279091_r8, -1.6154108659870383_r8, -1.533730036880059_r8, &
356  -0.93274441995975488_r8, 0.12933482314208686_r8, 0.52787743510818708_r8, &
357  0.71934120009398828_r8, 0.64890753667200374_r8, 0.45554684352663988_r8, &
358  0.35083278909116866_r8, 0.20615984773398158_r8, 0.072258826948828236_r8, &
359  -0.035161419740233443_r8, -0.11182858822841261_r8, -0.19710761091169382_r8, &
360  -0.26845404699348363_r8, -0.32384042460610002_r8, -0.37216162188321583_r8, &
361  -0.46691012735661763_r8, -0.50760861332887164_r8, -0.51768746151266387_r8, &
362  -0.51881745100648247_r8, -0.51420290658057166_r8, -0.51047021088083178_r8, &
363  -0.51046809457896769_r8, -0.51043732415980592_r8, -0.51038187443654204_r8, &
364  -1.5193464632240195_r8, -1.5243077005620853_r8, -1.5240121248740843_r8, &
365  -1.5031442171397773_r8, -1.3989099754782683_r8, -1.2650823705159118_r8, &
366  -1.3731205641689339_r8, -1.496561976797657_r8, -1.4349804540192836_r8, &
367  -1.3155875789801257_r8, -0.84450281497001112_r8, -0.24964160631129725_r8, &
368  0.48465866602087104_r8, 0.8983005323875477_r8, 1.0420826249004018_r8, &
369  0.86382630048727627_r8, 0.61462089603007874_r8, 0.43279428615719362_r8, &
370  0.2477484376768104_r8, 0.08214397188955723_r8, -0.016969418084033176_r8, &
371  -0.11143956382786228_r8, -0.18784348909426693_r8, -0.26247562546932551_r8, &
372  -0.31865109281019355_r8, -0.34607701866780022_r8, -0.38649151695014311_r8, &
373  -0.46348303249946182_r8, -0.50536189796337783_r8, -0.51848012088647877_r8, &
374  -0.51921921113087155_r8, -0.51079427908650477_r8, -0.51057157055619506_r8, &
375  -0.51056769208460284_r8, -0.51053462546418416_r8, -0.51038007577510447_r8 /
376 
377 real (r8), dimension(cast_ice_m,cast_ice_n) :: sa_arctic
378 data sa_arctic / &
379  27.669741776224416_r8, 28.137808236304476_r8, 28.172068809167129_r8, &
380  28.262493050955896_r8, 30.289193129841056_r8, 31.439724347003612_r8, &
381  32.230337840395201_r8, 32.637027056283351_r8, 32.877539064266905_r8, &
382  33.112001417881814_r8, 33.410988840163398_r8, 33.84414922034459_r8, &
383  34.570167019813901_r8, 34.820914496720107_r8, 34.945786919095525_r8, &
384  34.978144689748135_r8, 35.008979274085988_r8, 35.019172398333929_r8, &
385  35.028523294765193_r8, 35.034849625513104_r8, 35.041159861343331_r8, &
386  35.047980051139135_r8, 35.054645675686118_r8, 35.061943886760112_r8, &
387  35.069862759718816_r8, 35.076640315384402_r8, 35.083024580398671_r8, &
388  35.099524302685346_r8, 35.111440062217518_r8, 35.118822916919122_r8, &
389  35.122636064334877_r8, 35.124919700778591_r8, 35.125962159086797_r8, &
390  35.126758914467317_r8, 35.126739760543899_r8, 35.126636339720804_r8, &
391  28.530971249413675_r8, 28.15201012503287_r8, 28.181379317891444_r8, &
392  30.456217176086252_r8, 31.743321011955238_r8, 32.017831554877134_r8, &
393  32.43011847149598_r8, 32.653614741205089_r8, 32.831466945781571_r8, &
394  33.030554238067992_r8, 33.193831991044668_r8, 33.425203165544993_r8, &
395  34.394964169923519_r8, 34.78823187087368_r8, 34.913262301527183_r8, &
396  34.979621140687307_r8, 35.010108864365272_r8, 35.01356398582562_r8, &
397  35.026711483119186_r8, 35.034871970929338_r8, 35.041267872994396_r8, &
398  35.047281335868227_r8, 35.055035090126715_r8, 35.061639083918863_r8, &
399  35.068732511313371_r8, 35.075721854185765_r8, 35.082019514539738_r8, &
400  35.098013833265746_r8, 35.110512814055156_r8, 35.118283677579512_r8, &
401  35.12249516641856_r8, 35.125265942858562_r8, 35.126117244343313_r8, &
402  35.127029302837158_r8, 35.127046064522858_r8, 35.126947788312215_r8, &
403  29.798136342060733_r8, 29.697002534643271_r8, 29.698393743457082_r8, &
404  29.776321269586475_r8, 30.677324928084165_r8, 32.069008463123396_r8, &
405  32.660445346203602_r8, 33.142375514813871_r8, 33.657327550544032_r8, &
406  34.238427792014676_r8, 34.472963906953893_r8, 34.636171637869829_r8, &
407  34.843678011584252_r8, 34.96628987217322_r8, 35.01058478158172_r8, &
408  35.004758788723613_r8, 35.021814618749993_r8, 35.029159548057258_r8, &
409  35.030963531421342_r8, 35.037627743682833_r8, 35.045463831884085_r8, &
410  35.051403884573041_r8, 35.05896019471713_r8, 35.064846726053254_r8, &
411  35.071380151985217_r8, 35.080289451218164_r8, 35.086632141461735_r8, &
412  35.100562125083393_r8, 35.112233114698917_r8, 35.119372614268535_r8, &
413  35.123775616142758_r8, 35.126473028048913_r8, 35.126551556974341_r8, &
414  35.1272733370959_r8, 35.127059051321794_r8, 35.126767713128501_r8 /
415 
416 real (r8), dimension(cast_ice_m,cast_ice_n) :: t_arctic
417 data t_arctic / &
418  -1.3571_r8, -1.3625_r8, -1.3357_r8, -1.3267_r8, -0.5828_r8, -0.0644_r8, &
419  -1.0924_r8, -1.3638_r8, -1.4768_r8, -1.5477_r8, -1.511_r8, -1.3068_r8, &
420  -0.4946_r8, 0.2156_r8, 0.6734_r8, 0.7243_r8, 0.642_r8, 0.4715_r8, &
421  0.3488_r8, 0.198_r8, 0.0753_r8, -0.0106_r8, -0.0957_r8, -0.1646_r8, &
422  -0.217_r8, -0.2685_r8, -0.3099_r8, -0.3911_r8, -0.4088_r8, -0.399_r8, &
423  -0.38_r8, -0.3564_r8, -0.3309_r8, -0.3083_r8, -0.2845_r8, -0.2595_r8, &
424  -1.173_r8, -1.1921_r8, -1.1875_r8, -0.2999_r8, 0.0276_r8, -0.7099_r8, &
425  -1.3358_r8, -1.6106_r8, -1.625_r8, -1.6335_r8, -1.6177_r8, -1.535_r8, &
426  -0.9292_r8, 0.1395_r8, 0.5424_r8, 0.7375_r8, 0.6719_r8, 0.4825_r8, &
427  0.3823_r8, 0.2418_r8, 0.1121_r8, 0.0091_r8, -0.0628_r8, -0.1433_r8, &
428  -0.2097_r8, -0.2598_r8, -0.3027_r8, -0.3829_r8, -0.4073_r8, -0.3995_r8, &
429  -0.3814_r8, -0.3563_r8, -0.3309_r8, -0.3083_r8, -0.2845_r8, -0.2596_r8, &
430  -1.5291_r8, -1.534_r8, -1.5336_r8, -1.5127_r8, -1.408_r8, -1.2724_r8, &
431  -1.3786_r8, -1.5005_r8, -1.4374_r8, -1.316_r8, -0.8428_r8, -0.2452_r8, &
432  0.4941_r8, 0.9122_r8, 1.0593_r8, 0.8828_r8, 0.6375_r8, 0.4597_r8, &
433  0.2785_r8, 0.1168_r8, 0.0221_r8, -0.0679_r8, -0.1396_r8, -0.2094_r8, &
434  -0.2605_r8, -0.2823_r8, -0.3172_r8, -0.3794_r8, -0.405_r8, -0.4003_r8, &
435  -0.3818_r8, -0.3528_r8, -0.331_r8, -0.3084_r8, -0.2846_r8, -0.2596_r8 /
436 
437 real (r8), dimension(cast_ice_m,cast_ice_n) :: p_arctic
438 data p_arctic / &
439  0._r8, 10._r8, 20._r8, 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 126._r8, &
440  151._r8, 176._r8, 202._r8, 252._r8, 303._r8, 353._r8, 404._r8, 505._r8, &
441  606._r8, 707._r8, 808._r8, 909._r8, 1010._r8, 1111._r8, 1213._r8, 1314._r8, &
442  1416._r8, 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, &
443  3045._r8, 3300._r8, 3556._r8, 3812._r8, 0._r8, 10._r8, 20._r8, 30._r8, &
444  40._r8, 50._r8, 76._r8, 101._r8, 126._r8, 151._r8, 176._r8, 202._r8, &
445  252._r8, 303._r8, 353._r8, 404._r8, 505._r8, 606._r8, 707._r8, 808._r8, &
446  909._r8, 1010._r8, 1111._r8, 1213._r8, 1314._r8, 1416._r8, 1517._r8, &
447  1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, 3045._r8, 3300._r8, &
448  3556._r8, 3812._r8, 0._r8, 10._r8, 20._r8, 30._r8, 40._r8, 50._r8, 76._r8, &
449  101._r8, 126._r8, 151._r8, 176._r8, 202._r8, 252._r8, 303._r8, 353._r8, &
450  404._r8, 505._r8, 606._r8, 707._r8, 808._r8, 909._r8, 1010._r8, 1111._r8, &
451  1213._r8, 1314._r8, 1416._r8, 1517._r8, 1771._r8, 2025._r8, 2279._r8, &
452  2534._r8, 2789._r8, 3045._r8, 3300._r8, 3556._r8, 3812._r8 /
453 
454 real (r8), dimension(cast_ice_m,cast_ice_n) :: sa_seaice
455 data sa_seaice / &
456  6.8921450314000774_r8, 7.4815159282370942_r8, 4.5054159850249773_r8, &
457  0.83821377996932567_r8, 2.2897696871681883_r8, 9.133373615016696_r8, &
458  1.5237801896922298_r8, 8.2581697748954745_r8, 5.3834243526005707_r8, &
459  9.9613471662688546_r8, 0.78175528753183676_r8, 4.4267826977544633_r8, &
460  1.0665277018058439_r8, 9.6189808085505373_r8, 0.046342241340674439_r8, &
461  7.7491046471150238_r8, 8.1730322065343302_r8, 8.6869470536350963_r8, &
462  0.84435845510910323_r8, 3.9978264909889649_r8, 2.5987040285065421_r8, &
463  8.0006848022430752_r8, 4.3141382746354466_r8, 9.1064759442952301_r8, &
464  1.8184702830285249_r8, 2.6380291652199004_r8, 1.4553898038471702_r8, &
465  1.3606855870866374_r8, 8.6929220764008939_r8, 5.7970458736557013_r8, &
466  5.4986020183633197_r8, 1.4495479822372681_r8, 8.5303111772189375_r8, &
467  6.2205513148506597_r8, 3.509523808922709_r8, 5.1324953986705335_r8, &
468  4.0180803375194172_r8, 0.75966691690841914_r8, 2.3991615355365803_r8, &
469  1.2331893483516554_r8, 1.8390778828241672_r8, 2.3995252566490279_r8, &
470  4.1726706908436952_r8, 0.49654430325742127_r8, 9.02716109915281_r8, &
471  9.4478718972164604_r8, 4.9086409246807996_r8, 4.8925263840001882_r8, &
472  3.3771940982137716_r8, 9.0005384641766195_r8, 3.6924678112021505_r8, &
473  1.1120275529378743_r8, 7.8025206832113794_r8, 3.8973883696125347_r8, &
474  2.4169128591383271_r8, 4.0391214558811477_r8, 0.96454525168388594_r8, &
475  1.3197329260633506_r8, 9.4205059077548512_r8, 9.5613454022980235_r8, &
476  5.7520859507846556_r8, 0.59779542947155817_r8, 2.3477991337240631_r8, &
477  3.5315857122207106_r8, 8.2119404019795912_r8, 0.15403437651555052_r8, &
478  0.43023801657807836_r8, 1.6899002946270436_r8, 6.4911547495645205_r8, &
479  7.3172238565867032_r8, 6.4774596313630672_r8, 4.509237064309449_r8, &
480  5.4700889228634502_r8, 2.9632080560777316_r8, 7.4469280707415617_r8, &
481  1.8895501503254453_r8, 6.8677543336531501_r8, 1.8351115573726973_r8, &
482  3.6848459649033649_r8, 6.2561856072969038_r8, 7.802274351513768_r8, &
483  0.81125768865785264_r8, 9.2938597096873004_r8, 7.7571267860840232_r8, &
484  4.8679163240317234_r8, 4.358585885809191_r8, 4.4678374942980623_r8, &
485  3.0634947201655738_r8, 5.0850865538112702_r8, 5.1077156417210965_r8, &
486  8.1762770832226206_r8, 7.9483141688345302_r8, 6.4431813019369164_r8, &
487  3.7860938266026842_r8, 8.1158045828247722_r8, 5.3282558879945485_r8, &
488  3.507271035768833_r8, 9.3900156199988682_r8, 8.7594281149298379_r8, &
489  5.5015634289842215_r8, 6.224750860012275_r8, 5.8704470453141679_r8, &
490  2.0774229273302849_r8, 3.0124633027949068_r8, 4.7092334851759068_r8, &
491  2.3048816021155849_r8, 8.4430879269538899_r8, 1.9476428956704928_r8 /
492 
493 real (r8), dimension(cast_ice_m,cast_ice_n) :: t_seaice
494 data t_seaice / &
495  -2.4019464241572335_r8, -2.2146150665386957_r8, -2.4518198562213072_r8, &
496  -3.29647047468662_r8, -2.9188487907238456_r8, -5.4400597133630759_r8, &
497  -3.5313915811926861_r8, -2.5915406223671762_r8, -5.5041706048187775_r8, &
498  -5.8357023440206213_r8, -3.7079369592328915_r8, -2.4410836944054664_r8, &
499  -3.1078556923095526_r8, -3.7633473957882932_r8, -4.5530947473825787_r8, &
500  -3.2629754659593662_r8, -4.7042926341156202_r8, -5.2157240312565385_r8, &
501  -3.3360647398725987_r8, -2.9971164571014506_r8, -3.7928396660858534_r8, &
502  -3.9602915820773181_r8, -4.461201114755168_r8, -4.8764677168894792_r8, &
503  -3.267171759318177_r8, -4.0561604051546318_r8, -6.2909210604299268_r8, &
504  -3.4079589406388031_r8, -7.2124658878449477_r8, -6.6260967498078962_r8, &
505  -5.8695626861000658_r8, -6.4415095176699868_r8, -5.2916103054395816_r8, &
506  -6.3940951547941456_r8, -8.6300931618053802_r8, -7.1860107093111765_r8, &
507  -3.6307713996513415_r8, -2.4589515714004606_r8, -3.4972723693410668_r8, &
508  -4.1725637436030505_r8, -4.4726825547706683_r8, -3.3611542280123969_r8, &
509  -3.2915797399143956_r8, -5.805140193865074_r8, -2.0329981807296233_r8, &
510  -5.4527738591343189_r8, -5.5933109126272758_r8, -5.157598077504046_r8, &
511  -2.4604874900898732_r8, -3.1740927411018425_r8, -3.5130856441993368_r8, &
512  -4.9331243918047969_r8, -2.839197212909609_r8, -5.255451070141353_r8, &
513  -2.8760218761305207_r8, -5.1424765238993562_r8, -4.582838088376981_r8, &
514  -5.8013453440527147_r8, -5.6247046506927525_r8, -6.4598993876292088_r8, &
515  -6.4887339134645643_r8, -4.3428310954604576_r8, -5.8817883307022729_r8, &
516  -4.0822305141858806_r8, -3.6191598738318347_r8, -6.681039339792286_r8, &
517  -5.915208423379525_r8, -6.0471177916194154_r8, -7.9613738869343784_r8, &
518  -6.9981820561627384_r8, -7.2484222801937737_r8, -8.4365750941753621_r8, &
519  -4.8389819810764561_r8, -3.925721632786328_r8, -2.3580777399294366_r8, &
520  -2.5979551383945569_r8, -5.2422599312479745_r8, -1.8966744113952125_r8, &
521  -3.7944417365287979_r8, -2.5525465032259405_r8, -5.8434997054387328_r8, &
522  -4.8313222628111472_r8, -4.0145834223974433_r8, -3.9259345062837645_r8, &
523  -2.3296298251691065_r8, -4.8646314579520631_r8, -2.3469255952323214_r8, &
524  -2.5014265644168518_r8, -4.3802512777717109_r8, -2.758350569105755_r8, &
525  -5.7218112495049294_r8, -5.7977928064655586_r8, -5.4961403465851761_r8, &
526  -3.2848357768606791_r8, -5.4032017320785783_r8, -4.9195803736544521_r8, &
527  -6.8170936182679558_r8, -5.6024063516103064_r8, -6.2883915056034159_r8, &
528  -5.106328182967582_r8, -5.2266608811863637_r8, -7.0060600813317535_r8, &
529  -4.2490716413117653_r8, -4.6601828203245264_r8, -5.0360644467038558_r8, &
530  -6.1224807696952501_r8, -8.1032764443768848_r8, -8.212253009122719_r8 /
531 
532 real (r8), dimension(cast_ice_m,cast_ice_n) :: w_seaice
533 data w_seaice / &
534  0.0019930890132086316_r8, 0.0024718746230941494_r8, &
535  0.0027143829025951887_r8, 0.0027174239400725927_r8, &
536  0.013320072683218736_r8, 0.021272259483032276_r8, 0.008571196331480303_r8, &
537  0.0069934264032770373_r8, 0.0049995254860060144_r8, &
538  0.0047426180630077376_r8, 0.005205073644557052_r8, &
539  0.0090181172788428819_r8, 0.018575886959026521_r8, 0.031359451129289208_r8, &
540  0.032042057344798786_r8, 0.038764103203305617_r8, 0.03686780636135218_r8, &
541  0.035551503000677137_r8, 0.032255126654262466_r8, 0.034059124263840709_r8, &
542  0.031833596268289972_r8, 0.035093109899932196_r8, 0.032266251973089001_r8, &
543  0.034660392926727505_r8, 0.032179329382961246_r8, 0.032558765100953964_r8, &
544  0.031530573991841483_r8, 0.034130356368430467_r8, 0.037635359280523473_r8, &
545  0.039415042831851863_r8, 0.042741843889981208_r8, 0.042617378339358983_r8, &
546  0.053178809395792524_r8, 0.05169410088035075_r8, 0.050769607600957306_r8, &
547  0.055875511201597686_r8, 0.0046787090931778462_r8, &
548  0.0041033303940503476_r8, 0.0043370607646025603_r8, &
549  0.016156523907596324_r8, 0.020902931329057194_r8, 0.012932530557454842_r8, &
550  0.0061217766015578745_r8, 0.0028142801517501885_r8, &
551  0.0040635924423559093_r8, 0.0035961390036951101_r8, &
552  0.0039295334546859944_r8, 0.0053628046977522636_r8, 0.01436734476240465_r8, &
553  0.031038250616664754_r8, 0.032800742183668498_r8, 0.03354594139418525_r8, &
554  0.040521685813480382_r8, 0.033518349304228152_r8, 0.03406239651060098_r8, &
555  0.032742296304318741_r8, 0.031068691306894738_r8, 0.030629900380398149_r8, &
556  0.034133088268323661_r8, 0.033528595689279184_r8, 0.032270240394638702_r8, &
557  0.031342214327115266_r8, 0.032076834501957377_r8, 0.035363766705103682_r8, &
558  0.044444927771125298_r8, 0.036767957277534097_r8, 0.03959424422348589_r8, &
559  0.042943660699347137_r8, 0.047224018288028018_r8, 0.051678311131744793_r8, &
560  0.053797687641576761_r8, 0.054264272764850574_r8, 0.0010998995637236145_r8, &
561  0.0010416774541926303_r8, 0.0013336602915138319_r8, &
562  0.0015485142470714353_r8, 0.0036282763576317477_r8, &
563  0.0063467523005275115_r8, 0.0056300746435190884_r8, &
564  0.0051858932284060679_r8, 0.0061425516482038122_r8, &
565  0.0077336956367930719_r8, 0.015567720275663246_r8, 0.02319650239317797_r8, &
566  0.033623098276873375_r8, 0.036067364737647101_r8, 0.04140844721935432_r8, &
567  0.037983400923153707_r8, 0.035487162576122645_r8, 0.036524261835921841_r8, &
568  0.033580018276420612_r8, 0.032490732248324321_r8, 0.03194862950820989_r8, &
569  0.032393952241302405_r8, 0.032814262128160479_r8, 0.032096091197325302_r8, &
570  0.030784640643615562_r8, 0.0346474068740893_r8, 0.034327761287480628_r8, &
571  0.035631567469771787_r8, 0.038289729114634546_r8, 0.039167908477555115_r8, &
572  0.041776780611803323_r8, 0.045230623225634349_r8, 0.049516223673959407_r8, &
573  0.048823953368604733_r8, 0.054114155080366329_r8, 0.052850525280945963_r8 /
574 
575 real (r8), dimension(cast_ice_m,cast_ice_n) :: t_ice
576 data t_ice / &
577  -2.4019464241572335_r8, -2.2146150665386957_r8, -2.4518198562213072_r8, &
578  -3.29647047468662_r8, -2.9188487907238456_r8, -5.4400597133630759_r8, &
579  -3.5313915811926861_r8, -2.5915406223671762_r8, -5.5041706048187775_r8, &
580  -5.8357023440206213_r8, -3.7079369592328915_r8, -2.4410836944054664_r8, &
581  -3.1078556923095526_r8, -3.7633473957882932_r8, -4.5530947473825787_r8, &
582  -3.2629754659593662_r8, -4.7042926341156202_r8, -5.2157240312565385_r8, &
583  -3.3360647398725987_r8, -2.9971164571014506_r8, -3.7928396660858534_r8, &
584  -3.9602915820773181_r8, -4.461201114755168_r8, -4.8764677168894792_r8, &
585  -3.267171759318177_r8, -4.0561604051546318_r8, -6.2909210604299268_r8, &
586  -3.4079589406388031_r8, -7.2124658878449477_r8, -6.6260967498078962_r8, &
587  -5.8695626861000658_r8, -6.4415095176699868_r8, -5.2916103054395816_r8, &
588  -6.3940951547941456_r8, -8.6300931618053802_r8, -7.1860107093111765_r8, &
589  -3.6307713996513415_r8, -2.4589515714004606_r8, -3.4972723693410668_r8, &
590  -4.1725637436030505_r8, -4.4726825547706683_r8, -3.3611542280123969_r8, &
591  -3.2915797399143956_r8, -5.805140193865074_r8, -2.0329981807296233_r8, &
592  -5.4527738591343189_r8, -5.5933109126272758_r8, -5.157598077504046_r8, &
593  -2.4604874900898732_r8, -3.1740927411018425_r8, -3.5130856441993368_r8, &
594  -4.9331243918047969_r8, -2.839197212909609_r8, -5.255451070141353_r8, &
595  -2.8760218761305207_r8, -5.1424765238993562_r8, -4.582838088376981_r8, &
596  -5.8013453440527147_r8, -5.6247046506927525_r8, -6.4598993876292088_r8, &
597  -6.4887339134645643_r8, -4.3428310954604576_r8, -5.8817883307022729_r8, &
598  -4.0822305141858806_r8, -3.6191598738318347_r8, -6.681039339792286_r8, &
599  -5.915208423379525_r8, -6.0471177916194154_r8, -7.9613738869343784_r8, &
600  -6.9981820561627384_r8, -7.2484222801937737_r8, -8.4365750941753621_r8, &
601  -4.8389819810764561_r8, -3.925721632786328_r8, -2.3580777399294366_r8, &
602  -2.5979551383945569_r8, -5.2422599312479745_r8, -1.8966744113952125_r8, &
603  -3.7944417365287979_r8, -2.5525465032259405_r8, -5.8434997054387328_r8, &
604  -4.8313222628111472_r8, -4.0145834223974433_r8, -3.9259345062837645_r8, &
605  -2.3296298251691065_r8, -4.8646314579520631_r8, -2.3469255952323214_r8, &
606  -2.5014265644168518_r8, -4.3802512777717109_r8, -2.758350569105755_r8, &
607  -5.7218112495049294_r8, -5.7977928064655586_r8, -5.4961403465851761_r8, &
608  -3.2848357768606791_r8, -5.4032017320785783_r8, -4.9195803736544521_r8, &
609  -6.8170936182679558_r8, -5.6024063516103064_r8, -6.2883915056034159_r8, &
610  -5.106328182967582_r8, -5.2266608811863637_r8, -7.0060600813317535_r8, &
611  -4.2490716413117653_r8, -4.6601828203245264_r8, -5.0360644467038558_r8, &
612  -6.1224807696952501_r8, -8.1032764443768848_r8, -8.212253009122719_r8 /
613 
614 real (r8), dimension(cast_ice_m,cast_ice_n) :: w_ice
615 data w_ice / &
616  0.0019930890132086316_r8, 0.0024718746230941494_r8, &
617  0.0027143829025951887_r8, 0.0027174239400725927_r8, &
618  0.013320072683218736_r8, 0.021272259483032276_r8, 0.008571196331480303_r8, &
619  0.0069934264032770373_r8, 0.0049995254860060144_r8, &
620  0.0047426180630077376_r8, 0.005205073644557052_r8, &
621  0.0090181172788428819_r8, 0.018575886959026521_r8, 0.031359451129289208_r8, &
622  0.032042057344798786_r8, 0.038764103203305617_r8, 0.03686780636135218_r8, &
623  0.035551503000677137_r8, 0.032255126654262466_r8, 0.034059124263840709_r8, &
624  0.031833596268289972_r8, 0.035093109899932196_r8, 0.032266251973089001_r8, &
625  0.034660392926727505_r8, 0.032179329382961246_r8, 0.032558765100953964_r8, &
626  0.031530573991841483_r8, 0.034130356368430467_r8, 0.037635359280523473_r8, &
627  0.039415042831851863_r8, 0.042741843889981208_r8, 0.042617378339358983_r8, &
628  0.053178809395792524_r8, 0.05169410088035075_r8, 0.050769607600957306_r8, &
629  0.055875511201597686_r8, 0.0046787090931778462_r8, &
630  0.0041033303940503476_r8, 0.0043370607646025603_r8, &
631  0.016156523907596324_r8, 0.020902931329057194_r8, 0.012932530557454842_r8, &
632  0.0061217766015578745_r8, 0.0028142801517501885_r8, &
633  0.0040635924423559093_r8, 0.0035961390036951101_r8, &
634  0.0039295334546859944_r8, 0.0053628046977522636_r8, 0.01436734476240465_r8, &
635  0.031038250616664754_r8, 0.032800742183668498_r8, 0.03354594139418525_r8, &
636  0.040521685813480382_r8, 0.033518349304228152_r8, 0.03406239651060098_r8, &
637  0.032742296304318741_r8, 0.031068691306894738_r8, 0.030629900380398149_r8, &
638  0.034133088268323661_r8, 0.033528595689279184_r8, 0.032270240394638702_r8, &
639  0.031342214327115266_r8, 0.032076834501957377_r8, 0.035363766705103682_r8, &
640  0.044444927771125298_r8, 0.036767957277534097_r8, 0.03959424422348589_r8, &
641  0.042943660699347137_r8, 0.047224018288028018_r8, 0.051678311131744793_r8, &
642  0.053797687641576761_r8, 0.054264272764850574_r8, 0.0010998995637236145_r8, &
643  0.0010416774541926303_r8, 0.0013336602915138319_r8, &
644  0.0015485142470714353_r8, 0.0036282763576317477_r8, &
645  0.0063467523005275115_r8, 0.0056300746435190884_r8, &
646  0.0051858932284060679_r8, 0.0061425516482038122_r8, &
647  0.0077336956367930719_r8, 0.015567720275663246_r8, 0.02319650239317797_r8, &
648  0.033623098276873375_r8, 0.036067364737647101_r8, 0.04140844721935432_r8, &
649  0.037983400923153707_r8, 0.035487162576122645_r8, 0.036524261835921841_r8, &
650  0.033580018276420612_r8, 0.032490732248324321_r8, 0.03194862950820989_r8, &
651  0.032393952241302405_r8, 0.032814262128160479_r8, 0.032096091197325302_r8, &
652  0.030784640643615562_r8, 0.0346474068740893_r8, 0.034327761287480628_r8, &
653  0.035631567469771787_r8, 0.038289729114634546_r8, 0.039167908477555115_r8, &
654  0.041776780611803323_r8, 0.045230623225634349_r8, 0.049516223673959407_r8, &
655  0.048823953368604733_r8, 0.054114155080366329_r8, 0.052850525280945963_r8 /
656 
657 real (r8), dimension(cast_ice_m,cast_ice_n) :: sa_bulk
658 data sa_bulk / &
659  27.614593517891905_r8, 28.068255102175666_r8, 28.095599027260793_r8, &
660  28.185691875733095_r8, 29.885738875835521_r8, 30.770930372619144_r8, &
661  31.954085286935236_r8, 32.40878240954347_r8, 32.713166969797946_r8, &
662  32.954963841855033_r8, 33.237082182712875_r8, 33.538938713472866_r8, &
663  33.927995505099169_r8, 33.728949730283055_r8, 33.826052010674744_r8, &
664  33.622248279134581_r8, 33.718275005300391_r8, 33.77418818573333_r8, &
665  33.898673839380763_r8, 33.841593328552783_r8, 33.925673725544719_r8, &
666  33.81803743543388_r8, 33.923563645487079_r8, 33.846683134870133_r8, &
667  33.941338094558581_r8, 33.934588222825148_r8, 33.976836678008816_r8, &
668  33.901565029872309_r8, 33.790008400619399_r8, 33.734613007444537_r8, &
669  33.621429836668447_r8, 33.627987708750908_r8, 33.258005312584899_r8, &
670  33.310912695543081_r8, 33.343368966600138_r8, 33.163917577446284_r8, &
671  28.397483134791848_r8, 28.036493126233211_r8, 28.059154963359433_r8, &
672  29.964150575145869_r8, 31.079792552686119_r8, 31.603759969910243_r8, &
673  32.231588531051429_r8, 32.561718321356018_r8, 32.698053244829239_r8, &
674  32.911771773658806_r8, 33.06339571774663_r8, 33.245950328985479_r8, &
675  33.900799861603673_r8, 33.708466011554862_r8, 33.768081385983997_r8, &
676  33.806196819911008_r8, 33.591440232667715_r8, 33.839967117762775_r8, &
677  33.833617748118762_r8, 33.887749811873299_r8, 33.952581538446125_r8, &
678  33.973786599946799_r8, 33.858498483146235_r8, 33.886071562870718_r8, &
679  33.937056082838005_r8, 33.976371062153596_r8, 33.956699380577405_r8, &
680  33.856815860253633_r8, 33.550028608027304_r8, 33.827056123661947_r8, &
681  33.731846515061179_r8, 33.616858440234111_r8, 33.46732084120903_r8, &
682  33.31172375339122_r8, 33.237292212572378_r8, 33.220809512130579_r8, &
683  29.765361384898323_r8, 29.666067836645833_r8, 29.65878617499969_r8, &
684  29.730212211875145_r8, 30.56601911533221_r8, 31.865474409884431_r8, &
685  32.476564601013898_r8, 32.970502694058311_r8, 33.450585677724305_r8, &
686  33.97363821238892_r8, 33.936298447777403_r8, 33.832733599581459_r8, &
687  33.67212560147302_r8, 33.705147941831257_r8, 33.560850829534864_r8, &
688  33.675159001433236_r8, 33.778989789663584_r8, 33.749745352831731_r8, &
689  33.854623135795592_r8, 33.899229562046372_r8, 33.925809291975852_r8, &
690  33.915950381145585_r8, 33.908526284946937_r8, 33.93940220771362_r8, &
691  33.991720317130721_r8, 33.864848389340985_r8, 33.882186608927995_r8, &
692  33.849874077496565_r8, 33.767795220127191_r8, 33.743820241923707_r8, &
693  33.656417347968954_r8, 33.53768076127183_r8, 33.387217373184335_r8, &
694  33.412220981719294_r8, 33.226187930301379_r8, 33.270299588067886_r8 /
695 
696 real (r8), dimension(cast_ice_m,cast_ice_n) :: h_pot_bulk
697 data h_pot_bulk / &
698  -5979.8164238793197_r8, -6162.9193088330412_r8, -6136.8437763148377_r8, &
699  -6107.177694389613_r8, -6698.3882145302468_r8, -7469.8051138012752_r8, &
700  -7181.7832178354774_r8, -7727.7078576852045_r8, -7551.4997223218616_r8, &
701  -7756.315214819293_r8, -7751.3661739423324_r8, -8201.810949568935_r8, &
702  -8243.1653705823537_r8, -9848.7664885754657_r8, -8382.4745193590843_r8, &
703  -10381.943569107028_r8, -10163.298456417153_r8, -10403.165037692772_r8, &
704  -9631.9549468708974_r8, -10787.306770609433_r8, -10574.633482950618_r8, &
705  -11996.881516730193_r8, -11425.473234422103_r8, -12511.791233929394_r8, &
706  -11794.296429916605_r8, -12175.216031581802_r8, -12153.863803390754_r8, &
707  -13139.324626224809_r8, -14646.869095044822_r8, -15170.917227478609_r8, &
708  -16130.379674679132_r8, -16090.97995751296_r8, -19214.478399495605_r8, &
709  -18815.956177959091_r8, -18711.800169724735_r8, -20076.418798743482_r8, &
710  -6146.0985337890233_r8, -6017.3659235057576_r8, -6086.7179863435404_r8, &
711  -6575.5983858422651_r8, -6947.4725257878636_r8, -7120.4831512567844_r8, &
712  -7329.9898710199595_r8, -7343.3780707787528_r8, -7796.1109198555123_r8, &
713  -7706.7108542277501_r8, -7762.4247719545401_r8, -7918.4785558420135_r8, &
714  -8509.3273014392162_r8, -9993.1017366162469_r8, -9071.4839336014447_r8, &
715  -8679.9338978880678_r8, -11137.004187639344_r8, -9673.3988039658616_r8, &
716  -10075.828223446228_r8, -10329.193031083996_r8, -10231.716375593116_r8, &
717  -10562.341164036043_r8, -11999.603155023007_r8, -12167.242010295809_r8, &
718  -12010.314159883979_r8, -11765.013557280658_r8, -12279.462697227855_r8, &
719  -13552.334862626049_r8, -16524.594810974038_r8, -14327.719658032662_r8, &
720  -15142.992713365478_r8, -16158.738769878062_r8, -17626.968800535036_r8, &
721  -18874.850288190766_r8, -19502.954824874949_r8, -19722.603713693057_r8, &
722  -6396.9241449139836_r8, -6395.2350976917269_r8, -6487.931826709184_r8, &
723  -6476.8444657714608_r8, -6775.1806620409052_r8, -7126.4780738564586_r8, &
724  -7345.5362713473769_r8, -7678.3795745975476_r8, -7797.5564262393345_r8, &
725  -7852.9969101183033_r8, -8616.5154448854591_r8, -8864.2057783398486_r8, &
726  -9450.4142898947521_r8, -8870.8017959292429_r8, -9932.3353214403032_r8, &
727  -9455.5979787220276_r8, -9687.5635379721189_r8, -10593.269775917035_r8, &
728  -10507.243121280044_r8, -10763.548293903417_r8, -10927.111305773718_r8, &
729  -11276.286874293437_r8, -11836.244261386057_r8, -11838.359028570809_r8, &
730  -11729.986287897371_r8, -13017.255447524489_r8, -13100.907547115154_r8, &
731  -13700.607933830701_r8, -14689.624311336378_r8, -15126.869917216525_r8, &
732  -15692.434453117461_r8, -16735.726869938953_r8, -18054.007966107714_r8, &
733  -17901.278423738735_r8, -19695.028377710201_r8, -19263.075250379974_r8 /
734 
735 real (r8), dimension(cast_ice_m,cast_ice_n) :: h_bulk
736 data h_bulk / &
737  -6030.6562498951998_r8, -6114.4717456817798_r8, -5991.426368688637_r8, &
738  -5863.919428665693_r8, -6369.7460326369401_r8, -7043.754016824244_r8, &
739  -6474.9689872291701_r8, -6770.6143676763195_r8, -6346.0383448769453_r8, &
740  -6304.5973577023133_r8, -6054.2355444874493_r8, -6254.2415392822313_r8, &
741  -5817.2303947635883_r8, -6954.3968978162447_r8, -5002.3505598525644_r8, &
742  -6538.4196918380185_r8, -5349.9195254209935_r8, -4622.5286190966281_r8, &
743  -2867.2065909713519_r8, -3074.1345879058044_r8, -1880.2460590599312_r8, &
744  -2370.752076012308_r8, -807.62276256585392_r8, -949.13248314971861_r8, &
745  762.64398054551202_r8, 1350.4636646012859_r8, 2351.7295271980583_r8, &
746  3750.1665921770291_r8, 4599.6579085911453_r8, 6456.7805223088708_r8, &
747  7842.223285386488_r8, 10306.537611710552_r8, 9297.7296294109474_r8, &
748  12142.145910493953_r8, 14690.657583495016_r8, 15548.74615365182_r8, &
749  -6201.1109396439315_r8, -5975.3968055815621_r8, -5947.0203575686191_r8, &
750  -6349.3546029799072_r8, -6614.9472471407416_r8, -6675.2513104907466_r8, &
751  -6617.7173401972377_r8, -6380.6013524562768_r8, -6589.1861703816421_r8, &
752  -6253.6483420713803_r8, -6064.5481989077098_r8, -5967.6607689403336_r8, &
753  -6079.5910263598662_r8, -7099.3681109102117_r8, -5696.7129487702987_r8, &
754  -4815.2824971225973_r8, -6341.2379093393783_r8, -3880.4139179452541_r8, &
755  -3322.8153552232052_r8, -2604.1406040977345_r8, -1529.1876576297655_r8, &
756  -890.95202574620635_r8, -1400.8834064079292_r8, -590.09035113794926_r8, &
757  545.7765295239351_r8, 1778.1022894520738_r8, 2218.3218613346089_r8, &
758  3316.0711147595903_r8, 2585.8369040907783_r8, 7359.5332914036553_r8, &
759  8908.318435326848_r8, 10229.795062687155_r8, 11064.561141494665_r8, &
760  12083.769964799942_r8, 13792.950741450706_r8, 15963.350415757155_r8, &
761  -6436.0867584336374_r8, -6336.5814570566035_r8, -6331.3306234767169_r8, &
762  -6222.6413768511975_r8, -6422.5601839086812_r8, -6671.25239061299_r8, &
763  -6630.9926430019559_r8, -6715.478302719257_r8, -6588.1214280028234_r8, &
764  -6396.8079328543463_r8, -6924.4474444158113_r8, -6927.8578373920145_r8, &
765  -7046.1299260540154_r8, -5978.0333977170667_r8, -6577.4684260813001_r8, &
766  -5605.6136869178463_r8, -4867.1231329313878_r8, -4818.5632524039083_r8, &
767  -3753.669113439083_r8, -3040.3390842348181_r8, -2235.5234211630959_r8, &
768  -1625.3407922253518_r8, -1226.1408574913676_r8, -246.92638042701219_r8, &
769  843.00410058058696_r8, 478.57734069180697_r8, 1362.44770906546_r8, &
770  3163.3620898662339_r8, 4544.0856305161669_r8, 6506.3004208676357_r8, &
771  8304.2014530701235_r8, 9590.0734591126311_r8, 10568.490442755725_r8, &
772  13150.516615716018_r8, 13589.730424383059_r8, 16476.222972316336_r8 /
773 
774 real (r8) :: pref
775 data pref / &
776  0._r8 /
777 
778 type(gsw_result) :: c_from_sp
779 
780 data c_from_sp / gsw_result( &
781  "C_from_SP", 6.1638e-10_r8, (/ &
782  55.253405515471_r8, 55.25794746084_r8, 55.205775404914_r8, &
783  55.221954702814_r8, 55.198738463981_r8, 55.120885611218_r8, &
784  54.545560654633_r8, 53.376252431127_r8, 51.409509650121_r8, &
785  48.610626679943_r8, 45.944532491004_r8, 43.517256868601_r8, &
786  39.574380348029_r8, 37.948776968943_r8, 37.050632494228_r8, &
787  36.307436958762_r8, 35.299727009972_r8, 34.666861466714_r8, &
788  34.165384010182_r8, 33.753010638657_r8, 33.382144048721_r8, &
789  33.037338266767_r8, 32.72598298168_r8, 32.4511392523_r8, 32.23098962286_r8, &
790  32.025525330633_r8, 31.870844716062_r8, 31.619650536679_r8, &
791  31.456924043119_r8, 31.399514373472_r8, 31.375021944468_r8, &
792  31.393622274339_r8, 31.434253061096_r8, 31.491990028368_r8, &
793  31.547175841388_r8, 31.619162863955_r8, 31.691044958342_r8, &
794  31.76880685271_r8, 31.867778228311_r8, 31.955092074301_r8, &
795  32.049671277031_r8, 32.156419791383_r8, 32.256732921993_r8, &
796  32.36299250085_r8, 32.469549856786_r8, 54.697442876823_r8, &
797  54.617423040766_r8, 54.735189840209_r8, 54.673194773048_r8, &
798  54.723174518536_r8, 54.453774560563_r8, 52.646485243669_r8, &
799  49.91165233447_r8, 46.547979203367_r8, 42.557101190634_r8, &
800  40.532873875962_r8, 39.200012148207_r8, 38.262075374068_r8, &
801  37.785880250765_r8, 37.396380484022_r8, 36.992241177761_r8, &
802  36.114349214585_r8, 35.293354914446_r8, 34.56180826136_r8, &
803  34.046034683586_r8, 33.64252085514_r8, 33.239275445616_r8, &
804  32.99424845693_r8, 32.75036716234_r8, 32.507219635569_r8, &
805  32.273385424172_r8, 32.051518333661_r8, 31.784374097843_r8, &
806  31.529531957033_r8, 31.500055503991_r8, 31.460612323327_r8, &
807  31.472169058379_r8, 31.490934738729_r8, 31.521017171809_r8, &
808  31.554369106483_r8, 31.583816389345_r8, 31.620355157012_r8, &
809  31.664884715345_r8, 31.739500073043_r8, 31.819944669152_r8, &
810  31.904674437351_r8, 32.004069372941_r8, 32.111082511682_r8, &
811  32.217703873867_r8, 32.322004256229_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
812  9e90_r8, 9e90_r8, 9.3795452512822_r8, 10.727362956121_r8, 9e90_r8, 9e90_r8, &
813  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
814  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
815  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
816  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
817  9e90_r8, 9e90_r8, 9e90_r8 &
818  /) ) /
819 
820 type(gsw_result) :: sp_from_c
821 
822 data sp_from_c / gsw_result( &
823  "SP_from_C", 1.2971e-10_r8, (/ &
824  34.345367_r8, 34.344894_r8, 34.339741_r8, 34.342312_r8, 34.368393_r8, &
825  34.375198_r8, 34.572834_r8, 34.8246_r8, 34.955181_r8, 34.953842_r8, &
826  34.821655_r8, 34.670124_r8, 34.442738_r8, 34.430153_r8, 34.455452_r8, &
827  34.480721_r8, 34.4907_r8, 34.498734_r8, 34.511494_r8, 34.522358_r8, &
828  34.532505_r8, 34.542656_r8, 34.553711_r8, 34.563793_r8, 34.574997_r8, &
829  34.582958_r8, 34.591732_r8, 34.611008_r8, 34.628944_r8, 34.642342_r8, &
830  34.652279_r8, 34.659893_r8, 34.666252_r8, 34.671066_r8, 34.676521_r8, &
831  34.680054_r8, 34.683853_r8, 34.687504_r8, 34.688637_r8, 34.690674_r8, &
832  34.691525_r8, 34.690979_r8, 34.691231_r8, 34.691307_r8, 34.691372_r8, &
833  34.444057_r8, 34.429386_r8, 34.458214_r8, 34.443054_r8, 34.454098_r8, &
834  34.494339_r8, 34.774319_r8, 34.979286_r8, 34.808174_r8, 34.582397_r8, &
835  34.542274_r8, 34.581402_r8, 34.641544_r8, 34.659107_r8, 34.648941_r8, &
836  34.633102_r8, 34.590336_r8, 34.561188_r8, 34.543926_r8, 34.542332_r8, &
837  34.54636_r8, 34.551041_r8, 34.559719_r8, 34.567924_r8, 34.577103_r8, &
838  34.585781_r8, 34.594749_r8, 34.614994_r8, 34.634769_r8, 34.64547_r8, &
839  34.656967_r8, 34.664131_r8, 34.67181_r8, 34.677475_r8, 34.682167_r8, &
840  34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, &
841  34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, &
842  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9.060422_r8, &
843  10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
844  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
845  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
846  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
847  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
848  /) ) /
849 
850 type(gsw_result) :: sp_from_sk
851 
852 data sp_from_sk / gsw_result( &
853  "SP_from_SK", 1.2982e-10_r8, (/ &
854  34.344834489668_r8, 34.34436108349_r8, 34.339203658476_r8, &
855  34.34177686626_r8, 34.367880262687_r8, 34.374691106316_r8, &
856  34.57249682144_r8, 34.824479019391_r8, 34.955172152659_r8, &
857  34.953832002825_r8, 34.821531490443_r8, 34.66987036687_r8, &
858  34.442289104654_r8, 34.42969329759_r8, 34.455014022493_r8, &
859  34.480304721634_r8, 34.490292290859_r8, 34.498333189861_r8, &
860  34.511104147202_r8, 34.521977476399_r8, 34.532133189889_r8, &
861  34.542292906814_r8, 34.553357400028_r8, 34.563448057701_r8, &
862  34.574661678864_r8, 34.58262951518_r8, 34.59141104964_r8, &
863  34.610703602438_r8, 34.628655004543_r8, 34.642064509751_r8, &
864  34.652010042909_r8, 34.659630581247_r8, 34.665995041884_r8, &
865  34.670813175789_r8, 34.676272860139_r8, 34.679808894017_r8, &
866  34.683611156316_r8, 34.687265291524_r8, 34.68839926446_r8, &
867  34.690438013684_r8, 34.69128974446_r8, 34.690743275596_r8, &
868  34.690995491994_r8, 34.691071557258_r8, 34.691136613075_r8, &
869  34.443609237313_r8, 34.428925638947_r8, 34.457778394294_r8, &
870  34.442605376011_r8, 34.453658859778_r8, 34.493934415762_r8, &
871  34.774154841801_r8, 34.979297852244_r8, 34.808038913961_r8, &
872  34.582068033435_r8, 34.541910578781_r8, 34.581072179003_r8, &
873  34.641265824488_r8, 34.658843906288_r8, 34.648669176482_r8, &
874  34.632816575125_r8, 34.590013850859_r8, 34.56084082072_r8, &
875  34.543563997396_r8, 34.541968628587_r8, 34.546000087535_r8, &
876  34.55068510723_r8, 34.559370559252_r8, 34.567582605097_r8, &
877  34.576769487341_r8, 34.585454939363_r8, 34.594430640416_r8, &
878  34.614693025319_r8, 34.634485006621_r8, 34.645195195845_r8, &
879  34.656702068615_r8, 34.663872220526_r8, 34.671557814681_r8, &
880  34.677227679363_r8, 34.681923708504_r8, 34.687063118061_r8, &
881  34.690953455928_r8, 34.695348226593_r8, 34.698791180609_r8, &
882  34.700635763241_r8, 34.701883834072_r8, 34.702483348449_r8, &
883  34.70279661723_r8, 34.703219980471_r8, 34.705167651551_r8, &
884  6.5438735714404_r8, 6.6476085749307_r8, 6.7865898193075_r8, &
885  7.0108502322715_r8, 7.2391220870083_r8, 7.4589366855125_r8, &
886  9.0381766560111_r8, 10.258349550914_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
887  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
888  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
889  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
890  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
891  9e90_r8 &
892  /) ) /
893 
894 type(gsw_result) :: sa_from_sp
895 
896 data sa_from_sp / gsw_result( &
897  "SA_from_SP", 1.3001e-10_r8, (/ &
898  34.507499465692_r8, 34.507024988454_r8, 34.501848858511_r8, &
899  34.504435326018_r8, 34.530643613166_r8, 34.537484086977_r8, &
900  34.736078147786_r8, 34.98909028723_r8, 35.120394623393_r8, &
901  35.119256777183_r8, 34.986762856758_r8, 34.835021959583_r8, &
902  34.607546395926_r8, 34.595840357794_r8, 34.621926348234_r8, &
903  34.648001549218_r8, 34.659174492303_r8, 34.668361402163_r8, &
904  34.682170848906_r8, 34.694080110951_r8, 34.705238130449_r8, &
905  34.716513959838_r8, 34.728518191976_r8, 34.739505619355_r8, &
906  34.751452325212_r8, 34.760072302_r8, 34.769407785424_r8, 34.78964193694_r8, &
907  34.808295026002_r8, 34.822151570281_r8, 34.832369913788_r8, &
908  34.840088169273_r8, 34.846482961025_r8, 34.851270079602_r8, &
909  34.856641575125_r8, 34.860019411636_r8, 34.863619225502_r8, &
910  34.8670618825_r8, 34.868072764781_r8, 34.869952495228_r8, &
911  34.870706954223_r8, 34.869948548766_r8, 34.870177007927_r8, &
912  34.870163920171_r8, 34.870229963516_r8, 34.606687646962_r8, &
913  34.59194804862_r8, 34.620913179144_r8, 34.60569590954_r8, &
914  34.616792273632_r8, 34.657212493965_r8, 34.938587996851_r8, &
915  35.144639998851_r8, 34.972934057672_r8, 34.746556607465_r8, &
916  34.706863851408_r8, 34.746964646708_r8, 34.808232606377_r8, &
917  34.826327152152_r8, 34.816456153416_r8, 34.800921106393_r8, &
918  34.7588991589_r8, 34.730693983602_r8, 34.714397236346_r8, &
919  34.713783487812_r8, 34.718735529719_r8, 34.72438007792_r8, &
920  34.734010000495_r8, 34.743084410713_r8, 34.753058494526_r8, &
921  34.762475024106_r8, 34.772124124595_r8, 34.793567706862_r8, &
922  34.814396506585_r8, 34.825581702081_r8, 34.837454882016_r8, &
923  34.844788711634_r8, 34.852503925855_r8, 34.858062359024_r8, &
924  34.862564801306_r8, 34.86732380031_r8, 34.870753430507_r8, &
925  34.874612605795_r8, 34.877672506821_r8, 34.879244950055_r8, &
926  34.880316871764_r8, 34.880826475872_r8, 34.881086643287_r8, &
927  34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, &
928  6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, &
929  7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, &
930  10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
931  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
932  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
933  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
934  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
935  /) ) /
936 
937 type(gsw_result) :: sstar_from_sp
938 
939 data sstar_from_sp / gsw_result( &
940  "Sstar_from_SP", 1.3e-10_r8, (/ &
941  34.507257355553_r8, 34.506781861549_r8, 34.501604153914_r8, &
942  34.504186106832_r8, 34.530388583505_r8, 34.537224487135_r8, &
943  34.735783282747_r8, 34.988715833138_r8, 35.119874921742_r8, &
944  35.118456994071_r8, 34.985535936438_r8, 34.83311378008_r8, &
945  34.604311627064_r8, 34.591338876458_r8, 34.616523478901_r8, &
946  34.641671166679_r8, 34.651295811202_r8, 34.658977435818_r8, &
947  34.671451357431_r8, 34.682018674077_r8, 34.691876411315_r8, &
948  34.701698340555_r8, 34.712491483541_r8, 34.722320764242_r8, &
949  34.733336139935_r8, 34.741117176421_r8, 34.749750511003_r8, &
950  34.768813865683_r8, 34.786613062013_r8, 34.799935860886_r8, &
951  34.809837647897_r8, 34.817463627897_r8, 34.823850581087_r8, &
952  34.828704634684_r8, 34.834223586846_r8, 34.837833384539_r8, &
953  34.841726283469_r8, 34.84547344516_r8, 34.846656398845_r8, &
954  34.848761410381_r8, 34.849651617053_r8, 34.849176483221_r8, &
955  34.849438326703_r8, 34.849545991221_r8, 34.849611039829_r8, &
956  34.60640123573_r8, 34.591660852078_r8, 34.620624370501_r8, &
957  34.605387908902_r8, 34.61648388568_r8, 34.656918325871_r8, &
958  34.938192204544_r8, 35.144084238629_r8, 34.972090848383_r8, &
959  34.745086748278_r8, 34.704557746759_r8, 34.743594350544_r8, &
960  34.803725118322_r8, 34.821213880348_r8, 34.810879914892_r8, &
961  34.794833702991_r8, 34.751535043589_r8, 34.721871503772_r8, &
962  34.704161778379_r8, 34.702214543235_r8, 34.705944770125_r8, &
963  34.710318326698_r8, 34.718718396457_r8, 34.726671334505_r8, &
964  34.73563048711_r8, 34.744105244418_r8, 34.752891947997_r8, &
965  34.772846320403_r8, 34.79237837476_r8, 34.802978027068_r8, &
966  34.814416552022_r8, 34.821566716452_r8, 34.829281924672_r8, &
967  34.835020285482_r8, 34.839808499151_r8, 34.845107788029_r8, &
968  34.849179611435_r8, 34.853784702438_r8, 34.857379635529_r8, &
969  34.85932906262_r8, 34.86064527821_r8, 34.861279379903_r8, &
970  34.861612863812_r8, 34.862050046565_r8, 34.86401585478_r8, &
971  6.6699043409246_r8, 6.7737814418914_r8, 6.9129530644766_r8, &
972  7.1375206720971_r8, 7.3661052164126_r8, 7.5862209196423_r8, &
973  9.167624152368_r8, 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
974  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
975  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
976  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
977  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
978  9e90_r8 &
979  /) ) /
980 
981 type(gsw_result) :: ct_from_t
982 
983 data ct_from_t / gsw_result( &
984  "CT_from_t", 6.2611e-10_r8, (/ &
985  27.994827331979_r8, 27.993492458241_r8, 27.944213680466_r8, &
986  27.949774879518_r8, 27.884179948892_r8, 27.793319825682_r8, &
987  26.947346080828_r8, 25.46430727652_r8, 23.379820676679_r8, &
988  20.63847459173_r8, 18.143915714715_r8, 15.858592965627_r8, &
989  12.005103039523_r8, 10.265575172257_r8, 9.247317946145_r8, &
990  8.3897191572738_r8, 7.225986275199_r8, 6.4668711669915_r8, &
991  5.8444172841219_r8, 5.3204133981088_r8, 4.8418803985128_r8, &
992  4.3913347689901_r8, 3.9764271435477_r8, 3.6021512542309_r8, &
993  3.2883333327082_r8, 2.9933860754579_r8, 2.7553035518852_r8, &
994  2.3150448546651_r8, 1.977149296285_r8, 1.763913973583_r8, &
995  1.5920141958327_r8, 1.4723471561845_r8, 1.3795290982534_r8, &
996  1.3092323718852_r8, 1.236215847005_r8, 1.1851119841849_r8, &
997  1.1343476986713_r8, 1.0919973856578_r8, 1.0759044077233_r8, &
998  1.0475395549349_r8, 1.0290342473008_r8, 1.0269634786561_r8, &
999  1.0171112605236_r8, 1.0155713449034_r8, 1.0149634033236_r8, &
1000  27.320893180033_r8, 27.258004994462_r8, 27.324713453943_r8, &
1001  27.279898123599_r8, 27.306210016001_r8, 26.984520662239_r8, &
1002  24.844748285783_r8, 21.909930415708_r8, 18.79313601436_r8, &
1003  15.009081326229_r8, 12.944289997453_r8, 11.488269182864_r8, &
1004  10.402384857673_r8, 9.8477626588835_r8, 9.4138854127839_r8, &
1005  8.9682331074201_r8, 8.0087208215432_r8, 7.0889445244783_r8, &
1006  6.2481613625224_r8, 5.6244493769453_r8, 5.1170582706497_r8, &
1007  4.6079367124573_r8, 4.269970298836_r8, 3.9328928453607_r8, &
1008  3.5959682882935_r8, 3.2691230935998_r8, 2.9557520915302_r8, &
1009  2.4970408562072_r8, 2.0537091528134_r8, 1.874523769853_r8, &
1010  1.6842706911938_r8, 1.5570066554771_r8, 1.4382440661902_r8, &
1011  1.3359600921445_r8, 1.2390646514638_r8, 1.1386797401176_r8, &
1012  1.048221259372_r8, 0.96803553122254_r8, 0.92270690978888_r8, &
1013  0.8870403114493_r8, 0.85738474529935_r8, 0.84629138894925_r8, &
1014  0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, &
1015  10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, &
1016  5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, &
1017  4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1018  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1019  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1020  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1021  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1022  9e90_r8 &
1023  /) ) /
1024 
1025 type(gsw_result) :: deltasa_from_sp
1026 
1027 data deltasa_from_sp / gsw_result( &
1028  "deltaSA_from_SP", 6.9633e-13_r8, (/ &
1029  0.00017934084403493_r8, 0.00018009400411501_r8, 0.00018126266425611_r8, &
1030  0.00018460680456656_r8, 0.00018891085993289_r8, 0.00019229617962679_r8, &
1031  0.00021841854688631_r8, 0.00027737340189304_r8, 0.00038496418591905_r8, &
1032  0.00059243193523173_r8, 0.00090882986655316_r8, 0.0014134662983949_r8, &
1033  0.0023961250827469_r8, 0.003334430618871_r8, 0.0040021254316756_r8, &
1034  0.004689172251318_r8, 0.0058360600746781_r8, 0.0069510861811182_r8, &
1035  0.0079403640561466_r8, 0.0089343976847474_r8, 0.0098975697285013_r8, &
1036  0.010974532802642_r8, 0.011871635877377_r8, 0.012729522305506_r8, &
1037  0.013419396501597_r8, 0.014040833762628_r8, 0.014560944015578_r8, &
1038  0.015428200931133_r8, 0.016060714065539_r8, 0.016456081033134_r8, &
1039  0.016690567326329_r8, 0.016758919537985_r8, 0.016764725879952_r8, &
1040  0.016715144384122_r8, 0.016605917244057_r8, 0.016434094145353_r8, &
1041  0.016216994098158_r8, 0.015991435066866_r8, 0.015863974767434_r8, &
1042  0.015697099886658_r8, 0.015596546051682_r8, 0.015386715218199_r8, &
1043  0.015361986091754_r8, 0.015272539962872_r8, 0.015273276804663_r8, &
1044  0.00021215646798822_r8, 0.00021273817901601_r8, 0.00021393232830746_r8, &
1045  0.0002281486209128_r8, 0.0002284355202562_r8, 0.00021790229157403_r8, &
1046  0.00029317948598617_r8, 0.00041167423871968_r8, 0.0006245994732339_r8, &
1047  0.0010887845830965_r8, 0.0017082256661425_r8, 0.0024965156773291_r8, &
1048  0.0033388800410137_r8, 0.003787608744183_r8, 0.0041305470548849_r8, &
1049  0.0045091877046985_r8, 0.0054549002304611_r8, 0.0065351702442342_r8, &
1050  0.0075818207159273_r8, 0.0085695885753552_r8, 0.0094746367358098_r8, &
1051  0.010416112016159_r8, 0.011327114101967_r8, 0.01215783422834_r8, &
1052  0.012909635122853_r8, 0.013607244213205_r8, 0.014246056739253_r8, &
1053  0.015349175154604_r8, 0.016309727277758_r8, 0.016743462972023_r8, &
1054  0.017065429624999_r8, 0.017201477912373_r8, 0.017201482357592_r8, &
1055  0.017068202624074_r8, 0.01685652011502_r8, 0.016456305393419_r8, &
1056  0.015980606719971_r8, 0.015428076560639_r8, 0.015031756512194_r8, &
1057  0.014752509211206_r8, 0.014571550780872_r8, 0.014479330347733_r8, &
1058  0.01442502183329_r8, 0.014390198614905_r8, 0.014359821497862_r8, &
1059  0.070673184771425_r8, 0.070415550428567_r8, 0.070070379171424_r8, &
1060  0.069513410142853_r8, 0.068946478371425_r8, 0.068400550885709_r8, &
1061  0.064478379599993_r8, 0.061447980685708_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1062  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1063  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1064  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1065  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1066  9e90_r8, 9e90_r8 &
1067  /) ) /
1068 
1069 type(gsw_result) :: sr_from_sp
1070 
1071 data sr_from_sp / gsw_result( &
1072  "SR_from_SP", 1.3032e-10_r8, (/ &
1073  34.507320124848_r8, 34.50684489445_r8, 34.501667595847_r8, &
1074  34.504250719214_r8, 34.530454702306_r8, 34.537291790798_r8, &
1075  34.735859729239_r8, 34.988812913829_r8, 35.120009659207_r8, &
1076  35.118664345248_r8, 34.985854026891_r8, 34.833608493285_r8, &
1077  34.605150270843_r8, 34.592505927175_r8, 34.617924222802_r8, &
1078  34.643312376967_r8, 34.653338432229_r8, 34.661410315982_r8, &
1079  34.67423048485_r8, 34.685145713266_r8, 34.69534056072_r8, &
1080  34.705539427035_r8, 34.716646556098_r8, 34.726776097049_r8, &
1081  34.738032928711_r8, 34.746031468238_r8, 34.754846841408_r8, &
1082  34.774213736009_r8, 34.792234311936_r8, 34.805695489248_r8, &
1083  34.815679346462_r8, 34.823329249735_r8, 34.829718235145_r8, &
1084  34.834554935218_r8, 34.840035657881_r8, 34.84358531749_r8, &
1085  34.847402231403_r8, 34.851070447433_r8, 34.852208790014_r8, &
1086  34.854255395342_r8, 34.855110408171_r8, 34.854561833547_r8, &
1087  34.854815021835_r8, 34.854891380208_r8, 34.854956686711_r8, &
1088  34.606475490494_r8, 34.591735310441_r8, 34.620699246816_r8, &
1089  34.605467760919_r8, 34.616563838112_r8, 34.656994591673_r8, &
1090  34.938294817365_r8, 35.144228324613_r8, 34.972309458199_r8, &
1091  34.745467822882_r8, 34.705155625742_r8, 34.744468131031_r8, &
1092  34.804893726336_r8, 34.822539543408_r8, 34.812325606361_r8, &
1093  34.796411918688_r8, 34.75344425867_r8, 34.724158813358_r8, &
1094  34.70681541563_r8, 34.705213899237_r8, 34.709260892983_r8, &
1095  34.713963965904_r8, 34.722682886393_r8, 34.730926576485_r8, &
1096  34.740148859403_r8, 34.748867779893_r8, 34.757878067856_r8, &
1097  34.778218531707_r8, 34.798086779307_r8, 34.808838239109_r8, &
1098  34.820389452391_r8, 34.827587233721_r8, 34.835302443497_r8, &
1099  34.8409941564_r8, 34.845708281191_r8, 34.850867494917_r8, &
1100  34.854772823787_r8, 34.859184529234_r8, 34.862640750309_r8, &
1101  34.864492440843_r8, 34.865745320983_r8, 34.866347145525_r8, &
1102  34.866661621454_r8, 34.86708661608_r8, 34.869041792304_r8, &
1103  6.5992311561531_r8, 6.7033658914629_r8, 6.8428826853051_r8, &
1104  7.0680072619543_r8, 7.2971587380411_r8, 7.5178203687566_r8, &
1105  9.103145772768_r8, 10.328020474341_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1106  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1107  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1108  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1109  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1110  9e90_r8 &
1111  /) ) /
1112 
1113 type(gsw_result) :: sp_from_sr
1114 
1115 data sp_from_sr / gsw_result( &
1116  "SP_from_SR", 1.2971e-10_r8, (/ &
1117  34.345367_r8, 34.344894_r8, 34.339741_r8, 34.342312_r8, 34.368393_r8, &
1118  34.375198_r8, 34.572834_r8, 34.8246_r8, 34.955181_r8, 34.953842_r8, &
1119  34.821655_r8, 34.670124_r8, 34.442738_r8, 34.430153_r8, 34.455452_r8, &
1120  34.480721_r8, 34.4907_r8, 34.498734_r8, 34.511494_r8, 34.522358_r8, &
1121  34.532505_r8, 34.542656_r8, 34.553711_r8, 34.563793_r8, 34.574997_r8, &
1122  34.582958_r8, 34.591732_r8, 34.611008_r8, 34.628944_r8, 34.642342_r8, &
1123  34.652279_r8, 34.659893_r8, 34.666252_r8, 34.671066_r8, 34.676521_r8, &
1124  34.680054_r8, 34.683853_r8, 34.687504_r8, 34.688637_r8, 34.690674_r8, &
1125  34.691525_r8, 34.690979_r8, 34.691231_r8, 34.691307_r8, 34.691372_r8, &
1126  34.444057_r8, 34.429386_r8, 34.458214_r8, 34.443054_r8, 34.454098_r8, &
1127  34.494339_r8, 34.774319_r8, 34.979286_r8, 34.808174_r8, 34.582397_r8, &
1128  34.542274_r8, 34.581402_r8, 34.641544_r8, 34.659107_r8, 34.648941_r8, &
1129  34.633102_r8, 34.590336_r8, 34.561188_r8, 34.543926_r8, 34.542332_r8, &
1130  34.54636_r8, 34.551041_r8, 34.559719_r8, 34.567924_r8, 34.577103_r8, &
1131  34.585781_r8, 34.594749_r8, 34.614994_r8, 34.634769_r8, 34.64547_r8, &
1132  34.656967_r8, 34.664131_r8, 34.67181_r8, 34.677475_r8, 34.682167_r8, &
1133  34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, &
1134  34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, &
1135  6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, &
1136  7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1137  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1138  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1139  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1140  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1141  9e90_r8 &
1142  /) ) /
1143 
1144 type(gsw_result) :: sp_from_sa
1145 
1146 data sp_from_sa / gsw_result( &
1147  "SP_from_SA", 1.2971e-10_r8, (/ &
1148  34.345367_r8, 34.344894_r8, 34.339741_r8, 34.342312_r8, 34.368393_r8, &
1149  34.375198_r8, 34.572834_r8, 34.8246_r8, 34.955181_r8, 34.953842_r8, &
1150  34.821655_r8, 34.670124_r8, 34.442738_r8, 34.430153_r8, 34.455452_r8, &
1151  34.480721_r8, 34.4907_r8, 34.498734_r8, 34.511494_r8, 34.522358_r8, &
1152  34.532505_r8, 34.542656_r8, 34.553711_r8, 34.563793_r8, 34.574997_r8, &
1153  34.582958_r8, 34.591732_r8, 34.611008_r8, 34.628944_r8, 34.642342_r8, &
1154  34.652279_r8, 34.659893_r8, 34.666252_r8, 34.671066_r8, 34.676521_r8, &
1155  34.680054_r8, 34.683853_r8, 34.687504_r8, 34.688637_r8, 34.690674_r8, &
1156  34.691525_r8, 34.690979_r8, 34.691231_r8, 34.691307_r8, 34.691372_r8, &
1157  34.444057_r8, 34.429386_r8, 34.458214_r8, 34.443054_r8, 34.454098_r8, &
1158  34.494339_r8, 34.774319_r8, 34.979286_r8, 34.808174_r8, 34.582397_r8, &
1159  34.542274_r8, 34.581402_r8, 34.641544_r8, 34.659107_r8, 34.648941_r8, &
1160  34.633102_r8, 34.590336_r8, 34.561188_r8, 34.543926_r8, 34.542332_r8, &
1161  34.54636_r8, 34.551041_r8, 34.559719_r8, 34.567924_r8, 34.577103_r8, &
1162  34.585781_r8, 34.594749_r8, 34.614994_r8, 34.634769_r8, 34.64547_r8, &
1163  34.656967_r8, 34.664131_r8, 34.67181_r8, 34.677475_r8, 34.682167_r8, &
1164  34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, &
1165  34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, &
1166  6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, &
1167  7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1168  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1169  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1170  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1171  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1172  9e90_r8 &
1173  /) ) /
1174 
1175 type(gsw_result) :: sstar_from_sa
1176 
1177 data sstar_from_sa / gsw_result( &
1178  "Sstar_from_SA", 1.3e-10_r8, (/ &
1179  34.507257355553_r8, 34.506781861549_r8, 34.501604153914_r8, &
1180  34.504186106832_r8, 34.530388583505_r8, 34.537224487135_r8, &
1181  34.735783282747_r8, 34.988715833138_r8, 35.119874921742_r8, &
1182  35.118456994071_r8, 34.985535936438_r8, 34.83311378008_r8, &
1183  34.604311627064_r8, 34.591338876458_r8, 34.616523478901_r8, &
1184  34.641671166679_r8, 34.651295811202_r8, 34.658977435818_r8, &
1185  34.671451357431_r8, 34.682018674077_r8, 34.691876411315_r8, &
1186  34.701698340555_r8, 34.712491483541_r8, 34.722320764242_r8, &
1187  34.733336139935_r8, 34.741117176421_r8, 34.749750511003_r8, &
1188  34.768813865683_r8, 34.786613062013_r8, 34.799935860886_r8, &
1189  34.809837647897_r8, 34.817463627897_r8, 34.823850581087_r8, &
1190  34.828704634684_r8, 34.834223586846_r8, 34.837833384539_r8, &
1191  34.841726283469_r8, 34.84547344516_r8, 34.846656398845_r8, &
1192  34.848761410381_r8, 34.849651617053_r8, 34.849176483221_r8, &
1193  34.849438326703_r8, 34.849545991221_r8, 34.849611039829_r8, &
1194  34.60640123573_r8, 34.591660852078_r8, 34.620624370501_r8, &
1195  34.605387908902_r8, 34.61648388568_r8, 34.656918325871_r8, &
1196  34.938192204544_r8, 35.144084238629_r8, 34.972090848383_r8, &
1197  34.745086748278_r8, 34.704557746759_r8, 34.743594350544_r8, &
1198  34.803725118322_r8, 34.821213880348_r8, 34.810879914892_r8, &
1199  34.794833702991_r8, 34.751535043589_r8, 34.721871503772_r8, &
1200  34.704161778379_r8, 34.702214543235_r8, 34.705944770125_r8, &
1201  34.710318326698_r8, 34.718718396457_r8, 34.726671334505_r8, &
1202  34.73563048711_r8, 34.744105244418_r8, 34.752891947997_r8, &
1203  34.772846320403_r8, 34.79237837476_r8, 34.802978027068_r8, &
1204  34.814416552022_r8, 34.821566716452_r8, 34.829281924672_r8, &
1205  34.835020285482_r8, 34.839808499151_r8, 34.845107788029_r8, &
1206  34.849179611435_r8, 34.853784702438_r8, 34.857379635529_r8, &
1207  34.85932906262_r8, 34.86064527821_r8, 34.861279379903_r8, &
1208  34.861612863812_r8, 34.862050046565_r8, 34.86401585478_r8, &
1209  6.6699043409246_r8, 6.7737814418914_r8, 6.9129530644766_r8, &
1210  7.1375206720971_r8, 7.3661052164126_r8, 7.5862209196423_r8, &
1211  9.167624152368_r8, 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1212  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1213  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1214  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1215  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1216  9e90_r8 &
1217  /) ) /
1218 
1219 type(gsw_result) :: sa_from_sstar
1220 
1221 data sa_from_sstar / gsw_result( &
1222  "SA_from_Sstar", 1.3002e-10_r8, (/ &
1223  34.507499465692_r8, 34.507024988454_r8, 34.501848858511_r8, &
1224  34.504435326018_r8, 34.530643613166_r8, 34.537484086977_r8, &
1225  34.736078147786_r8, 34.98909028723_r8, 35.120394623393_r8, &
1226  35.119256777183_r8, 34.986762856758_r8, 34.835021959583_r8, &
1227  34.607546395926_r8, 34.595840357794_r8, 34.621926348234_r8, &
1228  34.648001549218_r8, 34.659174492303_r8, 34.668361402163_r8, &
1229  34.682170848906_r8, 34.694080110951_r8, 34.705238130449_r8, &
1230  34.716513959838_r8, 34.728518191976_r8, 34.739505619355_r8, &
1231  34.751452325212_r8, 34.760072302_r8, 34.769407785424_r8, 34.78964193694_r8, &
1232  34.808295026002_r8, 34.822151570281_r8, 34.832369913788_r8, &
1233  34.840088169273_r8, 34.846482961025_r8, 34.851270079602_r8, &
1234  34.856641575125_r8, 34.860019411636_r8, 34.863619225502_r8, &
1235  34.8670618825_r8, 34.868072764781_r8, 34.869952495228_r8, &
1236  34.870706954223_r8, 34.869948548766_r8, 34.870177007927_r8, &
1237  34.870163920171_r8, 34.870229963516_r8, 34.606687646962_r8, &
1238  34.59194804862_r8, 34.620913179144_r8, 34.60569590954_r8, &
1239  34.616792273632_r8, 34.657212493965_r8, 34.938587996851_r8, &
1240  35.144639998851_r8, 34.972934057672_r8, 34.746556607465_r8, &
1241  34.706863851408_r8, 34.746964646708_r8, 34.808232606377_r8, &
1242  34.826327152152_r8, 34.816456153416_r8, 34.800921106393_r8, &
1243  34.7588991589_r8, 34.730693983602_r8, 34.714397236346_r8, &
1244  34.713783487812_r8, 34.718735529719_r8, 34.72438007792_r8, &
1245  34.734010000495_r8, 34.743084410713_r8, 34.753058494526_r8, &
1246  34.762475024106_r8, 34.772124124595_r8, 34.793567706862_r8, &
1247  34.814396506585_r8, 34.825581702081_r8, 34.837454882016_r8, &
1248  34.844788711634_r8, 34.852503925855_r8, 34.858062359024_r8, &
1249  34.862564801306_r8, 34.86732380031_r8, 34.870753430507_r8, &
1250  34.874612605795_r8, 34.877672506821_r8, 34.879244950055_r8, &
1251  34.880316871764_r8, 34.880826475872_r8, 34.881086643287_r8, &
1252  34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, &
1253  6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, &
1254  7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, &
1255  10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1256  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1257  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1258  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1259  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
1260  /) ) /
1261 
1262 type(gsw_result) :: sp_from_sstar
1263 
1264 data sp_from_sstar / gsw_result( &
1265  "SP_from_Sstar", 1.2971e-10_r8, (/ &
1266  34.345367_r8, 34.344894_r8, 34.339741_r8, 34.342312_r8, 34.368393_r8, &
1267  34.375198_r8, 34.572834_r8, 34.8246_r8, 34.955181_r8, 34.953842_r8, &
1268  34.821655_r8, 34.670124_r8, 34.442738_r8, 34.430153_r8, 34.455452_r8, &
1269  34.480721_r8, 34.4907_r8, 34.498734_r8, 34.511494_r8, 34.522358_r8, &
1270  34.532505_r8, 34.542656_r8, 34.553711_r8, 34.563793_r8, 34.574997_r8, &
1271  34.582958_r8, 34.591732_r8, 34.611008_r8, 34.628944_r8, 34.642342_r8, &
1272  34.652279_r8, 34.659893_r8, 34.666252_r8, 34.671066_r8, 34.676521_r8, &
1273  34.680054_r8, 34.683853_r8, 34.687504_r8, 34.688637_r8, 34.690674_r8, &
1274  34.691525_r8, 34.690979_r8, 34.691231_r8, 34.691307_r8, 34.691372_r8, &
1275  34.444057_r8, 34.429386_r8, 34.458214_r8, 34.443054_r8, 34.454098_r8, &
1276  34.494339_r8, 34.774319_r8, 34.979286_r8, 34.808174_r8, 34.582397_r8, &
1277  34.542274_r8, 34.581402_r8, 34.641544_r8, 34.659107_r8, 34.648941_r8, &
1278  34.633102_r8, 34.590336_r8, 34.561188_r8, 34.543926_r8, 34.542332_r8, &
1279  34.54636_r8, 34.551041_r8, 34.559719_r8, 34.567924_r8, 34.577103_r8, &
1280  34.585781_r8, 34.594749_r8, 34.614994_r8, 34.634769_r8, 34.64547_r8, &
1281  34.656967_r8, 34.664131_r8, 34.67181_r8, 34.677475_r8, 34.682167_r8, &
1282  34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, &
1283  34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, &
1284  6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, &
1285  7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1286  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1287  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1288  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1289  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1290  9e90_r8 &
1291  /) ) /
1292 
1293 type(gsw_result) :: pt_from_ct
1294 
1295 data pt_from_ct / gsw_result( &
1296  "pt_from_CT", 6.0541e-10_r8, (/ &
1297  27.962_r8, 27.960649676263_r8, 27.911304936959_r8, 27.916955275736_r8, &
1298  27.852620974197_r8, 27.762302527944_r8, 26.926599738775_r8, &
1299  25.456784362366_r8, 23.380931414239_r8, 20.643430396515_r8, &
1300  18.147615176057_r8, 15.860257203834_r8, 12.004161576491_r8, &
1301  10.265199168719_r8, 9.2476748601117_r8, 8.3905979987695_r8, &
1302  7.226974820427_r8, 6.4678519009599_r8, 5.845409916374_r8, &
1303  5.3213701361266_r8, 4.8427692845311_r8, 4.3921355103141_r8, &
1304  3.9771353816634_r8, 3.6027540210747_r8, 3.2888557950201_r8, &
1305  2.9937946911835_r8, 2.7556308746288_r8, 2.315219556858_r8, &
1306  1.9772054226753_r8, 1.7638977217251_r8, 1.5919257145968_r8, &
1307  1.4722086770491_r8, 1.3793522531447_r8, 1.3090247885195_r8, &
1308  1.2359775944119_r8, 1.1848491779198_r8, 1.1340613982398_r8, &
1309  1.0916936338045_r8, 1.0755921426791_r8, 1.0472127286654_r8, &
1310  1.0286950686533_r8, 1.0266179914793_r8, 1.0167581768893_r8, &
1311  1.0152167889181_r8, 1.0146086807685_r8, 27.294_r8, 27.230694809098_r8, &
1312  27.298379953865_r8, 27.253077797852_r8, 27.27976195327_r8, &
1313  26.960549483152_r8, 24.836593854974_r8, 21.914071434531_r8, &
1314  18.795734737703_r8, 15.009212505129_r8, 12.944954275738_r8, &
1315  11.490443037609_r8, 10.405978281772_r8, 9.8517084974973_r8, &
1316  9.4176352110135_r8, 8.9716751374206_r8, 8.011340697685_r8, &
1317  7.0909461631173_r8, 6.2497001590873_r8, 5.6257624371723_r8, &
1318  5.1182234452335_r8, 4.6089296546702_r8, 4.2708937175881_r8, &
1319  3.9337231411793_r8, 3.5966967451664_r8, 3.2697335015609_r8, &
1320  2.95623977332_r8, 2.4973809758874_r8, 2.0538699246538_r8, &
1321  1.874621467874_r8, 1.6842935950495_r8, 1.5569710756757_r8, &
1322  1.438156561174_r8, 1.3358185214475_r8, 1.2388653439719_r8, &
1323  1.1384195579623_r8, 1.0478997540328_r8, 0.9676634539283_r8, &
1324  0.922310774967_r8, 0.88662022188132_r8, 0.8569432753779_r8, &
1325  0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, &
1326  0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, &
1327  4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, &
1328  3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1329  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1330  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1331  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1332  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1333  9e90_r8 &
1334  /) ) /
1335 
1336 type(gsw_result) :: t_from_ct
1337 
1338 data t_from_ct / gsw_result( &
1339  "t_from_CT", 6.0001e-10_r8, (/ &
1340  27.962_r8, 27.963_r8, 27.916_r8, 27.924_r8, 27.862_r8, 27.774_r8, &
1341  26.944_r8, 25.479_r8, 23.407_r8, 20.672_r8, 18.178_r8, 15.892_r8, &
1342  12.037_r8, 10.301_r8, 9.2869_r8, 8.4331_r8, 7.2761_r8, 6.5238_r8, &
1343  5.9079_r8, 5.3902_r8, 4.9176_r8, 4.4726_r8, 4.063_r8, 3.694_r8, 3.3856_r8, &
1344  3.096_r8, 2.8636_r8, 2.439_r8, 2.1178_r8, 1.9233_r8, 1.7713_r8, 1.6731_r8, &
1345  1.6031_r8, 1.5568_r8, 1.5086_r8, 1.4837_r8, 1.4601_r8, 1.4459_r8, &
1346  1.4599_r8, 1.462_r8, 1.4753_r8, 1.5064_r8, 1.5306_r8, 1.5642_r8, 1.5998_r8, &
1347  27.294_r8, 27.233_r8, 27.303_r8, 27.26_r8, 27.289_r8, 26.972_r8, 24.853_r8, &
1348  21.934_r8, 18.818_r8, 15.032_r8, 12.969_r8, 11.516_r8, 10.436_r8, &
1349  9.8867_r8, 9.4574_r8, 9.016_r8, 8.0635_r8, 7.1498_r8, 6.3144_r8, 5.6965_r8, &
1350  5.195_r8, 4.6911_r8, 4.3593_r8, 4.0281_r8, 3.6966_r8, 3.375_r8, 3.0666_r8, &
1351  2.6237_r8, 2.1957_r8, 2.036_r8, 1.8655_r8, 1.7597_r8, 1.6633_r8, 1.5843_r8, &
1352  1.5116_r8, 1.436_r8, 1.3714_r8, 1.318_r8, 1.3016_r8, 1.2959_r8, 1.2974_r8, &
1353  1.3189_r8, 1.3508_r8, 1.3845_r8, 1.4157_r8, 10.046_r8, 9.1279_r8, &
1354  7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e90_r8, &
1355  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1356  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1357  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1358  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1359  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
1360  /) ) /
1361 
1362 type(gsw_result) :: ct_from_pt
1363 
1364 data ct_from_pt / gsw_result( &
1365  "CT_from_pt", 6.2611e-10_r8, (/ &
1366  27.994827331979_r8, 27.993492458241_r8, 27.944213680466_r8, &
1367  27.949774879518_r8, 27.884179948892_r8, 27.793319825682_r8, &
1368  26.947346080828_r8, 25.46430727652_r8, 23.379820676679_r8, &
1369  20.63847459173_r8, 18.143915714715_r8, 15.858592965627_r8, &
1370  12.005103039523_r8, 10.265575172257_r8, 9.247317946145_r8, &
1371  8.3897191572738_r8, 7.225986275199_r8, 6.4668711669915_r8, &
1372  5.8444172841219_r8, 5.3204133981088_r8, 4.8418803985128_r8, &
1373  4.3913347689901_r8, 3.9764271435477_r8, 3.6021512542309_r8, &
1374  3.2883333327082_r8, 2.9933860754579_r8, 2.7553035518852_r8, &
1375  2.3150448546651_r8, 1.977149296285_r8, 1.763913973583_r8, &
1376  1.5920141958327_r8, 1.4723471561845_r8, 1.3795290982534_r8, &
1377  1.3092323718852_r8, 1.236215847005_r8, 1.1851119841849_r8, &
1378  1.1343476986713_r8, 1.0919973856578_r8, 1.0759044077233_r8, &
1379  1.0475395549349_r8, 1.0290342473008_r8, 1.0269634786561_r8, &
1380  1.0171112605236_r8, 1.0155713449034_r8, 1.0149634033236_r8, &
1381  27.320893180033_r8, 27.258004994462_r8, 27.324713453943_r8, &
1382  27.279898123599_r8, 27.306210016001_r8, 26.984520662239_r8, &
1383  24.844748285783_r8, 21.909930415708_r8, 18.79313601436_r8, &
1384  15.009081326229_r8, 12.944289997453_r8, 11.488269182864_r8, &
1385  10.402384857673_r8, 9.8477626588835_r8, 9.4138854127839_r8, &
1386  8.9682331074201_r8, 8.0087208215432_r8, 7.0889445244783_r8, &
1387  6.2481613625224_r8, 5.6244493769453_r8, 5.1170582706497_r8, &
1388  4.6079367124573_r8, 4.269970298836_r8, 3.9328928453607_r8, &
1389  3.5959682882935_r8, 3.2691230935998_r8, 2.9557520915302_r8, &
1390  2.4970408562072_r8, 2.0537091528134_r8, 1.874523769853_r8, &
1391  1.6842706911938_r8, 1.5570066554771_r8, 1.4382440661902_r8, &
1392  1.3359600921445_r8, 1.2390646514638_r8, 1.1386797401176_r8, &
1393  1.048221259372_r8, 0.96803553122254_r8, 0.92270690978888_r8, &
1394  0.8870403114493_r8, 0.85738474529935_r8, 0.84629138894925_r8, &
1395  0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, &
1396  10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, &
1397  5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, &
1398  4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1399  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1400  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1401  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1402  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1403  9e90_r8 &
1404  /) ) /
1405 
1406 type(gsw_result) :: pt0_from_t
1407 
1408 data pt0_from_t / gsw_result( &
1409  "pt0_from_t", 6.054e-10_r8, (/ &
1410  27.962_r8, 27.960649676263_r8, 27.911304936959_r8, 27.916955275736_r8, &
1411  27.852620974197_r8, 27.762302527944_r8, 26.926599738775_r8, &
1412  25.456784362366_r8, 23.380931414239_r8, 20.643430396515_r8, &
1413  18.147615176057_r8, 15.860257203834_r8, 12.004161576491_r8, &
1414  10.265199168719_r8, 9.2476748601117_r8, 8.3905979987695_r8, &
1415  7.226974820427_r8, 6.4678519009599_r8, 5.845409916374_r8, &
1416  5.3213701361266_r8, 4.8427692845311_r8, 4.3921355103141_r8, &
1417  3.9771353816634_r8, 3.6027540210747_r8, 3.2888557950201_r8, &
1418  2.9937946911835_r8, 2.7556308746288_r8, 2.315219556858_r8, &
1419  1.9772054226753_r8, 1.7638977217251_r8, 1.5919257145968_r8, &
1420  1.4722086770491_r8, 1.3793522531447_r8, 1.3090247885195_r8, &
1421  1.2359775944119_r8, 1.1848491779198_r8, 1.1340613982398_r8, &
1422  1.0916936338045_r8, 1.0755921426791_r8, 1.0472127286654_r8, &
1423  1.0286950686533_r8, 1.0266179914793_r8, 1.0167581768893_r8, &
1424  1.0152167889181_r8, 1.0146086807685_r8, 27.294_r8, 27.230694809098_r8, &
1425  27.298379953865_r8, 27.253077797852_r8, 27.27976195327_r8, &
1426  26.960549483152_r8, 24.836593854974_r8, 21.914071434531_r8, &
1427  18.795734737703_r8, 15.009212505129_r8, 12.944954275738_r8, &
1428  11.490443037609_r8, 10.405978281772_r8, 9.8517084974973_r8, &
1429  9.4176352110135_r8, 8.9716751374206_r8, 8.011340697685_r8, &
1430  7.0909461631173_r8, 6.2497001590873_r8, 5.6257624371723_r8, &
1431  5.1182234452335_r8, 4.6089296546702_r8, 4.2708937175881_r8, &
1432  3.9337231411793_r8, 3.5966967451664_r8, 3.2697335015609_r8, &
1433  2.95623977332_r8, 2.4973809758874_r8, 2.0538699246538_r8, &
1434  1.874621467874_r8, 1.6842935950495_r8, 1.5569710756757_r8, &
1435  1.438156561174_r8, 1.3358185214475_r8, 1.2388653439719_r8, &
1436  1.1384195579623_r8, 1.0478997540328_r8, 0.9676634539283_r8, &
1437  0.922310774967_r8, 0.88662022188132_r8, 0.8569432753779_r8, &
1438  0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, &
1439  0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, &
1440  4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, &
1441  3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1442  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1443  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1444  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1445  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1446  9e90_r8 &
1447  /) ) /
1448 
1449 type(gsw_result) :: pt_from_t
1450 
1451 data pt_from_t / gsw_result( &
1452  "pt_from_t", 6.054e-10_r8, (/ &
1453  27.962_r8, 27.960649676263_r8, 27.911304936959_r8, 27.916955275736_r8, &
1454  27.852620974197_r8, 27.762302527944_r8, 26.926599738775_r8, &
1455  25.456784362366_r8, 23.380931414239_r8, 20.643430396515_r8, &
1456  18.147615176057_r8, 15.860257203834_r8, 12.004161576491_r8, &
1457  10.265199168719_r8, 9.2476748601117_r8, 8.3905979987695_r8, &
1458  7.226974820427_r8, 6.4678519009599_r8, 5.845409916374_r8, &
1459  5.3213701361266_r8, 4.8427692845311_r8, 4.3921355103141_r8, &
1460  3.9771353816634_r8, 3.6027540210747_r8, 3.2888557950201_r8, &
1461  2.9937946911835_r8, 2.7556308746288_r8, 2.315219556858_r8, &
1462  1.9772054226753_r8, 1.7638977217251_r8, 1.5919257145968_r8, &
1463  1.4722086770491_r8, 1.3793522531447_r8, 1.3090247885195_r8, &
1464  1.2359775944119_r8, 1.1848491779198_r8, 1.1340613982398_r8, &
1465  1.0916936338045_r8, 1.0755921426791_r8, 1.0472127286654_r8, &
1466  1.0286950686533_r8, 1.0266179914793_r8, 1.0167581768893_r8, &
1467  1.0152167889181_r8, 1.0146086807685_r8, 27.294_r8, 27.230694809098_r8, &
1468  27.298379953865_r8, 27.253077797852_r8, 27.27976195327_r8, &
1469  26.960549483152_r8, 24.836593854974_r8, 21.914071434531_r8, &
1470  18.795734737703_r8, 15.009212505129_r8, 12.944954275738_r8, &
1471  11.490443037609_r8, 10.405978281772_r8, 9.8517084974973_r8, &
1472  9.4176352110135_r8, 8.9716751374206_r8, 8.011340697685_r8, &
1473  7.0909461631173_r8, 6.2497001590873_r8, 5.6257624371723_r8, &
1474  5.1182234452335_r8, 4.6089296546702_r8, 4.2708937175881_r8, &
1475  3.9337231411793_r8, 3.5966967451664_r8, 3.2697335015609_r8, &
1476  2.95623977332_r8, 2.4973809758874_r8, 2.0538699246538_r8, &
1477  1.874621467874_r8, 1.6842935950495_r8, 1.5569710756757_r8, &
1478  1.438156561174_r8, 1.3358185214475_r8, 1.2388653439719_r8, &
1479  1.1384195579623_r8, 1.0478997540328_r8, 0.9676634539283_r8, &
1480  0.922310774967_r8, 0.88662022188132_r8, 0.8569432753779_r8, &
1481  0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, &
1482  0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, &
1483  4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, &
1484  3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1485  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1486  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1487  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1488  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1489  9e90_r8 &
1490  /) ) /
1491 
1492 type(gsw_result) :: z_from_p
1493 
1494 data z_from_p / gsw_result( &
1495  "z_from_p", 2.287e-08_r8, (/ &
1496  -0._r8, -9.94292752366_r8, -19.8853722291_r8, -29.8273342654_r8, &
1497  -39.7688137813_r8, -49.7098109259_r8, -75.5541470718_r8, -100.401398555_r8, &
1498  -125.245640887_r8, -150.086876391_r8, -174.925107385_r8, -200.753682928_r8, &
1499  -250.414903423_r8, -301.057006019_r8, -350.694044703_r8, -401.311520288_r8, &
1500  -501.517377749_r8, -601.674729975_r8, -701.783728094_r8, -801.844522789_r8, &
1501  -901.857264297_r8, -1001.82210241_r8, -1101.73918647_r8, -1202.59723458_r8, &
1502  -1302.41878764_r8, -1403.18066125_r8, -1502.90728114_r8, -1753.49747279_r8, &
1503  -2003.79266873_r8, -2253.79517748_r8, -2504.48983687_r8, -2754.8941068_r8, &
1504  -3005.99055069_r8, -3255.81974584_r8, -3506.34339786_r8, -3756.5834721_r8, &
1505  -4007.51805038_r8, -4257.19655119_r8, -4508.54547656_r8, -4758.64273499_r8, &
1506  -5009.43680174_r8, -5258.98569785_r8, -5510.20301512_r8, -5760.17945725_r8, &
1507  -6010.85495978_r8, -0._r8, -9.9434087897_r8, -19.8863347367_r8, &
1508  -29.8287779901_r8, -39.7707386988_r8, -49.7122170116_r8, -75.5578040808_r8, &
1509  -100.406258219_r8, -125.251703054_r8, -150.094140908_r8, -174.933574101_r8, &
1510  -200.763399769_r8, -250.427023888_r8, -301.071577557_r8, -350.711018641_r8, &
1511  -401.33094405_r8, -501.541651272_r8, -601.7038508_r8, -701.817693772_r8, &
1512  -801.883330877_r8, -901.900912361_r8, -1001.87058802_r8, -1101.79250721_r8, &
1513  -1202.65543587_r8, -1302.48181922_r8, -1403.2485685_r8, -1502.98001387_r8, &
1514  -1753.58233035_r8, -2003.88963617_r8, -2253.90423994_r8, -2504.61102716_r8, &
1515  -2755.0274102_r8, -3006.13599997_r8, -3255.97727904_r8, -3506.51304787_r8, &
1516  -3756.76522453_r8, -4007.71193813_r8, -4257.40251283_r8, -4508.76359219_r8, &
1517  -4758.8729434_r8, -5009.67913593_r8, -5259.24009694_r8, -5510.46955908_r8, &
1518  -5760.45808542_r8, -6011.14570526_r8, -0._r8, -9.90629019928_r8, &
1519  -19.8120994414_r8, -29.7174278749_r8, -39.6222756481_r8, -49.5266429093_r8, &
1520  -75.2757500563_r8, -100.031447035_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1521  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1522  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1523  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1524  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1525  9e90_r8 &
1526  /) ) /
1527 
1528 type(gsw_result) :: p_from_z
1529 
1530 data p_from_z / gsw_result( &
1531  "p_from_z", 2.3002e-08_r8, (/ &
1532  0._r8, 10._r8, 20._r8, 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 126._r8, &
1533  151._r8, 176._r8, 202._r8, 252._r8, 303._r8, 353._r8, 404._r8, 505._r8, &
1534  606._r8, 707._r8, 808._r8, 909._r8, 1010._r8, 1111._r8, 1213._r8, 1314._r8, &
1535  1416._r8, 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, &
1536  3045._r8, 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, &
1537  4840._r8, 5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, &
1538  20._r8, 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 126._r8, 151._r8, 176._r8, &
1539  202._r8, 252._r8, 303._r8, 353._r8, 404._r8, 505._r8, 606._r8, 707._r8, &
1540  808._r8, 909._r8, 1010._r8, 1111._r8, 1213._r8, 1314._r8, 1416._r8, &
1541  1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, 3045._r8, &
1542  3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, 4840._r8, &
1543  5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, 20._r8, &
1544  30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1545  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1546  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1547  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1548  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1549  9e90_r8, 9e90_r8 &
1550  /) ) /
1551 
1552 type(gsw_result) :: entropy_from_pt
1553 
1554 data entropy_from_pt / gsw_result( &
1555  "entropy_from_pt", 9.0282e-09_r8, (/ &
1556  389.65185887387_r8, 389.63428577583_r8, 388.98228296798_r8, &
1557  389.05534718372_r8, 388.17870752413_r8, 386.9717687749_r8, &
1558  375.68190926273_r8, 355.83909543977_r8, 327.84182401906_r8, &
1559  290.7670161596_r8, 256.7610235155_r8, 225.35729194129_r8, &
1560  171.82866627871_r8, 147.40527004928_r8, 133.03128417554_r8, &
1561  120.88402155859_r8, 104.34703856497_r8, 93.522328749804_r8, &
1562  84.622950418876_r8, 77.115672072501_r8, 70.247432927606_r8, &
1563  63.769898408431_r8, 57.795053771106_r8, 52.397610056769_r8, &
1564  47.865769861908_r8, 43.602356641404_r8, 40.157039224212_r8, &
1565  33.77748259958_r8, 28.873574113396_r8, 25.775287289322_r8, &
1566  23.276073693543_r8, 21.535197067953_r8, 20.18429348651_r8, &
1567  19.160881716058_r8, 18.097503668364_r8, 17.353171660935_r8, &
1568  16.613591581181_r8, 15.996387030804_r8, 15.761895478305_r8, &
1569  15.348533579754_r8, 15.078941779422_r8, 15.048968853922_r8, &
1570  14.905470041573_r8, 14.883051849122_r8, 14.874184810883_r8, &
1571  380.68173983212_r8, 379.8499116856_r8, 380.72880115459_r8, &
1572  380.13727697209_r8, 380.4840209928_r8, 376.19690242061_r8, &
1573  347.56109436078_r8, 307.99900993045_r8, 265.65132766249_r8, &
1574  213.62787615132_r8, 184.93096152291_r8, 164.55377366123_r8, &
1575  149.28138463815_r8, 141.46153519248_r8, 135.33914348796_r8, &
1576  129.04206432682_r8, 115.45224769829_r8, 102.37867091399_r8, &
1577  90.388013056207_r8, 81.467030172031_r8, 74.193778185528_r8, &
1578  66.882220528033_r8, 62.019868273143_r8, 57.164527594534_r8, &
1579  52.305274640905_r8, 47.585795676609_r8, 43.055491095462_r8, &
1580  36.413069946898_r8, 29.982821969643_r8, 27.380268750334_r8, &
1581  24.615109347018_r8, 22.764512922303_r8, 21.036563657329_r8, &
1582  19.548025430184_r8, 18.137572310291_r8, 16.675777623413_r8, &
1583  15.358271924403_r8, 14.189832514478_r8, 13.528963746978_r8, &
1584  13.009079797431_r8, 12.57681715665_r8, 12.415081957432_r8, &
1585  12.382918086768_r8, 12.365031338104_r8, 12.297112424952_r8, &
1586  153.12120882735_r8, 139.62236456703_r8, 108.9846170621_r8, &
1587  77.728754443394_r8, 59.634169426745_r8, 50.310647945221_r8, &
1588  60.836929033964_r8, 69.656461797752_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1589  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1590  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1591  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1592  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1593  9e90_r8 &
1594  /) ) /
1595 
1596 type(gsw_result) :: pt_from_entropy
1597 
1598 data pt_from_entropy / gsw_result( &
1599  "pt_from_entropy", 6.0541e-10_r8, (/ &
1600  27.962_r8, 27.960649676263_r8, 27.911304936959_r8, 27.916955275736_r8, &
1601  27.852620974197_r8, 27.762302527944_r8, 26.926599738775_r8, &
1602  25.456784362366_r8, 23.380931414239_r8, 20.643430396515_r8, &
1603  18.147615176057_r8, 15.860257203834_r8, 12.004161576491_r8, &
1604  10.265199168719_r8, 9.2476748601117_r8, 8.3905979987695_r8, &
1605  7.226974820427_r8, 6.4678519009599_r8, 5.845409916374_r8, &
1606  5.3213701361266_r8, 4.8427692845311_r8, 4.3921355103141_r8, &
1607  3.9771353816634_r8, 3.6027540210747_r8, 3.2888557950201_r8, &
1608  2.9937946911835_r8, 2.7556308746288_r8, 2.315219556858_r8, &
1609  1.9772054226753_r8, 1.7638977217251_r8, 1.5919257145968_r8, &
1610  1.4722086770491_r8, 1.3793522531447_r8, 1.3090247885195_r8, &
1611  1.2359775944119_r8, 1.1848491779198_r8, 1.1340613982398_r8, &
1612  1.0916936338045_r8, 1.0755921426791_r8, 1.0472127286654_r8, &
1613  1.0286950686533_r8, 1.0266179914793_r8, 1.0167581768893_r8, &
1614  1.0152167889181_r8, 1.0146086807685_r8, 27.294_r8, 27.230694809098_r8, &
1615  27.298379953865_r8, 27.253077797852_r8, 27.27976195327_r8, &
1616  26.960549483152_r8, 24.836593854974_r8, 21.914071434531_r8, &
1617  18.795734737703_r8, 15.009212505129_r8, 12.944954275738_r8, &
1618  11.490443037609_r8, 10.405978281772_r8, 9.8517084974973_r8, &
1619  9.4176352110135_r8, 8.9716751374206_r8, 8.011340697685_r8, &
1620  7.0909461631173_r8, 6.2497001590873_r8, 5.6257624371723_r8, &
1621  5.1182234452335_r8, 4.6089296546702_r8, 4.2708937175881_r8, &
1622  3.9337231411793_r8, 3.5966967451664_r8, 3.2697335015609_r8, &
1623  2.95623977332_r8, 2.4973809758874_r8, 2.0538699246538_r8, &
1624  1.874621467874_r8, 1.6842935950495_r8, 1.5569710756757_r8, &
1625  1.438156561174_r8, 1.3358185214475_r8, 1.2388653439719_r8, &
1626  1.1384195579623_r8, 1.0478997540328_r8, 0.9676634539283_r8, &
1627  0.922310774967_r8, 0.88662022188132_r8, 0.8569432753779_r8, &
1628  0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, &
1629  0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, &
1630  4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, &
1631  3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1632  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1633  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1634  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1635  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1636  9e90_r8 &
1637  /) ) /
1638 
1639 type(gsw_result) :: ct_from_entropy
1640 
1641 data ct_from_entropy / gsw_result( &
1642  "CT_from_entropy", 6.2611e-10_r8, (/ &
1643  27.994827331979_r8, 27.993492458241_r8, 27.944213680466_r8, &
1644  27.949774879518_r8, 27.884179948892_r8, 27.793319825682_r8, &
1645  26.947346080828_r8, 25.46430727652_r8, 23.379820676679_r8, &
1646  20.63847459173_r8, 18.143915714715_r8, 15.858592965627_r8, &
1647  12.005103039523_r8, 10.265575172257_r8, 9.247317946145_r8, &
1648  8.3897191572738_r8, 7.225986275199_r8, 6.4668711669915_r8, &
1649  5.8444172841219_r8, 5.3204133981088_r8, 4.8418803985128_r8, &
1650  4.3913347689901_r8, 3.9764271435477_r8, 3.6021512542309_r8, &
1651  3.2883333327082_r8, 2.9933860754579_r8, 2.7553035518852_r8, &
1652  2.3150448546651_r8, 1.977149296285_r8, 1.763913973583_r8, &
1653  1.5920141958327_r8, 1.4723471561845_r8, 1.3795290982534_r8, &
1654  1.3092323718852_r8, 1.236215847005_r8, 1.1851119841849_r8, &
1655  1.1343476986713_r8, 1.0919973856578_r8, 1.0759044077233_r8, &
1656  1.0475395549349_r8, 1.0290342473008_r8, 1.0269634786561_r8, &
1657  1.0171112605236_r8, 1.0155713449034_r8, 1.0149634033236_r8, &
1658  27.320893180033_r8, 27.258004994462_r8, 27.324713453943_r8, &
1659  27.279898123599_r8, 27.306210016001_r8, 26.984520662239_r8, &
1660  24.844748285783_r8, 21.909930415708_r8, 18.79313601436_r8, &
1661  15.009081326229_r8, 12.944289997453_r8, 11.488269182864_r8, &
1662  10.402384857673_r8, 9.8477626588835_r8, 9.4138854127839_r8, &
1663  8.9682331074201_r8, 8.0087208215432_r8, 7.0889445244783_r8, &
1664  6.2481613625224_r8, 5.6244493769453_r8, 5.1170582706497_r8, &
1665  4.6079367124573_r8, 4.269970298836_r8, 3.9328928453607_r8, &
1666  3.5959682882935_r8, 3.2691230935998_r8, 2.9557520915302_r8, &
1667  2.4970408562072_r8, 2.0537091528134_r8, 1.874523769853_r8, &
1668  1.6842706911938_r8, 1.5570066554771_r8, 1.4382440661902_r8, &
1669  1.3359600921445_r8, 1.2390646514638_r8, 1.1386797401176_r8, &
1670  1.048221259372_r8, 0.96803553122254_r8, 0.92270690978888_r8, &
1671  0.8870403114493_r8, 0.85738474529935_r8, 0.84629138894925_r8, &
1672  0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, &
1673  10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, &
1674  5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, &
1675  4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1676  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1677  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1678  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1679  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1680  9e90_r8 &
1681  /) ) /
1682 
1683 type(gsw_result) :: entropy_from_t
1684 
1685 data entropy_from_t / gsw_result( &
1686  "entropy_from_t", 9.0282e-09_r8, (/ &
1687  389.65185887387_r8, 389.63428577583_r8, 388.98228296798_r8, &
1688  389.05534718372_r8, 388.17870752413_r8, 386.9717687749_r8, &
1689  375.68190926273_r8, 355.83909543977_r8, 327.84182401906_r8, &
1690  290.7670161596_r8, 256.7610235155_r8, 225.35729194129_r8, &
1691  171.82866627871_r8, 147.40527004928_r8, 133.03128417554_r8, &
1692  120.88402155859_r8, 104.34703856497_r8, 93.522328749804_r8, &
1693  84.622950418876_r8, 77.115672072502_r8, 70.247432927606_r8, &
1694  63.769898408431_r8, 57.795053771106_r8, 52.397610056769_r8, &
1695  47.865769861908_r8, 43.602356641404_r8, 40.157039224212_r8, &
1696  33.77748259958_r8, 28.873574113396_r8, 25.775287289322_r8, &
1697  23.276073693543_r8, 21.535197067953_r8, 20.18429348651_r8, &
1698  19.160881716058_r8, 18.097503668364_r8, 17.353171660935_r8, &
1699  16.613591581181_r8, 15.996387030804_r8, 15.761895478305_r8, &
1700  15.348533579754_r8, 15.078941779422_r8, 15.048968853922_r8, &
1701  14.905470041573_r8, 14.883051849122_r8, 14.874184810883_r8, &
1702  380.68173983212_r8, 379.8499116856_r8, 380.72880115459_r8, &
1703  380.13727697209_r8, 380.4840209928_r8, 376.19690242061_r8, &
1704  347.56109436078_r8, 307.99900993045_r8, 265.65132766249_r8, &
1705  213.62787615132_r8, 184.93096152291_r8, 164.55377366123_r8, &
1706  149.28138463815_r8, 141.46153519248_r8, 135.33914348796_r8, &
1707  129.04206432682_r8, 115.45224769829_r8, 102.37867091399_r8, &
1708  90.388013056207_r8, 81.467030172031_r8, 74.193778185528_r8, &
1709  66.882220528033_r8, 62.019868273143_r8, 57.164527594534_r8, &
1710  52.305274640905_r8, 47.585795676609_r8, 43.055491095462_r8, &
1711  36.413069946898_r8, 29.982821969643_r8, 27.380268750334_r8, &
1712  24.615109347018_r8, 22.764512922303_r8, 21.036563657329_r8, &
1713  19.548025430184_r8, 18.137572310291_r8, 16.675777623413_r8, &
1714  15.358271924403_r8, 14.189832514478_r8, 13.528963746978_r8, &
1715  13.009079797431_r8, 12.57681715665_r8, 12.415081957432_r8, &
1716  12.382918086768_r8, 12.365031338104_r8, 12.297112424952_r8, &
1717  153.12120882735_r8, 139.62236456703_r8, 108.9846170621_r8, &
1718  77.728754443394_r8, 59.634169426745_r8, 50.310647945221_r8, &
1719  60.836929033964_r8, 69.656461797752_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1720  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1721  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1722  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1723  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1724  9e90_r8 &
1725  /) ) /
1726 
1727 type(gsw_result) :: adiabatic_lapse_rate_from_ct
1728 
1729 data adiabatic_lapse_rate_from_ct / gsw_result( &
1730  "adiabatic_lapse_rate_from_CT", 5.6997e-19_r8, (/ &
1731  2.350076231702e-08_r8, 2.3506593895185e-08_r8, 2.3482041606441e-08_r8, &
1732  2.3492497567774e-08_r8, 2.3461041657227e-08_r8, 2.3411854306218e-08_r8, &
1733  2.2921721022123e-08_r8, 2.2033388669692e-08_r8, 2.074072990348e-08_r8, &
1734  1.8989172901044e-08_r8, 1.7352751385039e-08_r8, 1.5825258323682e-08_r8, &
1735  1.3190506136644e-08_r8, 1.2018993640864e-08_r8, 1.1357285461459e-08_r8, &
1736  1.0809145713364e-08_r8, 1.0102602638472e-08_r8, 9.6927924321287e-09_r8, &
1737  9.3859818006371e-09_r8, 9.1534508858066e-09_r8, 8.9561823207592e-09_r8, &
1738  8.7813368887443e-09_r8, 8.6347463584731e-09_r8, 8.5214475253032e-09_r8, &
1739  8.4532645775317e-09_r8, 8.4015560722528e-09_r8, 8.3918333153575e-09_r8, &
1740  8.4880177471446e-09_r8, 8.6626384004163e-09_r8, 8.9279600826769e-09_r8, &
1741  9.2231068383478e-09_r8, 9.5525025343972e-09_r8, 9.898707064233e-09_r8, &
1742  1.0254479862391e-08_r8, 1.0605976887749e-08_r8, 1.0966888791217e-08_r8, &
1743  1.1324707719772e-08_r8, 1.1681191365972e-08_r8, 1.2050721062562e-08_r8, &
1744  1.2405810270118e-08_r8, 1.2762144389615e-08_r8, 1.3120117076591e-08_r8, &
1745  1.3470397858798e-08_r8, 1.3817545310689e-08_r8, 1.4160168197609e-08_r8, &
1746  2.3089434296873e-08_r8, 2.3055377776083e-08_r8, 2.3107142844159e-08_r8, &
1747  2.3084394657367e-08_r8, 2.3108944056443e-08_r8, 2.2918559571662e-08_r8, &
1748  2.161622692935e-08_r8, 1.977507419962e-08_r8, 1.7732831224572e-08_r8, &
1749  1.5176880016859e-08_r8, 1.377013795482e-08_r8, 1.278215162664e-08_r8, &
1750  1.2081834044248e-08_r8, 1.175455452349e-08_r8, 1.15083921069e-08_r8, &
1751  1.1254266689429e-08_r8, 1.0693103415851e-08_r8, 1.0162266614789e-08_r8, &
1752  9.6908195609334e-09_r8, 9.3828235399483e-09_r8, 9.163322125153e-09_r8, &
1753  8.9441116814331e-09_r8, 8.8543332808036e-09_r8, 8.7681690949123e-09_r8, &
1754  8.6821195317844e-09_r8, 8.6064785429919e-09_r8, 8.5406129613718e-09_r8, &
1755  8.6218910957539e-09_r8, 8.7190128841436e-09_r8, 9.0072116010826e-09_r8, &
1756  9.2884612418766e-09_r8, 9.6113975262601e-09_r8, 9.9392219770708e-09_r8, &
1757  1.027319319701e-08_r8, 1.0608719640062e-08_r8, 1.0938477449785e-08_r8, &
1758  1.1272140571621e-08_r8, 1.1606693122729e-08_r8, 1.1960657699261e-08_r8, &
1759  1.2313367446474e-08_r8, 1.2665384852534e-08_r8, 1.3020621163898e-08_r8, &
1760  1.337730956009e-08_r8, 1.37267693902e-08_r8, 1.406957983991e-08_r8, &
1761  7.1241832681602e-09_r8, 6.3404880424123e-09_r8, 4.4909112043667e-09_r8, &
1762  2.5662556926025e-09_r8, 1.4540926270446e-09_r8, 9.0501768846576e-10_r8, &
1763  1.9732983751198e-09_r8, 2.8345992356971e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1764  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1765  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1766  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1767  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1768  9e90_r8, 9e90_r8 &
1769  /) ) /
1770 
1771 type(gsw_result) :: specvol
1772 
1773 data specvol / gsw_result( &
1774  "specvol", 2.8211e-16_r8, (/ &
1775  0.0009785543233027595_r8, 0.0009785138871230684_r8, &
1776  0.0009784618366719601_r8, 0.000978421415045363_r8, &
1777  0.0009783422466640218_r8, 0.0009782688824288848_r8, &
1778  0.0009777640332867593_r8, 0.0009770403727271287_r8, &
1779  0.0009762483688210682_r8, 0.0009754108796092231_r8, &
1780  0.0009747842882447639_r8, 0.0009742639966029803_r8, &
1781  0.0009734416458830165_r8, 0.0009729268429971193_r8, &
1782  0.0009725277630284352_r8, 0.0009721572293526454_r8, &
1783  0.0009715456523783769_r8, 0.0009710006565911184_r8, &
1784  0.0009704744077971193_r8, 0.0009699649710788868_r8, &
1785  0.0009694637413999293_r8, 0.0009689674943787913_r8, &
1786  0.0009684765204907988_r8, 0.000967988236724932_r8, &
1787  0.0009675119259902132_r8, 0.0009670370032809823_r8, &
1788  0.0009665735522400026_r8, 0.0009654333580315161_r8, &
1789  0.0009643124260948762_r8, 0.0009632167130854711_r8, &
1790  0.0009621314486924892_r8, 0.0009610619706652792_r8, &
1791  0.0009600004065422604_r8, 0.0009589548080759135_r8, &
1792  0.0009579119173599126_r8, 0.000956881440892287_r8, 0.00095585460009929_r8, &
1793  0.0009548408831970166_r8, 0.000953833338236736_r8, &
1794  0.0009528347748806934_r8, 0.0009518426976033604_r8, &
1795  0.0009508663579792579_r8, 0.000949888117673811_r8, &
1796  0.0009489232123869458_r8, 0.0009479624714279442_r8, &
1797  0.000978276187737756_r8, 0.0009782268853134868_r8, &
1798  0.0009781865501847123_r8, 0.0009781431340949687_r8, &
1799  0.0009781030281571829_r8, 0.0009779358050676108_r8, &
1800  0.0009769962722238172_r8, 0.0009759310684951503_r8, &
1801  0.0009751559609852537_r8, 0.0009743577254754103_r8, &
1802  0.0009738661471026388_r8, 0.0009734569588197507_r8, &
1803  0.0009730110644159331_r8, 0.0009726885634491161_r8, &
1804  0.0009724125020294047_r8, 0.0009721357687388763_r8, &
1805  0.0009715883283967369_r8, 0.000971043032837796_r8, &
1806  0.0009705058336202661_r8, 0.0009699908909482257_r8, &
1807  0.000969489624674539_r8, 0.000968989326368841_r8, 0.0009685094493383497_r8, &
1808  0.000968026828388607_r8, 0.0009675487850033837_r8, &
1809  0.0009670691215662698_r8, 0.0009665961087766352_r8, &
1810  0.000965453051992845_r8, 0.0009643176535877508_r8, &
1811  0.0009632286329509885_r8, 0.0009621401948976804_r8, &
1812  0.0009610703930294092_r8, 0.000960004582156618_r8, &
1813  0.0009589539797173984_r8, 0.0009579081751836131_r8, &
1814  0.0009568689091533141_r8, 0.00095583544893347_r8, 0.0009548146155764491_r8, &
1815  0.0009537999090189937_r8, 0.0009527994807394211_r8, &
1816  0.0009518043190938421_r8, 0.0009508245316705431_r8, &
1817  0.0009498468666524498_r8, 0.0009488809062396042_r8, &
1818  0.0009479172547310287_r8, 0.0009951419259402608_r8, &
1819  0.0009949245452751476_r8, 0.0009946040926904509_r8, &
1820  0.0009942717261025088_r8, 0.0009940088745524498_r8, &
1821  0.0009937773244990007_r8, 0.0009924332606871787_r8, &
1822  0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1823  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1824  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1825  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1826  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
1827  /) ) /
1828 
1829 type(gsw_result) :: alpha
1830 
1831 data alpha / gsw_result( &
1832  "alpha", 8.2511e-15_r8, (/ &
1833  0.00031831246465714_r8, 0.00031840612786134_r8, 0.00031814275657959_r8, &
1834  0.00031829167734161_r8, 0.00031795922055419_r8, 0.00031741177706767_r8, &
1835  0.00031179395602026_r8, 0.00030141362492837_r8, 0.00028596263812853_r8, &
1836  0.00026450886155659_r8, 0.00024397404528929_r8, 0.00022440625955621_r8, &
1837  0.00018975958703816_r8, 0.00017405696520385_r8, 0.00016512854145658_r8, &
1838  0.0001576899406304_r8, 0.00014807441042483_r8, 0.00014252387994453_r8, &
1839  0.00013838738637137_r8, 0.00013527726299367_r8, 0.00013265234399935_r8, &
1840  0.00013033509102019_r8, 0.00012841147506385_r8, 0.0001269577988008_r8, &
1841  0.00012614373092141_r8, 0.00012556465287975_r8, 0.0001255854517629_r8, &
1842  0.00012737392919504_r8, 0.00013030163856574_r8, 0.00013454687195958_r8, &
1843  0.00013923611412081_r8, 0.00014443028981363_r8, 0.00014987962882352_r8, &
1844  0.000155475108165_r8, 0.00016102244369735_r8, 0.00016671350692754_r8, &
1845  0.00017237190127977_r8, 0.00017801733274792_r8, 0.00018385807300305_r8, &
1846  0.00018949876493089_r8, 0.00019516412817312_r8, 0.00020085264541274_r8, &
1847  0.00020644192075943_r8, 0.00021198604708151_r8, 0.00021747053674416_r8, &
1848  0.00031352632986199_r8, 0.00031314584363571_r8, 0.00031379095358515_r8, &
1849  0.00031354339000421_r8, 0.00031386177161337_r8, 0.00031166099032067_r8, &
1850  0.000296339987212_r8, 0.00027410972793407_r8, 0.00024866352968226_r8, &
1851  0.00021583977103351_r8, 0.00019736078118712_r8, 0.00018421708451963_r8, &
1852  0.00017486696247624_r8, 0.00017051611280154_r8, 0.00016724557059136_r8, &
1853  0.00016385374058867_r8, 0.00015629414174458_r8, 0.00014909651010626_r8, &
1854  0.00014267633917463_r8, 0.00013851653174449_r8, 0.0001355865358085_r8, &
1855  0.00013264771558957_r8, 0.00013153755731539_r8, 0.00013047724467425_r8, &
1856  0.00012941419181229_r8, 0.00012849847982801_r8, 0.0001277188349363_r8, &
1857  0.0001292970942265_r8, 0.00013111334945339_r8, 0.0001356863138958_r8, &
1858  0.0001401755697496_r8, 0.00014527582557902_r8, 0.00015046105362017_r8, &
1859  0.00015574418663267_r8, 0.00016106309539841_r8, 0.000166311327862_r8, &
1860  0.00017162801220594_r8, 0.0001769653707843_r8, 0.00018259067859958_r8, &
1861  0.00018820225131634_r8, 0.00019381214928371_r8, 0.00019946847313476_r8, &
1862  0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, &
1863  0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, &
1864  3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, &
1865  2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1866  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1867  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1868  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1869  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1870  9e90_r8, 9e90_r8 &
1871  /) ) /
1872 
1873 type(gsw_result) :: beta
1874 
1875 data beta / gsw_result( &
1876  "beta", 1.8397e-15_r8, (/ &
1877  0.00071891860085091_r8, 0.00071883031010036_r8, 0.00071881933367617_r8, &
1878  0.00071871921576397_r8, 0.00071872418757004_r8, 0.00071877529859646_r8, &
1879  0.00071982423795744_r8, 0.00072192226059341_r8, 0.00072514590519558_r8, &
1880  0.00072975281215256_r8, 0.00073424294205732_r8, 0.00073859466136716_r8, &
1881  0.00074646994917444_r8, 0.00074994874791257_r8, 0.00075182666867381_r8, &
1882  0.00075334843991345_r8, 0.00075512854627534_r8, 0.00075592980881447_r8, &
1883  0.00075639564873158_r8, 0.0007566177576665_r8, 0.00075672790306217_r8, &
1884  0.00075676918303485_r8, 0.00075672001336559_r8, 0.00075655563168968_r8, &
1885  0.00075624428466638_r8, 0.00075587437871921_r8, 0.00075536613495089_r8, &
1886  0.00075367570819568_r8, 0.00075172497764175_r8, 0.00074946350249751_r8, &
1887  0.00074710150046774_r8, 0.00074462553600039_r8, 0.00074209220383233_r8, &
1888  0.0007395363612618_r8, 0.0007369989868843_r8, 0.00073443279635813_r8, &
1889  0.00073187950375532_r8, 0.00072934138433148_r8, 0.00072674861171345_r8, &
1890  0.00072422009277462_r8, 0.00072168607463089_r8, 0.00071915330486918_r8, &
1891  0.00071664523040865_r8, 0.00071415696387813_r8, 0.00071168532745488_r8, &
1892  0.00071995907210522_r8, 0.00071997330477217_r8, 0.00071976642054599_r8, &
1893  0.00071975188668924_r8, 0.00071961539411425_r8, 0.00072002646142771_r8, &
1894  0.00072319569356983_r8, 0.00072793617402992_r8, 0.00073349085963673_r8, &
1895  0.00074090987742426_r8, 0.0007451230130126_r8, 0.00074811560205416_r8, &
1896  0.00075008075571807_r8, 0.00075083844183457_r8, 0.00075134129226816_r8, &
1897  0.00075187115532691_r8, 0.00075313631886973_r8, 0.00075433050421882_r8, &
1898  0.00075534894473538_r8, 0.00075582533336245_r8, 0.00075600843911033_r8, &
1899  0.00075620105004302_r8, 0.00075595017479816_r8, 0.00075568741799472_r8, &
1900  0.00075543622349373_r8, 0.00075514882901842_r8, 0.00075483806381027_r8, &
1901  0.00075319778801004_r8, 0.00075152316047427_r8, 0.00074917733334614_r8, &
1902  0.00074686443787858_r8, 0.00074441062667607_r8, 0.00074194391469331_r8, &
1903  0.00073946813600148_r8, 0.00073698980118432_r8, 0.00073454083205842_r8, &
1904  0.00073207955103499_r8, 0.00072962628588647_r8, 0.00072709545590058_r8, &
1905  0.00072457837687366_r8, 0.00072206359478347_r8, 0.00071954433782395_r8, &
1906  0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, &
1907  0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, &
1908  0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, &
1909  0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1910  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1911  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1912  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1913  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1914  9e90_r8, 9e90_r8 &
1915  /) ) /
1916 
1917 type(gsw_result) :: alpha_on_beta
1918 
1919 data alpha_on_beta / gsw_result( &
1920  "alpha_on_beta", 1.0514e-11_r8, (/ &
1921  0.44276565424847_r8, 0.44295033666135_r8, 0.44259070628019_r8, &
1922  0.44285956234422_r8, 0.4423939336579_r8, 0.44160084199815_r8, &
1923  0.43315289980371_r8, 0.41751534947906_r8, 0.39435186226613_r8, &
1924  0.36246364132036_r8, 0.33227972829495_r8, 0.30382870509899_r8, &
1925  0.25420927828109_r8, 0.23209181385838_r8, 0.21963645124195_r8, &
1926  0.20931873257549_r8, 0.19609166036061_r8, 0.18854115591506_r8, &
1927  0.1829563491057_r8, 0.17879208044347_r8, 0.17529728117936_r8, &
1928  0.17222568511248_r8, 0.16969483137195_r8, 0.16781026203883_r8, &
1929  0.16680288827182_r8, 0.16611841387257_r8, 0.16625772053054_r8, &
1930  0.16900362823153_r8, 0.17333684850344_r8, 0.17952424836061_r8, &
1931  0.18636840380275_r8, 0.19396365398562_r8, 0.20196901146449_r8, &
1932  0.21023321679509_r8, 0.21848394171894_r8, 0.22699627216299_r8, &
1933  0.2355195088745_r8, 0.24407957175102_r8, 0.25298716783177_r8, &
1934  0.26165908239978_r8, 0.27042800884434_r8, 0.27929044343233_r8, &
1935  0.28806711047489_r8, 0.29683397040665_r8, 0.30557119608167_r8, &
1936  0.43547799036022_r8, 0.43494090900329_r8, 0.43596220194201_r8, &
1937  0.43562704843535_r8, 0.43615210872426_r8, 0.43284657858643_r8, &
1938  0.40976459047925_r8, 0.37655736548519_r8, 0.33901380830486_r8, &
1939  0.29131717312754_r8, 0.26487006539924_r8, 0.24624146858294_r8, &
1940  0.23313084776963_r8, 0.22710093583502_r8, 0.22259600571995_r8, &
1941  0.21792795138873_r8, 0.20752437218689_r8, 0.19765409097524_r8, &
1942  0.18888798371806_r8, 0.18326526729168_r8, 0.17934526758466_r8, &
1943  0.17541329198369_r8, 0.17400294582975_r8, 0.17266033755132_r8, &
1944  0.17131054586418_r8, 0.17016311869944_r8, 0.16920031071512_r8, &
1945  0.17166419801644_r8, 0.17446348475893_r8, 0.18111374684786_r8, &
1946  0.18768542541369_r8, 0.19515549667487_r8, 0.2027930287458_r8, &
1947  0.21061649454542_r8, 0.2185418239704_r8, 0.22641536127534_r8, &
1948  0.23443901958919_r8, 0.24254248264821_r8, 0.25112339393378_r8, &
1949  0.25974036394569_r8, 0.2684142375878_r8, 0.27721498544202_r8, &
1950  0.28612115151677_r8, 0.29493268742375_r8, 0.30367099733368_r8, &
1951  0.13127162222478_r8, 0.11689502215091_r8, 0.082845413121359_r8, &
1952  0.04737499243998_r8, 0.026876948001361_r8, 0.016759514034294_r8, &
1953  0.036612739499438_r8, 0.052718031460717_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1954  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1955  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1956  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1957  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
1958  9e90_r8, 9e90_r8 &
1959  /) ) /
1960 
1961 type(gsw_result) :: v_vab
1962 
1963 data v_vab / gsw_result( &
1964  "v_vab", 2.8211e-16_r8, (/ &
1965  0.0009785543233027595_r8, 0.0009785138871230684_r8, &
1966  0.0009784618366719601_r8, 0.000978421415045363_r8, &
1967  0.0009783422466640218_r8, 0.0009782688824288848_r8, &
1968  0.0009777640332867593_r8, 0.0009770403727271287_r8, &
1969  0.0009762483688210682_r8, 0.0009754108796092231_r8, &
1970  0.0009747842882447639_r8, 0.0009742639966029803_r8, &
1971  0.0009734416458830165_r8, 0.0009729268429971193_r8, &
1972  0.0009725277630284352_r8, 0.0009721572293526454_r8, &
1973  0.0009715456523783769_r8, 0.0009710006565911184_r8, &
1974  0.0009704744077971193_r8, 0.0009699649710788868_r8, &
1975  0.0009694637413999293_r8, 0.0009689674943787913_r8, &
1976  0.0009684765204907988_r8, 0.000967988236724932_r8, &
1977  0.0009675119259902132_r8, 0.0009670370032809823_r8, &
1978  0.0009665735522400026_r8, 0.0009654333580315161_r8, &
1979  0.0009643124260948762_r8, 0.0009632167130854711_r8, &
1980  0.0009621314486924892_r8, 0.0009610619706652792_r8, &
1981  0.0009600004065422604_r8, 0.0009589548080759135_r8, &
1982  0.0009579119173599126_r8, 0.000956881440892287_r8, 0.00095585460009929_r8, &
1983  0.0009548408831970166_r8, 0.000953833338236736_r8, &
1984  0.0009528347748806934_r8, 0.0009518426976033604_r8, &
1985  0.0009508663579792579_r8, 0.000949888117673811_r8, &
1986  0.0009489232123869458_r8, 0.0009479624714279442_r8, &
1987  0.000978276187737756_r8, 0.0009782268853134868_r8, &
1988  0.0009781865501847123_r8, 0.0009781431340949687_r8, &
1989  0.0009781030281571829_r8, 0.0009779358050676108_r8, &
1990  0.0009769962722238172_r8, 0.0009759310684951503_r8, &
1991  0.0009751559609852537_r8, 0.0009743577254754103_r8, &
1992  0.0009738661471026388_r8, 0.0009734569588197507_r8, &
1993  0.0009730110644159331_r8, 0.0009726885634491161_r8, &
1994  0.0009724125020294047_r8, 0.0009721357687388763_r8, &
1995  0.0009715883283967369_r8, 0.000971043032837796_r8, &
1996  0.0009705058336202661_r8, 0.0009699908909482257_r8, &
1997  0.000969489624674539_r8, 0.000968989326368841_r8, 0.0009685094493383497_r8, &
1998  0.000968026828388607_r8, 0.0009675487850033837_r8, &
1999  0.0009670691215662698_r8, 0.0009665961087766352_r8, &
2000  0.000965453051992845_r8, 0.0009643176535877508_r8, &
2001  0.0009632286329509885_r8, 0.0009621401948976804_r8, &
2002  0.0009610703930294092_r8, 0.000960004582156618_r8, &
2003  0.0009589539797173984_r8, 0.0009579081751836131_r8, &
2004  0.0009568689091533141_r8, 0.00095583544893347_r8, 0.0009548146155764491_r8, &
2005  0.0009537999090189937_r8, 0.0009527994807394211_r8, &
2006  0.0009518043190938421_r8, 0.0009508245316705431_r8, &
2007  0.0009498468666524498_r8, 0.0009488809062396042_r8, &
2008  0.0009479172547310287_r8, 0.0009951419259402608_r8, &
2009  0.0009949245452751476_r8, 0.0009946040926904509_r8, &
2010  0.0009942717261025088_r8, 0.0009940088745524498_r8, &
2011  0.0009937773244990007_r8, 0.0009924332606871787_r8, &
2012  0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2013  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2014  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2015  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2016  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
2017  /) ) /
2018 
2019 type(gsw_result) :: alpha_vab
2020 
2021 data alpha_vab / gsw_result( &
2022  "alpha_vab", 8.2511e-15_r8, (/ &
2023  0.00031831246465714_r8, 0.00031840612786134_r8, 0.00031814275657959_r8, &
2024  0.00031829167734161_r8, 0.00031795922055419_r8, 0.00031741177706767_r8, &
2025  0.00031179395602026_r8, 0.00030141362492837_r8, 0.00028596263812853_r8, &
2026  0.00026450886155659_r8, 0.00024397404528929_r8, 0.00022440625955621_r8, &
2027  0.00018975958703816_r8, 0.00017405696520385_r8, 0.00016512854145658_r8, &
2028  0.0001576899406304_r8, 0.00014807441042483_r8, 0.00014252387994453_r8, &
2029  0.00013838738637137_r8, 0.00013527726299367_r8, 0.00013265234399935_r8, &
2030  0.00013033509102019_r8, 0.00012841147506385_r8, 0.0001269577988008_r8, &
2031  0.00012614373092141_r8, 0.00012556465287975_r8, 0.0001255854517629_r8, &
2032  0.00012737392919504_r8, 0.00013030163856574_r8, 0.00013454687195958_r8, &
2033  0.00013923611412081_r8, 0.00014443028981363_r8, 0.00014987962882352_r8, &
2034  0.000155475108165_r8, 0.00016102244369735_r8, 0.00016671350692754_r8, &
2035  0.00017237190127977_r8, 0.00017801733274792_r8, 0.00018385807300305_r8, &
2036  0.00018949876493089_r8, 0.00019516412817312_r8, 0.00020085264541274_r8, &
2037  0.00020644192075943_r8, 0.00021198604708151_r8, 0.00021747053674416_r8, &
2038  0.00031352632986199_r8, 0.00031314584363571_r8, 0.00031379095358515_r8, &
2039  0.00031354339000421_r8, 0.00031386177161337_r8, 0.00031166099032067_r8, &
2040  0.000296339987212_r8, 0.00027410972793407_r8, 0.00024866352968226_r8, &
2041  0.00021583977103351_r8, 0.00019736078118712_r8, 0.00018421708451963_r8, &
2042  0.00017486696247624_r8, 0.00017051611280154_r8, 0.00016724557059136_r8, &
2043  0.00016385374058867_r8, 0.00015629414174458_r8, 0.00014909651010626_r8, &
2044  0.00014267633917463_r8, 0.00013851653174449_r8, 0.0001355865358085_r8, &
2045  0.00013264771558957_r8, 0.00013153755731539_r8, 0.00013047724467425_r8, &
2046  0.00012941419181229_r8, 0.00012849847982801_r8, 0.0001277188349363_r8, &
2047  0.0001292970942265_r8, 0.00013111334945339_r8, 0.0001356863138958_r8, &
2048  0.0001401755697496_r8, 0.00014527582557902_r8, 0.00015046105362017_r8, &
2049  0.00015574418663267_r8, 0.00016106309539841_r8, 0.000166311327862_r8, &
2050  0.00017162801220594_r8, 0.0001769653707843_r8, 0.00018259067859958_r8, &
2051  0.00018820225131634_r8, 0.00019381214928371_r8, 0.00019946847313476_r8, &
2052  0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, &
2053  0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, &
2054  3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, &
2055  2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2056  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2057  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2058  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2059  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2060  9e90_r8, 9e90_r8 &
2061  /) ) /
2062 
2063 type(gsw_result) :: beta_vab
2064 
2065 data beta_vab / gsw_result( &
2066  "beta_vab", 1.8397e-15_r8, (/ &
2067  0.00071891860085091_r8, 0.00071883031010036_r8, 0.00071881933367617_r8, &
2068  0.00071871921576397_r8, 0.00071872418757004_r8, 0.00071877529859646_r8, &
2069  0.00071982423795744_r8, 0.00072192226059341_r8, 0.00072514590519558_r8, &
2070  0.00072975281215256_r8, 0.00073424294205732_r8, 0.00073859466136716_r8, &
2071  0.00074646994917444_r8, 0.00074994874791257_r8, 0.00075182666867381_r8, &
2072  0.00075334843991345_r8, 0.00075512854627534_r8, 0.00075592980881447_r8, &
2073  0.00075639564873158_r8, 0.0007566177576665_r8, 0.00075672790306217_r8, &
2074  0.00075676918303485_r8, 0.00075672001336559_r8, 0.00075655563168968_r8, &
2075  0.00075624428466638_r8, 0.00075587437871921_r8, 0.00075536613495089_r8, &
2076  0.00075367570819568_r8, 0.00075172497764175_r8, 0.00074946350249751_r8, &
2077  0.00074710150046774_r8, 0.00074462553600039_r8, 0.00074209220383233_r8, &
2078  0.0007395363612618_r8, 0.0007369989868843_r8, 0.00073443279635813_r8, &
2079  0.00073187950375532_r8, 0.00072934138433148_r8, 0.00072674861171345_r8, &
2080  0.00072422009277462_r8, 0.00072168607463089_r8, 0.00071915330486918_r8, &
2081  0.00071664523040865_r8, 0.00071415696387813_r8, 0.00071168532745488_r8, &
2082  0.00071995907210522_r8, 0.00071997330477217_r8, 0.00071976642054599_r8, &
2083  0.00071975188668924_r8, 0.00071961539411425_r8, 0.00072002646142771_r8, &
2084  0.00072319569356983_r8, 0.00072793617402992_r8, 0.00073349085963673_r8, &
2085  0.00074090987742426_r8, 0.0007451230130126_r8, 0.00074811560205416_r8, &
2086  0.00075008075571807_r8, 0.00075083844183457_r8, 0.00075134129226816_r8, &
2087  0.00075187115532691_r8, 0.00075313631886973_r8, 0.00075433050421882_r8, &
2088  0.00075534894473538_r8, 0.00075582533336245_r8, 0.00075600843911033_r8, &
2089  0.00075620105004302_r8, 0.00075595017479816_r8, 0.00075568741799472_r8, &
2090  0.00075543622349373_r8, 0.00075514882901842_r8, 0.00075483806381027_r8, &
2091  0.00075319778801004_r8, 0.00075152316047427_r8, 0.00074917733334614_r8, &
2092  0.00074686443787858_r8, 0.00074441062667607_r8, 0.00074194391469331_r8, &
2093  0.00073946813600148_r8, 0.00073698980118432_r8, 0.00073454083205842_r8, &
2094  0.00073207955103499_r8, 0.00072962628588647_r8, 0.00072709545590058_r8, &
2095  0.00072457837687366_r8, 0.00072206359478347_r8, 0.00071954433782395_r8, &
2096  0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, &
2097  0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, &
2098  0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, &
2099  0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2100  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2101  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2102  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2103  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2104  9e90_r8, 9e90_r8 &
2105  /) ) /
2106 
2107 type(gsw_result) :: v_sa
2108 
2109 data v_sa / gsw_result( &
2110  "v_SA", 1.7416e-18_r8, (/ &
2111  -7.0350090496543e-07_r8, -7.0338544091818e-07_r8, -7.033372854641e-07_r8, &
2112  -7.0321027210807e-07_r8, -7.0315823639905e-07_r8, -7.0315550807545e-07_r8, &
2113  -7.0381825016283e-07_r8, -7.053471945702e-07_r8, -7.0792250710446e-07_r8, &
2114  -7.1180883239903e-07_r8, -7.1572848367208e-07_r8, -7.1958618665319e-07_r8, &
2115  -7.2664493592658e-07_r8, -7.2964526771622e-07_r8, -7.3117230827046e-07_r8, &
2116  -7.323731320834e-07_r8, -7.3364185612061e-07_r8, -7.3400834069565e-07_r8, &
2117  -7.340626192631e-07_r8, -7.3389272143276e-07_r8, -7.3362026412437e-07_r8, &
2118  -7.3328473910837e-07_r8, -7.3286556553005e-07_r8, -7.3233695190361e-07_r8, &
2119  -7.3167536437666e-07_r8, -7.309584940535e-07_r8, -7.3011692830128e-07_r8, &
2120  -7.2762366983013e-07_r8, -7.2489773694583e-07_r8, -7.2189577145318e-07_r8, &
2121  -7.1880984896536e-07_r8, -7.1563128503622e-07_r8, -7.1240881737088e-07_r8, &
2122  -7.0918194937897e-07_r8, -7.0598011261865e-07_r8, -7.0276511241772e-07_r8, &
2123  -6.9957039038291e-07_r8, -6.964049715672e-07_r8, -6.9319705436955e-07_r8, &
2124  -6.9006208906298e-07_r8, -6.8693162009944e-07_r8, -6.8381868382971e-07_r8, &
2125  -6.8073278895279e-07_r8, -6.7768012031175e-07_r8, -6.7465098189313e-07_r8, &
2126  -7.0431881638631e-07_r8, -7.0429724343614e-07_r8, -7.0406583185268e-07_r8, &
2127  -7.0402036621698e-07_r8, -7.0385799609167e-07_r8, -7.0413965722629e-07_r8, &
2128  -7.0655949670604e-07_r8, -7.1041552811729e-07_r8, -7.1526798410296e-07_r8, &
2129  -7.2191126294937e-07_r8, -7.2565007780009e-07_r8, -7.2825833882125e-07_r8, &
2130  -7.2983687451915e-07_r8, -7.3033196537044e-07_r8, -7.3061366589249e-07_r8, &
2131  -7.3092084357632e-07_r8, -7.3173845710551e-07_r8, -7.324873805787e-07_r8, &
2132  -7.3307055728459e-07_r8, -7.3314368850948e-07_r8, -7.3294233788386e-07_r8, &
2133  -7.327507460806e-07_r8, -7.32144887521e-07_r8, -7.3152569449461e-07_r8, &
2134  -7.309214001889e-07_r8, -7.3028111473064e-07_r8, -7.2962353523549e-07_r8, &
2135  -7.2717710318855e-07_r8, -7.247070507254e-07_r8, -7.2162905863687e-07_r8, &
2136  -7.1858829582264e-07_r8, -7.1543101355484e-07_r8, -7.1226955780879e-07_r8, &
2137  -7.0911591189283e-07_r8, -7.0596855558141e-07_r8, -7.0285928470031e-07_r8, &
2138  -6.9974758631855e-07_r8, -6.9665784167317e-07_r8, -6.9350357968609e-07_r8, &
2139  -6.9037790124023e-07_r8, -6.8726324817533e-07_r8, -6.8416040802765e-07_r8, &
2140  -6.8105324603527e-07_r8, -6.7799333531989e-07_r8, -6.7496394957095e-07_r8, &
2141  -7.6485141602067e-07_r8, -7.6696360617989e-07_r8, -7.7235047136574e-07_r8, &
2142  -7.7807640038489e-07_r8, -7.8133521349824e-07_r8, -7.8281451817097e-07_r8, &
2143  -7.776364576236e-07_r8, -7.7364888762859e-07_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2144  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2145  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2146  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2147  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2148  9e90_r8, 9e90_r8 &
2149  /) ) /
2150 
2151 type(gsw_result) :: v_ct
2152 
2153 data v_ct / gsw_result( &
2154  "v_CT", 8.2012e-18_r8, (/ &
2155  3.1148603845141e-07_r8, 3.115648178574e-07_r8, 3.1129054592675e-07_r8, &
2156  3.1142339334174e-07_r8, 3.1107293818453e-07_r8, 3.1051406442176e-07_r8, &
2157  3.0486091599281e-07_r8, 2.9449328044505e-07_r8, 2.7917055901675e-07_r8, &
2158  2.5800482131534e-07_r8, 2.3782206608752e-07_r8, 2.1863093929796e-07_r8, &
2159  1.8471988472851e-07_r8, 1.6934469365744e-07_r8, 1.6059209103491e-07_r8, &
2160  1.5329941578004e-07_r8, 1.4386104967673e-07_r8, 1.3839078100605e-07_r8, &
2161  1.3430141683535e-07_r8, 1.3121420648729e-07_r8, 1.2860163771909e-07_r8, &
2162  1.2629046657547e-07_r8, 1.2436349856093e-07_r8, 1.2289365579966e-07_r8, &
2163  1.2204556405536e-07_r8, 1.2142566563885e-07_r8, 1.2138757622013e-07_r8, &
2164  1.2297104018844e-07_r8, 1.2565148920947e-07_r8, 1.2959779576484e-07_r8, &
2165  1.3396344418937e-07_r8, 1.3880645895205e-07_r8, 1.4388450460298e-07_r8, &
2166  1.4909360251095e-07_r8, 1.5424531778011e-07_r8, 1.5952506072503e-07_r8, &
2167  1.6476247476612e-07_r8, 1.6997822722541e-07_r8, 1.7536995953428e-07_r8, &
2168  1.8056101302309e-07_r8, 1.8576555023571e-07_r8, 1.9098402343411e-07_r8, &
2169  1.9609672751914e-07_r8, 2.0115848077779e-07_r8, 2.0615390747476e-07_r8, &
2170  3.067153427328e-07_r8, 3.0632768326863e-07_r8, 3.0694609036663e-07_r8, &
2171  3.0669031417348e-07_r8, 3.0698914923781e-07_r8, 3.0478444147742e-07_r8, &
2172  2.8952306281698e-07_r8, 2.6751219966761e-07_r8, 2.4248572324929e-07_r8, &
2173  2.1030514837134e-07_r8, 1.9220298356387e-07_r8, 1.7932740285912e-07_r8, &
2174  1.7014748929019e-07_r8, 1.6585907280585e-07_r8, 1.6263168375208e-07_r8, &
2175  1.5928808206791e-07_r8, 1.5185356391582e-07_r8, 1.4477912735912e-07_r8, &
2176  1.3846821948856e-07_r8, 1.343597740379e-07_r8, 1.3144973971191e-07_r8, &
2177  1.285342205735e-07_r8, 1.2739536720284e-07_r8, 1.263054733389e-07_r8, &
2178  1.2521454405017e-07_r8, 1.2426691200987e-07_r8, 1.2345252886691e-07_r8, &
2179  1.2483027423478e-07_r8, 1.2643491749892e-07_r8, 1.3069694264401e-07_r8, &
2180  1.3486854999877e-07_r8, 1.396202947869e-07_r8, 1.4444330091148e-07_r8, &
2181  1.4935150758925e-07_r8, 1.5428365580251e-07_r8, 1.5913813887115e-07_r8, &
2182  1.6404813809642e-07_r8, 1.6896912247575e-07_r8, 1.74154972636e-07_r8, &
2183  1.793190073282e-07_r8, 1.844712407811e-07_r8, 1.8965951755139e-07_r8, &
2184  1.9486373899984e-07_r8, 1.9996239644129e-07_r8, 2.0496697573049e-07_r8, &
2185  1.0040328614196e-07_r8, 8.965422773334e-08_r8, 6.3985693874771e-08_r8, &
2186  3.6861363585961e-08_r8, 2.0999905904825e-08_r8, 1.3119590903535e-08_r8, &
2187  2.8471401048238e-08_r8, 4.0785246397553e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2188  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2189  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2190  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2191  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2192  9e90_r8, 9e90_r8 &
2193  /) ) /
2194 
2195 type(gsw_result) :: v_p
2196 
2197 data v_p / gsw_result( &
2198  "v_P", 1.6498e-24_r8, (/ &
2199  -4.0360175735096e-13_r8, -4.0348025948621e-13_r8, -4.0340707765012e-13_r8, &
2200  -4.0327593314869e-13_r8, -4.0318060668652e-13_r8, -4.0313089243725e-13_r8, &
2201  -4.0335051227667e-13_r8, -4.0417070999173e-13_r8, -4.0587836313488e-13_r8, &
2202  -4.0875084292698e-13_r8, -4.1184487324192e-13_r8, -4.1499389184339e-13_r8, &
2203  -4.2093252103258e-13_r8, -4.2344672990139e-13_r8, -4.2470414375145e-13_r8, &
2204  -4.2569462195511e-13_r8, -4.2672984467051e-13_r8, -4.2698326449937e-13_r8, &
2205  -4.2696732903634e-13_r8, -4.2675911597705e-13_r8, -4.2646643832132e-13_r8, &
2206  -4.2612382119104e-13_r8, -4.2571027198258e-13_r8, -4.252004278277e-13_r8, &
2207  -4.2456888380924e-13_r8, -4.2389012792407e-13_r8, -4.2309397296662e-13_r8, &
2208  -4.2073462452582e-13_r8, -4.1815174748674e-13_r8, -4.1529644001217e-13_r8, &
2209  -4.1235419902405e-13_r8, -4.0931312537154e-13_r8, -4.0622069316079e-13_r8, &
2210  -4.0311492257206e-13_r8, -4.0002602471669e-13_r8, -3.9691534541195e-13_r8, &
2211  -3.938168586554e-13_r8, -3.9073873998778e-13_r8, -3.8760994708245e-13_r8, &
2212  -3.845465373325e-13_r8, -3.8148013811831e-13_r8, -3.7842314557938e-13_r8, &
2213  -3.7538692391623e-13_r8, -3.7237654000118e-13_r8, -3.6938345734674e-13_r8, &
2214  -4.0409469921881e-13_r8, -4.0404653252213e-13_r8, -4.0382754992608e-13_r8, &
2215  -4.0376336161833e-13_r8, -4.0360280586056e-13_r8, -4.0372933793749e-13_r8, &
2216  -4.0516619239539e-13_r8, -4.0782047060002e-13_r8, -4.1161661955365e-13_r8, &
2217  -4.1706812911736e-13_r8, -4.2016576435756e-13_r8, -4.2231903721832e-13_r8, &
2218  -4.2357264619503e-13_r8, -4.2392509033106e-13_r8, -4.2411390418574e-13_r8, &
2219  -4.2433234398745e-13_r8, -4.2497435384734e-13_r8, -4.2557455287819e-13_r8, &
2220  -4.2604376609821e-13_r8, -4.2605831627577e-13_r8, -4.2582947311245e-13_r8, &
2221  -4.2561961547456e-13_r8, -4.2502777336184e-13_r8, -4.2442846449846e-13_r8, &
2222  -4.238478892395e-13_r8, -4.2323810176023e-13_r8, -4.2261601662756e-13_r8, &
2223  -4.2029678976895e-13_r8, -4.1796110455415e-13_r8, -4.150300656698e-13_r8, &
2224  -4.1213054182844e-13_r8, -4.0910976901207e-13_r8, -4.0607744923917e-13_r8, &
2225  -4.030451147213e-13_r8, -4.0001188456607e-13_r8, -3.970090549537e-13_r8, &
2226  -3.9399655134524e-13_r8, -3.909972139462e-13_r8, -3.8792409484575e-13_r8, &
2227  -3.8487143053925e-13_r8, -3.8182230346835e-13_r8, -3.7877613253455e-13_r8, &
2228  -3.7571835120402e-13_r8, -3.7270081162309e-13_r8, -3.6970724335569e-13_r8, &
2229  -4.6735391264304e-13_r8, -4.6928905029227e-13_r8, -4.7427904182679e-13_r8, &
2230  -4.7963775309581e-13_r8, -4.8270645282362e-13_r8, -4.8410132496399e-13_r8, &
2231  -4.7902381646743e-13_r8, -4.7496631693763e-13_r8, 9e90_r8, 9e90_r8, &
2232  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2233  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2234  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2235  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2236  9e90_r8, 9e90_r8, 9e90_r8 &
2237  /) ) /
2238 
2239 type(gsw_result) :: v_sa_sa
2240 
2241 data v_sa_sa / gsw_result( &
2242  "v_SA_SA", 1.9904e-20_r8, (/ &
2243  8.1412919788949e-10_r8, 8.1381381955419e-10_r8, 8.1378220039767e-10_r8, &
2244  8.134172498147e-10_r8, 8.1338638276558e-10_r8, 8.1355870308432e-10_r8, &
2245  8.1724659181481e-10_r8, 8.2576501487383e-10_r8, 8.4064999681862e-10_r8, &
2246  8.636442717582e-10_r8, 8.8674858345576e-10_r8, 9.0902842169594e-10_r8, &
2247  9.4830805154236e-10_r8, 9.6543504523493e-10_r8, 9.7477708439884e-10_r8, &
2248  9.8243482798574e-10_r8, 9.917027706616e-10_r8, 9.9623000737212e-10_r8, &
2249  9.9912198690803e-10_r8, 1.0008029490419e-09_r8, 1.0019198497941e-09_r8, &
2250  1.0026858962527e-09_r8, 1.0029819108853e-09_r8, 1.0026678657527e-09_r8, &
2251  1.0015463945937e-09_r8, 1.0000821570191e-09_r8, 9.9782207315459e-10_r8, &
2252  9.8962662075109e-10_r8, 9.7957704319797e-10_r8, 9.6730502370021e-10_r8, &
2253  9.5396750473487e-10_r8, 9.3946004661041e-10_r8, 9.2409433812206e-10_r8, &
2254  9.0806868498741e-10_r8, 8.916174662127e-10_r8, 8.7445223881115e-10_r8, &
2255  8.5681170583599e-10_r8, 8.3872294983455e-10_r8, 8.1972020106251e-10_r8, &
2256  8.0056393212981e-10_r8, 7.8079521892208e-10_r8, 7.6048456721064e-10_r8, &
2257  7.397179489886e-10_r8, 7.1851955801538e-10_r8, 6.9682408881555e-10_r8, &
2258  8.1780549499171e-10_r8, 8.1790687170288e-10_r8, 8.1708332017311e-10_r8, &
2259  8.1707210670956e-10_r8, 8.1654848856459e-10_r8, 8.1810005717009e-10_r8, &
2260  8.3133905745657e-10_r8, 8.5401147493984e-10_r8, 8.8245211095068e-10_r8, &
2261  9.2020433551208e-10_r8, 9.4114084004284e-10_r8, 9.558265900591e-10_r8, &
2262  9.6563412398507e-10_r8, 9.6961806419554e-10_r8, 9.7235878461154e-10_r8, &
2263  9.75225427001e-10_r8, 9.8193584904484e-10_r8, 9.8831622713376e-10_r8, &
2264  9.9388284914517e-10_r8, 9.9679108618696e-10_r8, 9.9823451200996e-10_r8, &
2265  9.9973843454806e-10_r8, 9.9894067356381e-10_r8, 9.9805771199332e-10_r8, &
2266  9.9720770823556e-10_r8, 9.9614540436921e-10_r8, 9.9492888113154e-10_r8, &
2267  9.8696068991955e-10_r8, 9.7843738141072e-10_r8, 9.6566298209877e-10_r8, &
2268  9.5259485956036e-10_r8, 9.3820392179389e-10_r8, 9.2322271905194e-10_r8, &
2269  9.0766772134786e-10_r8, 8.9156650346368e-10_r8, 8.7511089703514e-10_r8, &
2270  8.5803551932337e-10_r8, 8.4047573735832e-10_r8, 8.218638326756e-10_r8, &
2271  8.0278879787e-10_r8, 7.8314966808096e-10_r8, 7.6293013637613e-10_r8, &
2272  7.420285376761e-10_r8, 7.2079357928311e-10_r8, 6.9911247017641e-10_r8, &
2273  1.686821846146e-09_r8, 1.6867968404629e-09_r8, 1.7070701802637e-09_r8, &
2274  1.7239021288267e-09_r8, 1.7241895206509e-09_r8, 1.7118557676937e-09_r8, &
2275  1.5146606457245e-09_r8, 1.4037400755554e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2276  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2277  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2278  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2279  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2280  9e90_r8, 9e90_r8 &
2281  /) ) /
2282 
2283 type(gsw_result) :: v_sa_ct
2284 
2285 data v_sa_ct / gsw_result( &
2286  "v_SA_CT", 6.3274e-20_r8, (/ &
2287  1.3238829406898e-09_r8, 1.3231062189366e-09_r8, 1.323768839051e-09_r8, &
2288  1.3227696556965e-09_r8, 1.3237377549725e-09_r8, 1.3255743423394e-09_r8, &
2289  1.3483026097811e-09_r8, 1.3945080475859e-09_r8, 1.4709734467797e-09_r8, &
2290  1.5894584845455e-09_r8, 1.7126094935237e-09_r8, 1.8360060135373e-09_r8, &
2291  2.062017896028e-09_r8, 2.1651690620138e-09_r8, 2.2233865858091e-09_r8, &
2292  2.271426152291e-09_r8, 2.3322791126652e-09_r8, 2.3663415469933e-09_r8, &
2293  2.3910208695355e-09_r8, 2.408924411836e-09_r8, 2.4235276012848e-09_r8, &
2294  2.435968591059e-09_r8, 2.4457652400653e-09_r8, 2.452494106554e-09_r8, &
2295  2.4552679271175e-09_r8, 2.4564876248587e-09_r8, 2.454121554245e-09_r8, &
2296  2.4378859239524e-09_r8, 2.4149434104759e-09_r8, 2.3845059387789e-09_r8, &
2297  2.3515551393103e-09_r8, 2.3158199199975e-09_r8, 2.2786732949269e-09_r8, &
2298  2.240774451915e-09_r8, 2.2031219616036e-09_r8, 2.1646915576313e-09_r8, &
2299  2.1264052524689e-09_r8, 2.0882046527843e-09_r8, 2.0488660523382e-09_r8, &
2300  2.0106081887614e-09_r8, 1.9721454333515e-09_r8, 1.9335365794189e-09_r8, &
2301  1.8953406442249e-09_r8, 1.8573470882055e-09_r8, 1.8195638171972e-09_r8, &
2302  1.3437599451701e-09_r8, 1.3449769360834e-09_r8, 1.3418690138137e-09_r8, &
2303  1.3425177610874e-09_r8, 1.340785601336e-09_r8, 1.3498349205211e-09_r8, &
2304  1.419805905148e-09_r8, 1.536058673255e-09_r8, 1.6846979255881e-09_r8, &
2305  1.8921401998459e-09_r8, 2.0130440377213e-09_r8, 2.0997952375951e-09_r8, &
2306  2.1612440540018e-09_r8, 2.1894190015152e-09_r8, 2.2103222019053e-09_r8, &
2307  2.2319172756875e-09_r8, 2.2798069143957e-09_r8, 2.3248137012278e-09_r8, &
2308  2.3642231942014e-09_r8, 2.3888895012171e-09_r8, 2.4055537306316e-09_r8, &
2309  2.421951350476e-09_r8, 2.4269824210788e-09_r8, 2.4315420000904e-09_r8, &
2310  2.4359739578575e-09_r8, 2.4393412605142e-09_r8, 2.4417618302295e-09_r8, &
2311  2.426908770776e-09_r8, 2.4103741444549e-09_r8, 2.3781386236092e-09_r8, &
2312  2.3463404573869e-09_r8, 2.3111486610078e-09_r8, 2.2754715362628e-09_r8, &
2313  2.2392927138035e-09_r8, 2.2028921276534e-09_r8, 2.1668679037715e-09_r8, &
2314  2.1304266695997e-09_r8, 2.0938792306866e-09_r8, 2.0556946008112e-09_r8, &
2315  2.017586838232e-09_r8, 1.9794187992211e-09_r8, 1.9409864162439e-09_r8, &
2316  1.902283526759e-09_r8, 1.8640926783939e-09_r8, 1.8262648049443e-09_r8, &
2317  2.5142108146884e-09_r8, 2.5867895047185e-09_r8, 2.7671787284743e-09_r8, &
2318  2.9674767526691e-09_r8, 3.0883351095872e-09_r8, 3.1489295313378e-09_r8, &
2319  3.0275277133432e-09_r8, 2.9364515491552e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2320  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2321  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2322  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2323  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2324  9e90_r8, 9e90_r8 &
2325  /) ) /
2326 
2327 type(gsw_result) :: v_ct_ct
2328 
2329 data v_ct_ct / gsw_result( &
2330  "v_CT_CT", 2.2094e-19_r8, (/ &
2331  7.2390425622836e-09_r8, 7.2349222950512e-09_r8, 7.2362841226129e-09_r8, &
2332  7.2313008273788e-09_r8, 7.2335294971141e-09_r8, 7.2391121782991e-09_r8, &
2333  7.3151621308933e-09_r8, 7.4587383840231e-09_r8, 7.6742954425614e-09_r8, &
2334  7.981522055887e-09_r8, 8.2900444690522e-09_r8, 8.6022659081656e-09_r8, &
2335  9.2127820728765e-09_r8, 9.5088129120783e-09_r8, 9.6797782958943e-09_r8, &
2336  9.8253188006881e-09_r8, 1.0011886631044e-08_r8, 1.0112142940834e-08_r8, &
2337  1.0182492490374e-08_r8, 1.0230447172827e-08_r8, 1.0268292179892e-08_r8, &
2338  1.0300019797363e-08_r8, 1.0323117439767e-08_r8, 1.033497286099e-08_r8, &
2339  1.0331241380355e-08_r8, 1.0321676920906e-08_r8, 1.0296901876305e-08_r8, &
2340  1.0189171679242e-08_r8, 1.0051552838942e-08_r8, 9.8786943958668e-09_r8, &
2341  9.693929133934e-09_r8, 9.4959218044446e-09_r8, 9.2913192801215e-09_r8, &
2342  9.0836119073807e-09_r8, 8.8775923606283e-09_r8, 8.6684623810942e-09_r8, &
2343  8.4607168533389e-09_r8, 8.2543597156116e-09_r8, 8.0434636233506e-09_r8, &
2344  7.8388796216949e-09_r8, 7.6344952434669e-09_r8, 7.4309991024931e-09_r8, &
2345  7.2306715864924e-09_r8, 7.033048479566e-09_r8, 6.8380150125342e-09_r8, &
2346  7.311247681468e-09_r8, 7.3143394891288e-09_r8, 7.301627463037e-09_r8, &
2347  7.3027077205546e-09_r8, 7.2950638396862e-09_r8, 7.3250557705902e-09_r8, &
2348  7.5410076852081e-09_r8, 7.8550989781635e-09_r8, 8.2340018883296e-09_r8, &
2349  8.7678969974917e-09_r8, 9.0924141931703e-09_r8, 9.3348789080352e-09_r8, &
2350  9.5054130763585e-09_r8, 9.5788260763991e-09_r8, 9.6319790854334e-09_r8, &
2351  9.6887442497667e-09_r8, 9.8240998128506e-09_r8, 9.9577130365879e-09_r8, &
2352  1.0079212433419e-08_r8, 1.0150963468111e-08_r8, 1.0195143904232e-08_r8, &
2353  1.0241464342333e-08_r8, 1.0243037100007e-08_r8, 1.0243834972383e-08_r8, &
2354  1.0245726936494e-08_r8, 1.0244280016185e-08_r8, 1.0240200012544e-08_r8, &
2355  1.0137590115429e-08_r8, 1.0029681690502e-08_r8, 9.8479631306455e-09_r8, &
2356  9.6686688938222e-09_r8, 9.473293672151e-09_r8, 9.2758863321485e-09_r8, &
2357  9.0765730704902e-09_r8, 8.8766015891674e-09_r8, 8.6790386729315e-09_r8, &
2358  8.4800079038743e-09_r8, 8.2813128415814e-09_r8, 8.0755100554674e-09_r8, &
2359  7.871190224356e-09_r8, 7.6676543665598e-09_r8, 7.4643485707337e-09_r8, &
2360  7.2611295715005e-09_r8, 7.0619802695647e-09_r8, 6.8660792976399e-09_r8, &
2361  1.1630101520498e-08_r8, 1.187168068355e-08_r8, 1.2479500593431e-08_r8, &
2362  1.3157950203856e-08_r8, 1.356938661512e-08_r8, 1.3775071602593e-08_r8, &
2363  1.3322230766315e-08_r8, 1.2968669305784e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2364  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2365  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2366  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2367  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2368  9e90_r8, 9e90_r8 &
2369  /) ) /
2370 
2371 type(gsw_result) :: v_sa_p
2372 
2373 data v_sa_p / gsw_result( &
2374  "v_SA_P", 1.3036e-26_r8, (/ &
2375  1.4194515708872e-15_r8, 1.4188157294008e-15_r8, 1.4186156672177e-15_r8, &
2376  1.4179370276469e-15_r8, 1.4181566529851e-15_r8, 1.4184712825436e-15_r8, &
2377  1.4269921283193e-15_r8, 1.4432041247703e-15_r8, 1.4663725278715e-15_r8, &
2378  1.4986317902604e-15_r8, 1.5293682365905e-15_r8, 1.5592296833456e-15_r8, &
2379  1.6141893613695e-15_r8, 1.639849834854e-15_r8, 1.654340683205e-15_r8, &
2380  1.6662934712762e-15_r8, 1.6805294996857e-15_r8, 1.6875956975973e-15_r8, &
2381  1.6922843920146e-15_r8, 1.6951780056212e-15_r8, 1.6972631630594e-15_r8, &
2382  1.6988677683618e-15_r8, 1.6998300830838e-15_r8, 1.6999466009933e-15_r8, &
2383  1.6989634498267e-15_r8, 1.6975245926428e-15_r8, 1.6950314986516e-15_r8, &
2384  1.6855678786125e-15_r8, 1.6740666726086e-15_r8, 1.6600586711182e-15_r8, &
2385  1.6451874312635e-15_r8, 1.6293288700263e-15_r8, 1.6129417288364e-15_r8, &
2386  1.5962617176252e-15_r8, 1.5796569102419e-15_r8, 1.5627048188506e-15_r8, &
2387  1.545765801496e-15_r8, 1.5288200698029e-15_r8, 1.5113172912581e-15_r8, &
2388  1.4942014437781e-15_r8, 1.4769102513395e-15_r8, 1.4594613002411e-15_r8, &
2389  1.442096711703e-15_r8, 1.4247207654226e-15_r8, 1.4073279612654e-15_r8, &
2390  1.4270236098533e-15_r8, 1.4268968055406e-15_r8, 1.4258081271891e-15_r8, &
2391  1.4254935325799e-15_r8, 1.4246699784755e-15_r8, 1.427649692832e-15_r8, &
2392  1.4512964283308e-15_r8, 1.4860274780139e-15_r8, 1.5236363442958e-15_r8, &
2393  1.5747100084657e-15_r8, 1.6049789782491e-15_r8, 1.6274159782252e-15_r8, &
2394  1.6428739356275e-15_r8, 1.6490500176778e-15_r8, 1.653044224806e-15_r8, &
2395  1.6571985616227e-15_r8, 1.6669503829166e-15_r8, 1.6764329178173e-15_r8, &
2396  1.6848421731394e-15_r8, 1.6894633200053e-15_r8, 1.6920011924453e-15_r8, &
2397  1.6946621594532e-15_r8, 1.694049944473e-15_r8, 1.6933734287574e-15_r8, &
2398  1.6928039396771e-15_r8, 1.6919848497476e-15_r8, 1.6909963457559e-15_r8, &
2399  1.6819056455576e-15_r8, 1.672555776639e-15_r8, 1.6578487215914e-15_r8, &
2400  1.6433678967757e-15_r8, 1.6276703204542e-15_r8, 1.6118153369015e-15_r8, &
2401  1.5957742832803e-15_r8, 1.5796314404468e-15_r8, 1.563634024583e-15_r8, &
2402  1.5474420836503e-15_r8, 1.5311969769979e-15_r8, 1.5142238796717e-15_r8, &
2403  1.4972111541688e-15_r8, 1.4800928451371e-15_r8, 1.4627753899156e-15_r8, &
2404  1.4452353965864e-15_r8, 1.4278184830854e-15_r8, 1.4104641044674e-15_r8, &
2405  1.3391645162533e-15_r8, 1.3531626095461e-15_r8, 1.3852941375402e-15_r8, &
2406  1.4210390224972e-15_r8, 1.4439297547637e-15_r8, 1.4573546239402e-15_r8, &
2407  1.4684828267782e-15_r8, 1.475384005764e-15_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2408  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2409  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2410  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2411  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2412  9e90_r8, 9e90_r8 &
2413  /) ) /
2414 
2415 type(gsw_result) :: v_ct_p
2416 
2417 data v_ct_p / gsw_result( &
2418  "v_CT_P", 6.6142e-26_r8, (/ &
2419  8.908400568972e-16_r8, 8.9051649960549e-16_r8, 8.9228549949584e-16_r8, &
2420  8.9163973744734e-16_r8, 8.9385164457418e-16_r8, 8.973133793556e-16_r8, &
2421  9.315060288388e-16_r8, 9.9523832311009e-16_r8, 1.0923039158051e-15_r8, &
2422  1.2317616216554e-15_r8, 1.3704424387146e-15_r8, 1.5072654248538e-15_r8, &
2423  1.7603578370219e-15_r8, 1.8816053131457e-15_r8, 1.953545780771e-15_r8, &
2424  2.0150632396632e-15_r8, 2.0985817556087e-15_r8, 2.1511939173804e-15_r8, &
2425  2.1931909032769e-15_r8, 2.2273715997877e-15_r8, 2.2579674113942e-15_r8, &
2426  2.2863588886095e-15_r8, 2.3117799459612e-15_r8, 2.33360827491e-15_r8, &
2427  2.350154106861e-15_r8, 2.3649185947484e-15_r8, 2.374576981979e-15_r8, &
2428  2.3840363253249e-15_r8, 2.3834243249199e-15_r8, 2.3707658406888e-15_r8, &
2429  2.353603872812e-15_r8, 2.3311566273093e-15_r8, 2.3056686131497e-15_r8, &
2430  2.277883489423e-15_r8, 2.249785054697e-15_r8, 2.2194511099375e-15_r8, &
2431  2.188636005387e-15_r8, 2.1569736054203e-15_r8, 2.1226722681404e-15_r8, &
2432  2.0893495507862e-15_r8, 2.0549743261335e-15_r8, 2.0193805767383e-15_r8, &
2433  1.9840829876422e-15_r8, 1.9482951889989e-15_r8, 1.9123513122435e-15_r8, &
2434  9.1920098807854e-16_r8, 9.2168686831093e-16_r8, 9.1812671291594e-16_r8, &
2435  9.1982167301288e-16_r8, 9.1818139908767e-16_r8, 9.3158033500758e-16_r8, &
2436  1.0256901371688e-15_r8, 1.1672680039588e-15_r8, 1.3363048806543e-15_r8, &
2437  1.5650233369544e-15_r8, 1.6998075434147e-15_r8, 1.7986986407348e-15_r8, &
2438  1.8725845857716e-15_r8, 1.9093699458622e-15_r8, 1.9380379934363e-15_r8, &
2439  1.9679265838654e-15_r8, 2.0343870253835e-15_r8, 2.0991718840421e-15_r8, &
2440  2.1588394008129e-15_r8, 2.2011677084379e-15_r8, 2.2340118153057e-15_r8, &
2441  2.267308856793e-15_r8, 2.2858158180222e-15_r8, 2.3041557368041e-15_r8, &
2442  2.3225899625541e-15_r8, 2.3400311291399e-15_r8, 2.3563698682219e-15_r8, &
2443  2.3674026040554e-15_r8, 2.3763351251566e-15_r8, 2.3606640897297e-15_r8, &
2444  2.3451898178397e-15_r8, 2.3234977350019e-15_r8, 2.3003601916866e-15_r8, &
2445  2.2754257376416e-15_r8, 2.2494423089744e-15_r8, 2.2233255206655e-15_r8, &
2446  2.1958388984486e-15_r8, 2.1672543567069e-15_r8, 2.1351941476251e-15_r8, &
2447  2.1022911101869e-15_r8, 2.0686098225237e-15_r8, 2.0334879022367e-15_r8, &
2448  1.9973576346871e-15_r8, 1.9613072729104e-15_r8, 1.9254031915233e-15_r8, &
2449  2.3045989638505e-15_r8, 2.3848235601127e-15_r8, 2.5786818124037e-15_r8, &
2450  2.7893685394813e-15_r8, 2.9161890405511e-15_r8, 2.9812079621756e-15_r8, &
2451  2.8718142771833e-15_r8, 2.7837754490956e-15_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2452  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2453  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2454  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2455  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2456  9e90_r8, 9e90_r8 &
2457  /) ) /
2458 
2459 type(gsw_result) :: v_sa_wrt_h
2460 
2461 data v_sa_wrt_h / gsw_result( &
2462  "v_SA_wrt_h", 1.7425e-18_r8, (/ &
2463  -7.0350090496543e-07_r8, -7.0337995058708e-07_r8, -7.0332631438749e-07_r8, &
2464  -7.0319381019625e-07_r8, -7.0313631184252e-07_r8, -7.0312814964384e-07_r8, &
2465  -7.0377737574994e-07_r8, -7.0529459744142e-07_r8, -7.0786006472622e-07_r8, &
2466  -7.1173927876652e-07_r8, -7.1565332710781e-07_r8, -7.1950644062785e-07_r8, &
2467  -7.2656001410355e-07_r8, -7.2955122543762e-07_r8, -7.310681430023e-07_r8, &
2468  -7.3225908842094e-07_r8, -7.3350771695549e-07_r8, -7.3385326769392e-07_r8, &
2469  -7.3388686400704e-07_r8, -7.3369633087096e-07_r8, -7.3340359363602e-07_r8, &
2470  -7.3304819794592e-07_r8, -7.3260923604006e-07_r8, -7.3206032277796e-07_r8, &
2471  -7.3137774834561e-07_r8, -7.3063940256392e-07_r8, -7.2977524599161e-07_r8, &
2472  -7.2721997913789e-07_r8, -7.2442672547423e-07_r8, -7.2135000724541e-07_r8, &
2473  -7.1818378812301e-07_r8, -7.1491881684986e-07_r8, -7.1160427320145e-07_r8, &
2474  -7.0828051085755e-07_r8, -7.0497745226582e-07_r8, -7.0165606667975e-07_r8, &
2475  -6.9835056027637e-07_r8, -6.9507048827994e-07_r8, -6.9174167630259e-07_r8, &
2476  -6.8848337742363e-07_r8, -6.8522496264111e-07_r8, -6.8198015698627e-07_r8, &
2477  -6.7875857234011e-07_r8, -6.7556706491691e-07_r8, -6.7239548496948e-07_r8, &
2478  -7.0431881638631e-07_r8, -7.0429183839287e-07_r8, -7.040550026779e-07_r8, &
2479  -7.0400413580178e-07_r8, -7.0383633780068e-07_r8, -7.0411276596451e-07_r8, &
2480  -7.0652052714039e-07_r8, -7.1036740536223e-07_r8, -7.1521318190698e-07_r8, &
2481  -7.2185375967138e-07_r8, -7.2558849095749e-07_r8, -7.2819213536948e-07_r8, &
2482  -7.297583056557e-07_r8, -7.3023977112713e-07_r8, -7.3050825904757e-07_r8, &
2483  -7.3080258263808e-07_r8, -7.3159723864768e-07_r8, -7.3232549167267e-07_r8, &
2484  -7.3288959942478e-07_r8, -7.329428004112e-07_r8, -7.3272107943264e-07_r8, &
2485  -7.3251018336541e-07_r8, -7.3188257641099e-07_r8, -7.3124171282504e-07_r8, &
2486  -7.3061638451738e-07_r8, -7.2995487345184e-07_r8, -7.2927628702918e-07_r8, &
2487  -7.2676757529163e-07_r8, -7.2423323563837e-07_r8, -7.2107888478773e-07_r8, &
2488  -7.1795821624155e-07_r8, -7.1471458806602e-07_r8, -7.1146206377063e-07_r8, &
2489  -7.0821300784485e-07_r8, -7.0496566436161e-07_r8, -7.0175275976231e-07_r8, &
2490  -6.9853269067023e-07_r8, -6.9533072082397e-07_r8, -6.9205753425673e-07_r8, &
2491  -6.8880919784598e-07_r8, -6.855675012717e-07_r8, -6.8233352688846e-07_r8, &
2492  -6.7909031244219e-07_r8, -6.7589164328594e-07_r8, -6.7272013791523e-07_r8, &
2493  -7.6485141602067e-07_r8, -7.6696188346989e-07_r8, -7.7234799486436e-07_r8, &
2494  -7.7807424426583e-07_r8, -7.8133356867422e-07_r8, -7.8281323110614e-07_r8, &
2495  -7.7763223906705e-07_r8, -7.7364089590621e-07_r8, 9e90_r8, 9e90_r8, &
2496  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2497  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2498  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2499  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2500  9e90_r8, 9e90_r8, 9e90_r8 &
2501  /) ) /
2502 
2503 type(gsw_result) :: v_h
2504 
2505 data v_h / gsw_result( &
2506  "v_h", 2.0545e-21_r8, (/ &
2507  7.8030145735622e-11_r8, 7.8049271621969e-11_r8, 7.7979957197452e-11_r8, &
2508  7.8012627504545e-11_r8, 7.7924232728479e-11_r8, 7.7783634136147e-11_r8, &
2509  7.6366063770729e-11_r8, 7.3767814902939e-11_r8, 6.9928671239267e-11_r8, &
2510  6.4626319667403e-11_r8, 5.9570421965201e-11_r8, 5.476306462693e-11_r8, &
2511  4.6268716409382e-11_r8, 4.2417058536096e-11_r8, 4.0224221369448e-11_r8, &
2512  3.8397129374951e-11_r8, 3.6032214787725e-11_r8, 3.4661240112017e-11_r8, &
2513  3.3636218290876e-11_r8, 3.286225531301e-11_r8, 3.220723610721e-11_r8, &
2514  3.1627767032169e-11_r8, 3.1144563939917e-11_r8, 3.0775858185573e-11_r8, &
2515  3.0562854778762e-11_r8, 3.0407006841063e-11_r8, 3.0396824632202e-11_r8, &
2516  3.0791557093639e-11_r8, 3.1460794848906e-11_r8, 3.2446646077938e-11_r8, &
2517  3.3537200440292e-11_r8, 3.4746899931678e-11_r8, 3.6015064050876e-11_r8, &
2518  3.7315658610418e-11_r8, 3.8601547298751e-11_r8, 3.9919040991723e-11_r8, &
2519  4.1225546014435e-11_r8, 4.2526220794074e-11_r8, 4.3870347046499e-11_r8, &
2520  4.51639166163e-11_r8, 4.6460346214557e-11_r8, 4.7759727933808e-11_r8, &
2521  4.9032188719398e-11_r8, 5.0291400040921e-11_r8, 5.1533509171427e-11_r8, &
2522  7.6835042147564e-11_r8, 7.6737341073315e-11_r8, 7.689166444305e-11_r8, &
2523  7.6827002300675e-11_r8, 7.6901269041282e-11_r8, 7.6348421025639e-11_r8, &
2524  7.2524224093059e-11_r8, 6.700976517843e-11_r8, 6.0740293089125e-11_r8, &
2525  5.2679225856726e-11_r8, 4.8144584558073e-11_r8, 4.4919145252485e-11_r8, &
2526  4.2619012352302e-11_r8, 4.1544099698237e-11_r8, 4.0735012855244e-11_r8, &
2527  3.9896873758146e-11_r8, 3.8033670682051e-11_r8, 3.6260899693564e-11_r8, &
2528  3.4679543902346e-11_r8, 3.364983300097e-11_r8, 3.2920298412668e-11_r8, &
2529  3.2189494729994e-11_r8, 3.1903557858363e-11_r8, 3.1629923260117e-11_r8, &
2530  3.1356090038933e-11_r8, 3.1118168837339e-11_r8, 3.0913653092202e-11_r8, &
2531  3.1256824704708e-11_r8, 3.1656813085626e-11_r8, 3.2721605605856e-11_r8, &
2532  3.3763572348289e-11_r8, 3.4950398561113e-11_r8, 3.6154756373914e-11_r8, &
2533  3.7380115128897e-11_r8, 3.8611126407919e-11_r8, 3.9822395860201e-11_r8, &
2534  4.104717476159e-11_r8, 4.2274328177985e-11_r8, 4.3567170145014e-11_r8, &
2535  4.4854113124346e-11_r8, 4.6137623642121e-11_r8, 4.7429614046166e-11_r8, &
2536  4.8725019813184e-11_r8, 4.9993562505336e-11_r8, 5.1238094268393e-11_r8, &
2537  2.5151955731122e-11_r8, 2.2459166387345e-11_r8, 1.6028959440587e-11_r8, &
2538  9.2340886590299e-12_r8, 5.2606607154873e-12_r8, 3.2865742832167e-12_r8, &
2539  7.1323132289915e-12_r8, 1.0216981246258e-11_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2540  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2541  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2542  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2543  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2544  9e90_r8, 9e90_r8 &
2545  /) ) /
2546 
2547 type(gsw_result) :: v_sa_sa_wrt_h
2548 
2549 data v_sa_sa_wrt_h / gsw_result( &
2550  "v_SA_SA_wrt_h", 1.9904e-20_r8, (/ &
2551  8.1412919788949e-10_r8, 8.1386680582943e-10_r8, 8.1388821556645e-10_r8, &
2552  8.1357616214863e-10_r8, 8.135983868891e-10_r8, 8.1382401563021e-10_r8, &
2553  8.1765577468428e-10_r8, 8.2632502420474e-10_r8, 8.4138266707933e-10_r8, &
2554  8.6458637443128e-10_r8, 8.8792516268993e-10_r8, 9.104699274715e-10_r8, &
2555  9.5031712019669e-10_r8, 9.6796762897715e-10_r8, 9.7780492320303e-10_r8, &
2556  9.8597351227232e-10_r8, 9.9624315170595e-10_r8, 1.001757731374e-09_r8, &
2557  1.0056384891613e-09_r8, 1.0083068338102e-09_r8, 1.0104139693555e-09_r8, &
2558  1.0121737086757e-09_r8, 1.0134622965085e-09_r8, 1.0141441037956e-09_r8, &
2559  1.0139946365074e-09_r8, 1.0135060661975e-09_r8, 1.0121923922152e-09_r8, &
2560  1.0062996151301e-09_r8, 9.9846996684849e-10_r8, 9.8830757492614e-10_r8, &
2561  9.7700533884986e-10_r8, 9.6443852654598e-10_r8, 9.5093550700126e-10_r8, &
2562  9.3668076085814e-10_r8, 9.2193794992354e-10_r8, 9.0639476902758e-10_r8, &
2563  8.9031071149413e-10_r8, 8.7369540738799e-10_r8, 8.5608533363543e-10_r8, &
2564  8.3825605295595e-10_r8, 8.1974166546268e-10_r8, 8.0059768489983e-10_r8, &
2565  7.8094550560178e-10_r8, 7.6078292989274e-10_r8, 7.4006076146762e-10_r8, &
2566  8.1780549499171e-10_r8, 8.1796061491894e-10_r8, 8.1719058294857e-10_r8, &
2567  8.1723306562901e-10_r8, 8.1676284889021e-10_r8, 8.18369568532e-10_r8, &
2568  8.3176729578747e-10_r8, 8.546222918104e-10_r8, 8.8328173697658e-10_r8, &
2569  9.2131315484004e-10_r8, 9.4251188748639e-10_r8, 9.5746535886004e-10_r8, &
2570  9.6773641159714e-10_r8, 9.7217788033775e-10_r8, 9.7536885444046e-10_r8, &
2571  9.7870339159569e-10_r8, 9.8637519315713e-10_r8, 9.9374764705081e-10_r8, &
2572  1.0003266072009e-09_r8, 1.0042326454184e-09_r8, 1.0066655789025e-09_r8, &
2573  1.0091714769314e-09_r8, 1.0093401788491e-09_r8, 1.0094352466739e-09_r8, &
2574  1.0095572971994e-09_r8, 1.0094746354e-09_r8, 1.0092259381669e-09_r8, &
2575  1.0035574355285e-09_r8, 9.9729384888587e-10_r8, 9.8660825829307e-10_r8, &
2576  9.7558037949633e-10_r8, 9.6313069837763e-10_r8, 9.5002507935546e-10_r8, &
2577  9.3626025445444e-10_r8, 9.2188367457407e-10_r8, 9.0708660236995e-10_r8, &
2578  8.9160018832288e-10_r8, 8.7554696326092e-10_r8, 8.5835521147086e-10_r8, &
2579  8.4061751084407e-10_r8, 8.2224641819193e-10_r8, 8.0320530507789e-10_r8, &
2580  7.834147507376e-10_r8, 7.6321849689896e-10_r8, 7.4251701884123e-10_r8, &
2581  1.686821846146e-09_r8, 1.686900044746e-09_r8, 1.7072898758573e-09_r8, &
2582  1.7242541041201e-09_r8, 1.7246770251147e-09_r8, 1.7124765525043e-09_r8, &
2583  1.515566330676e-09_r8, 1.4049058698229e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2584  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2585  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2586  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2587  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2588  9e90_r8, 9e90_r8 &
2589  /) ) /
2590 
2591 type(gsw_result) :: v_sa_h
2592 
2593 data v_sa_h / gsw_result( &
2594  "v_SA_h", 1.5896e-23_r8, (/ &
2595  3.3164497295773e-13_r8, 3.3147716015111e-13_r8, 3.3166993053927e-13_r8, &
2596  3.3144632282805e-13_r8, 3.3171563099318e-13_r8, 3.3220261133056e-13_r8, &
2597  3.3796876451079e-13_r8, 3.4961878959215e-13_r8, 3.6885745036872e-13_r8, &
2598  3.9863525904298e-13_r8, 4.2959074305434e-13_r8, 4.6062066577763e-13_r8, &
2599  5.1749517190439e-13_r8, 5.4357851110905e-13_r8, 5.5839401917666e-13_r8, &
2600  5.7066849019834e-13_r8, 5.8638486685664e-13_r8, 5.9538229743211e-13_r8, &
2601  6.0202960025881e-13_r8, 6.0697808636313e-13_r8, 6.1110102487769e-13_r8, &
2602  6.1468412224049e-13_r8, 6.1760376011956e-13_r8, 6.1975481565862e-13_r8, &
2603  6.2090045700157e-13_r8, 6.2165667907359e-13_r8, 6.214957327912e-13_r8, &
2604  6.1845574762611e-13_r8, 6.1367122923601e-13_r8, 6.0692390835327e-13_r8, &
2605  5.9948611795662e-13_r8, 5.9127827000521e-13_r8, 5.8265496444646e-13_r8, &
2606  5.7377756586001e-13_r8, 5.6491334838567e-13_r8, 5.5579196400142e-13_r8, &
2607  5.4665786191487e-13_r8, 5.3749006180377e-13_r8, 5.2797758276094e-13_r8, &
2608  5.1869487687095e-13_r8, 5.0931147231924e-13_r8, 4.9983810785009e-13_r8, &
2609  4.9043235080639e-13_r8, 4.8103210345594e-13_r8, 4.7164636471214e-13_r8, &
2610  3.3662434719904e-13_r8, 3.3695637327584e-13_r8, 3.3620484109766e-13_r8, &
2611  3.3639447149638e-13_r8, 3.359874984201e-13_r8, 3.3828224795282e-13_r8, &
2612  3.5588957917333e-13_r8, 3.8509878520517e-13_r8, 4.2243395874184e-13_r8, &
2613  4.7452378320299e-13_r8, 5.0493057741702e-13_r8, 5.2678607530348e-13_r8, &
2614  5.4239507175939e-13_r8, 5.4966573578852e-13_r8, 5.5511119509378e-13_r8, &
2615  5.6073823524667e-13_r8, 5.7318313123272e-13_r8, 5.8492266747157e-13_r8, &
2616  5.9527224928386e-13_r8, 6.0192010023646e-13_r8, 6.0655789282065e-13_r8, &
2617  6.1113657979645e-13_r8, 6.1284415314274e-13_r8, 6.144385573274e-13_r8, &
2618  6.1599843734309e-13_r8, 6.1729431722911e-13_r8, 6.183468780577e-13_r8, &
2619  6.1565004386262e-13_r8, 6.1249953519586e-13_r8, 6.0528623703503e-13_r8, &
2620  5.9814096040689e-13_r8, 5.9006992397162e-13_r8, 5.8182455815325e-13_r8, &
2621  5.7339237875458e-13_r8, 5.6485360260934e-13_r8, 5.5636107320649e-13_r8, &
2622  5.4771173921489e-13_r8, 5.3898040975683e-13_r8, 5.2977458275241e-13_r8, &
2623  5.2053476794797e-13_r8, 5.112322852493e-13_r8, 5.0180834835377e-13_r8, &
2624  4.92270849647e-13_r8, 4.8282023629188e-13_r8, 4.734242897083e-13_r8, &
2625  6.2983316124078e-13_r8, 6.4806903256871e-13_r8, 6.9332053313919e-13_r8, &
2626  7.4356919333127e-13_r8, 7.7391966374215e-13_r8, 7.8917210371931e-13_r8, &
2627  7.589102211215e-13_r8, 7.3623001646769e-13_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2628  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2629  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2630  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2631  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2632  9e90_r8, 9e90_r8 &
2633  /) ) /
2634 
2635 type(gsw_result) :: v_h_h
2636 
2637 data v_h_h / gsw_result( &
2638  "v_h_h", 1.3867e-26_r8, (/ &
2639  4.542854167654e-16_r8, 4.5401621890076e-16_r8, 4.5409106434954e-16_r8, &
2640  4.5376772347679e-16_r8, 4.5389699822474e-16_r8, 4.5423678237247e-16_r8, &
2641  4.5898236888969e-16_r8, 4.679678027577e-16_r8, 4.8147241690101e-16_r8, &
2642  5.0073312921987e-16_r8, 5.2007754436742e-16_r8, 5.3965563286683e-16_r8, &
2643  5.7794601897247e-16_r8, 5.9649627136942e-16_r8, 6.0719734486907e-16_r8, &
2644  6.1630359175668e-16_r8, 6.2795818611668e-16_r8, 6.3419607907586e-16_r8, &
2645  6.3855878512708e-16_r8, 6.4151727082382e-16_r8, 6.4384306698391e-16_r8, &
2646  6.4578681927303e-16_r8, 6.4719019668805e-16_r8, 6.4788800091672e-16_r8, &
2647  6.4760727089706e-16_r8, 6.4696042951654e-16_r8, 6.4535769594644e-16_r8, &
2648  6.384696751633e-16_r8, 6.2970073660857e-16_r8, 6.1871084446417e-16_r8, &
2649  6.0696850119375e-16_r8, 5.9438903176806e-16_r8, 5.8139088221145e-16_r8, &
2650  5.6819488225016e-16_r8, 5.5510312931241e-16_r8, 5.4181313307849e-16_r8, &
2651  5.2860873231613e-16_r8, 5.1549108369088e-16_r8, 5.0208484091653e-16_r8, &
2652  4.8907716752659e-16_r8, 4.7608133986681e-16_r8, 4.6314166611151e-16_r8, &
2653  4.5040193504406e-16_r8, 4.3783379893549e-16_r8, 4.2542977219242e-16_r8, &
2654  4.588166420454e-16_r8, 4.5900010124402e-16_r8, 4.5819178683442e-16_r8, &
2655  4.5824903085698e-16_r8, 4.5775878130593e-16_r8, 4.5963052559668e-16_r8, &
2656  4.731569695469e-16_r8, 4.9284593344406e-16_r8, 5.1660546656522e-16_r8, &
2657  5.5009748681783e-16_r8, 5.7044897509993e-16_r8, 5.8565064453407e-16_r8, &
2658  5.9632025952984e-16_r8, 6.0089308061056e-16_r8, 6.041956638888e-16_r8, &
2659  6.0772559181918e-16_r8, 6.1616091009441e-16_r8, 6.2449221211846e-16_r8, &
2660  6.320675594528e-16_r8, 6.3652056062385e-16_r8, 6.3924362308266e-16_r8, &
2661  6.4210414129221e-16_r8, 6.4215269017435e-16_r8, 6.4215367743744e-16_r8, &
2662  6.422256343476e-16_r8, 6.4208861729002e-16_r8, 6.4178781085356e-16_r8, &
2663  6.3522054852708e-16_r8, 6.283224028657e-16_r8, 6.1677330680862e-16_r8, &
2664  6.0537522342196e-16_r8, 5.9296121307287e-16_r8, 5.8041670003392e-16_r8, &
2665  5.6775039052262e-16_r8, 5.5504051501518e-16_r8, 5.4248133265336e-16_r8, &
2666  5.2982790503474e-16_r8, 5.1719495677449e-16_r8, 5.0411119106344e-16_r8, &
2667  4.9112069749231e-16_r8, 4.7817899440711e-16_r8, 4.6525179100237e-16_r8, &
2668  4.5232948672668e-16_r8, 4.3966511473454e-16_r8, 4.2720650884596e-16_r8, &
2669  7.2984589754873e-16_r8, 7.4500115876955e-16_r8, 7.8314234083822e-16_r8, &
2670  8.2571908104756e-16_r8, 8.5154026747761e-16_r8, 8.6444918491475e-16_r8, &
2671  8.3602204373094e-16_r8, 8.138229413294e-16_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2672  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2673  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2674  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2675  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2676  9e90_r8, 9e90_r8 &
2677  /) ) /
2678 
2679 type(gsw_result) :: specvol_anom_standard
2680 
2681 data specvol_anom_standard / gsw_result( &
2682  "specvol_anom_standard", 2.8059e-16_r8, (/ &
2683  5.8929378183726e-06_r8, 5.8975536407299e-06_r8, 5.8905409342067e-06_r8, &
2684  5.895142798727e-06_r8, 5.8609836590313e-06_r8, 5.8326144200652e-06_r8, &
2685  5.4446856278501e-06_r8, 4.8333577576099e-06_r8, 4.1535976592016e-06_r8, &
2686  3.4282634358106e-06_r8, 2.9137383031759e-06_r8, 2.5099014567469e-06_r8, &
2687  1.9112328954116e-06_r8, 1.6242211093422e-06_r8, 1.4481087076302e-06_r8, &
2688  1.3046382930424e-06_r8, 1.1416538591621e-06_r8, 1.043816475105e-06_r8, &
2689  9.6329610597595e-07_r8, 8.9816200154468e-07_r8, 8.3981330113958e-07_r8, &
2690  7.8502980783003e-07_r8, 7.3410619031935e-07_r8, 6.8879959180907e-07_r8, &
2691  6.497113408893e-07_r8, 6.1491861492778e-07_r8, 5.8587932235373e-07_r8, &
2692  5.3202315492412e-07_r8, 4.8869289087633e-07_r8, 4.6191329876941e-07_r8, &
2693  4.411402335875e-07_r8, 4.2755573387645e-07_r8, 4.1744818350197e-07_r8, &
2694  4.1072574360177e-07_r8, 4.023503157013e-07_r8, 3.9801025836972e-07_r8, &
2695  3.9295969506607e-07_r8, 3.8880890683846e-07_r8, 3.9046356175533e-07_r8, &
2696  3.8902604136667e-07_r8, 3.8983718794118e-07_r8, 3.9452856901916e-07_r8, &
2697  3.9694507072855e-07_r8, 4.0099582305238e-07_r8, 4.0510130641512e-07_r8, &
2698  5.614802253369e-06_r8, 5.610551831148e-06_r8, 5.6152544469589e-06_r8, &
2699  5.6168618483326e-06_r8, 5.6217651521924e-06_r8, 5.499537058791e-06_r8, &
2700  4.6769245649076e-06_r8, 3.7240535256314e-06_r8, 3.0611898233873e-06_r8, &
2701  2.375109301998e-06_r8, 1.9955971610509e-06_r8, 1.7028636735173e-06_r8, &
2702  1.4806514283281e-06_r8, 1.3859415613389e-06_r8, 1.3328477085997e-06_r8, &
2703  1.2831776792734e-06_r8, 1.1843298775222e-06_r8, 1.0861927217826e-06_r8, &
2704  9.9472192912265e-07_r8, 9.2408187088355e-07_r8, 8.6569657574924e-07_r8, &
2705  8.0686179787964e-07_r8, 7.670350378703e-07_r8, 7.2739125548401e-07_r8, &
2706  6.8657035405986e-07_r8, 6.4703690021542e-07_r8, 6.0843585898628e-07_r8, &
2707  5.5171711625306e-07_r8, 4.9392038375081e-07_r8, 4.7383316428676e-07_r8, &
2708  4.4988643877859e-07_r8, 4.3597809800654e-07_r8, 4.2162379785973e-07_r8, &
2709  4.0989738508662e-07_r8, 3.9860813940192e-07_r8, 3.8547851939679e-07_r8, &
2710  3.7380852924605e-07_r8, 3.6254128627082e-07_r8, 3.5703434401299e-07_r8, &
2711  3.5373190009431e-07_r8, 3.5145867842288e-07_r8, 3.5270226030437e-07_r8, &
2712  3.5569404936743e-07_r8, 3.5868967571088e-07_r8, 3.5988460949968e-07_r8, &
2713  2.2480540455874e-05_r8, 2.2308211792809e-05_r8, 2.2032796952698e-05_r8, &
2714  2.1745453855873e-05_r8, 2.1527611547459e-05_r8, 2.1341056490181e-05_r8, &
2715  2.0113913028269e-05_r8, 1.9180303484793e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2716  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2717  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2718  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2719  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2720  9e90_r8, 9e90_r8 &
2721  /) ) /
2722 
2723 type(gsw_result) :: rho
2724 
2725 data rho / gsw_result( &
2726  "rho", 2.9468e-10_r8, (/ &
2727  1021.91567313796_r8, 1021.957902856242_r8, 1022.012267132766_r8, &
2728  1022.05448963281_r8, 1022.137195250259_r8, 1022.213849342893_r8, &
2729  1022.741649269399_r8, 1023.499159209548_r8, 1024.329496404296_r8, &
2730  1025.208987212269_r8, 1025.867991574465_r8, 1026.415841585807_r8, &
2731  1027.282944210685_r8, 1027.826508434572_r8, 1028.248280425452_r8, &
2732  1028.640192971558_r8, 1029.287710311879_r8, 1029.865421008766_r8, &
2733  1030.423875133298_r8, 1030.965065560775_r8, 1031.498092497998_r8, &
2734  1032.02636394021_r8, 1032.549554730791_r8, 1033.07040525965_r8, &
2735  1033.578990746327_r8, 1034.086592971293_r8, 1034.582415050083_r8, &
2736  1035.804275542088_r8, 1037.008310729382_r8, 1038.18796581789_r8, &
2737  1039.359020390585_r8, 1040.515628048175_r8, 1041.666225540269_r8, &
2738  1042.802008581031_r8, 1043.937320203809_r8, 1045.061548134433_r8, &
2739  1046.184220796891_r8, 1047.294913317684_r8, 1048.401182798463_r8, &
2740  1049.499898998976_r8, 1050.593761466989_r8, 1051.672500145193_r8, &
2741  1052.755562885562_r8, 1053.826049301265_r8, 1054.894080873972_r8, &
2742  1022.206215928121_r8, 1022.257734901179_r8, 1022.299887287521_r8, &
2743  1022.345263329231_r8, 1022.387183366636_r8, 1022.562007463122_r8, &
2744  1023.54535880042_r8, 1024.662532305651_r8, 1025.476990357158_r8, &
2745  1026.317104954526_r8, 1026.835158995014_r8, 1027.266784565833_r8, &
2746  1027.737542327196_r8, 1028.078295126694_r8, 1028.370159693567_r8, &
2747  1028.662900962148_r8, 1029.242499907493_r8, 1029.820477757386_r8, &
2748  1030.390509111843_r8, 1030.937516353827_r8, 1031.470553731509_r8, &
2749  1032.003111682734_r8, 1032.514448550981_r8, 1033.02922054817_r8, &
2750  1033.53961629594_r8, 1034.052248902741_r8, 1034.558271981502_r8, &
2751  1035.783146509139_r8, 1037.002689185968_r8, 1038.175118337541_r8, &
2752  1039.349572238114_r8, 1040.506509463766_r8, 1041.661694732262_r8, &
2753  1042.802909368704_r8, 1043.941398462664_r8, 1045.075234898008_r8, &
2754  1046.205182195125_r8, 1047.323725136184_r8, 1048.437927645143_r8, &
2755  1049.538775172242_r8, 1050.636123349432_r8, 1051.718762706993_r8, &
2756  1052.801283141887_r8, 1053.87303446012_r8, 1054.944400483299_r8, &
2757  1004.88179015787_r8, 1005.101346377427_r8, 1005.425181083815_r8, &
2758  1005.761276064789_r8, 1006.027235370758_r8, 1006.261639652662_r8, &
2759  1007.624431397616_r8, 1008.687504253248_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2760  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2761  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2762  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2763  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2764  9e90_r8, 9e90_r8 &
2765  /) ) /
2766 
2767 type(gsw_result) :: rho_rab
2768 
2769 data rho_rab / gsw_result( &
2770  "rho_rab", 2.9468e-10_r8, (/ &
2771  1021.91567313796_r8, 1021.957902856242_r8, 1022.012267132766_r8, &
2772  1022.05448963281_r8, 1022.137195250259_r8, 1022.213849342893_r8, &
2773  1022.741649269399_r8, 1023.499159209548_r8, 1024.329496404296_r8, &
2774  1025.208987212269_r8, 1025.867991574465_r8, 1026.415841585807_r8, &
2775  1027.282944210685_r8, 1027.826508434572_r8, 1028.248280425452_r8, &
2776  1028.640192971558_r8, 1029.287710311879_r8, 1029.865421008766_r8, &
2777  1030.423875133298_r8, 1030.965065560775_r8, 1031.498092497998_r8, &
2778  1032.02636394021_r8, 1032.549554730791_r8, 1033.07040525965_r8, &
2779  1033.578990746327_r8, 1034.086592971293_r8, 1034.582415050083_r8, &
2780  1035.804275542088_r8, 1037.008310729382_r8, 1038.18796581789_r8, &
2781  1039.359020390585_r8, 1040.515628048175_r8, 1041.666225540269_r8, &
2782  1042.802008581031_r8, 1043.937320203809_r8, 1045.061548134433_r8, &
2783  1046.184220796891_r8, 1047.294913317684_r8, 1048.401182798463_r8, &
2784  1049.499898998976_r8, 1050.593761466989_r8, 1051.672500145193_r8, &
2785  1052.755562885562_r8, 1053.826049301265_r8, 1054.894080873972_r8, &
2786  1022.206215928121_r8, 1022.257734901179_r8, 1022.299887287521_r8, &
2787  1022.345263329231_r8, 1022.387183366636_r8, 1022.562007463122_r8, &
2788  1023.54535880042_r8, 1024.662532305651_r8, 1025.476990357158_r8, &
2789  1026.317104954526_r8, 1026.835158995014_r8, 1027.266784565833_r8, &
2790  1027.737542327196_r8, 1028.078295126694_r8, 1028.370159693567_r8, &
2791  1028.662900962148_r8, 1029.242499907493_r8, 1029.820477757386_r8, &
2792  1030.390509111843_r8, 1030.937516353827_r8, 1031.470553731509_r8, &
2793  1032.003111682734_r8, 1032.514448550981_r8, 1033.02922054817_r8, &
2794  1033.53961629594_r8, 1034.052248902741_r8, 1034.558271981502_r8, &
2795  1035.783146509139_r8, 1037.002689185968_r8, 1038.175118337541_r8, &
2796  1039.349572238114_r8, 1040.506509463766_r8, 1041.661694732262_r8, &
2797  1042.802909368704_r8, 1043.941398462664_r8, 1045.075234898008_r8, &
2798  1046.205182195125_r8, 1047.323725136184_r8, 1048.437927645143_r8, &
2799  1049.538775172242_r8, 1050.636123349432_r8, 1051.718762706993_r8, &
2800  1052.801283141887_r8, 1053.87303446012_r8, 1054.944400483299_r8, &
2801  1004.88179015787_r8, 1005.101346377427_r8, 1005.425181083815_r8, &
2802  1005.761276064789_r8, 1006.027235370758_r8, 1006.261639652662_r8, &
2803  1007.624431397616_r8, 1008.687504253248_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2804  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2805  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2806  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2807  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2808  9e90_r8, 9e90_r8 &
2809  /) ) /
2810 
2811 type(gsw_result) :: alpha_rab
2812 
2813 data alpha_rab / gsw_result( &
2814  "alpha_rab", 8.2511e-15_r8, (/ &
2815  0.00031831246465714_r8, 0.00031840612786134_r8, 0.00031814275657959_r8, &
2816  0.00031829167734161_r8, 0.00031795922055419_r8, 0.00031741177706767_r8, &
2817  0.00031179395602026_r8, 0.00030141362492837_r8, 0.00028596263812853_r8, &
2818  0.00026450886155659_r8, 0.00024397404528929_r8, 0.00022440625955621_r8, &
2819  0.00018975958703816_r8, 0.00017405696520385_r8, 0.00016512854145658_r8, &
2820  0.0001576899406304_r8, 0.00014807441042483_r8, 0.00014252387994453_r8, &
2821  0.00013838738637137_r8, 0.00013527726299367_r8, 0.00013265234399935_r8, &
2822  0.00013033509102019_r8, 0.00012841147506385_r8, 0.0001269577988008_r8, &
2823  0.00012614373092141_r8, 0.00012556465287975_r8, 0.0001255854517629_r8, &
2824  0.00012737392919504_r8, 0.00013030163856574_r8, 0.00013454687195958_r8, &
2825  0.00013923611412081_r8, 0.00014443028981363_r8, 0.00014987962882352_r8, &
2826  0.000155475108165_r8, 0.00016102244369735_r8, 0.00016671350692754_r8, &
2827  0.00017237190127977_r8, 0.00017801733274792_r8, 0.00018385807300305_r8, &
2828  0.00018949876493089_r8, 0.00019516412817312_r8, 0.00020085264541274_r8, &
2829  0.00020644192075943_r8, 0.00021198604708151_r8, 0.00021747053674416_r8, &
2830  0.00031352632986199_r8, 0.00031314584363571_r8, 0.00031379095358515_r8, &
2831  0.00031354339000421_r8, 0.00031386177161337_r8, 0.00031166099032067_r8, &
2832  0.000296339987212_r8, 0.00027410972793407_r8, 0.00024866352968226_r8, &
2833  0.00021583977103351_r8, 0.00019736078118712_r8, 0.00018421708451963_r8, &
2834  0.00017486696247624_r8, 0.00017051611280154_r8, 0.00016724557059136_r8, &
2835  0.00016385374058867_r8, 0.00015629414174458_r8, 0.00014909651010626_r8, &
2836  0.00014267633917463_r8, 0.00013851653174449_r8, 0.0001355865358085_r8, &
2837  0.00013264771558957_r8, 0.00013153755731539_r8, 0.00013047724467425_r8, &
2838  0.00012941419181229_r8, 0.00012849847982801_r8, 0.0001277188349363_r8, &
2839  0.0001292970942265_r8, 0.00013111334945339_r8, 0.0001356863138958_r8, &
2840  0.0001401755697496_r8, 0.00014527582557902_r8, 0.00015046105362017_r8, &
2841  0.00015574418663267_r8, 0.00016106309539841_r8, 0.000166311327862_r8, &
2842  0.00017162801220594_r8, 0.0001769653707843_r8, 0.00018259067859958_r8, &
2843  0.00018820225131634_r8, 0.00019381214928371_r8, 0.00019946847313476_r8, &
2844  0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, &
2845  0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, &
2846  3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, &
2847  2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2848  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2849  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2850  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2851  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2852  9e90_r8, 9e90_r8 &
2853  /) ) /
2854 
2855 type(gsw_result) :: beta_rab
2856 
2857 data beta_rab / gsw_result( &
2858  "beta_rab", 1.8397e-15_r8, (/ &
2859  0.00071891860085091_r8, 0.00071883031010036_r8, 0.00071881933367617_r8, &
2860  0.00071871921576397_r8, 0.00071872418757004_r8, 0.00071877529859646_r8, &
2861  0.00071982423795744_r8, 0.00072192226059341_r8, 0.00072514590519558_r8, &
2862  0.00072975281215256_r8, 0.00073424294205732_r8, 0.00073859466136716_r8, &
2863  0.00074646994917444_r8, 0.00074994874791257_r8, 0.00075182666867381_r8, &
2864  0.00075334843991345_r8, 0.00075512854627534_r8, 0.00075592980881447_r8, &
2865  0.00075639564873158_r8, 0.0007566177576665_r8, 0.00075672790306217_r8, &
2866  0.00075676918303485_r8, 0.00075672001336559_r8, 0.00075655563168968_r8, &
2867  0.00075624428466638_r8, 0.00075587437871921_r8, 0.00075536613495089_r8, &
2868  0.00075367570819568_r8, 0.00075172497764175_r8, 0.00074946350249751_r8, &
2869  0.00074710150046774_r8, 0.00074462553600039_r8, 0.00074209220383233_r8, &
2870  0.0007395363612618_r8, 0.0007369989868843_r8, 0.00073443279635813_r8, &
2871  0.00073187950375532_r8, 0.00072934138433148_r8, 0.00072674861171345_r8, &
2872  0.00072422009277462_r8, 0.00072168607463089_r8, 0.00071915330486918_r8, &
2873  0.00071664523040865_r8, 0.00071415696387813_r8, 0.00071168532745488_r8, &
2874  0.00071995907210522_r8, 0.00071997330477217_r8, 0.00071976642054599_r8, &
2875  0.00071975188668924_r8, 0.00071961539411425_r8, 0.00072002646142771_r8, &
2876  0.00072319569356983_r8, 0.00072793617402992_r8, 0.00073349085963673_r8, &
2877  0.00074090987742426_r8, 0.0007451230130126_r8, 0.00074811560205416_r8, &
2878  0.00075008075571807_r8, 0.00075083844183457_r8, 0.00075134129226816_r8, &
2879  0.00075187115532691_r8, 0.00075313631886973_r8, 0.00075433050421882_r8, &
2880  0.00075534894473538_r8, 0.00075582533336245_r8, 0.00075600843911033_r8, &
2881  0.00075620105004302_r8, 0.00075595017479816_r8, 0.00075568741799472_r8, &
2882  0.00075543622349373_r8, 0.00075514882901842_r8, 0.00075483806381027_r8, &
2883  0.00075319778801004_r8, 0.00075152316047427_r8, 0.00074917733334614_r8, &
2884  0.00074686443787858_r8, 0.00074441062667607_r8, 0.00074194391469331_r8, &
2885  0.00073946813600148_r8, 0.00073698980118432_r8, 0.00073454083205842_r8, &
2886  0.00073207955103499_r8, 0.00072962628588647_r8, 0.00072709545590058_r8, &
2887  0.00072457837687366_r8, 0.00072206359478347_r8, 0.00071954433782395_r8, &
2888  0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, &
2889  0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, &
2890  0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, &
2891  0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2892  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2893  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2894  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2895  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2896  9e90_r8, 9e90_r8 &
2897  /) ) /
2898 
2899 type(gsw_result) :: rho_sa
2900 
2901 data rho_sa / gsw_result( &
2902  "rho_SA", 1.9391e-12_r8, (/ &
2903  0.73467418591996_r8, 0.73461431621966_r8, 0.73464217686925_r8, &
2904  0.73457020125693_r8, 0.73463472524136_r8, 0.73474206479087_r8, &
2905  0.73619422831268_r8, 0.73888682673201_r8, 0.74278833988862_r8, &
2906  0.74814914146223_r8, 0.75323633229607_r8, 0.75810526093795_r8, &
2907  0.76683584715272_r8, 0.77081720307186_r8, 0.77306447924184_r8, &
2908  0.7749244846074_r8, 0.77724453238689_r8, 0.77850597080779_r8, &
2909  0.77940813549996_r8, 0.78004647613709_r8, 0.78056338854864_r8, &
2910  0.78100574830946_r8, 0.78135091285651_r8, 0.78157523303113_r8, &
2911  0.78163820450316_r8, 0.78163956100404_r8, 0.78148852014453_r8, &
2912  0.78066052092129_r8, 0.77954504919735_r8, 0.77808398911264_r8, &
2913  0.77650668365848_r8, 0.77479450725215_r8, 0.77301238496888_r8, &
2914  0.77119000294251_r8, 0.76938074736092_r8, 0.76752747516273_r8, &
2915  0.76568078835348_r8, 0.76383552188243_r8, 0.76192410411752_r8, &
2916  0.76006891421999_r8, 0.75819888774481_r8, 0.75631375411945_r8, &
2917  0.75445225292811_r8, 0.75259721182468_r8, 0.750752639377_r8, &
2918  0.7359466387198_r8, 0.73599827972572_r8, 0.73581713059751_r8, &
2919  0.73583493212902_r8, 0.73572555589574_r8, 0.73627170382408_r8, &
2920  0.74022359565785_r8, 0.74588892343838_r8, 0.75217799919476_r8, &
2921  0.76040848043028_r8, 0.76511850753764_r8, 0.76851430900571_r8, &
2922  0.77088615242861_r8, 0.77192070519687_r8, 0.77265696471418_r8, &
2923  0.77342196378834_r8, 0.77515990760461_r8, 0.77682500024159_r8, &
2924  0.77830438372298_r8, 0.77920869197399_r8, 0.77980044331482_r8, &
2925  0.78040183670215_r8, 0.78052947786374_r8, 0.78064718438915_r8, &
2926  0.78077326456576_r8, 0.78086334490277_r8, 0.78092396292141_r8, &
2927  0.78014957480876_r8, 0.77933153839735_r8, 0.77777726670243_r8, &
2928  0.77625323402896_r8, 0.77456410277045_r8, 0.77285455557572_r8, &
2929  0.7711195236078_r8, 0.76937416370108_r8, 0.76765043260563_r8, &
2930  0.76590542007189_r8, 0.7641549196919_r8, 0.7623144529846_r8, &
2931  0.76047310218027_r8, 0.75862609603506_r8, 0.75675828068903_r8, &
2932  0.7548729763576_r8, 0.75301219461664_r8, 0.75117256867532_r8, &
2933  0.77233733209404_r8, 0.77480865946544_r8, 0.780753485975_r8, &
2934  0.7870676524159_r8, 0.79078217997537_r8, 0.79264861572057_r8, &
2935  0.78953973479736_r8, 0.78714943302591_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2936  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2937  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2938  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2939  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2940  9e90_r8, 9e90_r8 &
2941  /) ) /
2942 
2943 type(gsw_result) :: rho_ct
2944 
2945 data rho_ct / gsw_result( &
2946  "rho_CT", 8.3013e-12_r8, (/ &
2947  -0.325288496588_r8, -0.325397658686_r8, -0.325145799924_r8, &
2948  -0.32531143784_r8, -0.324997945901_r8, -0.324462714463_r8, &
2949  -0.318884664812_r8, -0.308496591688_r8, -0.292919965105_r8, &
2950  -0.271176862065_r8, -0.250285163837_r8, -0.23033413976_r8, &
2951  -0.194936787265_r8, -0.178900362814_r8, -0.169793138802_r8, &
2952  -0.16220621096_r8, -0.152411170862_r8, -0.146780415623_r8, &
2953  -0.142597666934_r8, -0.139466132311_r8, -0.136830639801_r8, &
2954  -0.134509250079_r8, -0.1325912114_r8, -0.131156344658_r8, &
2955  -0.130379510095_r8, -0.129844724094_r8, -0.12992849998_r8, &
2956  -0.131934460453_r8, -0.135123882094_r8, -0.139684943307_r8, &
2957  -0.144716311176_r8, -0.150281973715_r8, -0.156124547242_r8, &
2958  -0.162129755079_r8, -0.168097338366_r8, -0.174225875645_r8, &
2959  -0.180332763228_r8, -0.186436647069_r8, -0.192757021203_r8, &
2960  -0.198878934655_r8, -0.205038215521_r8, -0.211231203762_r8, &
2961  -0.217332880492_r8, -0.223396418503_r8, -0.229408381976_r8, &
2962  -0.320488563242_r8, -0.320115760809_r8, -0.320788456482_r8, &
2963  -0.320549599619_r8, -0.320888252646_r8, -0.31869268791_r8, &
2964  -0.303317418538_r8, -0.280869967955_r8, -0.25499872803_r8, &
2965  -0.221520048941_r8, -0.20265698913_r8, -0.189240092077_r8, &
2966  -0.17971734225_r8, -0.175303914541_r8, -0.171990354137_r8, &
2967  -0.168550264127_r8, -0.16086457317_r8, -0.15354263927_r8, &
2968  -0.14701234576_r8, -0.142801889211_r8, -0.139853519169_r8, &
2969  -0.136892855246_r8, -0.135814428455_r8, -0.134786806365_r8, &
2970  -0.133754694149_r8, -0.132874142047_r8, -0.132132577171_r8, &
2971  -0.133923751092_r8, -0.135964895971_r8, -0.140866154986_r8, &
2972  -0.145691418457_r8, -0.151160442183_r8, -0.156729516105_r8, &
2973  -0.162410490938_r8, -0.168140433051_r8, -0.173807850032_r8, &
2974  -0.17955811578_r8, -0.18534003135_r8, -0.191434992678_r8, &
2975  -0.197525560331_r8, -0.203626045181_r8, -0.209784735764_r8, &
2976  -0.215985125244_r8, -0.222087910221_r8, -0.228109323099_r8, &
2977  -0.101385974489_r8, -0.0905712754109_r8, -0.0646818450915_r8, &
2978  -0.037287324083_r8, -0.0212538115316_r8, -0.0132844055994_r8, &
2979  -0.0289072126346_r8, -0.0414969685745_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2980  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2981  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2982  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2983  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
2984  9e90_r8, 9e90_r8 &
2985  /) ) /
2986 
2987 type(gsw_result) :: rho_p
2988 
2989 data rho_p / gsw_result( &
2990  "rho_P", 1.7791e-18_r8, (/ &
2991  4.2148601433889e-07_r8, 4.2139395797513e-07_r8, 4.2136235318989e-07_r8, &
2992  4.2126017654302e-07_r8, 4.2122876314814e-07_r8, 4.2123999725329e-07_r8, &
2993  4.2190482991361e-07_r8, 4.233892410188e-07_r8, 4.2586824479248e-07_r8, &
2994  4.2961899078593e-07_r8, 4.334276598915e-07_r8, 4.3720829901814e-07_r8, &
2995  4.4421440293745e-07_r8, 4.4734069887706e-07_r8, 4.4903736644197e-07_r8, &
2996  4.5042775474339e-07_r8, 4.5209176086313e-07_r8, 4.5286817930805e-07_r8, &
2997  4.5334253660496e-07_r8, 4.535975556855e-07_r8, 4.5375530703977e-07_r8, &
2998  4.5385528443763e-07_r8, 4.5387466033474e-07_r8, 4.5378854992983e-07_r8, &
2999  4.5356079510929e-07_r8, 4.5328058460221e-07_r8, 4.528631921808e-07_r8, &
3000  4.5140218050991e-07_r8, 4.4967463402478e-07_r8, 4.4762072793206e-07_r8, &
3001  4.4545270496461e-07_r8, 4.4315217614896e-07_r8, 4.4077728852767e-07_r8, &
3002  4.3836169067297e-07_r8, 4.3595041327544e-07_r8, 4.3349253902106e-07_r8, &
3003  4.3103311253226e-07_r8, 4.285726575251e-07_r8, 4.2603955082647e-07_r8, &
3004  4.2355879815721e-07_r8, 4.210576540008e-07_r8, 4.185416933564e-07_r8, &
3005  4.1603917875623e-07_r8, 4.1354252154378e-07_r8, 4.1105047348645e-07_r8, &
3006  4.2224079308348e-07_r8, 4.2223302112412e-07_r8, 4.2203898499225e-07_r8, &
3007  4.2200936229882e-07_r8, 4.2187614597216e-07_r8, 4.2215274267882e-07_r8, &
3008  4.244703767653e-07_r8, 4.2818429458901e-07_r8, 4.3285729574415e-07_r8, &
3009  4.3930903779274e-07_r8, 4.4301876672881e-07_r8, 4.456635863492e-07_r8, &
3010  4.473962592181e-07_r8, 4.4806549650749e-07_r8, 4.4851961741084e-07_r8, &
3011  4.4900615117212e-07_r8, 4.501923845382e-07_r8, 4.5133467266184e-07_r8, &
3012  4.5233262680791e-07_r8, 4.5282848169208e-07_r8, 4.5305339144186e-07_r8, &
3013  4.5329783890288e-07_r8, 4.5311619554291e-07_r8, 4.5292856871451e-07_r8, &
3014  4.5275606936027e-07_r8, 4.525532882672e-07_r8, 4.5233049450952e-07_r8, &
3015  4.509140351009e-07_r8, 4.4946474617075e-07_r8, 4.4732254918579e-07_r8, &
3016  4.4520300121252e-07_r8, 4.4292424449835e-07_r8, 4.4061802602732e-07_r8, &
3017  4.3828653629664e-07_r8, 4.3593840933193e-07_r8, 4.3360624155873e-07_r8, &
3018  4.3124706689246e-07_r8, 4.2887975524e-07_r8, 4.2641473357029e-07_r8, &
3019  4.2394805829814e-07_r8, 4.2146930485276e-07_r8, 4.1896896028994e-07_r8, &
3020  4.1644266684966e-07_r8, 4.1393954995633e-07_r8, 4.114500334809e-07_r8, &
3021  4.719280980251e-07_r8, 4.7408927493944e-07_r8, 4.7943910045961e-07_r8, &
3022  4.8518032439027e-07_r8, 4.8854275918655e-07_r8, 4.9018284177683e-07_r8, &
3023  4.8635623151091e-07_r8, 4.8325470773939e-07_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3024  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3025  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3026  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3027  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3028  9e90_r8, 9e90_r8 &
3029  /) ) /
3030 
3031 type(gsw_result) :: rho_sa_sa
3032 
3033 data rho_sa_sa / gsw_result( &
3034  "rho_SA_SA", 1.946e-14_r8, (/ &
3035  0.00020613727537939_r8, 0.00020618058440038_r8, 0.00020614710742184_r8, &
3036  0.00020620753695328_r8, 0.00020620231861555_r8, 0.0002061241953214_r8, &
3037  0.00020502057051094_r8, 0.00020180711847375_r8, 0.00019520706598513_r8, &
3038  0.00018419157329905_r8, 0.00017289815768799_r8, 0.00016217675668052_r8, &
3039  0.00014408062715114_r8, 0.00013623482410946_r8, 0.00013179450859887_r8, &
3040  0.00012806137632874_r8, 0.00012319623723558_r8, 0.00012036749403964_r8, &
3041  0.00011824073302454_r8, 0.0001166516192171_r8, 0.00011531717987283_r8, &
3042  0.00011414305819368_r8, 0.00011318997358117_r8, 0.00011252858778256_r8, &
3043  0.00011228132858429_r8, 0.00011221969996686_r8, 0.00011259031987221_r8, &
3044  0.00011496874472059_r8, 0.00011858329948941_r8, 0.0001236966164024_r8, &
3045  0.00012971883724018_r8, 0.00013673573745902_r8, 0.00014458724787697_r8, &
3046  0.00015317949228182_r8, 0.00016237637531502_r8, 0.00017235850464134_r8, &
3047  0.00018299051882621_r8, 0.00019426004271154_r8, 0.00020646317653477_r8, &
3048  0.00021913318567812_r8, 0.0002325625811984_r8, 0.00024670369681268_r8, &
3049  0.00026152404914722_r8, 0.00027699365713803_r8, 0.00029317236948056_r8, &
3050  0.00020517341945803_r8, 0.00020507665057453_r8, 0.00020530154921449_r8, &
3051  0.00020524169898532_r8, 0.00020536069903088_r8, 0.00020483775367322_r8, &
3052  0.00019970474206887_r8, 0.00018926396787174_r8, 0.00017544203626297_r8, &
3053  0.00015751242005643_r8, 0.00014788490733386_r8, 0.00014121322884974_r8, &
3054  0.00013650804567697_r8, 0.00013434253266797_r8, 0.00013274481359976_r8, &
3055  0.0001310951162302_r8, 0.0001273981149875_r8, 0.0001238263660019_r8, &
3056  0.0001205727957976_r8, 0.0001184697129221_r8, 0.00011701828701193_r8, &
3057  0.00011552952938029_r8, 0.00011512603716053_r8, 0.00011477385118908_r8, &
3058  0.00011442741194225_r8, 0.00011419360814127_r8, 0.00011405911956884_r8, &
3059  0.00011635632267032_r8, 0.000119184716061_r8, 0.00012458731891829_r8, &
3060  0.0001304736232836_r8, 0.00013743746071417_r8, 0.00014507826894431_r8, &
3061  0.00015340434564416_r8, 0.00016240048439012_r8, 0.00017196058944682_r8, &
3062  0.00018224866158497_r8, 0.00019318813408079_r8, 0.00020513987115691_r8, &
3063  0.00021774747050265_r8, 0.00023108356847726_r8, 0.00024515582146171_r8, &
3064  0.00026005116599746_r8, 0.00027553466445755_r8, 0.00029169636951351_r8, &
3065  -0.00051611728824693_r8, -0.00050948756937966_r8, -0.00051306917298877_r8, &
3066  -0.00051196917284635_r8, -0.00050185637436778_r8, -0.00048459659059207_r8, &
3067  -0.0003005333644906_r8, -0.00019970046341223_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3068  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3069  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3070  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3071  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3072  9e90_r8, 9e90_r8 &
3073  /) ) /
3074 
3075 type(gsw_result) :: rho_sa_ct
3076 
3077 data rho_sa_ct / gsw_result( &
3078  "rho_SA_CT", 5.1778e-14_r8, (/ &
3079  -0.0018502582706184_r8, -0.0018496608293815_r8, -0.0018501307389897_r8, &
3080  -0.0018493742338183_r8, -0.0018501619113689_r8, -0.0018515522401729_r8, &
3081  -0.001869407000257_r8, -0.0019062387565219_r8, -0.0019682396647075_r8, &
3082  -0.002066390006932_r8, -0.0021698992572797_r8, -0.0022745335923726_r8, &
3083  -0.0024670975235005_r8, -0.0025556759804886_r8, -0.002606084486616_r8, &
3084  -0.002647793072377_r8, -0.0027010739534767_r8, -0.0027317071457941_r8, &
3085  -0.0027544427778991_r8, -0.0027714642828477_r8, -0.0027856921746899_r8, &
3086  -0.0027980824786549_r8, -0.0028082424491618_r8, -0.0028158403712798_r8, &
3087  -0.0028201247177816_r8, -0.0028231009954871_r8, -0.0028230826228402_r8, &
3088  -0.0028144562369767_r8, -0.0028001489000973_r8, -0.0027794797095072_r8, &
3089  -0.0027565433695678_r8, -0.0027310827631855_r8, -0.0027042342907363_r8, &
3090  -0.0026765005703471_r8, -0.0026487487486456_r8, -0.0026200901569173_r8, &
3091  -0.0025913172830212_r8, -0.0025623504079949_r8, -0.0025321727543581_r8, &
3092  -0.0025026487069261_r8, -0.0024726965517001_r8, -0.0024423357884021_r8, &
3093  -0.0024120963299542_r8, -0.0023817558029761_r8, -0.0023513465437986_r8, &
3094  -0.0018655795189542_r8, -0.0018664651313749_r8, -0.0018641688787843_r8, &
3095  -0.0018646182786935_r8, -0.0018633226632946_r8, -0.0018703663539517_r8, &
3096  -0.0019261684033827_r8, -0.0020216699794006_r8, -0.0021457119623951_r8, &
3097  -0.002321294766324_r8, -0.0024245431689146_r8, -0.002499012647779_r8, &
3098  -0.0025524070896855_r8, -0.0025773452608442_r8, -0.0025959625125631_r8, &
3099  -0.0026151535451641_r8, -0.0026573968434639_r8, -0.0026971789706711_r8, &
3100  -0.0027321978841739_r8, -0.0027548551658874_r8, -0.0027708052781578_r8, &
3101  -0.0027864889118881_r8, -0.0027927100730727_r8, -0.0027985319021199_r8, &
3102  -0.0028042037449923_r8, -0.0028089794295385_r8, -0.0028129214996165_r8, &
3103  -0.002805443276635_r8, -0.0027964166135861_r8, -0.0027742432868029_r8, &
3104  -0.0027522519701013_r8, -0.0027272247504947_r8, -0.0027015900874305_r8, &
3105  -0.0026752865496248_r8, -0.0026485774643589_r8, -0.0026219525807814_r8, &
3106  -0.0025947501120938_r8, -0.00256720679419_r8, -0.0025380479382041_r8, &
3107  -0.0025086812397423_r8, -0.002479016159954_r8, -0.0024488478950677_r8, &
3108  -0.002418201669973_r8, -0.0023877235157389_r8, -0.0023573143730946_r8, &
3109  -0.0026946659634197_r8, -0.0027528875139381_r8, -0.0028977412243115_r8, &
3110  -0.0030601272261746_r8, -0.003159088430022_r8, -0.0032094166025569_r8, &
3111  -0.0031191714528193_r8, -0.0030524600176966_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3112  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3113  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3114  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3115  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3116  9e90_r8, 9e90_r8 &
3117  /) ) /
3118 
3119 type(gsw_result) :: rho_ct_ct
3120 
3121 data rho_ct_ct / gsw_result( &
3122  "rho_CT_CT", 2.2724e-13_r8, (/ &
3123  -0.0073527296658543_r8, -0.0073489208340225_r8, -0.0073514788671844_r8, &
3124  -0.007346695587652_r8, -0.0073506622499345_r8, -0.0073583248761721_r8, &
3125  -0.0074528104862947_r8, -0.0076274351871721_r8, -0.0078847332000374_r8, &
3126  -0.0082455490663243_r8, -0.0086023592102404_r8, -0.0089593638823294_r8, &
3127  -0.0096483610806794_r8, -0.0099830921414261_r8, -0.010178301220339_r8, &
3128  -0.010345019600473_r8, -0.010561788608908_r8, -0.010683329783496_r8, &
3129  -0.010772031852713_r8, -0.010836096228086_r8, -0.010889041082434_r8, &
3130  -0.010935266218477_r8, -0.010972027795392_r8, -0.010996536561759_r8, &
3131  -0.011003822559051_r8, -0.011004723418729_r8, -0.01098876559856_r8, &
3132  -0.010898255448069_r8, -0.010774087852177_r8, -0.010610006844188_r8, &
3133  -0.010431733949732_r8, -0.010237565446696_r8, -0.010034918332211_r8, &
3134  -0.009827432580038_r8, -0.0096207107950667_r8, -0.0094092011239674_r8, &
3135  -0.0091980980402026_r8, -0.0089872236854844_r8, -0.0087700532778234_r8, &
3136  -0.0085587596322084_r8, -0.008346520933436_r8, -0.0081339441336358_r8, &
3137  -0.0079239786904771_r8, -0.0077158335151625_r8, -0.0075095743845459_r8, &
3138  -0.0074386000583139_r8, -0.0074430784810714_r8, -0.0074295883602183_r8, &
3139  -0.0074317034791458_r8, -0.0074239227761691_r8, -0.0074606723160876_r8, &
3140  -0.0077205296020858_r8, -0.0080933516511157_r8, -0.00853208379575_r8, &
3141  -0.0091398352131301_r8, -0.009506961552505_r8, -0.0097811609290411_r8, &
3142  -0.0099771866115392_r8, -0.010064507860333_r8, -0.010128723857347_r8, &
3143  -0.010196884004068_r8, -0.010356778729358_r8, -0.010514670218291_r8, &
3144  -0.010659195851103_r8, -0.010749209610708_r8, -0.010809010271155_r8, &
3145  -0.01087115404671_r8, -0.010884229939143_r8, -0.010896528820124_r8, &
3146  -0.010909908403735_r8, -0.010919692124371_r8, -0.010926445215566_r8, &
3147  -0.010841448467145_r8, -0.010750011083331_r8, -0.010575982055034_r8, &
3148  -0.010403710967778_r8, -0.010212377440951_r8, -0.010017721371675_r8, &
3149  -0.0098196206500338_r8, -0.0096196790818978_r8, -0.0094212795274424_r8, &
3150  -0.0092201182481513_r8, -0.0090180667418367_r8, -0.0088068705354023_r8, &
3151  -0.0085960155709375_r8, -0.008384904544291_r8, -0.0081727173004502_r8, &
3152  -0.007959547435718_r8, -0.0077497735133368_r8, -0.0075426648438477_r8, &
3153  -0.011723471759667_r8, -0.011976789697152_r8, -0.012606952666552_r8, &
3154  -0.013307235353128_r8, -0.01373255329551_r8, -0.013947770011972_r8, &
3155  -0.013524495474763_r8, -0.013191564491415_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3156  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3157  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3158  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3159  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3160  9e90_r8, 9e90_r8 &
3161  /) ) /
3162 
3163 type(gsw_result) :: rho_sa_p
3164 
3165 data rho_sa_p / gsw_result( &
3166  "rho_SA_P", 1.1e-20_r8, (/ &
3167  -8.7632153074573e-10_r8, -8.7598674763513e-10_r8, -8.7599012525601e-10_r8, &
3168  -8.7563490046175e-10_r8, -8.7614504862574e-10_r8, -8.7663683955821e-10_r8, &
3169  -8.8523980745339e-10_r8, -9.0052100824322e-10_r8, -9.2095949210354e-10_r8, &
3170  -9.4811080623979e-10_r8, -9.730325868972e-10_r8, -9.9685500615431e-10_r8, &
3171  -1.0402851688376e-09_r8, -1.0614169909721e-09_r8, -1.0739288141748e-09_r8, &
3172  -1.0844481067177e-09_r8, -1.0976339414206e-09_r8, -1.1052293369921e-09_r8, &
3173  -1.1110098449763e-09_r8, -1.1153860673386e-09_r8, -1.1191295686825e-09_r8, &
3174  -1.1225000058556e-09_r8, -1.1253763546089e-09_r8, -1.127609030428e-09_r8, &
3175  -1.1289725515391e-09_r8, -1.129976238525e-09_r8, -1.1301401877776e-09_r8, &
3176  -1.1280080432478e-09_r8, -1.1242049503265e-09_r8, -1.1183172995806e-09_r8, &
3177  -1.111645207333e-09_r8, -1.1040651511679e-09_r8, -1.0959575244297e-09_r8, &
3178  -1.087463684346e-09_r8, -1.0789281762432e-09_r8, -1.0699714799314e-09_r8, &
3179  -1.0609142696629e-09_r8, -1.0516990227353e-09_r8, -1.0419096004971e-09_r8, &
3180  -1.0322886528335e-09_r8, -1.0223927398068e-09_r8, -1.0121948753949e-09_r8, &
3181  -1.0019625436082e-09_r8, -9.9155416559822e-10_r8, -9.8099951540907e-10_r8, &
3182  -8.831127077077e-10_r8, -8.831296743209e-10_r8, -8.8256890208762e-10_r8, &
3183  -8.8242728417544e-10_r8, -8.8199556108137e-10_r8, -8.8487542466302e-10_r8, &
3184  -9.064932969477e-10_r8, -9.368480671113e-10_r8, -9.6726689865266e-10_r8, &
3185  -1.0077074433379e-09_r8, -1.0320675405105e-09_r8, -1.0505589627782e-09_r8, &
3186  -1.064109837824e-09_r8, -1.07010554098e-09_r8, -1.074186343205e-09_r8, &
3187  -1.0783707420391e-09_r8, -1.0877549541517e-09_r8, -1.0969967427261e-09_r8, &
3188  -1.1054667429746e-09_r8, -1.1110974778163e-09_r8, -1.115148997525e-09_r8, &
3189  -1.1192981521947e-09_r8, -1.120936541133e-09_r8, -1.1225375472748e-09_r8, &
3190  -1.1242035035501e-09_r8, -1.1256884074286e-09_r8, -1.1270191329172e-09_r8, &
3191  -1.1251720586323e-09_r8, -1.1230576283178e-09_r8, -1.1165940834596e-09_r8, &
3192  -1.1102315383305e-09_r8, -1.1027684226271e-09_r8, -1.095087150468e-09_r8, &
3193  -1.0871075918523e-09_r8, -1.0789395721365e-09_r8, -1.0707703429042e-09_r8, &
3194  -1.0623311155334e-09_r8, -1.053706150082e-09_r8, -1.0443799046852e-09_r8, &
3195  -1.0348582670404e-09_r8, -1.0251248733798e-09_r8, -1.0150604463884e-09_r8, &
3196  -1.0046950233572e-09_r8, -9.9426901630348e-10_r8, -9.8377081452797e-10_r8, &
3197  -6.2683751139342e-10_r8, -6.3607549317202e-10_r8, -6.5575798794887e-10_r8, &
3198  -6.7809561735118e-10_r8, -6.9335531582729e-10_r8, -7.0341267204049e-10_r8, &
3199  -7.2877696462748e-10_r8, -7.4689524733485e-10_r8, 9e90_r8, 9e90_r8, &
3200  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3201  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3202  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3203  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3204  9e90_r8, 9e90_r8, 9e90_r8 &
3205  /) ) /
3206 
3207 type(gsw_result) :: rho_ct_p
3208 
3209 data rho_ct_p / gsw_result( &
3210  "rho_CT_P", 5.9599e-20_r8, (/ &
3211  -1.1986431475584e-09_r8, -1.1984024481951e-09_r8, -1.200107062099e-09_r8, &
3212  -1.1995699665427e-09_r8, -1.2017315565841e-09_r8, -1.2050348038663e-09_r8, &
3213  -1.2374505063254e-09_r8, -1.2977930035405e-09_r8, -1.389665699076e-09_r8, &
3214  -1.5219233838379e-09_r8, -1.6537508603314e-09_r8, -1.7841731171138e-09_r8, &
3215  -2.0263115479323e-09_r8, -2.1435048087088e-09_r8, -2.2137710314463e-09_r8, &
3216  -2.2741955686281e-09_r8, -2.357193606973e-09_r8, -2.4106943446019e-09_r8, &
3217  -2.454145457399e-09_r8, -2.4901715691695e-09_r8, -2.5228343511456e-09_r8, &
3218  -2.5534580427995e-09_r8, -2.5812894605908e-09_r8, -2.6057311631537e-09_r8, &
3219  -2.6250633276829e-09_r8, -2.6427224574035e-09_r8, -2.6554001123932e-09_r8, &
3220  -2.6728036572528e-09_r8, -2.6802883980799e-09_r8, -2.6757445649761e-09_r8, &
3221  -2.6665672100013e-09_r8, -2.651889002616e-09_r8, -2.6339355150003e-09_r8, &
3222  -2.6133612390376e-09_r8, -2.5922228924166e-09_r8, -2.5685197299787e-09_r8, &
3223  -2.5440612184166e-09_r8, -2.5184128251741e-09_r8, -2.489786316946e-09_r8, &
3224  -2.4618418803592e-09_r8, -2.4325229645544e-09_r8, -2.4015957172786e-09_r8, &
3225  -2.3707236710459e-09_r8, -2.339008429411e-09_r8, -2.3068501847973e-09_r8, &
3226  -1.2252454244089e-09_r8, -1.2276138333939e-09_r8, -1.2243955590626e-09_r8, &
3227  -1.2260247570383e-09_r8, -1.2245741585741e-09_r8, -1.2372282791976e-09_r8, &
3228  -1.3261343399292e-09_r8, -1.4602925143377e-09_r8, -1.6205339446019e-09_r8, &
3229  -1.8381217475781e-09_r8, -1.9671298897521e-09_r8, -2.0623230825555e-09_r8, &
3230  -2.1343767366869e-09_r8, -2.1709037544705e-09_r8, -2.199588587651e-09_r8, &
3231  -2.2294990017341e-09_r8, -2.2958326676749e-09_r8, -2.3608200616293e-09_r8, &
3232  -2.4211240518056e-09_r8, -2.4649202973794e-09_r8, -2.4996914286225e-09_r8, &
3233  -2.5350107553644e-09_r8, -2.5560800349021e-09_r8, -2.5770720874394e-09_r8, &
3234  -2.5981863315388e-09_r8, -2.6184159895357e-09_r8, -2.6375904089923e-09_r8, &
3235  -2.6564638832561e-09_r8, -2.6733120375893e-09_r8, -2.665732736736e-09_r8, &
3236  -2.6581986845671e-09_r8, -2.6442360139235e-09_r8, -2.6286184325693e-09_r8, &
3237  -2.6109053636827e-09_r8, -2.591900097636e-09_r8, -2.5725039216829e-09_r8, &
3238  -2.5514732627988e-09_r8, -2.5290268273774e-09_r8, -2.5027712806393e-09_r8, &
3239  -2.4753161336279e-09_r8, -2.4467782811815e-09_r8, -2.4164082916945e-09_r8, &
3240  -2.3847210645202e-09_r8, -2.3527858146502e-09_r8, -2.3207306783839e-09_r8, &
3241  -2.4223839165869e-09_r8, -2.4946591161827e-09_r8, -2.668424687497e-09_r8, &
3242  -2.8575766601604e-09_r8, -2.9720904690727e-09_r8, -3.0316018836386e-09_r8, &
3243  -2.943678764598e-09_r8, -2.8721154505435e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3244  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3245  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3246  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3247  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3248  9e90_r8, 9e90_r8 &
3249  /) ) /
3250 
3251 type(gsw_result) :: rho_sa_wrt_h
3252 
3253 data rho_sa_wrt_h / gsw_result( &
3254  "rho_SA_wrt_h", 1.9399e-12_r8, (/ &
3255  0.73467418591996_r8, 0.73460858212909_r8, 0.73463071748018_r8, &
3256  0.7345530052199_r8, 0.73461181924421_r8, 0.73471347738695_r8, &
3257  0.73615147365712_r8, 0.73883172858194_r8, 0.74272282216598_r8, &
3258  0.74807603687561_r8, 0.75315723714181_r8, 0.75802124614935_r8, &
3259  0.76674622828264_r8, 0.77071785423844_r8, 0.772954345874_r8, &
3260  0.77480381493441_r8, 0.77710242090319_r8, 0.77834149684876_r8, &
3261  0.77922152325077_r8, 0.77983773477585_r8, 0.78033285368086_r8, &
3262  0.78075381342287_r8, 0.78107762497069_r8, 0.78128000489498_r8, &
3263  0.78132026560366_r8, 0.78129834527995_r8, 0.78112279680325_r8, &
3264  0.78022740501377_r8, 0.77903852994355_r8, 0.77749574575579_r8, &
3265  0.77583037068203_r8, 0.77402313734571_r8, 0.77213939941331_r8, &
3266  0.7702097462163_r8, 0.76828804296624_r8, 0.76631622682376_r8, &
3267  0.76434568256502_r8, 0.76237182506839_r8, 0.76032443253376_r8, &
3268  0.75833004222484_r8, 0.7563151692657_r8, 0.75428031576526_r8, &
3269  0.75226423995831_r8, 0.75025055954594_r8, 0.74824271896781_r8, &
3270  0.7359466387198_r8, 0.73599263139671_r8, 0.73580581305879_r8, &
3271  0.73581796826399_r8, 0.73570291701365_r8, 0.73624358543177_r8, &
3272  0.74018276938329_r8, 0.74583839775511_r8, 0.7521203690379_r8, &
3273  0.76034791068649_r8, 0.76505357095934_r8, 0.76844444602265_r8, &
3274  0.77080316450219_r8, 0.77182326095413_r8, 0.77254549221283_r8, &
3275  0.77329682628831_r8, 0.77501030922603_r8, 0.77665331216505_r8, &
3276  0.77811225993057_r8, 0.77899518164204_r8, 0.77956503947822_r8, &
3277  0.78014563009195_r8, 0.78024983163904_r8, 0.78034413352923_r8, &
3278  0.78044744556315_r8, 0.7805145068306_r8, 0.78055229940962_r8, &
3279  0.7797102141451_r8, 0.77882200969838_r8, 0.77718428515953_r8, &
3280  0.7755725921157_r8, 0.77378846199526_r8, 0.7719783768325_r8, &
3281  0.77013767151893_r8, 0.76828119916687_r8, 0.76644190571293_r8, &
3282  0.76457566177039_r8, 0.76269921810459_r8, 0.76072492790821_r8, &
3283  0.7587451257568_r8, 0.75675426910879_r8, 0.75473754488834_r8, &
3284  0.75269727932888_r8, 0.75067795377909_r8, 0.748675413433_r8, &
3285  0.77233733209404_r8, 0.77480691913432_r8, 0.78075098252979_r8, &
3286  0.78706547138128_r8, 0.79078051526412_r8, 0.792647312487_r8, &
3287  0.78953545166739_r8, 0.78714130184412_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3288  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3289  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3290  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3291  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3292  9e90_r8, 9e90_r8 &
3293  /) ) /
3294 
3295 type(gsw_result) :: rho_h
3296 
3297 data rho_h / gsw_result( &
3298  "rho_h", 2.0795e-15_r8, (/ &
3299  -8.14877896971e-05_r8, -8.15144996876e-05_r8, -8.14507728961e-05_r8, &
3300  -8.14916302556e-05_r8, -8.14124678298e-05_r8, -8.12777647274e-05_r8, &
3301  -7.98789394477e-05_r8, -7.72755135176e-05_r8, -7.33727224366e-05_r8, &
3302  -6.79257173757e-05_r8, -6.2692218038e-05_r8, -5.76945029919e-05_r8, &
3303  -4.88278505639e-05_r8, -4.48105399569e-05_r8, -4.25288490745e-05_r8, &
3304  -4.06280274191e-05_r8, -3.81737242769e-05_r8, -3.67625010327e-05_r8, &
3305  -3.57140405946e-05_r8, -3.49289285834e-05_r8, -3.42681228709e-05_r8, &
3306  -3.36860520081e-05_r8, -3.32050441575e-05_r8, -3.28450564601e-05_r8, &
3307  -3.26498555191e-05_r8, -3.25152791466e-05_r8, -3.25355687262e-05_r8, &
3308  -3.30359690007e-05_r8, -3.38325057705e-05_r8, -3.49721065173e-05_r8, &
3309  -3.62291367189e-05_r8, -3.76195224748e-05_r8, -3.9078812443e-05_r8, &
3310  -4.05783916226e-05_r8, -4.20681642148e-05_r8, -4.35977259e-05_r8, &
3311  -4.51214188116e-05_r8, -4.66438916724e-05_r8, -4.82198743633e-05_r8, &
3312  -4.97457976732e-05_r8, -5.12804794443e-05_r8, -5.28229777622e-05_r8, &
3313  -5.43420940576e-05_r8, -5.58510812331e-05_r8, -5.73465674329e-05_r8, &
3314  -8.02853618117e-05_r8, -8.01913560603e-05_r8, -8.03592524132e-05_r8, &
3315  -8.02988020465e-05_r8, -8.03830165014e-05_r8, -7.9832433035e-05_r8, &
3316  -7.59796481128e-05_r8, -7.03557842285e-05_r8, -6.38746779413e-05_r8, &
3317  -5.5488440394e-05_r8, -5.07631898763e-05_r8, -4.74021429411e-05_r8, &
3318  -4.50160955134e-05_r8, -4.39098276625e-05_r8, -4.30791167202e-05_r8, &
3319  -4.22167717917e-05_r8, -4.02905934019e-05_r8, -3.84557797992e-05_r8, &
3320  -3.6819431331e-05_r8, -3.57641247804e-05_r8, -3.50249425765e-05_r8, &
3321  -3.42827911731e-05_r8, -3.40119391416e-05_r8, -3.37538526962e-05_r8, &
3322  -3.34947051453e-05_r8, -3.32735393473e-05_r8, -3.30872173324e-05_r8, &
3323  -3.35337820681e-05_r8, -3.40429319931e-05_r8, -3.52675944318e-05_r8, &
3324  -3.6473015745e-05_r8, -3.78391816822e-05_r8, -3.92300469155e-05_r8, &
3325  -4.06485541886e-05_r8, -4.20789323473e-05_r8, -4.34933137755e-05_r8, &
3326  -4.49279915261e-05_r8, -4.63701603879e-05_r8, -4.78899957405e-05_r8, &
3327  -4.94082248171e-05_r8, -5.09283820965e-05_r8, -5.24624821287e-05_r8, &
3328  -5.40063511092e-05_r8, -5.55252688451e-05_r8, -5.70232690355e-05_r8, &
3329  -2.53981282893e-05_r8, -2.26888948329e-05_r8, -1.62033512295e-05_r8, &
3330  -9.34079542763e-06_r8, -5.32426630316e-06_r8, -3.32786183136e-06_r8, &
3331  -7.24148751014e-06_r8, -1.03952724858e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3332  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3333  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3334  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3335  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3336  9e90_r8, 9e90_r8 &
3337  /) ) /
3338 
3339 type(gsw_result) :: rho_sa_sa_wrt_h
3340 
3341 data rho_sa_sa_wrt_h / gsw_result( &
3342  "rho_SA_SA_wrt_h", 1.946e-14_r8, (/ &
3343  0.00020613727537939_r8, 0.0002061087583548_r8, 0.00020600342495137_r8, &
3344  0.00020599210195312_r8, 0.00020591497289479_r8, 0.00020576477454965_r8, &
3345  0.00020446946525781_r8, 0.00020106138001096_r8, 0.00019424827979015_r8, &
3346  0.00018298799033288_r8, 0.0001714276316204_r8, 0.00016040989010689_r8, &
3347  0.00014169286087525_r8, 0.00013326132649803_r8, 0.00012826200998502_r8, &
3348  0.00012395349526894_r8, 0.00011795679634891_r8, 0.00011400739347265_r8, &
3349  0.00011075714133442_r8, 0.00010804415773746_r8, 0.0001055818302934_r8, &
3350  0.00010327529073799_r8, 0.00010118915550952_r8, 9.9387493749419e-05_r8, &
3351  9.8021489572242e-05_r8, 9.6833603234851e-05_r8, 9.6104132504843e-05_r8, &
3352  9.5775093947684e-05_r8, 9.6743551540401e-05_r8, 9.9296546202012e-05_r8, &
3353  0.00010281160370101_r8, 0.00010739583410728_r8, 0.00011287286048084_r8, &
3354  0.00011916779106859_r8, 0.00012611395603976_r8, 0.00013391683972014_r8, &
3355  0.00014242067082427_r8, 0.00015163527243519_r8, 0.00016184726664621_r8, &
3356  0.00017258565573823_r8, 0.00018414448931705_r8, 0.00019649643281365_r8, &
3357  0.00020956876292757_r8, 0.00022336503605131_r8, 0.00023792538399907_r8, &
3358  0.00020517341945803_r8, 0.00020500422180722_r8, 0.0002051568655165_r8, &
3359  0.00020502462782599_r8, 0.0002050714692734_r8, 0.00020447496128373_r8, &
3360  0.00019913800199231_r8, 0.00018847553798852_r8, 0.0001744005207016_r8, &
3361  0.00015616497120546_r8, 0.00014624575326906_r8, 0.00013927482090132_r8, &
3362  0.00013403853885799_r8, 0.00013134430678299_r8, 0.00012922653733839_r8, &
3363  0.00012703859850209_r8, 0.00012224471124587_r8, 0.00011754820009494_r8, &
3364  0.0001131510178507_r8, 0.00010991516679685_r8, 0.00010733644763943_r8, &
3365  0.0001047082046469_r8, 0.00010319382629878_r8, 0.00010171645313623_r8, &
3366  0.00010025119342153_r8, 9.8887677254341e-05_r8, 9.7634908733168e-05_r8, &
3367  9.7227229289496e-05_r8, 9.7375760557565e-05_r8, 0.00010023602561809_r8, &
3368  0.00010361107457904_r8, 0.00010814196687139_r8, 0.00011339729638684_r8, &
3369  0.00011940939685601_r8, 0.00012614069140447_r8, 0.00013348923744577_r8, &
3370  0.00014162003633196_r8, 0.00015047453689452_r8, 0.00016040961544126_r8, &
3371  0.0001710754187629_r8, 0.0001825275153379_r8, 0.00019479868885584_r8, &
3372  0.0002079480528003_r8, 0.00022175440231739_r8, 0.00023629054366168_r8, &
3373  -0.00051611728824693_r8, -0.0005095971956231_r8, -0.00051329903492039_r8, &
3374  -0.00051233204262096_r8, -0.00050235500729276_r8, -0.00048522928031363_r8, &
3375  -0.00030146633717192_r8, -0.00020091198253976_r8, 9e90_r8, 9e90_r8, &
3376  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3377  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3378  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3379  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3380  9e90_r8, 9e90_r8, 9e90_r8 &
3381  /) ) /
3382 
3383 type(gsw_result) :: rho_sa_h
3384 
3385 data rho_sa_h / gsw_result( &
3386  "rho_SA_h", 1.3135e-17_r8, (/ &
3387  -4.6350688211476e-07_r8, -4.6338333969969e-07_r8, -4.6352720613296e-07_r8, &
3388  -4.6336375645948e-07_r8, -4.6358726812249e-07_r8, -4.6396188909023e-07_r8, &
3389  -4.6850640521299e-07_r8, -4.7780885480227e-07_r8, -4.9342649050382e-07_r8, &
3390  -5.1811525065449e-07_r8, -5.4415647443049e-07_r8, -5.7049370934045e-07_r8, &
3391  -6.1900648482212e-07_r8, -6.4145374989023e-07_r8, -6.543264754422e-07_r8, &
3392  -6.6502928847775e-07_r8, -6.7887718712741e-07_r8, -6.8704402916778e-07_r8, &
3393  -6.9323394696906e-07_r8, -6.9799186184436e-07_r8, -7.0205232165105e-07_r8, &
3394  -7.0565547663374e-07_r8, -7.0869981569564e-07_r8, -7.1110314952868e-07_r8, &
3395  -7.1266142029477e-07_r8, -7.1389277057493e-07_r8, -7.1435418434073e-07_r8, &
3396  -7.1330448163075e-07_r8, -7.1076602246928e-07_r8, -7.0654438108615e-07_r8, &
3397  -7.0169171012244e-07_r8, -6.9613002062594e-07_r8, -6.9015522591888e-07_r8, &
3398  -6.8388850082504e-07_r8, -6.7756578632948e-07_r8, -6.7094835435801e-07_r8, &
3399  -6.6424952650643e-07_r8, -6.5744167834971e-07_r8, -6.5026424516741e-07_r8, &
3400  -6.4320546083495e-07_r8, -6.3598406145175e-07_r8, -6.2859983726245e-07_r8, &
3401  -6.2120548611187e-07_r8, -6.137340256955e-07_r8, -6.0620132311325e-07_r8, &
3402  -4.6734499712769e-07_r8, -4.6759346010487e-07_r8, -4.6704469451078e-07_r8, &
3403  -4.6718384671654e-07_r8, -4.6688567044717e-07_r8, -4.6867763983754e-07_r8, &
3404  -4.8273622171345e-07_r8, -5.0675014270013e-07_r8, -5.3792864826726e-07_r8, &
3405  -5.8204593571189e-07_r8, -6.0803719708521e-07_r8, -6.2682337167694e-07_r8, &
3406  -6.4042593140774e-07_r8, -6.4689648998524e-07_r8, -6.5178007084098e-07_r8, &
3407  -6.5681655998478e-07_r8, -6.6787279517667e-07_r8, -6.7833207622108e-07_r8, &
3408  -6.8761259277426e-07_r8, -6.9378809121082e-07_r8, -6.9827836813479e-07_r8, &
3409  -7.0271139297445e-07_r8, -7.0474886392849e-07_r8, -7.0669263909704e-07_r8, &
3410  -7.0859718904566e-07_r8, -7.102811226774e-07_r8, -7.1175056200857e-07_r8, &
3411  -7.1098482637932e-07_r8, -7.0980107867222e-07_r8, -7.0518516876419e-07_r8, &
3412  -7.0057332347411e-07_r8, -6.9512080704401e-07_r8, -6.8946101702606e-07_r8, &
3413  -6.8356868451732e-07_r8, -6.7752054074075e-07_r8, -6.7144232513958e-07_r8, &
3414  -6.6516281880886e-07_r8, -6.5873747045306e-07_r8, -6.5183590868123e-07_r8, &
3415  -6.4482308671744e-07_r8, -6.3768232760139e-07_r8, -6.303529791286e-07_r8, &
3416  -6.2285172760952e-07_r8, -6.1534524942743e-07_r8, -6.0781434605688e-07_r8, &
3417  -6.7503885207767e-07_r8, -6.896785243351e-07_r8, -7.2602875812786e-07_r8, &
3418  -7.6678109755996e-07_r8, -7.9164717322099e-07_r8, -8.0432888122645e-07_r8, &
3419  -7.8187515379671e-07_r8, -7.6530173382511e-07_r8, 9e90_r8, 9e90_r8, &
3420  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3421  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3422  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3423  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3424  9e90_r8, 9e90_r8, 9e90_r8 &
3425  /) ) /
3426 
3427 type(gsw_result) :: rho_h_h
3428 
3429 data rho_h_h / gsw_result( &
3430  "rho_h_h", 1.4263e-20_r8, (/ &
3431  -4.6141983996876e-10_r8, -4.6116991717184e-10_r8, -4.613195585917e-10_r8, &
3432  -4.6100849766995e-10_r8, -4.6124656075756e-10_r8, -4.6171658743833e-10_r8, &
3433  -4.6761824838173e-10_r8, -4.7855111636706e-10_r8, -4.946739987382e-10_r8, &
3434  -5.1729638921371e-10_r8, -5.3966986181683e-10_r8, -5.6205713943338e-10_r8, &
3435  -6.0527067700004e-10_r8, -6.2624772015351e-10_r8, -6.3846840127981e-10_r8, &
3436  -6.4890187230682e-10_r8, -6.6244820747157e-10_r8, -6.7001823305945e-10_r8, &
3437  -6.7552904236618e-10_r8, -6.7949485608981e-10_r8, -6.8276460907927e-10_r8, &
3438  -6.8561453053745e-10_r8, -6.8787174709924e-10_r8, -6.8935987520693e-10_r8, &
3439  -6.8976671598667e-10_r8, -6.8977269685852e-10_r8, -6.8871920418982e-10_r8, &
3440  -6.829007471123e-10_r8, -6.7496392712139e-10_r8, -6.645116194754e-10_r8, &
3441  -6.531624551124e-10_r8, -6.4080857627001e-10_r8, -6.2791681114133e-10_r8, &
3442  -6.1471754528371e-10_r8, -6.0156374542026e-10_r8, -5.8810557796493e-10_r8, &
3443  -5.7467088029144e-10_r8, -5.6124954677667e-10_r8, -5.4742843943955e-10_r8, &
3444  -5.3397821030337e-10_r8, -5.2046737260708e-10_r8, -5.069353098706e-10_r8, &
3445  -4.9356772687895e-10_r8, -4.8031600291266e-10_r8, -4.6718390457876e-10_r8, &
3446  -4.668086281532e-10_r8, -4.670788216871e-10_r8, -4.6622139571218e-10_r8, &
3447  -4.6634329652045e-10_r8, -4.6584417592748e-10_r8, -4.6813967763057e-10_r8, &
3448  -4.8442036430093e-10_r8, -5.0779376642173e-10_r8, -5.3530666541759e-10_r8, &
3449  -5.7343239483538e-10_r8, -5.9645683382522e-10_r8, -6.1364903870591e-10_r8, &
3450  -6.2591645375915e-10_r8, -6.3136009656946e-10_r8, -6.353549890847e-10_r8, &
3451  -6.3959804364257e-10_r8, -6.4956955397994e-10_r8, -6.5942081271149e-10_r8, &
3452  -6.6843766388e-10_r8, -6.7403314642057e-10_r8, -6.7773279262063e-10_r8, &
3453  -6.815827196583e-10_r8, -6.8234928166764e-10_r8, -6.8306810301426e-10_r8, &
3454  -6.8385710361467e-10_r8, -6.8442093818606e-10_r8, -6.8479604774781e-10_r8, &
3455  -6.7932295416258e-10_r8, -6.7344680205882e-10_r8, -6.6236680921487e-10_r8, &
3456  -6.5139525842393e-10_r8, -6.3921958012187e-10_r8, -6.2683152665675e-10_r8, &
3457  -6.14224327986e-10_r8, -6.0149851146849e-10_r8, -5.8886832338633e-10_r8, &
3458  -5.7606187999577e-10_r8, -5.6319834784918e-10_r8, -5.4975516805747e-10_r8, &
3459  -5.3633309151344e-10_r8, -5.2289392463895e-10_r8, -5.0938682300375e-10_r8, &
3460  -4.9581691481792e-10_r8, -4.8246243928389e-10_r8, -4.6927681173461e-10_r8, &
3461  -7.3570533788899e-10_r8, -7.5159721805519e-10_r8, -7.9114050496597e-10_r8, &
3462  -8.3508737839095e-10_r8, -8.6177971314986e-10_r8, -8.7528680543905e-10_r8, &
3463  -8.4871494406859e-10_r8, -8.2781028131876e-10_r8, 9e90_r8, 9e90_r8, &
3464  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3465  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3466  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3467  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3468  9e90_r8, 9e90_r8, 9e90_r8 &
3469  /) ) /
3470 
3471 type(gsw_result) :: sigma0
3472 
3473 data sigma0 / gsw_result( &
3474  "sigma0", 2.9308e-10_r8, (/ &
3475  21.91567313796_r8, 21.915758763153_r8, 21.92797587457_r8, &
3476  21.928069319644_r8, 21.968628624375_r8, 22.003111966245_r8, &
3477  22.420729987886_r8, 23.071054644127_r8, 23.792148470519_r8, &
3478  24.559169436417_r8, 25.103659522397_r8, 25.53068681178_r8, &
3479  26.160365343176_r8, 26.466462404704_r8, 26.656900679086_r8, &
3480  26.812208866927_r8, 26.991676589822_r8, 27.102299332677_r8, &
3481  27.193165842053_r8, 27.266514330573_r8, 27.330991314718_r8, &
3482  27.389893680546_r8, 27.443325177618_r8, 27.489911992633_r8, &
3483  27.529857024141_r8, 27.564257914851_r8, 27.593146870433_r8, &
3484  27.647116791675_r8, 27.689418017939_r8, 27.717052624371_r8, &
3485  27.738162706675_r8, 27.753124304881_r8, 27.764932284579_r8, &
3486  27.773759043491_r8, 27.783180836885_r8, 27.78943060906_r8, &
3487  27.795801736765_r8, 27.801443430232_r8, 27.803343739573_r8, &
3488  27.806763530703_r8, 27.808611904868_r8, 27.808144666394_r8, &
3489  27.808988189117_r8, 27.809080908007_r8, 27.809174435652_r8, &
3490  22.206215928121_r8, 22.215506891821_r8, 22.215460671717_r8, &
3491  22.218618181132_r8, 22.218357665658_r8, 22.350813445252_r8, &
3492  23.222487948619_r8, 24.229578926084_r8, 24.930822910786_r8, &
3493  25.652628625713_r8, 26.053910822821_r8, 26.364508560005_r8, &
3494  26.606921031833_r8, 26.716045398538_r8, 26.78061621727_r8, &
3495  26.840689669441_r8, 26.95611989809_r8, 27.066721926813_r8, &
3496  27.167005953359_r8, 27.245245812626_r8, 27.309910852302_r8, &
3497  27.372348975739_r8, 27.416774522955_r8, 27.459335497746_r8, &
3498  27.501253180393_r8, 27.54042136608_r8, 27.577262835673_r8, &
3499  27.634862589263_r8, 27.688180144978_r8, 27.711248423939_r8, &
3500  27.735306716268_r8, 27.750664493632_r8, 27.765509854449_r8, &
3501  27.777287221159_r8, 27.787713330948_r8, 27.79846513435_r8, &
3502  27.80735782983_r8, 27.815808179806_r8, 27.821251354187_r8, &
3503  27.8248479492_r8, 27.827637595464_r8, 27.828765124429_r8, &
3504  27.829116059983_r8, 27.829507336673_r8, 27.831347087126_r8, &
3505  4.8817901578702_r8, 5.0539321223888_r8, 5.329271724986_r8, &
3506  5.6156729478847_r8, 5.8317305346482_r8, 6.0164106949062_r8, &
3507  7.2544852839338_r8, 8.1988633845359_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3508  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3509  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3510  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3511  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3512  9e90_r8 &
3513  /) ) /
3514 
3515 type(gsw_result) :: sigma1
3516 
3517 data sigma1 / gsw_result( &
3518  "sigma1", 2.9945e-10_r8, (/ &
3519  26.084138104742_r8, 26.084242415463_r8, 26.097074557038_r8, &
3520  26.097086323044_r8, 26.138263521206_r8, 26.173785342968_r8, &
3521  26.600396019988_r8, 27.267741784268_r8, 28.015722626613_r8, &
3522  28.822263608776_r8, 29.406893227271_r8, 29.873926190088_r8, &
3523  30.578051649525_r8, 30.920281929413_r8, 31.132600745373_r8, &
3524  31.306886064377_r8, 31.513174414712_r8, 31.64184293726_r8, &
3525  31.747798726331_r8, 31.83409173621_r8, 31.910586298816_r8, &
3526  31.98097328618_r8, 32.045121063431_r8, 32.101501369545_r8, &
3527  32.149729824732_r8, 32.192017455601_r8, 32.227309493411_r8, &
3528  32.293229803691_r8, 32.34479641724_r8, 32.378314503065_r8, &
3529  32.404206426812_r8, 32.422507994718_r8, 32.43691231515_r8, &
3530  32.447711310303_r8, 32.459183141498_r8, 32.466874004697_r8, &
3531  32.474676989267_r8, 32.481511291559_r8, 32.483867799346_r8, &
3532  32.488091422164_r8, 32.49046870654_r8, 32.490067953644_r8, &
3533  32.491194718753_r8, 32.491332138798_r8, 32.491442699456_r8, &
3534  26.382134283311_r8, 26.392277174956_r8, 26.391245438442_r8, &
3535  26.395038726794_r8, 26.394391539327_r8, 26.530511075162_r8, &
3536  27.427534301226_r8, 28.473730601795_r8, 29.223617096181_r8, &
3537  30.011751932683_r8, 30.452252750335_r8, 30.791648044576_r8, &
3538  31.056221304933_r8, 31.177076748382_r8, 31.251160480813_r8, &
3539  31.321189555066_r8, 31.458625339997_r8, 31.59089039495_r8, &
3540  31.711485729278_r8, 31.805069899086_r8, 31.882409617524_r8, &
3541  31.957776781297_r8, 32.010858143821_r8, 32.062154184731_r8, &
3542  32.112894083631_r8, 32.16071800272_r8, 32.205942299064_r8, &
3543  32.275910239068_r8, 32.34136213033_r8, 32.369362583139_r8, &
3544  32.398690240875_r8, 32.417596822309_r8, 32.435760128242_r8, &
3545  32.450415020576_r8, 32.463582752962_r8, 32.477183509568_r8, &
3546  32.488659088036_r8, 32.499398481306_r8, 32.506130771234_r8, &
3547  32.510750309262_r8, 32.514393469708_r8, 32.515839553183_r8, &
3548  32.516252402249_r8, 32.516675871595_r8, 32.518633828671_r8, &
3549  9.5483718759659_r8, 9.7429392960305_r8, 10.072249570888_r8, &
3550  10.416511224384_r8, 10.666915979709_r8, 10.868912885939_r8, &
3551  12.071935501088_r8, 12.988292590885_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3552  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3553  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3554  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3555  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3556  9e90_r8 &
3557  /) ) /
3558 
3559 type(gsw_result) :: sigma2
3560 
3561 data sigma2 / gsw_result( &
3562  "sigma2", 3.0559e-10_r8, (/ &
3563  30.162087602062_r8, 30.162210017706_r8, 30.175638901372_r8, &
3564  30.175571564622_r8, 30.217350742656_r8, 30.253881413036_r8, &
3565  30.689239857888_r8, 31.373137012335_r8, 32.147248923553_r8, &
3566  32.992192511912_r8, 33.615821311952_r8, 34.121721418303_r8, &
3567  34.898170212899_r8, 35.275503069375_r8, 35.509078621931_r8, &
3568  35.701800021411_r8, 35.934144048904_r8, 36.0803442845_r8, &
3569  36.200960176712_r8, 36.299830015427_r8, 36.388001263557_r8, &
3570  36.469547587214_r8, 36.544108618364_r8, 36.610005911743_r8, &
3571  36.666284319009_r8, 36.716236650941_r8, 36.75775178339_r8, &
3572  36.835287209249_r8, 36.895859882399_r8, 36.935097082198_r8, &
3573  36.965637392306_r8, 36.987185812946_r8, 37.00411414678_r8, &
3574  37.016830464344_r8, 37.030295288641_r8, 37.039387150774_r8, &
3575  37.048582175892_r8, 37.056575943624_r8, 37.059375967687_r8, &
3576  37.064381081464_r8, 37.067272568044_r8, 37.066936433484_r8, &
3577  37.068338561612_r8, 37.068519438276_r8, 37.068646559274_r8, &
3578  30.467328727469_r8, 30.478297785101_r8, 30.476311256402_r8, &
3579  30.480720765732_r8, 30.479698941596_r8, 30.619379536329_r8, &
3580  31.541046372459_r8, 32.625253582025_r8, 33.422399593563_r8, &
3581  34.274977206775_r8, 34.753581054758_r8, 35.12095484253_r8, &
3582  35.407058413624_r8, 35.539310471688_r8, 35.622635123681_r8, &
3583  35.702335031362_r8, 35.861146904478_r8, 36.014456221047_r8, &
3584  36.154783731136_r8, 36.263275627116_r8, 36.352930032415_r8, &
3585  36.440859585439_r8, 36.502351766575_r8, 36.562135926041_r8, &
3586  36.621448981073_r8, 36.677684613399_r8, 36.731055768958_r8, &
3587  36.81304455943_r8, 36.890290833255_r8, 36.923085583503_r8, &
3588  36.957535465274_r8, 36.97989183687_r8, 37.001280605312_r8, &
3589  37.018732849341_r8, 37.034565849627_r8, 37.050936269354_r8, &
3590  37.064922872969_r8, 37.077887681571_r8, 37.0858732887_r8, &
3591  37.091487352304_r8, 37.095960316441_r8, 37.097716108696_r8, &
3592  37.098189155643_r8, 37.098643931165_r8, 37.100716850692_r8, &
3593  14.110952552168_r8, 14.327381314662_r8, 14.709284518826_r8, &
3594  15.109913441354_r8, 15.393774153684_r8, 15.612636537176_r8, &
3595  16.781494662657_r8, 17.670537805292_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3596  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3597  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3598  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3599  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3600  9e90_r8 &
3601  /) ) /
3602 
3603 type(gsw_result) :: sigma3
3604 
3605 data sigma3 / gsw_result( &
3606  "sigma3", 3.1173e-10_r8, (/ &
3607  34.152743058376_r8, 34.1528829535_r8, 34.166888774414_r8, &
3608  34.166745105744_r8, 34.209108700656_r8, 34.246615943491_r8, &
3609  34.690452931711_r8, 35.390382549122_r8, 36.189786234199_r8, &
3610  37.071882473874_r8, 37.733226891161_r8, 38.276705703499_r8, &
3611  39.123059957273_r8, 39.53431453666_r8, 39.788429890349_r8, &
3612  39.998964760048_r8, 40.256484068357_r8, 40.419623725138_r8, &
3613  40.55440468037_r8, 40.665426977117_r8, 40.764881266185_r8, &
3614  40.857211104798_r8, 40.941835077059_r8, 41.01692957462_r8, &
3615  41.080987724852_r8, 41.13834779778_r8, 41.185877584809_r8, &
3616  41.274639604469_r8, 41.343917581419_r8, 41.388683135937_r8, &
3617  41.423716951842_r8, 41.448404118272_r8, 41.467772469251_r8, &
3618  41.482342332355_r8, 41.497733877215_r8, 41.508180172493_r8, &
3619  41.518720980457_r8, 41.5278356891_r8, 41.531064499469_r8, 41.5368251516_r8, &
3620  41.540213772637_r8, 41.539940122477_r8, 41.541608476704_r8, &
3621  41.541831368708_r8, 41.541974499912_r8, 34.465001248347_r8, &
3622  34.476768554527_r8, 34.473860393938_r8, 34.478864978645_r8, &
3623  34.477481510273_r8, 34.620610595598_r8, 35.566142125132_r8, &
3624  36.687138930505_r8, 37.529992398403_r8, 38.444877092673_r8, &
3625  38.960311603344_r8, 39.354725245315_r8, 39.661634421945_r8, &
3626  39.804898684878_r8, 39.897152236177_r8, 39.986196290968_r8, &
3627  40.165661907372_r8, 40.339304337555_r8, 40.498697519392_r8, &
3628  40.621593935909_r8, 40.723147682417_r8, 40.823216360851_r8, &
3629  40.892836207219_r8, 40.960823000744_r8, 41.028421155453_r8, &
3630  41.092786189143_r8, 41.154031096908_r8, 41.247638300765_r8, &
3631  41.336284885243_r8, 41.373713948832_r8, 41.413115286251_r8, &
3632  41.438806538993_r8, 41.463313392535_r8, 41.483469933077_r8, &
3633  41.501879599055_r8, 41.520927659838_r8, 41.53734191703_r8, &
3634  41.552458279017_r8, 41.561655609809_r8, 41.568231212719_r8, &
3635  41.573506466229_r8, 41.575561697947_r8, 41.576092944778_r8, &
3636  41.576577984198_r8, 41.578762032582_r8, 18.57164596518_r8, &
3637  18.809294969536_r8, 19.242225256335_r8, 19.697517350096_r8, &
3638  20.013811662767_r8, 20.249017943248_r8, 21.384677057085_r8, &
3639  22.247178099159_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3640  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3641  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3642  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3643  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
3644  /) ) /
3645 
3646 type(gsw_result) :: sigma4
3647 
3648 data sigma4 / gsw_result( &
3649  "sigma4", 3.1741e-10_r8, (/ &
3650  38.059063992319_r8, 38.059220722781_r8, 38.073783145936_r8, &
3651  38.073566002913_r8, 38.11649617402_r8, 38.154946916142_r8, &
3652  38.606986324042_r8, 39.32241063972_r8, 40.146225672342_r8, &
3653  41.064147122131_r8, 41.761830074048_r8, 42.341494563824_r8, &
3654  43.25511821633_r8, 43.69899781827_r8, 43.972863037463_r8, &
3655  44.200524138882_r8, 44.482245763471_r8, 44.661669219873_r8, &
3656  44.810066541575_r8, 44.932770510054_r8, 45.043070804931_r8, &
3657  45.145766605754_r8, 45.240064022158_r8, 45.323999962948_r8, &
3658  45.395537031347_r8, 45.460018707545_r8, 45.513330894042_r8, &
3659  45.612886310518_r8, 45.690533986033_r8, 45.740614894667_r8, &
3660  45.779969253862_r8, 45.807674396951_r8, 45.829388905665_r8, &
3661  45.84574104154_r8, 45.862985227144_r8, 45.874733909317_r8, &
3662  45.886568788046_r8, 45.896761356127_r8, 45.900402487568_r8, &
3663  45.906889664615_r8, 45.910756351097_r8, 45.910542823045_r8, &
3664  45.912467199375_r8, 45.912730498365_r8, 45.912889024043_r8, &
3665  38.378105713751_r8, 38.390642439345_r8, 38.386846947543_r8, &
3666  38.39242475239_r8, 38.390693077674_r8, 38.537154781538_r8, &
3667  39.505741942004_r8, 40.662239541402_r8, 41.54914149233_r8, &
3668  42.524023289349_r8, 43.074900257861_r8, 43.495324459089_r8, &
3669  43.822241892246_r8, 43.976094984097_r8, 44.076933922802_r8, &
3670  44.174962288177_r8, 44.374285214666_r8, 44.567475224613_r8, &
3671  44.745196639999_r8, 44.88193994618_r8, 44.994932253324_r8, &
3672  45.10667012175_r8, 45.184102927313_r8, 45.259974913121_r8, &
3673  45.335537687231_r8, 45.407717888171_r8, 45.476532404289_r8, &
3674  45.581309421595_r8, 45.680916753158_r8, 45.722801527769_r8, &
3675  45.766963628325_r8, 45.79586143252_r8, 45.823366409027_r8, &
3676  45.846123296218_r8, 45.867010657869_r8, 45.88863355264_r8, &
3677  45.907382330203_r8, 45.924567704058_r8, 45.934930250153_r8, &
3678  45.942430528131_r8, 45.948477326741_r8, 45.950820519901_r8, &
3679  45.951407729273_r8, 45.951921858878_r8, 45.954212706413_r8, &
3680  22.932589863519_r8, 23.190759914868_r8, 23.673005586895_r8, &
3681  24.181088641893_r8, 24.528687878322_r8, 24.779659173866_r8, &
3682  25.883153186156_r8, 26.719940288727_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3683  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3684  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3685  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3686  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3687  9e90_r8 &
3688  /) ) /
3689 
3690 type(gsw_result) :: sound_speed
3691 
3692 data sound_speed / gsw_result( &
3693  "sound_speed", 2.5918e-09_r8, (/ &
3694  1540.3109958442_r8, 1540.4792323405_r8, 1540.5370039972_r8, &
3695  1540.7238212785_r8, 1540.7812704222_r8, 1540.7607246356_r8, &
3696  1539.5462897252_r8, 1536.8450800569_r8, 1532.3655193859_r8, &
3697  1525.6617731122_r8, 1518.9437403114_r8, 1512.3621561344_r8, &
3698  1500.3883458035_r8, 1495.1363286284_r8, 1492.309002564_r8, &
3699  1490.0039795781_r8, 1487.2593361095_r8, 1485.9838756205_r8, &
3700  1485.2062387072_r8, 1484.7886778373_r8, 1484.5305565742_r8, &
3701  1484.3670378473_r8, 1484.3353537145_r8, 1484.4761799378_r8, &
3702  1484.848846818_r8, 1485.3077303224_r8, 1485.9920577497_r8, &
3703  1488.3949015544_r8, 1491.2511962622_r8, 1494.6685809474_r8, &
3704  1498.3014498071_r8, 1502.185469765_r8, 1506.2268862145_r8, &
3705  1510.3712262193_r8, 1514.5424597165_r8, 1518.8300688794_r8, &
3706  1523.1570421758_r8, 1527.5230415226_r8, 1532.0574143614_r8, &
3707  1536.5374378367_r8, 1541.0943094891_r8, 1545.7193244316_r8, &
3708  1550.3611778067_r8, 1555.0340900985_r8, 1559.7407674554_r8, &
3709  1538.9336845636_r8, 1538.9478479218_r8, 1539.3015796667_r8, &
3710  1539.355603893_r8, 1539.5986267742_r8, 1539.0941675536_r8, &
3711  1534.8866424517_r8, 1528.2156158256_r8, 1519.9441460524_r8, &
3712  1508.7418287715_r8, 1502.4116346844_r8, 1497.9469208752_r8, &
3713  1495.0434882639_r8, 1493.926561449_r8, 1493.1700782717_r8, &
3714  1492.3608749253_r8, 1490.3934316521_r8, 1488.506209843_r8, &
3715  1486.8633025208_r8, 1486.0490092492_r8, 1485.6801030589_r8, &
3716  1485.2794617229_r8, 1485.5771382591_r8, 1485.8848084807_r8, &
3717  1486.1678414184_r8, 1486.500766839_r8, 1486.8668070739_r8, &
3718  1489.2003284783_r8, 1491.5993425679_r8, 1495.1666601951_r8, &
3719  1498.7215716921_r8, 1502.5719371796_r8, 1506.4990763803_r8, &
3720  1510.5007147303_r8, 1514.5633116953_r8, 1518.6309179686_r8, &
3721  1522.7791537843_r8, 1526.9760550608_r8, 1531.3832725574_r8, &
3722  1535.8318677503_r8, 1540.3415289694_r8, 1544.9309566965_r8, &
3723  1549.609929289_r8, 1554.2881589236_r8, 1558.9832497311_r8, &
3724  1455.6671528759_r8, 1452.3454707756_r8, 1444.2197344025_r8, &
3725  1435.6494527475_r8, 1430.7004361846_r8, 1428.3049699378_r8, &
3726  1433.9128531497_r8, 1438.5069127946_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3727  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3728  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3729  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3730  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3731  9e90_r8 &
3732  /) ) /
3733 
3734 type(gsw_result) :: kappa
3735 
3736 data kappa / gsw_result( &
3737  "kappa", 1.714e-21_r8, (/ &
3738  4.1244696154297e-10_r8, 4.1233983982842e-10_r8, 4.122869820066e-10_r8, &
3739  4.1216997803548e-10_r8, 4.1210589449785e-10_r8, 4.1208598134732e-10_r8, &
3740  4.125233681595e-10_r8, 4.1366838185366e-10_r8, 4.1575317931135e-10_r8, &
3741  4.1905503769933e-10_r8, 4.2249847295293e-10_r8, 4.259563047494e-10_r8, &
3742  4.3241679952037e-10_r8, 4.3522977390258e-10_r8, 4.3670130550199e-10_r8, &
3743  4.3788659807486e-10_r8, 4.3922778474265e-10_r8, 4.3973529945734e-10_r8, &
3744  4.3995732974094e-10_r8, 4.3997373998194e-10_r8, 4.3989931764285e-10_r8, &
3745  4.397710177721e-10_r8, 4.3956695177994e-10_r8, 4.3926197829254e-10_r8, &
3746  4.3882547842985e-10_r8, 4.3833909817917e-10_r8, 4.3772558434494e-10_r8, &
3747  4.3579872295244e-10_r8, 4.3362683728976e-10_r8, 4.3115576626765e-10_r8, &
3748  4.2858405635158e-10_r8, 4.2589670371433e-10_r8, 4.2314637618116e-10_r8, &
3749  4.2036905094713e-10_r8, 4.1760209625453e-10_r8, 4.1480096535453e-10_r8, &
3750  4.1200498340908e-10_r8, 4.0921869482536e-10_r8, 4.0637072698569e-10_r8, &
3751  4.0358155209087e-10_r8, 4.0078065323066e-10_r8, 3.9797721562427e-10_r8, &
3752  3.9519067238731e-10_r8, 3.9242009800192e-10_r8, 3.8966042272784e-10_r8, &
3753  4.1306811336507e-10_r8, 4.1303969313075e-10_r8, 4.1283285877303e-10_r8, &
3754  4.1278556025639e-10_r8, 4.1263833588265e-10_r8, 4.1283828227311e-10_r8, &
3755  4.1470597576914e-10_r8, 4.178783561311e-10_r8, 4.2210337220086e-10_r8, &
3756  4.2804415484453e-10_r8, 4.3144097944835e-10_r8, 4.338343194242e-10_r8, &
3757  4.3532151039751e-10_r8, 4.3582818412898e-10_r8, 4.3614608337575e-10_r8, &
3758  4.364949399382e-10_r8, 4.3740166635041e-10_r8, 4.3826538936641e-10_r8, &
3759  4.3899145305386e-10_r8, 4.3923950240324e-10_r8, 4.392305624265e-10_r8, &
3760  4.3924076756295e-10_r8, 4.3884731703155e-10_r8, 4.384470058593e-10_r8, &
3761  4.3806358481244e-10_r8, 4.3765031094649e-10_r8, 4.3722089587391e-10_r8, &
3762  4.3533633137458e-10_r8, 4.334267893978e-10_r8, 4.3087388754038e-10_r8, &
3763  4.2834770235565e-10_r8, 4.2568137774228e-10_r8, 4.2299532396703e-10_r8, &
3764  4.2029661823821e-10_r8, 4.1758896617559e-10_r8, 4.1490433136237e-10_r8, &
3765  4.122012337844e-10_r8, 4.09500658628e-10_r8, 4.067143340837e-10_r8, &
3766  4.0393748980695e-10_r8, 4.0115630472433e-10_r8, 3.9836596545217e-10_r8, &
3767  3.9555676224754e-10_r8, 3.9277933529098e-10_r8, 3.9002058619621e-10_r8, &
3768  4.6963543637402e-10_r8, 4.7168305628895e-10_r8, 4.7685209151296e-10_r8, &
3769  4.8240107860249e-10_r8, 4.8561583822977e-10_r8, 4.8713259301629e-10_r8, &
3770  4.826761006939e-10_r8, 4.7909258883618e-10_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3771  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3772  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3773  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3774  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3775  9e90_r8, 9e90_r8 &
3776  /) ) /
3777 
3778 type(gsw_result) :: cabbeling
3779 
3780 data cabbeling / gsw_result( &
3781  "cabbeling", 1.5877e-16_r8, (/ &
3782  8.7588243173554e-06_r8, 8.7548449123664e-06_r8, 8.7560580765147e-06_r8, &
3783  8.7512744544768e-06_r8, 8.7535281507586e-06_r8, 8.758854510151e-06_r8, &
3784  8.8329465856152e-06_r8, 8.9731624663844e-06_r8, 9.1833085687301e-06_r8, &
3785  9.4803426533349e-06_r8, 9.7725016374008e-06_r8, 1.0060766615694e-05_r8, &
3786  1.0604058476895e-05_r8, 1.0859864470874e-05_r8, 1.1005829956376e-05_r8, &
3787  1.1129133525137e-05_r8, 1.1285831464698e-05_r8, 1.1369572368121e-05_r8, &
3788  1.142826738659e-05_r8, 1.1468282870553e-05_r8, 1.1499920455659e-05_r8, &
3789  1.1526531009551e-05_r8, 1.1546038388188e-05_r8, 1.1556251621486e-05_r8, &
3790  1.1553551819581e-05_r8, 1.154600096323e-05_r8, 1.1525782584992e-05_r8, &
3791  1.1436792254651e-05_r8, 1.1322245721855e-05_r8, 1.1177155413891e-05_r8, &
3792  1.1020920925911e-05_r8, 1.0852199110102e-05_r8, 1.0676513440108e-05_r8, &
3793  1.0496758647612e-05_r8, 1.0317073302201e-05_r8, 1.0133203513125e-05_r8, &
3794  9.9490691978817e-06_r8, 9.7646664043845e-06_r8, 9.5746301213447e-06_r8, &
3795  9.3886984765977e-06_r8, 9.2013549786317e-06_r8, 9.0132075880313e-06_r8, &
3796  8.8263299636566e-06_r8, 8.6403249954642e-06_r8, 8.4550738245506e-06_r8, &
3797  8.8284812285076e-06_r8, 8.8313222463113e-06_r8, 8.8193127807543e-06_r8, &
3798  8.8202207315565e-06_r8, 8.8129444983511e-06_r8, 8.8419655620376e-06_r8, &
3799  9.0524068214372e-06_r8, 9.3582657919454e-06_r8, 9.7191572707018e-06_r8, &
3800  1.0210230171679e-05_r8, 1.0499216196019e-05_r8, 1.0711258008798e-05_r8, &
3801  1.085866439441e-05_r8, 1.0921555547869e-05_r8, 1.0966720643615e-05_r8, &
3802  1.1014772726742e-05_r8, 1.1128807234294e-05_r8, 1.1240842303752e-05_r8, &
3803  1.1342352796959e-05_r8, 1.1402213052073e-05_r8, 1.1439112823454e-05_r8, &
3804  1.1477846796843e-05_r8, 1.1479378173332e-05_r8, 1.1480312384895e-05_r8, &
3805  1.1482220351514e-05_r8, 1.1481387914027e-05_r8, 1.147840054177e-05_r8, &
3806  1.1393512232439e-05_r8, 1.1303855519729e-05_r8, 1.1151107656513e-05_r8, &
3807  1.0999408088119e-05_r8, 1.0832809542662e-05_r8, 1.066323390285e-05_r8, &
3808  1.0490702117476e-05_r8, 1.0316261683575e-05_r8, 1.0142585415818e-05_r8, &
3809  9.9662313688103e-06_r8, 9.7887742480472e-06_r8, 9.603487213739e-06_r8, &
3810  9.4179815132114e-06_r8, 9.2316094032476e-06_r8, 9.0438551958909e-06_r8, &
3811  8.8545252628613e-06_r8, 8.6673073307509e-06_r8, 8.4814533912726e-06_r8, &
3812  1.2379398335815e-05_r8, 1.2563259717031e-05_r8, 1.3019967502548e-05_r8, &
3813  1.3520436453062e-05_r8, 1.38194361383e-05_r8, 1.3968019943733e-05_r8, &
3814  1.3649233516677e-05_r8, 1.3397567439491e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3815  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3816  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3817  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3818  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3819  9e90_r8, 9e90_r8 &
3820  /) ) /
3821 
3822 type(gsw_result) :: thermobaric
3823 
3824 data thermobaric / gsw_result( &
3825  "thermobaric", 5.1742e-23_r8, (/ &
3826  1.5526214786187e-12_r8, 1.5523350507267e-12_r8, 1.5536135929024e-12_r8, &
3827  1.5531004182612e-12_r8, 1.5549114331089e-12_r8, 1.5575589896041e-12_r8, &
3828  1.5848525354408e-12_r8, 1.6353451118641e-12_r8, 1.7112147956412e-12_r8, &
3829  1.8197061304696e-12_r8, 1.9272166401189e-12_r8, 2.0333340525811e-12_r8, &
3830  2.2299228297508e-12_r8, 2.325150191975e-12_r8, 2.3823477186508e-12_r8, &
3831  2.4315507880794e-12_r8, 2.4992336382165e-12_r8, 2.5431240897322e-12_r8, &
3832  2.5789501064429e-12_r8, 2.6088117381395e-12_r8, 2.6359861851401e-12_r8, &
3833  2.6615418668761e-12_r8, 2.6848687296553e-12_r8, 2.7054840752356e-12_r8, &
3834  2.7219779380652e-12_r8, 2.7371327866539e-12_r8, 2.7482534040127e-12_r8, &
3835  2.7644615656152e-12_r8, 2.7725472510622e-12_r8, 2.7707021582993e-12_r8, &
3836  2.7649182780046e-12_r8, 2.7544396607967e-12_r8, 2.7410747346978e-12_r8, &
3837  2.725332521571e-12_r8, 2.7089283220967e-12_r8, 2.6901757817638e-12_r8, &
3838  2.670588191473e-12_r8, 2.6497895072012e-12_r8, 2.6262618939088e-12_r8, &
3839  2.6030965649802e-12_r8, 2.57854814753e-12_r8, 2.5524030270802e-12_r8, &
3840  2.5260907845483e-12_r8, 2.4988330768677e-12_r8, 2.4709735577593e-12_r8, &
3841  1.5748501100254e-12_r8, 1.5766308257541e-12_r8, 1.574060861194e-12_r8, &
3842  1.5752349114018e-12_r8, 1.5740204969374e-12_r8, 1.584494209068e-12_r8, &
3843  1.6585324528409e-12_r8, 1.7694309074319e-12_r8, 1.9000433923756e-12_r8, &
3844  2.0770229990519e-12_r8, 2.1819409542778e-12_r8, 2.2594074871836e-12_r8, &
3845  2.3181536794929e-12_r8, 2.3479979450124e-12_r8, 2.3714205960372e-12_r8, &
3846  2.3958345596785e-12_r8, 2.449926360265e-12_r8, 2.5030051463231e-12_r8, &
3847  2.5523657416258e-12_r8, 2.5884651895068e-12_r8, 2.617319626056e-12_r8, &
3848  2.6466495091265e-12_r8, 2.6644918131735e-12_r8, 2.6822956641977e-12_r8, &
3849  2.7002102322852e-12_r8, 2.7174319698151e-12_r8, 2.7338067589434e-12_r8, &
3850  2.7511701188957e-12_r8, 2.7668632057869e-12_r8, 2.7625043446351e-12_r8, &
3851  2.7580450694501e-12_r8, 2.7481301723257e-12_r8, 2.7366797559797e-12_r8, &
3852  2.7233028680285e-12_r8, 2.7086707394196e-12_r8, 2.6935312231269e-12_r8, &
3853  2.6768411929747e-12_r8, 2.6587723224143e-12_r8, 2.637294430077e-12_r8, &
3854  2.614587151476e-12_r8, 2.5907508146821e-12_r8, 2.5651327657396e-12_r8, &
3855  2.5381670827297e-12_r8, 2.5107656815664e-12_r8, 2.4830439799285e-12_r8, &
3856  2.4925020217406e-12_r8, 2.5559742649892e-12_r8, 2.708059515658e-12_r8, &
3857  2.8731484336049e-12_r8, 2.972807930732e-12_r8, 3.0244527052011e-12_r8, &
3858  2.9478853362429e-12_r8, 2.886414558933e-12_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3859  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3860  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3861  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3862  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3863  9e90_r8, 9e90_r8 &
3864  /) ) /
3865 
3866 type(gsw_result) :: sa_from_rho
3867 
3868 data sa_from_rho / gsw_result( &
3869  "SA_from_rho", 1.3051e-10_r8, (/ &
3870  34.507499465692_r8, 34.507024988455_r8, 34.501848858511_r8, &
3871  34.504435326018_r8, 34.530643613166_r8, 34.537484086977_r8, &
3872  34.736078147786_r8, 34.989090287231_r8, 35.120394623393_r8, &
3873  35.119256777183_r8, 34.986762856758_r8, 34.835021959583_r8, &
3874  34.607546395926_r8, 34.595840357794_r8, 34.621926348234_r8, &
3875  34.648001549218_r8, 34.659174492303_r8, 34.668361402163_r8, &
3876  34.682170848906_r8, 34.694080110951_r8, 34.705238130449_r8, &
3877  34.716513959838_r8, 34.728518191975_r8, 34.739505619355_r8, &
3878  34.751452325213_r8, 34.760072302_r8, 34.769407785424_r8, 34.78964193694_r8, &
3879  34.808295026002_r8, 34.822151570281_r8, 34.832369913788_r8, &
3880  34.840088169273_r8, 34.846482961025_r8, 34.851270079602_r8, &
3881  34.856641575125_r8, 34.860019411636_r8, 34.863619225501_r8, &
3882  34.8670618825_r8, 34.868072764781_r8, 34.869952495228_r8, &
3883  34.870706954223_r8, 34.869948548765_r8, 34.870177007927_r8, &
3884  34.870163920171_r8, 34.870229963516_r8, 34.606687646962_r8, &
3885  34.59194804862_r8, 34.620913179144_r8, 34.60569590954_r8, &
3886  34.616792273632_r8, 34.657212493965_r8, 34.938587996851_r8, &
3887  35.144639998851_r8, 34.972934057672_r8, 34.746556607466_r8, &
3888  34.706863851408_r8, 34.746964646708_r8, 34.808232606377_r8, &
3889  34.826327152152_r8, 34.816456153416_r8, 34.800921106393_r8, &
3890  34.7588991589_r8, 34.730693983602_r8, 34.714397236345_r8, &
3891  34.713783487812_r8, 34.718735529719_r8, 34.72438007792_r8, &
3892  34.734010000495_r8, 34.743084410713_r8, 34.753058494526_r8, &
3893  34.762475024106_r8, 34.772124124595_r8, 34.793567706862_r8, &
3894  34.814396506585_r8, 34.825581702081_r8, 34.837454882016_r8, &
3895  34.844788711633_r8, 34.852503925855_r8, 34.858062359024_r8, &
3896  34.862564801306_r8, 34.86732380031_r8, 34.870753430507_r8, &
3897  34.874612605795_r8, 34.877672506821_r8, 34.879244950055_r8, &
3898  34.880316871764_r8, 34.880826475872_r8, 34.881086643287_r8, &
3899  34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, &
3900  6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720972_r8, &
3901  7.3661052164124_r8, 7.5862209196424_r8, 9.1676241523683_r8, &
3902  10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3903  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3904  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3905  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3906  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
3907  /) ) /
3908 
3909 type(gsw_result) :: ct_from_rho
3910 
3911 data ct_from_rho / gsw_result( &
3912  "CT_from_rho", 6.2856e-10_r8, (/ &
3913  27.994827331979_r8, 27.993492458241_r8, 27.944213680466_r8, &
3914  27.949774879518_r8, 27.884179948892_r8, 27.793319825682_r8, &
3915  26.947346080828_r8, 25.464307276521_r8, 23.37982067668_r8, &
3916  20.638474591729_r8, 18.143915714715_r8, 15.858592965627_r8, &
3917  12.005103039523_r8, 10.265575172256_r8, 9.2473179461448_r8, &
3918  8.3897191572733_r8, 7.225986275199_r8, 6.466871166991_r8, &
3919  5.8444172841223_r8, 5.3204133981089_r8, 4.8418803985135_r8, &
3920  4.3913347689892_r8, 3.9764271435471_r8, 3.602151254231_r8, &
3921  3.2883333327073_r8, 2.9933860754591_r8, 2.7553035518859_r8, &
3922  2.3150448546651_r8, 1.9771492962839_r8, 1.7639139735844_r8, &
3923  1.592014195832_r8, 1.4723471561846_r8, 1.3795290982532_r8, &
3924  1.3092323718846_r8, 1.2362158470045_r8, 1.185111984185_r8, &
3925  1.1343476986714_r8, 1.0919973856567_r8, 1.0759044077229_r8, &
3926  1.0475395549346_r8, 1.0290342473012_r8, 1.026963478656_r8, &
3927  1.0171112605246_r8, 1.0155713449039_r8, 1.014963403323_r8, &
3928  27.320893180034_r8, 27.258004994462_r8, 27.324713453943_r8, &
3929  27.279898123599_r8, 27.306210016001_r8, 26.984520662239_r8, &
3930  24.844748285783_r8, 21.909930415708_r8, 18.79313601436_r8, &
3931  15.009081326228_r8, 12.944289997453_r8, 11.488269182863_r8, &
3932  10.402384857672_r8, 9.8477626588833_r8, 9.4138854127839_r8, &
3933  8.9682331074205_r8, 8.0087208215432_r8, 7.0889445244768_r8, &
3934  6.2481613625237_r8, 5.6244493769463_r8, 5.117058270649_r8, &
3935  4.6079367124578_r8, 4.2699702988355_r8, 3.9328928453611_r8, &
3936  3.5959682882935_r8, 3.2691230935995_r8, 2.9557520915287_r8, &
3937  2.4970408562068_r8, 2.0537091528128_r8, 1.8745237698522_r8, &
3938  1.6842706911949_r8, 1.5570066554776_r8, 1.4382440661899_r8, &
3939  1.3359600921455_r8, 1.2390646514633_r8, 1.1386797401178_r8, &
3940  1.0482212593721_r8, 0.96803553122243_r8, 0.9227069097898_r8, &
3941  0.88704031144893_r8, 0.85738474530023_r8, 0.84629138894935_r8, &
3942  0.84408786867765_r8, 0.84286638656_r8, 0.83823534122164_r8, &
3943  10.502767735302_r8, 9.5454546799622_r8, 7.3853472726033_r8, 9e90_r8, &
3944  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3945  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3946  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3947  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3948  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3949  9e90_r8 &
3950  /) ) /
3951 
3952 type(gsw_result) :: ct_maxdensity
3953 
3954 data ct_maxdensity / gsw_result( &
3955  "CT_maxdensity", 6.904e-11_r8, (/ &
3956  -3.6640510449813_r8, -3.6865300504791_r8, -3.7079898915943_r8, &
3957  -3.7311634544798_r8, -3.7595255266563_r8, -3.7836531675534_r8, &
3958  -3.8860100066592_r8, -3.9979679594893_r8, -4.083335008031_r8, &
3959  -4.1398727515372_r8, -4.1678579475895_r8, -4.1939997989138_r8, &
3960  -4.2585345814188_r8, -4.372751675281_r8, -4.4932080537945_r8, &
3961  -4.6162430642416_r8, -4.8519676671612_r8, -5.0884288084385_r8, &
3962  -5.3270547370708_r8, -5.566430435852_r8, -5.8068037558288_r8, &
3963  -6.0483601207988_r8, -6.2912276965291_r8, -6.5374282043333_r8, &
3964  -6.7825995618578_r8, -7.0306368927015_r8, -7.2775697912793_r8, &
3965  -7.902977343737_r8, -8.5353387709599_r8, -9.1740077253031_r8, &
3966  -9.8218091387872_r8, -10.476531202182_r8, -11.141065396422_r8, &
3967  -11.810237112697_r8, -12.489776501368_r8, -13.176680308184_r8, &
3968  -13.874189909924_r8, -14.576928016918_r8, -15.292929695141_r8, &
3969  -16.014646448554_r8, -16.747551569448_r8, -17.486134922205_r8, &
3970  -18.239685554937_r8, -18.999605748447_r8, -19.772123172069_r8, &
3971  -3.6857986241903_r8, -3.7051477713452_r8, -3.7340864042734_r8, &
3972  -3.753354975903_r8, -3.7784000759854_r8, -3.8098767961736_r8, &
3973  -3.9302810799456_r8, -4.0319093512082_r8, -4.0511694478638_r8, &
3974  -4.0585547882189_r8, -4.1067826454674_r8, -4.1747876916817_r8, &
3975  -4.3023019623431_r8, -4.4229674693995_r8, -4.5355452951701_r8, &
3976  -4.6494881293139_r8, -4.8736033594735_r8, -5.10192206188_r8, &
3977  -5.3340140087866_r8, -5.5706742892117_r8, -5.8097028746732_r8, &
3978  -6.0500447560048_r8, -6.2924001979694_r8, -6.5381897673521_r8, &
3979  -6.7829401809143_r8, -7.0311445928644_r8, -7.2781415978797_r8, &
3980  -7.9037952906428_r8, -8.5365954638311_r8, -9.1747052293446_r8, &
3981  -9.8228284548493_r8, -10.477458615255_r8, -11.142232474375_r8, &
3982  -11.811528207056_r8, -12.490878155542_r8, -13.178006448149_r8, &
3983  -13.875450805163_r8, -14.578223429679_r8, -15.294522728385_r8, &
3984  -16.016132575103_r8, -16.749026156879_r8, -17.487728786414_r8, &
3985  -18.241202529493_r8, -19.001088686437_r8, -19.773737146836_r8, &
3986  2.6680438206626_r8, 2.6224733962175_r8, 2.5687611083654_r8, &
3987  2.4953804672115_r8, 2.4210335398931_r8, 2.3485914149918_r8, &
3988  1.9278141139837_r8, 1.5914610539694_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3989  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3990  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3991  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3992  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
3993  9e90_r8 &
3994  /) ) /
3995 
3996 type(gsw_result) :: internal_energy
3997 
3998 data internal_energy / gsw_result( &
3999  "internal_energy", 2.4993e-06_r8, (/ &
4000  111652.50217481_r8, 111647.17964992_r8, 111450.47660214_r8, &
4001  111472.69035333_r8, 111210.86618798_r8, 110848.19015662_r8, &
4002  107471.29198658_r8, 101551.36001111_r8, 93230.561237194_r8, &
4003  82287.698616004_r8, 72329.984758368_r8, 63207.540237031_r8, &
4004  47825.492204361_r8, 40882.18870865_r8, 36818.186642249_r8, &
4005  33395.635882186_r8, 28752.211268663_r8, 25724.399096862_r8, &
4006  23242.558890558_r8, 21154.155165479_r8, 19247.704000029_r8, &
4007  17453.413916099_r8, 15801.822789174_r8, 14312.913688585_r8, &
4008  13065.722789006_r8, 11894.351958073_r8, 10950.338148799_r8, &
4009  9210.7576423549_r8, 7882.4014448089_r8, 7054.1993319039_r8, &
4010  6393.6195389573_r8, 5944.0139074959_r8, 5604.1449731817_r8, &
4011  5356.4535260893_r8, 5100.4247283504_r8, 4934.1872663677_r8, &
4012  4771.7740609104_r8, 4645.0495056152_r8, 4625.6658097793_r8, &
4013  4559.3549768201_r8, 4534.7363782739_r8, 4577.6103517524_r8, &
4014  4591.9503954369_r8, 4641.3024964675_r8, 4696.6223670407_r8, &
4015  108962.27421054_r8, 108711.23989368_r8, 108977.54140027_r8, &
4016  108798.65901492_r8, 108903.7108053_r8, 107619.60451624_r8, &
4017  99078.077540143_r8, 87362.871177338_r8, 74921.236955518_r8, &
4018  59816.020234328_r8, 51573.871418327_r8, 45761.881526542_r8, &
4019  41427.704891335_r8, 39214.362673432_r8, 37483.109957813_r8, &
4020  35704.978175115_r8, 31876.757349791_r8, 28207.603408762_r8, &
4021  24854.225431084_r8, 22367.800866883_r8, 20346.148429028_r8, &
4022  18318.031946285_r8, 16973.562122143_r8, 15633.128667739_r8, &
4023  14293.693640017_r8, 12994.987626912_r8, 11750.443626812_r8, &
4024  9937.1889882045_r8, 8187.9773363586_r8, 7495.665931834_r8, &
4025  6761.8193900596_r8, 6281.879534218_r8, 5838.4568353599_r8, &
4026  5463.1068151664_r8, 5111.7876749203_r8, 4748.9104909144_r8, &
4027  4428.1317810348_r8, 4150.4763754465_r8, 4014.4871914782_r8, &
4028  3919.0874334281_r8, 3850.0331979644_r8, 3856.9632274427_r8, &
4029  3901.8584811951_r8, 3952.52840335_r8, 3991.8510287506_r8, &
4030  41824.829227977_r8, 38003.386290217_r8, 29380.562357619_r8, &
4031  20645.651752834_r8, 15614.979771763_r8, 13027.60652195_r8, &
4032  15888.932555832_r8, 18307.882082985_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4033  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4034  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4035  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4036  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4037  9e90_r8 &
4038  /) ) /
4039 
4040 type(gsw_result) :: enthalpy
4041 
4042 data enthalpy / gsw_result( &
4043  "enthalpy", 2.4994e-06_r8, (/ &
4044  111751.65419162_r8, 111844.17895824_r8, 111745.31161508_r8, &
4045  111865.35532773_r8, 111701.33361479_r8, 111436.44769234_r8, &
4046  108313.46459255_r8, 102637.16940333_r8, 94559.552547879_r8, &
4047  83859.40255159_r8, 74144.375123685_r8, 65274.270809625_r8, &
4048  50377.199126755_r8, 43928.738855298_r8, 40349.751021329_r8, &
4049  37421.654920035_r8, 33756.958676401_r8, 31707.049717334_r8, &
4050  30202.146273053_r8, 29089.753832491_r8, 28158.360322951_r8, &
4051  27338.166240693_r8, 26659.727815265_r8, 26152.692408145_r8, &
4052  25876.862642419_r8, 25685.580948889_r8, 25711.197001461_r8, &
4053  26406.404948096_r8, 27507.437029804_r8, 29103.506156575_r8, &
4054  30871.518417864_r8, 32845.411873528_r8, 34933.429393586_r8, &
4055  37099.128288523_r8, 39260.832934695_r8, 41507.46380518_r8, &
4056  43762.349706306_r8, 46038.666956376_r8, 48436.494864166_r8, &
4057  50773.10406461_r8, 53156.122563428_r8, 55592.850355264_r8, &
4058  58014.916735168_r8, 60458.223172324_r8, 62912.253787705_r8, &
4059  109061.39804526_r8, 108908.18142137_r8, 109272.2934625_r8, &
4060  109191.21230822_r8, 109394.05830589_r8, 108207.66176423_r8, &
4061  99919.588854317_r8, 88447.447772033_r8, 76248.741144106_r8, &
4062  61386.027196329_r8, 53386.552824583_r8, 47826.90010971_r8, &
4063  43978.283119765_r8, 42260.166689375_r8, 41014.255786745_r8, &
4064  39730.908337587_r8, 36881.72459557_r8, 34190.515123061_r8, &
4065  31814.038178371_r8, 30303.61159277_r8, 29257.04265354_r8, &
4066  28203.006986104_r8, 27831.836324247_r8, 27473.379414479_r8, &
4067  27105.321555602_r8, 26786.674667033_r8, 26511.646947676_r8, &
4068  27133.187069491_r8, 27813.11930776_r8, 29545.245618021_r8, &
4069  31239.940784015_r8, 33183.513253382_r8, 35167.868826316_r8, &
4070  37205.754157835_r8, 39272.0624303_r8, 41321.708050059_r8, &
4071  43417.926225001_r8, 45542.955090051_r8, 47823.7807976_r8, &
4072  50131.124708602_r8, 52469.458958001_r8, 54869.959194072_r8, &
4073  57322.504808827_r8, 59766.960575564_r8, 62204.705632146_r8, &
4074  41925.661983623_r8, 38203.689474294_r8, 29680.261435849_r8, &
4075  21044.677853312_r8, 16113.301270798_r8, 13625.189671605_r8, &
4076  16743.740134094_r8, 19409.635594666_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4077  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4078  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4079  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4080  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4081  9e90_r8 &
4082  /) ) /
4083 
4084 type(gsw_result) :: enthalpy_diff
4085 
4086 data enthalpy_diff / gsw_result( &
4087  "enthalpy_diff", 3.0752e-11_r8, (/ &
4088  97.85341452692198_r8, 97.84937151634202_r8, 97.84416683707531_r8, &
4089  97.84012533003096_r8, 97.83220896844693_r8, 97.82487279345622_r8, &
4090  97.77438678126379_r8, 97.70201662485873_r8, 97.62280769716332_r8, &
4091  97.53904441557398_r8, 97.47636981113364_r8, 97.42432490407099_r8, &
4092  97.34206014314917_r8, 97.2905672853602_r8, 97.25065300239309_r8, &
4093  97.21359468322139_r8, 97.15243181062692_r8, 97.09793096520708_r8, &
4094  97.045306165714_r8, 96.99436353505916_r8, 96.94424203061016_r8, &
4095  96.89461904161617_r8, 96.8455237205559_r8, 96.79669789312248_r8, &
4096  96.74906997721295_r8, 96.70158109988509_r8, 96.65523997628523_r8, &
4097  96.54123235120393_r8, 96.42915207077247_r8, 96.31959504497716_r8, &
4098  96.21108331540584_r8, 96.10415071646561_r8, 95.99800976466953_r8, &
4099  95.89346544518619_r8, 95.78919181636522_r8, 95.68615972123376_r8, &
4100  95.5834911325851_r8, 95.48213483114699_r8, 95.38139597719588_r8, &
4101  95.2815549567764_r8, 95.18236255913433_r8, 95.08474387974067_r8, &
4102  94.98693502834763_r8, 94.89045954959985_r8, 94.79440041710922_r8, &
4103  97.82559850606062_r8, 97.82066850442072_r8, 97.81663608628575_r8, &
4104  97.81229479819523_r8, 97.80828500706754_r8, 97.79156206552665_r8, &
4105  97.69760159785071_r8, 97.5910679554153_r8, 97.5135382263115_r8, &
4106  97.43368742157632_r8, 97.38451409830046_r8, 97.34358450518016_r8, &
4107  97.29898879769107_r8, 97.26673693910176_r8, 97.23912985326423_r8, &
4108  97.21145543224685_r8, 97.15670818862667_r8, 97.10217563238434_r8, &
4109  97.0484533651474_r8, 96.99695902545704_r8, 96.94683354240547_r8, &
4110  96.89680476125594_r8, 96.84882001726469_r8, 96.80056091868948_r8, &
4111  96.75275948292006_r8, 96.70479618801217_r8, 96.65749801933589_r8, &
4112  96.54320393614023_r8, 96.42967577311012_r8, 96.32078836316406_r8, &
4113  96.21195905400805_r8, 96.10499396947161_r8, 95.99842804218964_r8, &
4114  95.89338295830778_r8, 95.78881766942386_r8, 95.68490607888708_r8, &
4115  95.58157511772978_r8, 95.47950677699855_r8, 95.3780514850279_r8, &
4116  95.27802391854677_r8, 95.17852299774593_r8, 95.08055948434485_r8, &
4117  94.9828082694677_r8, 94.88622731389871_r8, 94.78987712888562_r8, &
4118  99.51185607270992_r8, 99.49010833180105_r8, 99.45803812673887_r8, &
4119  99.42477467804514_r8, 99.39847418165967_r8, 99.37531220293501_r8, &
4120  99.24093120589134_r8, 99.13635726739815_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4121  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4122  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4123  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4124  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4125  9e90_r8, 9e90_r8 &
4126  /) ) /
4127 
4128 type(gsw_result) :: ct_from_enthalpy
4129 
4130 data ct_from_enthalpy / gsw_result( &
4131  "CT_from_enthalpy", 6.2611e-10_r8, (/ &
4132  27.994827331979_r8, 27.993492458241_r8, 27.944213680466_r8, &
4133  27.949774879518_r8, 27.884179948892_r8, 27.793319825682_r8, &
4134  26.947346080828_r8, 25.46430727652_r8, 23.379820676679_r8, &
4135  20.63847459173_r8, 18.143915714715_r8, 15.858592965627_r8, &
4136  12.005103039523_r8, 10.265575172257_r8, 9.247317946145_r8, &
4137  8.3897191572738_r8, 7.225986275199_r8, 6.4668711669915_r8, &
4138  5.8444172841219_r8, 5.3204133981088_r8, 4.8418803985128_r8, &
4139  4.3913347689901_r8, 3.9764271435477_r8, 3.6021512542309_r8, &
4140  3.2883333327082_r8, 2.9933860754579_r8, 2.7553035518852_r8, &
4141  2.3150448546651_r8, 1.977149296285_r8, 1.763913973583_r8, &
4142  1.5920141958327_r8, 1.4723471561845_r8, 1.3795290982534_r8, &
4143  1.3092323718852_r8, 1.236215847005_r8, 1.1851119841849_r8, &
4144  1.1343476986713_r8, 1.0919973856578_r8, 1.0759044077233_r8, &
4145  1.0475395549349_r8, 1.0290342473008_r8, 1.0269634786561_r8, &
4146  1.0171112605236_r8, 1.0155713449034_r8, 1.0149634033236_r8, &
4147  27.320893180033_r8, 27.258004994462_r8, 27.324713453943_r8, &
4148  27.279898123599_r8, 27.306210016001_r8, 26.984520662239_r8, &
4149  24.844748285783_r8, 21.909930415708_r8, 18.79313601436_r8, &
4150  15.009081326229_r8, 12.944289997453_r8, 11.488269182864_r8, &
4151  10.402384857673_r8, 9.8477626588835_r8, 9.4138854127839_r8, &
4152  8.9682331074201_r8, 8.0087208215432_r8, 7.0889445244783_r8, &
4153  6.2481613625224_r8, 5.6244493769453_r8, 5.1170582706497_r8, &
4154  4.6079367124573_r8, 4.269970298836_r8, 3.9328928453607_r8, &
4155  3.5959682882935_r8, 3.2691230935998_r8, 2.9557520915302_r8, &
4156  2.4970408562072_r8, 2.0537091528134_r8, 1.874523769853_r8, &
4157  1.6842706911938_r8, 1.5570066554771_r8, 1.4382440661902_r8, &
4158  1.3359600921445_r8, 1.2390646514638_r8, 1.1386797401176_r8, &
4159  1.048221259372_r8, 0.96803553122254_r8, 0.92270690978888_r8, &
4160  0.8870403114493_r8, 0.85738474529936_r8, 0.84629138894925_r8, &
4161  0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, &
4162  10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, &
4163  5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, &
4164  4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4165  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4166  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4167  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4168  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4169  9e90_r8 &
4170  /) ) /
4171 
4172 type(gsw_result) :: dynamic_enthalpy
4173 
4174 data dynamic_enthalpy / gsw_result( &
4175  "dynamic_enthalpy", 2.2888e-07_r8, (/ &
4176  0._r8, 97.853406318988_r8, 195.70043711869_r8, 293.54457747267_r8, &
4177  391.36916624726_r8, 489.18485822373_r8, 743.21724307628_r8, &
4178  987.01713593714_r8, 1230.3955454424_r8, 1473.3371450362_r8, &
4179  1716.2593654361_r8, 1968.8617051364_r8, 2454.4129813647_r8, &
4180  2949.9182637637_r8, 3435.6788228152_r8, 3931.0038468809_r8, &
4181  4911.775605848_r8, 5892.1539229996_r8, 6872.0041885309_r8, &
4182  7851.3660699508_r8, 8830.2131079224_r8, 9808.5376873759_r8, &
4183  10786.355717116_r8, 11773.380239682_r8, 12750.270179252_r8, &
4184  13736.37899098_r8, 14712.389040552_r8, 17165.051573463_r8, &
4185  19614.918107523_r8, 22062.194486314_r8, 24516.40796224_r8, &
4186  26967.996438999_r8, 29426.531390354_r8, 31872.84553477_r8, &
4187  34326.022506953_r8, 36776.653249914_r8, 39234.183475747_r8, &
4188  41679.557583311_r8, 44141.626534051_r8, 46591.464481451_r8, &
4189  49048.353724849_r8, 51493.347751685_r8, 53954.742885458_r8, &
4190  56404.196462435_r8, 58860.653900329_r8, 0._r8, 97.824708969796_r8, &
4191  195.64538823306_r8, 293.46111513116_r8, 391.27351263964_r8, &
4192  489.01839440183_r8, 742.63426959792_r8, 985.8986028493_r8, &
4193  1229.0236745928_r8, 1471.7563843543_r8, 1714.6563560852_r8, &
4194  1967.2464758712_r8, 2453.3363287952_r8, 2949.1984820581_r8, &
4195  3435.268255457_r8, 3930.9059640972_r8, 4911.9685705345_r8, &
4196  5892.3846259978_r8, 6872.2030444048_r8, 7851.5523485009_r8, &
4197  8830.4217082189_r8, 9808.7320752107_r8, 10786.678710471_r8, &
4198  11773.790486299_r8, 12750.690970745_r8, 13736.766941813_r8, &
4199  14712.674884307_r8, 17165.329687979_r8, 19614.983547401_r8, &
4200  22062.394246286_r8, 24516.554580722_r8, 26968.148276361_r8, &
4201  29426.588423974_r8, 31872.777874013_r8, 34325.879951322_r8, &
4202  36776.248882062_r8, 39233.565367742_r8, 41678.685071611_r8, &
4203  44140.456650601_r8, 46590.176912654_r8, 49046.892266317_r8, &
4204  51491.675716139_r8, 53953.017492863_r8, 56402.349254922_r8, &
4205  58858.580833001_r8, 0._r8, 99.49480122235_r8, 198.93030614269_r8, &
4206  298.30310845912_r8, 397.64218289951_r8, 496.94920738847_r8, &
4207  754.38773277069_r8, 1001.5437096866_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4208  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4209  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4210  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4211  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4212  9e90_r8 &
4213  /) ) /
4214 
4215 type(gsw_result) :: h_sa
4216 
4217 data h_sa / gsw_result( &
4218  "h_SA", 2.3732e-10_r8, (/ &
4219  -0._r8, -0.0703444245252_r8, -0.140690980113_r8, -0.211015989962_r8, &
4220  -0.281357361579_r8, -0.351724780023_r8, -0.535243154846_r8, &
4221  -0.713009174108_r8, -0.892943868807_r8, -1.07624312914_r8, &
4222  -1.26164230158_r8, -1.45620092461_r8, -1.83540477503_r8, -2.21708628189_r8, &
4223  -2.58961552557_r8, -2.97010907623_r8, -3.72275659198_r8, -4.47395999771_r8, &
4224  -5.22517883968_r8, -5.97617418312_r8, -6.72738535011_r8, -7.47890808131_r8, &
4225  -8.23031237454_r8, -8.98851053915_r8, -9.73783480647_r8, -10.4940118325_r8, &
4226  -11.2407237863_r8, -13.1104344938_r8, -14.9713786273_r8, -16.8203581491_r8, &
4227  -18.6676536539_r8, -20.5045108417_r8, -22.3391014465_r8, -24.157111384_r8, &
4228  -25.9746156047_r8, -27.7823742858_r8, -29.5891801193_r8, -31.3802464066_r8, &
4229  -33.1745282392_r8, -34.9551535303_r8, -36.7336362594_r8, -38.4953374523_r8, &
4230  -40.2636852287_r8, -42.0162372318_r8, -43.7675788029_r8, -0._r8, &
4231  -0.0704356339793_r8, -0.140836784615_r8, -0.211259254112_r8, &
4232  -0.281637627873_r8, -0.352217654451_r8, -0.537331714206_r8, &
4233  -0.718145406622_r8, -0.902237924644_r8, -1.09157408935_r8, &
4234  -1.27920602426_r8, -1.47383596459_r8, -1.84351675714_r8, -2.21918982423_r8, &
4235  -2.58762272383_r8, -2.9641655372_r8, -3.71298523917_r8, -4.4645584472_r8, &
4236  -5.2179999924_r8, -5.96995825442_r8, -6.72103419127_r8, -7.47332995447_r8, &
4237  -8.22200179569_r8, -8.97825983439_r8, -9.72747785642_r8, -10.4839484772_r8, &
4238  -11.2328428244_r8, -13.1020313417_r8, -14.9672389873_r8, -16.813779121_r8, &
4239  -18.661520013_r8, -20.4983496129_r8, -22.3343791841_r8, -24.1546620407_r8, &
4240  -25.9741507981_r8, -27.7864983786_r8, -29.5975461251_r8, -31.3930677646_r8, &
4241  -33.1911718056_r8, -34.9734569469_r8, -36.7541015287_r8, -38.5177315044_r8, &
4242  -40.2859475605_r8, -42.0392532283_r8, -43.791863998_r8, -0._r8, &
4243  -0.0767040935152_r8, -0.154501693335_r8, -0.233495598853_r8, &
4244  -0.3126649116_r8, -0.391612882897_r8, -0.591471015429_r8, &
4245  -0.782199965729_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4246  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4247  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4248  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4249  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
4250  /) ) /
4251 
4252 type(gsw_result) :: h_ct
4253 
4254 data h_ct / gsw_result( &
4255  "h_CT", 3.1741e-10_r8, (/ &
4256  3991.86795711963_r8, 3991.899109148192_r8, 3991.930197377962_r8, &
4257  3991.961343996476_r8, 3991.992314745479_r8, 3992.023101906704_r8, &
4258  3992.099382103533_r8, 3992.164886984026_r8, 3992.218843420379_r8, &
4259  3992.256137176828_r8, 3992.284396213301_r8, 3992.3065078145_r8, &
4260  3992.327841864518_r8, 3992.372396905642_r8, 3992.422614223414_r8, &
4261  3992.470746525171_r8, 3992.567498952109_r8, 3992.666752799472_r8, &
4262  3992.762077887171_r8, 3992.854575484291_r8, 3992.94237142869_r8, &
4263  3993.02506708788_r8, 3993.104504556439_r8, 3993.183717530758_r8, &
4264  3993.264534312229_r8, 3993.344898218437_r8, 3993.429500906957_r8, &
4265  3993.660983576496_r8, 3993.907013885883_r8, 3994.181569754169_r8, &
4266  3994.473075588773_r8, 3994.786850768829_r8, 3995.120053090195_r8, &
4267  3995.470214461917_r8, 3995.832513819882_r8, 3996.214757716909_r8, &
4268  3996.611099060592_r8, 3997.021697472183_r8, 3997.46004626767_r8, &
4269  3997.904224230311_r8, 3998.367755974772_r8, 3998.850740917286_r8, &
4270  3999.346809528886_r8, 3999.858437309672_r8, 4000.38558967497_r8, &
4271  3991.86795711963_r8, 3991.898585278865_r8, 3991.929327969918_r8, &
4272  3991.959922804141_r8, 3991.990679282704_r8, 3992.020232809591_r8, &
4273  3992.087698111425_r8, 3992.137548240898_r8, 3992.172426522274_r8, &
4274  3992.183729945385_r8, 3992.203595235795_r8, 3992.22651836176_r8, &
4275  3992.290761777744_r8, 3992.361707453051_r8, 3992.429911094039_r8, &
4276  3992.495327666722_r8, 3992.608685742412_r8, 3992.706429863207_r8, &
4277  3992.792404608086_r8, 3992.880857210313_r8, 3992.96926364812_r8, &
4278  3993.048715167693_r8, 3993.139817459243_r8, 3993.227308842759_r8, &
4279  3993.308601126664_r8, 3993.387678415161_r8, 3993.462969216477_r8, &
4280  3993.696589915618_r8, 3993.924377571974_r8, 3994.209337350642_r8, &
4281  3994.498822800189_r8, 3994.812664089141_r8, 3995.139655143558_r8, &
4282  3995.480138951986_r8, 3995.83410679438_r8, 3996.197000045207_r8, &
4283  3996.575624248137_r8, 3996.96765763728_r8, 3997.390054399216_r8, &
4284  3997.827508730091_r8, 3998.282230831746_r8, 3998.757345290372_r8, &
4285  3999.25417674466_r8, 3999.762897871972_r8, 4000.284918030786_r8, &
4286  3991.86795711963_r8, 3991.87691061669_r8, 3991.880702670805_r8, &
4287  3991.878889955721_r8, 3991.876123659021_r8, 3991.874144008297_r8, &
4288  3991.888765135501_r8, 3991.907728370378_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4289  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4290  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4291  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4292  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4293  9e90_r8, 9e90_r8 &
4294  /) ) /
4295 
4296 type(gsw_result) :: h_sa_sa
4297 
4298 data h_sa_sa / gsw_result( &
4299  "h_SA_SA", 6.9146e-13_r8, (/ &
4300  0._r8, 8.1397526382069e-05_r8, 0.00016282088545724_r8, &
4301  0.00024416964286206_r8, 0.0003256106759347_r8, 0.00040717897221163_r8, &
4302  0.00062203535285597_r8, 0.00083569228649105_r8, 0.0010619098317105_r8, &
4303  0.0013081620986356_r8, 0.0015664350620923_r8, 0.0018440984631526_r8, &
4304  0.0024026267984929_r8, 0.0029441625037409_r8, 0.0034666862852052_r8, &
4305  0.0040027586433844_r8, 0.005060551923078_r8, 0.0061119750828302_r8, &
4306  0.0071645481695941_r8, 0.0082165973880474_r8, 0.0092702702334521_r8, &
4307  0.010325945604403_r8, 0.011381120059645_r8, 0.012442996647003_r8, &
4308  0.013486037617976_r8, 0.014535384688961_r8, 0.015561831637971_r8, &
4309  0.018089834622375_r8, 0.02055531513594_r8, 0.02293511258261_r8, &
4310  0.025253715312427_r8, 0.027490715944074_r8, 0.029659492823998_r8, &
4311  0.03174251509074_r8, 0.033768116778578_r8, 0.035714985829204_r8, &
4312  0.037603592761056_r8, 0.039416654999046_r8, 0.041164188578838_r8, &
4313  0.042856233377231_r8, 0.044494246004535_r8, 0.046064434710888_r8, &
4314  0.047610552348051_r8, 0.049107538358988_r8, 0.050580791264988_r8, 0._r8, &
4315  8.1807074230422e-05_r8, 0.00016348181837847_r8, 0.00024526797054979_r8, &
4316  0.00032687840343551_r8, 0.0004094559514906_r8, 0.00063278593546627_r8, &
4317  0.00086434672705047_r8, 0.0011148474096531_r8, 0.001394028322648_r8, &
4318  0.0016627100523148_r8, 0.001939191030124_r8, 0.0024465437110486_r8, &
4319  0.0029568758599658_r8, 0.0034580055135042_r8, 0.0039732686514769_r8, &
4320  0.0050105481153763_r8, 0.0060632531317739_r8, 0.0071268375425427_r8, &
4321  0.0081835231403999_r8, 0.0092360153711817_r8, 0.010295438336582_r8, &
4322  0.011335006612823_r8, 0.012385426638091_r8, 0.013427207075816_r8, &
4323  0.01447771902245_r8, 0.015516317803675_r8, 0.018040560402607_r8, &
4324  0.020531083446443_r8, 0.022895541587755_r8, 0.025216701521518_r8, &
4325  0.027453182058434_r8, 0.029630915221905_r8, 0.031728285731478_r8, &
4326  0.033766343345372_r8, 0.035743104085165_r8, 0.037659530675623_r8, &
4327  0.039502379921885_r8, 0.041276309525342_r8, 0.042980155244453_r8, &
4328  0.044633584470614_r8, 0.046217969635343_r8, 0.047764134787166_r8, &
4329  0.049267207223353_r8, 0.050750544490417_r8, 0._r8, 0.00016872165100208_r8, &
4330  0.00034158224568209_r8, 0.00051754767376502_r8, 0.00069033992218237_r8, &
4331  0.00085695342982295_r8, 0.0011533076422249_r8, 0.0014213685309584_r8, &
4332  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4333  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4334  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4335  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4336  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
4337  /) ) /
4338 
4339 type(gsw_result) :: h_sa_ct
4340 
4341 data h_sa_ct / gsw_result( &
4342  "h_SA_CT", 2.2971e-12_r8, (/ &
4343  0._r8, 0.00013235155845024_r8, 0.00026491788177432_r8, &
4344  0.0003972000465178_r8, 0.00053015311342368_r8, 0.00066381937927289_r8, &
4345  0.0010271783761263_r8, 0.0014130686536778_r8, 0.0018611667326179_r8, &
4346  0.0024122408117399_r8, 0.00303200778178_r8, 0.0037337964739993_r8, &
4347  0.005239704020431_r8, 0.0066262523072895_r8, 0.0079402891125514_r8, &
4348  0.0092994598234886_r8, 0.011975896141382_r8, 0.014630384341287_r8, &
4349  0.017305671084675_r8, 0.019994489721359_r8, 0.022708506154606_r8, &
4350  0.025449670966664_r8, 0.028206015335189_r8, 0.030990698867799_r8, &
4351  0.033728770384159_r8, 0.036496711635187_r8, 0.039202988042297_r8, &
4352  0.045880516210279_r8, 0.052449242379837_r8, 0.058830417239314_r8, &
4353  0.065123777526528_r8, 0.07126826143178_r8, 0.077311607485937_r8, &
4354  0.083206100264922_r8, 0.089040704763296_r8, 0.094740532210368_r8, &
4355  0.10036893113035_r8, 0.10586373943638_r8, 0.11124061314643_r8, &
4356  0.11653086905741_r8, 0.12171916933953_r8, 0.1267444510721_r8, &
4357  0.13173199803218_r8, 0.13657765395258_r8, 0.14134105181574_r8, 0._r8, &
4358  0.0001345399364388_r8, 0.00026854224096735_r8, 0.0004031350858831_r8, &
4359  0.0005369885148935_r8, 0.00067598505101893_r8, 0.0010817293926027_r8, &
4360  0.0015566452312137_r8, 0.0021316856016181_r8, 0.0028714976101733_r8, &
4361  0.003563621325835_r8, 0.0042699051881018_r8, 0.0054916893955536_r8, &
4362  0.0067004379629221_r8, 0.0078936771555924_r8, 0.0091377969500998_r8, &
4363  0.011706515348647_r8, 0.014373573121002_r8, 0.017111559895046_r8, &
4364  0.019827954625291_r8, 0.022539718587083_r8, 0.025302769155621_r8, &
4365  0.027988517764141_r8, 0.030724583452589_r8, 0.033462065445099_r8, &
4366  0.036240063000476_r8, 0.039003830329934_r8, 0.045671526607538_r8, &
4367  0.052348578410538_r8, 0.058670519988562_r8, 0.064976375138515_r8, &
4368  0.071121088514932_r8, 0.07720014549961_r8, 0.08314964582597_r8, &
4369  0.089031401246395_r8, 0.094839940322762_r8, 0.10056739063246_r8, &
4370  0.10616551825995_r8, 0.1116310174982_r8, 0.1169583449997_r8, &
4371  0.1221953844366_r8, 0.12726442761728_r8, 0.13224771158858_r8, &
4372  0.13710967092246_r8, 0.14190158184137_r8, 0._r8, 0.00025875781916877_r8, &
4373  0.00055376848326717_r8, 0.00089103643490681_r8, 0.0012367949700928_r8, &
4374  0.0015767896412965_r8, 0.0023061612056031_r8, 0.002974885667951_r8, &
4375  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4376  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4377  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4378  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4379  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
4380  /) ) /
4381 
4382 type(gsw_result) :: h_ct_ct
4383 
4384 data h_ct_ct / gsw_result( &
4385  "h_CT_CT", 1.111e-11_r8, (/ &
4386  0._r8, 0.00072370638757511_r8, 0.0014481147400949_r8, &
4387  0.0021713197701715_r8, 0.0028968481383241_r8, 0.0036249402798941_r8, &
4388  0.0055722870733224_r8, 0.0075569109188247_r8, 0.0097087336310178_r8, &
4389  0.012113176382986_r8, 0.014680051142963_r8, 0.017503244871382_r8, &
4390  0.023439082539702_r8, 0.02915242836644_r8, 0.034647354878088_r8, &
4391  0.040337448264547_r8, 0.051602780663002_r8, 0.062816671591476_r8, &
4392  0.074122061508468_r8, 0.085489918047828_r8, 0.096968272526724_r8, &
4393  0.10857009231891_r8, 0.12024880738271_r8, 0.13205952852077_r8, &
4394  0.14367632794882_r8, 0.1554278130458_r8, 0.16690747925093_r8, &
4395  0.1951632051546_r8, 0.22287226625813_r8, 0.24962042701313_r8, &
4396  0.27587055326993_r8, 0.30132910567381_r8, 0.32621273865278_r8, &
4397  0.35032318286656_r8, 0.37407121219989_r8, 0.39709472374251_r8, &
4398  0.41969817512941_r8, 0.44161251187154_r8, 0.46284356166854_r8, &
4399  0.48363302746381_r8, 0.50385299507635_r8, 0.52324400086018_r8, &
4400  0.54237879914302_r8, 0.5608023488094_r8, 0.57877416193352_r8, 0._r8, &
4401  0.00073165324992794_r8, 0.0014612003797474_r8, 0.0021927835621075_r8, &
4402  0.0029215258903383_r8, 0.0036680522616231_r8, 0.0057447972364749_r8, &
4403  0.0079599629309756_r8, 0.010419910027895_r8, 0.013312359913815_r8, &
4404  0.016108276915235_r8, 0.019002200901528_r8, 0.024188328334938_r8, &
4405  0.029368924559122_r8, 0.034475456531645_r8, 0.039772664406081_r8, &
4406  0.050626217571209_r8, 0.061847447588957_r8, 0.073361531589448_r8, &
4407  0.084817180166844_r8, 0.096267758079015_r8, 0.10794345198344_r8, &
4408  0.11930059857129_r8, 0.13087437624679_r8, 0.14246465292127_r8, &
4409  0.15423905718734_r8, 0.16596896224931_r8, 0.19415102909723_r8, &
4410  0.22237389189537_r8, 0.2488187624229_r8, 0.27512520138446_r8, &
4411  0.3005808146023_r8, 0.32564520443584_r8, 0.35003761838883_r8, &
4412  0.37402774298344_r8, 0.39761436247994_r8, 0.42073173408237_r8, &
4413  0.44318326878949_r8, 0.46487267260291_r8, 0.48585042556753_r8, &
4414  0.50631680377847_r8, 0.52592405386149_r8, 0.54502584438705_r8, &
4415  0.56352002054041_r8, 0.58162527612039_r8, 0._r8, 0.0011876075123098_r8, &
4416  0.0024977957365016_r8, 0.0039519979603911_r8, 0.0054363363578477_r8, &
4417  0.0069012555626452_r8, 0.010155490197901_r8, 0.013150834525106_r8, 9e90_r8, &
4418  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4419  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4420  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4421  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4422  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
4423  /) ) /
4424 
4425 type(gsw_result) :: ct_sa
4426 
4427 data ct_sa / gsw_result( &
4428  "CT_SA", 1.0062e-12_r8, (/ &
4429  -0.0409833106342_r8, -0.040981657685_r8, -0.0409220221954_r8, &
4430  -0.0409289788576_r8, -0.0408533232719_r8, -0.040745170869_r8, &
4431  -0.0397520455331_r8, -0.0379932800899_r8, -0.0354768140836_r8, &
4432  -0.0321069820167_r8, -0.0289769932561_r8, -0.0260597294771_r8, &
4433  -0.0210294739654_r8, -0.0187201791517_r8, -0.0173574722687_r8, &
4434  -0.0162005721021_r8, -0.0146109213736_r8, -0.0135643187678_r8, &
4435  -0.01270123339_r8, -0.0119703385706_r8, -0.011299345146_r8, &
4436  -0.0106645621064_r8, -0.0100775367712_r8, -0.00954570236784_r8, &
4437  -0.00909862406934_r8, -0.00867642436849_r8, -0.00833508884255_r8, &
4438  -0.00770206835499_r8, -0.00721471670992_r8, -0.00690663541741_r8, &
4439  -0.00665750532912_r8, -0.006483911688_r8, -0.0063491887655_r8, &
4440  -0.00624704431222_r8, -0.00614094752177_r8, -0.00606655083836_r8, &
4441  -0.00599265878719_r8, -0.00593107900256_r8, -0.00590760382096_r8, &
4442  -0.00586623850447_r8, -0.00583913762756_r8, -0.00583591440915_r8, &
4443  -0.00582144391383_r8, -0.00581917098077_r8, -0.00581828971702_r8, &
4444  -0.0401861116142_r8, -0.0401088787868_r8, -0.0401923280954_r8, &
4445  -0.0401367554299_r8, -0.0401696322501_r8, -0.0397876539298_r8, &
4446  -0.0372368650244_r8, -0.03367913088_r8, -0.0297895715183_r8, &
4447  -0.0249580597962_r8, -0.0222771297675_r8, -0.0203709592648_r8, &
4448  -0.0189396013145_r8, -0.0182010750203_r8, -0.0176165155753_r8, &
4449  -0.0170126267022_r8, -0.0157019129888_r8, -0.0144358022532_r8, &
4450  -0.0132696784193_r8, -0.0124001623605_r8, -0.0116896066284_r8, &
4451  -0.0109728274121_r8, -0.0104959999545_r8, -0.0100185442146_r8, &
4452  -0.00953969636447_r8, -0.00907337945449_r8, -0.00862478625027_r8, &
4453  -0.00796679531885_r8, -0.0073275692067_r8, -0.00706887644286_r8, &
4454  -0.00679361237165_r8, -0.00660900487027_r8, -0.00643667342784_r8, &
4455  -0.00628781696546_r8, -0.00614646413128_r8, -0.00599986861933_r8, &
4456  -0.0058674236546_r8, -0.00575008319151_r8, -0.00568389971365_r8, &
4457  -0.00563160907471_r8, -0.00558806052111_r8, -0.00557179076392_r8, &
4458  -0.0055685948385_r8, -0.00556687901076_r8, -0.00556047465796_r8, &
4459  -0.0144770495026_r8, -0.0130627683403_r8, -0.0098075468649_r8, &
4460  -0.00643919757634_r8, -0.0044753319083_r8, -0.00347118708921_r8, &
4461  -0.00488688440307_r8, -0.00605812848642_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4462  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4463  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4464  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4465  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4466  9e90_r8, 9e90_r8 &
4467  /) ) /
4468 
4469 type(gsw_result) :: ct_pt
4470 
4471 data ct_pt / gsw_result( &
4472  "CT_pt", 2.9643e-13_r8, (/ &
4473  1.002958538576044_r8, 1.002958941179812_r8, 1.002959035423763_r8, &
4474  1.002956628419809_r8, 1.002917125345774_r8, 1.00289764618034_r8, &
4475  1.002553017765266_r8, 1.002055543529764_r8, 1.001612650133013_r8, &
4476  1.00122124021388_r8, 1.001013805373638_r8, 1.000858366011333_r8, &
4477  1.000575566141104_r8, 1.000344540495213_r8, 1.000171982224888_r8, &
4478  1.000025723750013_r8, 0.999868849255337_r8, 0.9997705280583983_r8, &
4479  0.9996856548108902_r8, 0.9996171976654943_r8, 0.9995572271391659_r8, &
4480  0.9995024327470969_r8, 0.9994521849495779_r8, 0.9994088079681142_r8, &
4481  0.9993701909396721_r8, 0.999339076694245_r8, 0.9993115987192662_r8, &
4482  0.9992590476590318_r8, 0.9992164999050599_r8, 0.9991876741465929_r8, &
4483  0.9991664376333452_r8, 0.9991510992998487_r8, 0.9991387921985403_r8, &
4484  0.9991296634639403_r8, 0.9991196967335101_r8, 0.9991133433187651_r8, &
4485  0.9991067237742587_r8, 0.9991005936195719_r8, 0.9990987108278916_r8, &
4486  0.9990952607501941_r8, 0.9990937134064178_r8, 0.9990947817097298_r8, &
4487  0.9990942164991571_r8, 0.9990942002054569_r8, 0.9990940889201783_r8, &
4488  1.002755598752626_r8, 1.002765359256095_r8, 1.002739019137864_r8, &
4489  1.002751625381717_r8, 1.002741630696149_r8, 1.002652436444057_r8, &
4490  1.002033849511346_r8, 1.00137483389516_r8, 1.00112886240239_r8, &
4491  1.000842481945384_r8, 1.000583534625073_r8, 1.00031706843551_r8, &
4492  1.000080508925793_r8, 0.9999788496823511_r8, 0.9999326075342032_r8, &
4493  0.9998937091285848_r8, 0.9998269982932511_r8, 0.9997545923480028_r8, &
4494  0.9996830855590718_r8, 0.9996193483364182_r8, 0.9995633868866887_r8, &
4495  0.9995096633767866_r8, 0.9994676531003369_r8, 0.9994281199007451_r8, &
4496  0.9993890067832181_r8, 0.9993531197005551_r8, 0.9993194490631346_r8, &
4497  0.9992625811767353_r8, 0.9992109392762178_r8, 0.9991870476913831_r8, &
4498  0.9991623263761397_r8, 0.9991470565786951_r8, 0.9991318101422623_r8, &
4499  0.9991204893567932_r8, 0.9991110768149811_r8, 0.999101387700289_r8, &
4500  0.9990940979721906_r8, 0.9990865735416635_r8, 0.9990810845546564_r8, &
4501  0.9990780268356619_r8, 0.9990758525345032_r8, 0.9990748837756649_r8, &
4502  0.9990744571061592_r8, 0.9990738576702139_r8, 0.9990709276616985_r8, &
4503  1.040382360969603_r8, 1.040491660475071_r8, 1.040965859578698_r8, &
4504  1.041437976452077_r8, 1.041608007209394_r8, 1.04154105138037_r8, &
4505  1.038593591712279_r8, 1.036360675014964_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4506  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4507  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4508  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4509  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4510  9e90_r8, 9e90_r8 &
4511  /) ) /
4512 
4513 type(gsw_result) :: ct_sa_sa
4514 
4515 data ct_sa_sa / gsw_result( &
4516  "CT_SA_SA", 1.4311e-14_r8, (/ &
4517  -6.36878576718e-05_r8, -6.36927715328e-05_r8, -6.38743953078e-05_r8, &
4518  -6.38539027523e-05_r8, -6.40960964028e-05_r8, -6.44319069003e-05_r8, &
4519  -6.75834092337e-05_r8, -7.32357228752e-05_r8, -8.15403612966e-05_r8, &
4520  -9.32379133659e-05_r8, -0.000104800713323_r8, -0.00011626239021_r8, &
4521  -0.000137720788036_r8, -0.000148345057799_r8, -0.000154853951374_r8, &
4522  -0.00016051925938_r8, -0.000168507469748_r8, -0.00017390031163_r8, &
4523  -0.000178429318593_r8, -0.000182321556088_r8, -0.000185940844154_r8, &
4524  -0.000189405622102_r8, -0.000192645437395_r8, -0.00019560988462_r8, &
4525  -0.000198124447073_r8, -0.000200516048336_r8, -0.000202463352948_r8, &
4526  -0.000206106334033_r8, -0.000208939327767_r8, -0.000210743307525_r8, &
4527  -0.00021220851569_r8, -0.000213233393586_r8, -0.000214031041446_r8, &
4528  -0.000214636975069_r8, -0.000215267650322_r8, -0.000215710362722_r8, &
4529  -0.000216150738821_r8, -0.000216518375916_r8, -0.000216658471648_r8, &
4530  -0.000216905515323_r8, -0.000217067216889_r8, -0.00021708602078_r8, &
4531  -0.000217172305655_r8, -0.000217185835556_r8, -0.000217191117845_r8, &
4532  -6.61873119126e-05_r8, -6.64227994969e-05_r8, -6.61727039624e-05_r8, &
4533  -6.63405602607e-05_r8, -6.62419298964e-05_r8, -6.744685898e-05_r8, &
4534  -7.56716306007e-05_r8, -8.76911766224e-05_r8, -0.000101719978281_r8, &
4535  -0.000120768733196_r8, -0.000132198340697_r8, -0.000140725536559_r8, &
4536  -0.000147354475615_r8, -0.000150847626687_r8, -0.00015364429141_r8, &
4537  -0.000156566124741_r8, -0.000163024440364_r8, -0.00016942073874_r8, &
4538  -0.000175450118991_r8, -0.000180034499448_r8, -0.000183836940872_r8, &
4539  -0.000187722705989_r8, -0.000190337479888_r8, -0.00019297784228_r8, &
4540  -0.000195648689326_r8, -0.000198271150852_r8, -0.000200814302374_r8, &
4541  -0.000204583429139_r8, -0.000208285976608_r8, -0.000209797116567_r8, &
4542  -0.000211412335947_r8, -0.000212499499343_r8, -0.000213517833497_r8, &
4543  -0.000214399276166_r8, -0.000215237922543_r8, -0.000216109790597_r8, &
4544  -0.00021689887005_r8, -0.000217599811815_r8, -0.00021799621504_r8, &
4545  -0.000218309276847_r8, -0.00021857008083_r8, -0.000218667621477_r8, &
4546  -0.000218686868061_r8, -0.000218697331949_r8, -0.000218736635434_r8, &
4547  -7.99325871881e-05_r8, -9.0193021802e-05_r8, -0.000112088469915_r8, &
4548  -0.000136021845315_r8, -0.000151270806493_r8, -0.00016030656921_r8, &
4549  -0.000168288284046_r8, -0.000170939273636_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4550  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4551  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4552  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4553  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4554  9e90_r8, 9e90_r8 &
4555  /) ) /
4556 
4557 type(gsw_result) :: ct_sa_pt
4558 
4559 data ct_sa_pt / gsw_result( &
4560  "CT_SA_pt", 1.4572e-14_r8, (/ &
4561  -0.001201729901071_r8, -0.0012017376744939_r8, -0.0012019771449474_r8, &
4562  -0.0012019423143274_r8, -0.0012021333798387_r8, -0.0012025141567314_r8, &
4563  -0.0012056259620472_r8, -0.0012118811172112_r8, -0.0012226346776453_r8, &
4564  -0.0012397156926335_r8, -0.001258405491098_r8, -0.0012781241340956_r8, &
4565  -0.0013172447795704_r8, -0.0013370675786459_r8, -0.0013492822727373_r8, &
4566  -0.0013600280254881_r8, -0.0013755190019382_r8, -0.0013860877863792_r8, &
4567  -0.0013949955946983_r8, -0.0014026970061738_r8, -0.0014098941825268_r8, &
4568  -0.0014168115712402_r8, -0.0014232967075448_r8, -0.001429251757548_r8, &
4569  -0.0014343009217972_r8, -0.0014391337054726_r8, -0.0014430618571412_r8, &
4570  -0.0014504114026197_r8, -0.0014561234138305_r8, -0.0014597540091783_r8, &
4571  -0.0014627138743603_r8, -0.0014647822489141_r8, -0.0014663904169429_r8, &
4572  -0.0014676131970193_r8, -0.001468883726608_r8, -0.0014697787257915_r8, &
4573  -0.0014706675821318_r8, -0.0014714067178099_r8, -0.0014716905752794_r8, &
4574  -0.0014721905044421_r8, -0.0014725211777675_r8, -0.0014725656765626_r8, &
4575  -0.0014727433915867_r8, -0.0014727716088065_r8, -0.0014727821169948_r8, &
4576  -0.0012043954362878_r8, -0.0012047442867381_r8, -0.0012043218848909_r8, &
4577  -0.0012045887886112_r8, -0.0012044235000308_r8, -0.0012057633482975_r8, &
4578  -0.0012153135155795_r8, -0.0012313475365481_r8, -0.0012535249345545_r8, &
4579  -0.0012862839146684_r8, -0.0013067008304734_r8, -0.0013220583400727_r8, &
4580  -0.001334073302834_r8, -0.0013405532952243_r8, -0.0013459094992943_r8, &
4581  -0.0013515698438273_r8, -0.0013642501965252_r8, -0.001376892343021_r8, &
4582  -0.0013888808344379_r8, -0.0013980028894339_r8, -0.0014055817147868_r8, &
4583  -0.0014133633855906_r8, -0.0014185843729043_r8, -0.0014238770903455_r8, &
4584  -0.0014292420168321_r8, -0.0014345275445409_r8, -0.0014396637989372_r8, &
4585  -0.0014472518690151_r8, -0.0014547331319905_r8, -0.0014577748810447_r8, &
4586  -0.0014610308043768_r8, -0.0014632292361118_r8, -0.0014652842403629_r8, &
4587  -0.0014670721873769_r8, -0.0014687800362958_r8, -0.0014705561839249_r8, &
4588  -0.0014721709789753_r8, -0.0014736004439812_r8, -0.0014744028978345_r8, &
4589  -0.0014750428557116_r8, -0.0014755778156806_r8, -0.0014757771375835_r8, &
4590  -0.0014758153221466_r8, -0.0014758342947215_r8, -0.0014759022561398_r8, &
4591  -0.0015411553519167_r8, -0.0015569610393183_r8, -0.0015962252482844_r8, &
4592  -0.0016391335960339_r8, -0.0016646892700728_r8, -0.001677294410145_r8, &
4593  -0.0016448838709999_r8, -0.0016197389041748_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4594  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4595  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4596  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4597  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4598  9e90_r8, 9e90_r8 &
4599  /) ) /
4600 
4601 type(gsw_result) :: ct_pt_pt
4602 
4603 data ct_pt_pt / gsw_result( &
4604  "CT_pt_pt", 5.5511e-14_r8, (/ &
4605  0.000124111537847_r8, 0.000124112731492_r8, 0.000124210668895_r8, &
4606  0.000124208357588_r8, 0.000124484183051_r8, 0.000124738725149_r8, &
4607  0.000127795116511_r8, 0.000133057441876_r8, 0.000139702953539_r8, &
4608  0.000147106213877_r8, 0.000151323913478_r8, 0.000152307102119_r8, &
4609  0.00014513084986_r8, 0.00013784614431_r8, 0.000132234219674_r8, &
4610  0.000126463741545_r8, 0.000116546364543_r8, 0.000108908745738_r8, &
4611  0.000101986642431_r8, 9.56157426957e-05_r8, 8.93464764562e-05_r8, &
4612  8.30443784128e-05_r8, 7.69026933134e-05_r8, 7.10574469542e-05_r8, &
4613  6.59713547568e-05_r8, 6.09521570494e-05_r8, 5.67999635104e-05_r8, &
4614  4.8836112182e-05_r8, 4.24767037599e-05_r8, 3.83633888323e-05_r8, &
4615  3.49523681775e-05_r8, 3.2547008233e-05_r8, 3.0665024997e-05_r8, &
4616  2.92248559186e-05_r8, 2.77235554014e-05_r8, 2.6658157154e-05_r8, &
4617  2.55979853314e-05_r8, 2.47167588285e-05_r8, 2.43753052243e-05_r8, &
4618  2.37737144859e-05_r8, 2.33715060027e-05_r8, 2.33109750558e-05_r8, &
4619  2.30932511891e-05_r8, 2.30583022953e-05_r8, 2.30458109041e-05_r8, &
4620  0.000126236131737_r8, 0.000126329904371_r8, 0.0001262907386_r8, &
4621  0.000126336366579_r8, 0.00012631938926_r8, 0.000127334088396_r8, &
4622  0.000134546186326_r8, 0.000143958498466_r8, 0.00015010160257_r8, &
4623  0.000151486646027_r8, 0.000148637356001_r8, 0.000144936368973_r8, &
4624  0.000141057997149_r8, 0.000138386031967_r8, 0.000135722930306_r8, &
4625  0.000132643050071_r8, 0.000124884128705_r8, 0.000116216339585_r8, &
4626  0.000107154561235_r8, 9.97733639319e-05_r8, 9.33111931056e-05_r8, &
4627  8.63334539469e-05_r8, 8.15074238381e-05_r8, 7.64530958874e-05_r8, &
4628  7.11781638851e-05_r8, 6.58247249652e-05_r8, 6.04830294904e-05_r8, &
4629  5.2393647576e-05_r8, 4.41223715564e-05_r8, 4.06984186407e-05_r8, &
4630  3.69804786071e-05_r8, 3.44346518244e-05_r8, 3.20395451336e-05_r8, &
4631  2.99298806794e-05_r8, 2.78939425946e-05_r8, 2.57619929056e-05_r8, &
4632  2.38037120626e-05_r8, 2.20657347894e-05_r8, 2.10923360888e-05_r8, &
4633  2.03074188632e-05_r8, 1.96479899461e-05_r8, 1.94027501677e-05_r8, &
4634  1.935693974e-05_r8, 1.93360895351e-05_r8, 1.92652522879e-05_r8, &
4635  -0.000282893001713_r8, -0.000305576148041_r8, -0.000364733365832_r8, &
4636  -0.000432552016716_r8, -0.000474055253352_r8, -0.000494285056329_r8, &
4637  -0.00042901441677_r8, -0.000379558271901_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4638  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4639  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4640  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4641  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4642  9e90_r8, 9e90_r8 &
4643  /) ) /
4644 
4645 type(gsw_result) :: eta_sa
4646 
4647 data eta_sa / gsw_result( &
4648  "eta_SA", 4.6535e-12_r8, (/ &
4649  -0.26024481744639_r8, -0.26023878112853_r8, -0.260110523892_r8, &
4650  -0.26014033331836_r8, -0.26022323761198_r8, -0.26011269553237_r8, &
4651  -0.26012725656202_r8, -0.2594833716252_r8, -0.25702700693321_r8, &
4652  -0.25278000806071_r8, -0.24823691089742_r8, -0.2441190798949_r8, &
4653  -0.23801821437814_r8, -0.23622335849201_r8, -0.23550296587478_r8, &
4654  -0.23497561209541_r8, -0.23415233946987_r8, -0.23367620051843_r8, &
4655  -0.23336060775287_r8, -0.23311693075407_r8, -0.23291260178957_r8, &
4656  -0.23274016966623_r8, -0.23260573041417_r8, -0.23249588063324_r8, &
4657  -0.23243157017413_r8, -0.23235815969957_r8, -0.23232099012635_r8, &
4658  -0.23228486098939_r8, -0.23228961275218_r8, -0.23231221343928_r8, &
4659  -0.23232581079839_r8, -0.23234099773436_r8, -0.23235649889162_r8, &
4660  -0.23236824364634_r8, -0.2323837602149_r8, -0.23239204467017_r8, &
4661  -0.23240226063037_r8, -0.23241415833698_r8, -0.23241652815335_r8, &
4662  -0.23242147176991_r8, -0.23242126079571_r8, -0.23241504432166_r8, &
4663  -0.23241367109226_r8, -0.23241309848887_r8, -0.23241339583898_r8, &
4664  -0.25980008188017_r8, -0.25957611949421_r8, -0.25991548232416_r8, &
4665  -0.2597198877374_r8, -0.25985122777468_r8, -0.25959179500361_r8, &
4666  -0.25805838929946_r8, -0.25489366230942_r8, -0.24902761237287_r8, &
4667  -0.24241659639994_r8, -0.23975878958103_r8, -0.23853809780986_r8, &
4668  -0.23794066733683_r8, -0.23756331294946_r8, -0.2371018347467_r8, &
4669  -0.23659964197188_r8, -0.23549658827957_r8, -0.23458419360952_r8, &
4670  -0.23386893668523_r8, -0.23345395233621_r8, -0.23317612298993_r8, &
4671  -0.23291992887571_r8, -0.23280330927676_r8, -0.23269090593333_r8, &
4672  -0.23259314190602_r8, -0.23250398927368_r8, -0.23243019640927_r8, &
4673  -0.23238885190645_r8, -0.23236396875056_r8, -0.23237832708492_r8, &
4674  -0.23239608474318_r8, -0.23240494837837_r8, -0.23242069655984_r8, &
4675  -0.23242709272669_r8, -0.23242824955763_r8, -0.23243087565495_r8, &
4676  -0.23242757106711_r8, -0.23243117187402_r8, -0.23243987252319_r8, &
4677  -0.23244068944487_r8, -0.23243971125181_r8, -0.23244016025602_r8, &
4678  -0.23244141802927_r8, -0.23244392198665_r8, -0.23245668835199_r8, &
4679  0.16676070091548_r8, 0.16370277457661_r8, 0.16004516088679_r8, &
4680  0.15328994467822_r8, 0.14611056856299_r8, 0.13921480533356_r8, &
4681  0.093856755817839_r8, 0.063757346664274_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4682  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4683  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4684  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4685  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4686  9e90_r8, 9e90_r8 &
4687  /) ) /
4688 
4689 type(gsw_result) :: eta_ct
4690 
4691 data eta_ct / gsw_result( &
4692  "eta_CT", 3.1376e-11_r8, (/ &
4693  13.257086921543_r8, 13.257146372642_r8, 13.259319253783_r8, &
4694  13.25907040666_r8, 13.261904312328_r8, 13.2658848561_r8, 13.30282987942_r8, &
4695  13.368309650579_r8, 13.461893968637_r8, 13.587328864815_r8, &
4696  13.703744037544_r8, 13.812201669729_r8, 13.998981936824_r8, &
4697  14.084876071672_r8, 14.135626148824_r8, 14.178658372876_r8, &
4698  14.237502775241_r8, 14.27615558156_r8, 14.308005849688_r8, &
4699  14.33493128995_r8, 14.359610745968_r8, 14.382925856572_r8, &
4700  14.404464404476_r8, 14.42395025567_r8, 14.440328750599_r8, &
4701  14.455758318176_r8, 14.468236637525_r8, 14.491368324253_r8, &
4702  14.509172042754_r8, 14.520429815303_r8, 14.52951873558_r8, &
4703  14.535852640432_r8, 14.540769226887_r8, 14.54449515805_r8, &
4704  14.548367201987_r8, 14.551078614627_r8, 14.553772963584_r8, &
4705  14.556021384735_r8, 14.556876059338_r8, 14.558382696143_r8, &
4706  14.559365949714_r8, 14.559476246963_r8, 14.559999847042_r8, &
4707  14.560081705014_r8, 14.560113999862_r8, 13.286562411363_r8, &
4708  13.289362552599_r8, 13.286368719088_r8, 13.288372364167_r8, &
4709  13.287192091643_r8, 13.301325008382_r8, 13.396132710126_r8, &
4710  13.52881744535_r8, 13.673321724348_r8, 13.852994399922_r8, &
4711  13.952947779961_r8, 14.024247273225_r8, 14.077883250103_r8, &
4712  14.105455328567_r8, 14.127123773884_r8, 14.14945503629_r8, &
4713  14.197783903057_r8, 14.244413643951_r8, 14.287302222754_r8, &
4714  14.31927913037_r8, 14.345396350673_r8, 14.371699812073_r8, &
4715  14.389211654632_r8, 14.406721231639_r8, 14.424265958973_r8, &
4716  14.441327710408_r8, 14.457724535298_r8, 14.481791711523_r8, &
4717  14.505130172089_r8, 14.514583951844_r8, 14.524635571867_r8, &
4718  14.531367520411_r8, 14.537655254735_r8, 14.543075407765_r8, &
4719  14.548214090668_r8, 14.553541719161_r8, 14.558346218919_r8, &
4720  14.562607556264_r8, 14.565017333682_r8, 14.566914282797_r8, &
4721  14.568491985649_r8, 14.569082219349_r8, 14.569199418671_r8, &
4722  14.569264314004_r8, 14.569510227885_r8, 14.095778037542_r8, &
4723  14.141655835256_r8, 14.246332231953_r8, 14.353901586991_r8, &
4724  14.416564644988_r8, 14.448993923533_r8, 14.412711637959_r8, &
4725  14.382050093657_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4726  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4727  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4728  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4729  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
4730  /) ) /
4731 
4732 type(gsw_result) :: eta_sa_sa
4733 
4734 data eta_sa_sa / gsw_result( &
4735  "eta_SA_SA", 6.9959e-13_r8, (/ &
4736  -0.0076606993719205_r8, -0.0076607801120426_r8, -0.0076614314661349_r8, &
4737  -0.007660979908159_r8, -0.0076556016423327_r8, -0.0076537101763022_r8, &
4738  -0.0076108544746285_r8, -0.0075539552227363_r8, -0.0075152041413028_r8, &
4739  -0.0074950283946933_r8, -0.0074996357374712_r8, -0.0075086632594884_r8, &
4740  -0.0075167555643437_r8, -0.0075023878554167_r8, -0.0074874583378109_r8, &
4741  -0.0074739177565646_r8, -0.0074597683265419_r8, -0.007449984378646_r8, &
4742  -0.0074406687567135_r8, -0.0074326881759293_r8, -0.0074252779739422_r8, &
4743  -0.0074180959058699_r8, -0.0074111265836332_r8, -0.0074047657415559_r8, &
4744  -0.007398891078534_r8, -0.0073938271919735_r8, -0.0073892782354937_r8, &
4745  -0.0073802691667533_r8, -0.0073727357582424_r8, -0.0073675780103688_r8, &
4746  -0.0073635866696257_r8, -0.0073606910523316_r8, -0.0073583667433962_r8, &
4747  -0.0073566151086905_r8, -0.0073547204362309_r8, -0.0073534639634792_r8, &
4748  -0.0073521699381013_r8, -0.0073510086749808_r8, -0.0073506221632039_r8, &
4749  -0.0073499226335451_r8, -0.0073495532370764_r8, -0.0073496674817568_r8, &
4750  -0.0073495027350726_r8, -0.0073494859899104_r8, -0.0073494662332364_r8, &
4751  -0.0076375492997276_r8, -0.0076398950221677_r8, -0.0076349067221108_r8, &
4752  -0.0076374608472254_r8, -0.0076355555226623_r8, -0.0076258240061664_r8, &
4753  -0.0075589072291345_r8, -0.0075000090056779_r8, -0.007507376905671_r8, &
4754  -0.0075177858722872_r8, -0.0075068320689744_r8, -0.0074858654715483_r8, &
4755  -0.007464102846281_r8, -0.0074553361768433_r8, -0.0074528745006385_r8, &
4756  -0.0074512976663329_r8, -0.00744932957809_r8, -0.0074449807095677_r8, &
4757  -0.0074390397274519_r8, -0.007432364927014_r8, -0.007425835381503_r8, &
4758  -0.0074190808621082_r8, -0.0074134587540239_r8, -0.0074079161088672_r8, &
4759  -0.0074021735363572_r8, -0.0073966178013275_r8, -0.0073911447873241_r8, &
4760  -0.0073817204436969_r8, -0.0073725321394433_r8, -0.007368289148758_r8, &
4761  -0.0073637743613838_r8, -0.0073608608702443_r8, -0.0073579765762617_r8, &
4762  -0.0073556898364915_r8, -0.0073536615309448_r8, -0.0073515395940419_r8, &
4763  -0.0073497832548162_r8, -0.0073480729633378_r8, -0.0073469431591956_r8, &
4764  -0.0073462078491148_r8, -0.0073456395984859_r8, -0.0073454069157091_r8, &
4765  -0.0073453313697612_r8, -0.0073452441183791_r8, -0.0073448311472955_r8, &
4766  -0.035806741490668_r8, -0.035253522320648_r8, -0.034531916551085_r8, &
4767  -0.033433036673362_r8, -0.032389312585892_r8, -0.031448139482989_r8, &
4768  -0.026070906581364_r8, -0.02305413308642_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4769  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4770  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4771  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4772  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4773  9e90_r8, 9e90_r8 &
4774  /) ) /
4775 
4776 type(gsw_result) :: eta_sa_ct
4777 
4778 data eta_sa_ct / gsw_result( &
4779  "eta_SA_CT", 4.9819e-14_r8, (/ &
4780  -0.00179905358102_r8, -0.001798996434_r8, -0.00179696732085_r8, &
4781  -0.00179720965407_r8, -0.00179472518103_r8, -0.00179108340896_r8, &
4782  -0.00175777806136_r8, -0.00169742979163_r8, -0.00160798123016_r8, &
4783  -0.00148306927427_r8, -0.00136180699838_r8, -0.001244362554_r8, &
4784  -0.00103179936215_r8, -0.00093001571538_r8, -0.000868691815239_r8, &
4785  -0.000815855582674_r8, -0.000742037821375_r8, -0.000692698160606_r8, &
4786  -0.000651575111568_r8, -0.000616435695254_r8, -0.000583921919905_r8, &
4787  -0.00055293933813_r8, -0.000524095501359_r8, -0.00049780239423_r8, &
4788  -0.000475584097287_r8, -0.000454499600616_r8, -0.000437385462793_r8, &
4789  -0.000405482300756_r8, -0.000380775309309_r8, -0.000365091935619_r8, &
4790  -0.000352370852046_r8, -0.000343487372927_r8, -0.000336582099124_r8, &
4791  -0.000331340000847_r8, -0.000325889378734_r8, -0.000322063337509_r8, &
4792  -0.000318260464877_r8, -0.000315089328409_r8, -0.000313879654235_r8, &
4793  -0.000311747452321_r8, -0.000310349637472_r8, -0.000310182691683_r8, &
4794  -0.000309436005569_r8, -0.000309318671988_r8, -0.000309273234721_r8, &
4795  -0.0017722704126_r8, -0.00176959275379_r8, -0.00177252219599_r8, &
4796  -0.00177058303592_r8, -0.00177173624546_r8, -0.00175878017498_r8, &
4797  -0.00167060367803_r8, -0.00154208285525_r8, -0.00139362578222_r8, &
4798  -0.00119882623852_r8, -0.00108582954174_r8, -0.00100335993416_r8, &
4799  -0.000940230685305_r8, -0.000907202582358_r8, -0.000880806710053_r8, &
4800  -0.000853337431264_r8, -0.000793035561999_r8, -0.000733939907218_r8, &
4801  -0.000678769547927_r8, -0.0006371751953_r8, -0.000602890573404_r8, &
4802  -0.000568030503935_r8, -0.000544694401269_r8, -0.000521203343149_r8, &
4803  -0.000497520820014_r8, -0.000474338286702_r8, -0.000451926413645_r8, &
4804  -0.000418863445612_r8, -0.00038651810607_r8, -0.000373367585278_r8, &
4805  -0.000359334598136_r8, -0.000349899615372_r8, -0.000341076072493_r8, &
4806  -0.000333440516941_r8, -0.00032617808405_r8, -0.000318634943492_r8, &
4807  -0.000311809234699_r8, -0.000305754691879_r8, -0.000302337149679_r8, &
4808  -0.000299634664222_r8, -0.00029738267952_r8, -0.00029654115795_r8, &
4809  -0.00029637595964_r8, -0.000296287455808_r8, -0.000295957453847_r8, &
4810  -0.000692610412886_r8, -0.000628957038092_r8, -0.000479020251845_r8, &
4811  -0.000319125936217_r8, -0.000223701213603_r8, -0.000174301321355_r8, &
4812  -0.000244850872211_r8, -0.000302895611935_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4813  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4814  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4815  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4816  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4817  9e90_r8, 9e90_r8 &
4818  /) ) /
4819 
4820 type(gsw_result) :: eta_ct_ct
4821 
4822 data eta_ct_ct / gsw_result( &
4823  "eta_CT_CT", 2.3814e-13_r8, (/ &
4824  -0.043897224337832_r8, -0.043897600429681_r8, -0.043911987346934_r8, &
4825  -0.043910444487873_r8, -0.043930947039087_r8, -0.043958176410965_r8, &
4826  -0.044218556247544_r8, -0.044677105730752_r8, -0.045324848684811_r8, &
4827  -0.046191487991719_r8, -0.046996145747322_r8, -0.047750401825828_r8, &
4828  -0.049064439930761_r8, -0.049679851236655_r8, -0.050047138303881_r8, &
4829  -0.050359677271325_r8, -0.050786518002689_r8, -0.051067670442139_r8, &
4830  -0.051300144762392_r8, -0.051496930652203_r8, -0.051677500984251_r8, &
4831  -0.051848292748847_r8, -0.052006309999884_r8, -0.052149373094581_r8, &
4832  -0.052269891981819_r8, -0.05238328386362_r8, -0.052475201051268_r8, &
4833  -0.052645897448241_r8, -0.052777582907089_r8, -0.052861040659311_r8, &
4834  -0.052928361995331_r8, -0.052975331783638_r8, -0.05301182742471_r8, &
4835  -0.053039483039936_r8, -0.053068256580648_r8, -0.053088376919561_r8, &
4836  -0.053108390812665_r8, -0.053125127531211_r8, -0.053131466453612_r8, &
4837  -0.053142648748958_r8, -0.053149909672952_r8, -0.053150658137993_r8, &
4838  -0.053154511174417_r8, -0.053155109724367_r8, -0.05315535144575_r8, &
4839  -0.044101564978796_r8, -0.04411972628797_r8, -0.04410100832627_r8, &
4840  -0.044113756006395_r8, -0.044106359611028_r8, -0.044204168913286_r8, &
4841  -0.044864240771455_r8, -0.045787489610355_r8, -0.046782337280896_r8, &
4842  -0.048033631151905_r8, -0.048741895974697_r8, -0.049254427399392_r8, &
4843  -0.049643636615901_r8, -0.049843351634263_r8, -0.049998917566073_r8, &
4844  -0.050159063982505_r8, -0.050505665301193_r8, -0.050841643183161_r8, &
4845  -0.051151921431587_r8, -0.051384423588879_r8, -0.051574923996064_r8, &
4846  -0.051767013423433_r8, -0.05189542717528_r8, -0.052023860152302_r8, &
4847  -0.052152689247726_r8, -0.052278017146937_r8, -0.052398563921635_r8, &
4848  -0.052576152499007_r8, -0.052748475676759_r8, -0.052818519081_r8, &
4849  -0.052893008679041_r8, -0.052942859362349_r8, -0.052989494700487_r8, &
4850  -0.053029615647603_r8, -0.053067597415881_r8, -0.05310698678728_r8, &
4851  -0.053142444291568_r8, -0.053173959696864_r8, -0.053191851529779_r8, &
4852  -0.053205870692955_r8, -0.053217512300947_r8, -0.053221876146226_r8, &
4853  -0.053222755153866_r8, -0.053223261226806_r8, -0.053225214042378_r8, &
4854  -0.047841959285933_r8, -0.048148831986122_r8, -0.048842004880898_r8, &
4855  -0.049559891963857_r8, -0.049985390622801_r8, -0.050213750188489_r8, &
4856  -0.050103675883415_r8, -0.049998215226643_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4857  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4858  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4859  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4860  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4861  9e90_r8, 9e90_r8 &
4862  /) ) /
4863 
4864 type(gsw_result) :: pt_sa
4865 
4866 data pt_sa / gsw_result( &
4867  "pt_SA", 9.6705e-13_r8, (/ &
4868  0.040862417595445_r8, 0.04086075311991_r8, 0.040801289733733_r8, &
4869  0.04080832380764_r8, 0.040734495642218_r8, 0.040627446902701_r8, &
4870  0.039650816294649_r8, 0.037915343450963_r8, 0.035419694508532_r8, &
4871  0.032067819505942_r8, 0.028947645977032_r8, 0.026037379875213_r8, &
4872  0.021017377074768_r8, 0.01871373151338_r8, 0.017354487605333_r8, &
4873  0.016200155373372_r8, 0.014612837858146_r8, 0.013567432112795_r8, &
4874  0.012705227217045_r8, 0.01197492259894_r8, 0.011304350405601_r8, &
4875  0.01066987108482_r8, 0.010083060423463_r8, 0.0095513490492892_r8, &
4876  0.0091043580765429_r8, 0.0086821626121074_r8, 0.0083408306810734_r8, &
4877  0.0077077794522217_r8, 0.0072203738735318_r8, 0.0069122504171269_r8, &
4878  0.006663059404687_r8, 0.0064894205616557_r8, 0.0063546614495179_r8, &
4879  0.0062524860792911_r8, 0.0061463581809532_r8, 0.0060719345597098_r8, &
4880  0.0059980166728824_r8, 0.0059364182550163_r8, 0.0059129330835233_r8, &
4881  0.0058715507268716_r8, 0.0058444343600627_r8, 0.0058412019720131_r8, &
4882  0.0058267216621758_r8, 0.0058244467634505_r8, 0.0058235653493917_r8, &
4883  0.04007567912284_r8, 0.039998269202783_r8, 0.040082541247848_r8, &
4884  0.040026617174121_r8, 0.04005980306432_r8, 0.039682398888818_r8, &
4885  0.037161284563963_r8, 0.03363289124109_r8, 0.029755981110015_r8, &
4886  0.024937050781145_r8, 0.022264137872142_r8, 0.020364502323885_r8, &
4887  0.018938076630256_r8, 0.018201459986945_r8, 0.017617702875783_r8, &
4888  0.017014435181297_r8, 0.015704629916538_r8, 0.014439345779102_r8, &
4889  0.01327388510518_r8, 0.012404884300297_r8, 0.011694712693316_r8, &
4890  0.010978210430733_r8, 0.010501590443586_r8, 0.010024276899039_r8, &
4891  0.009545528617707_r8, 0.009079252644157_r8, 0.0086306598539214_r8, &
4892  0.0079726745191159_r8, 0.0073333556696372_r8, 0.0070746277778447_r8, &
4893  0.0067993079725954_r8, 0.0066146467897364_r8, 0.0064422665383057_r8, &
4894  0.0062933520355546_r8, 0.0061519327269183_r8, 0.0060052650243415_r8, &
4895  0.0058727437850994_r8, 0.0057553402715905_r8, 0.0056891275408213_r8, &
4896  0.0056368060586242_r8, 0.0055932294899624_r8, 0.0055769500909265_r8, &
4897  0.0055737535865218_r8, 0.0055720395124174_r8, 0.0055656455452848_r8, &
4898  0.013915123944579_r8, 0.012554419066044_r8, 0.0094215835943606_r8, &
4899  0.0061829871023839_r8, 0.004296560584526_r8, 0.0033327415031916_r8, &
4900  0.0047052903484778_r8, 0.0058455792780188_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4901  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4902  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4903  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4904  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4905  9e90_r8, 9e90_r8 &
4906  /) ) /
4907 
4908 type(gsw_result) :: pt_ct
4909 
4910 data pt_ct / gsw_result( &
4911  "pt_CT", 2.7334e-13_r8, (/ &
4912  0.9970501885549081_r8, 0.9970497883230083_r8, 0.9970496946343255_r8, &
4913  0.9970520874621792_r8, 0.9970913595230831_r8, 0.9971107259136801_r8, &
4914  0.9974534835365053_r8, 0.9979486730620505_r8, 0.9983899463202677_r8, &
4915  0.9987802493946102_r8, 0.998987221386762_r8, 0.9991423701489811_r8, &
4916  0.9994247649447172_r8, 0.9996555781720537_r8, 0.9998280473479112_r8, &
4917  0.9999742769116815_r8, 1.000131167947437_r8, 1.00022952461106_r8, &
4918  1.000314444033079_r8, 1.000382948928249_r8, 1.000442968995483_r8, &
4919  1.00049781494932_r8, 1.000548115316242_r8, 1.000591541746653_r8, &
4920  1.000630205969758_r8, 1.000661360414266_r8, 1.000688875503513_r8, &
4921  1.000741501758432_r8, 1.000784114448685_r8, 1.000812986263167_r8, &
4922  1.000834257772538_r8, 1.000849621944815_r8, 1.000861950119627_r8, &
4923  1.000871094681588_r8, 1.000881078883109_r8, 1.000887443538978_r8, &
4924  1.000894074881577_r8, 1.000900216040479_r8, 1.000902102227078_r8, &
4925  1.000905558544164_r8, 1.00090710869403_r8, 1.000906038452849_r8, &
4926  1.000906604688411_r8, 1.000906621011669_r8, 1.000906732498839_r8, &
4927  0.9972519737052037_r8, 0.9972422668667509_r8, 0.9972684625953626_r8, &
4928  0.9972559252839215_r8, 0.9972658652914949_r8, 0.9973545803633972_r8, &
4929  0.9979702786364577_r8, 0.9986270536779795_r8, 0.9988724104910121_r8, &
4930  0.9991582272329739_r8, 0.9994168056890003_r8, 0.9996830320650174_r8, &
4931  0.999919497555372_r8, 1.000021150764994_r8, 1.000067397007847_r8, &
4932  1.000106302170366_r8, 1.000173031641518_r8, 1.000245467891696_r8, &
4933  1.00031701490753_r8, 1.000380796614447_r8, 1.00043680382759_r8, &
4934  1.000490577171167_r8, 1.000532630443828_r8, 1.000572207333241_r8, &
4935  1.000611366757724_r8, 1.000647299024432_r8, 1.000681014401855_r8, &
4936  1.00073796301108_r8, 1.000789683832279_r8, 1.000813613737783_r8, &
4937  1.000838375909246_r8, 1.000853671554842_r8, 1.000868944266337_r8, &
4938  1.000880284863113_r8, 1.000889714072486_r8, 1.000899420530062_r8, &
4939  1.000906723430404_r8, 1.000914261569043_r8, 1.00091976062759_r8, &
4940  1.000922823983286_r8, 1.000925002304032_r8, 1.000925972856848_r8, &
4941  1.000926400317071_r8, 1.000927000864526_r8, 1.000929936316409_r8, &
4942  0.9611850772518216_r8, 0.961084108587105_r8, 0.9606462986257032_r8, &
4943  0.9602108071829238_r8, 0.9600540636003104_r8, 0.9601157810099611_r8, &
4944  0.9628405258608884_r8, 0.9649150378902223_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4945  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4946  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4947  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4948  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4949  9e90_r8, 9e90_r8 &
4950  /) ) /
4951 
4952 type(gsw_result) :: pt_sa_sa
4953 
4954 data pt_sa_sa / gsw_result( &
4955  "pt_SA_SA", 1.7347e-14_r8, (/ &
4956  0.00016121484144908_r8, 0.00016121633563233_r8, 0.00016127483338065_r8, &
4957  0.00016126874639556_r8, 0.00016135543935046_r8, 0.00016146829623402_r8, &
4958  0.00016257553986414_r8, 0.00016460386981953_r8, 0.00016770533940763_r8, &
4959  0.00017238607034591_r8, 0.00017734986364072_r8, 0.00018256043746384_r8, &
4960  0.00019291570367782_r8, 0.00019827151798551_r8, 0.00020161165627647_r8, &
4961  0.00020454613820302_r8, 0.00020871042750791_r8, 0.00021154011032324_r8, &
4962  0.000213927574429_r8, 0.00021598490029509_r8, 0.00021790178317929_r8, &
4963  0.00021973989656822_r8, 0.00022146131183203_r8, 0.00022303782494914_r8, &
4964  0.00022437707160542_r8, 0.0002256501767042_r8, 0.0002266881228126_r8, &
4965  0.00022863174011573_r8, 0.00023014494259919_r8, 0.00023110958117524_r8, &
4966  0.00023189255954185_r8, 0.00023244051777836_r8, 0.00023286717930522_r8, &
4967  0.00023319124942492_r8, 0.00023352874996112_r8, 0.00023376544989941_r8, &
4968  0.00023400102264172_r8, 0.00023419791520473_r8, 0.00023427278256835_r8, &
4969  0.00023440485328469_r8, 0.00023449104123686_r8, 0.00023450060656716_r8, &
4970  0.00023454650146182_r8, 0.00023455367149028_r8, 0.00023455650926283_r8, &
4971  0.00016207189372199_r8, 0.00016214766482666_r8, 0.00016207045279822_r8, &
4972  0.00016212327867037_r8, 0.00016209275168318_r8, 0.00016251046219519_r8, &
4973  0.00016547449971757_r8, 0.0001701220005462_r8, 0.00017598813729098_r8, &
4974  0.00018467120226463_r8, 0.00019019880926524_r8, 0.00019444989552604_r8, &
4975  0.00019781752348379_r8, 0.00019960605602461_r8, 0.00020103938074568_r8, &
4976  0.00020254164873625_r8, 0.00020587934555137_r8, 0.00020921069911157_r8, &
4977  0.00021237023090836_r8, 0.00021478503238_r8, 0.00021679458276287_r8, &
4978  0.00021885201319289_r8, 0.00022024051926343_r8, 0.0002216435895588_r8, &
4979  0.00022306423541757_r8, 0.00022445979913251_r8, 0.00022581397189428_r8, &
4980  0.00022782503726061_r8, 0.0002298010815259_r8, 0.00023060898285073_r8, &
4981  0.00023147252135446_r8, 0.00023205341009174_r8, 0.00023259794602849_r8, &
4982  0.00023306868044478_r8, 0.00023351611652992_r8, 0.00023398127906949_r8, &
4983  0.00023440175988372_r8, 0.00023477567502953_r8, 0.00023498759820515_r8, &
4984  0.00023515449860317_r8, 0.00023529340251541_r8, 0.00023534541059468_r8, &
4985  0.00023535576028844_r8, 0.00023536152373805_r8, 0.00023538342438298_r8, &
4986  0.00011810859512278_r8, 0.00012430149320688_r8, 0.00013660273635164_r8, &
4987  0.00015008850128652_r8, 0.00015897000895168_r8, 0.00016465221065238_r8, &
4988  0.00017694803438694_r8, 0.00018322662388595_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4989  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4990  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4991  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4992  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
4993  9e90_r8, 9e90_r8 &
4994  /) ) /
4995 
4996 type(gsw_result) :: pt_sa_ct
4997 
4998 data pt_sa_ct / gsw_result( &
4999  "pt_SA_CT", 1.1991e-14_r8, (/ &
5000  0.0011896089830878_r8, 0.0011896159125316_r8, 0.0011898571127334_r8, &
5001  0.0011898274234723_r8, 0.0011901090576876_r8, 0.0011905368358324_r8, &
5002  0.0011944520815229_r8, 0.001201890045969_r8, 0.0012137685175098_r8, &
5003  0.0012319873749384_r8, 0.0012514862071022_r8, 0.0012719738808983_r8, &
5004  0.0013126830030123_r8, 0.0013335688673545_r8, 0.0013465242189063_r8, &
5005  0.001357909430752_r8, 0.0013741763529681_r8, 0.0013852458506931_r8, &
5006  0.0013945764492723_r8, 0.0014026256652193_r8, 0.0014101326379646_r8, &
5007  0.001417335585826_r8, 0.0014240811304752_r8, 0.0014302636827272_r8, &
5008  0.0014355079158201_r8, 0.0014405080087304_r8, 0.0014445763083915_r8, &
5009  0.0014521861871103_r8, 0.0014581006632105_r8, 0.001461862883286_r8, &
5010  0.0014649221727988_r8, 0.0014670607562729_r8, 0.001468724213231_r8, &
5011  0.0014699881222_r8, 0.0014713025703795_r8, 0.0014722264184838_r8, &
5012  0.0014731447176982_r8, 0.0014739100826378_r8, 0.0014742026117748_r8, &
5013  0.0014747181774318_r8, 0.0014750570196472_r8, 0.0014750988745398_r8, &
5014  0.0014752801900167_r8, 0.0014753087631002_r8, 0.0014753197122481_r8, &
5015  0.0011927538786522_r8, 0.0011930835762701_r8, 0.0011927171332518_r8, &
5016  0.0011929577931736_r8, 0.0011928136952997_r8, 0.0011943660634441_r8, &
5017  0.0012054053941881_r8, 0.0012231402550229_r8, 0.0012462432519318_r8, &
5018  0.0012803480356205_r8, 0.0013018717300853_r8, 0.0013182706863185_r8, &
5019  0.0013311875818229_r8, 0.0013380910685836_r8, 0.0013436994770001_r8, &
5020  0.0013495998818631_r8, 0.0013627604158961_r8, 0.0013758894791354_r8, &
5021  0.0013883383057081_r8, 0.0013978291808712_r8, 0.0014057177076926_r8, &
5022  0.0014138017351773_r8, 0.0014192390668715_r8, 0.0014247397967_r8, &
5023  0.001430309867494_r8, 0.0014357868673793_r8, 0.0014411026088988_r8, &
5024  0.0014489703578978_r8, 0.0014567075195127_r8, 0.0014598595806129_r8, &
5025  0.0014632297519598_r8, 0.0014655003727017_r8, 0.0014676250792432_r8, &
5026  0.001469467513997_r8, 0.0014712228782739_r8, 0.0014730476822581_r8, &
5027  0.0014747018442899_r8, 0.0014761689579328_r8, 0.0014769961205775_r8, &
5028  0.0014776518391692_r8, 0.001478198802666_r8, 0.0014784030512325_r8, &
5029  0.0014784428872693_r8, 0.0014784638187771_r8, 0.0014785410973985_r8, &
5030  0.0014274744310446_r8, 0.0014416814687737_r8, 0.0014762338167654_r8, &
5031  0.0015137548968642_r8, 0.0015362277615597_r8, 0.00154768594699_r8, &
5032  0.0015267805273288_r8, 0.0015101415485478_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5033  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5034  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5035  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5036  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5037  9e90_r8, 9e90_r8 &
5038  /) ) /
5039 
5040 type(gsw_result) :: pt_ct_ct
5041 
5042 data pt_ct_ct / gsw_result( &
5043  "pt_CT_CT", 4.4409e-14_r8, (/ &
5044  -0.000123016457615_r8, -0.000123017492609_r8, -0.000123114531048_r8, &
5045  -0.000123113126504_r8, -0.000123401100305_r8, -0.000123660633_r8, &
5046  -0.000126821303487_r8, -0.000132240287515_r8, -0.000139029251694_r8, &
5047  -0.000146568571602_r8, -0.000150864606152_r8, -0.00015191556878_r8, &
5048  -0.000144880540781_r8, -0.000137703761594_r8, -0.000132166017175_r8, &
5049  -0.000126453982535_r8, -0.000116592231814_r8, -0.000108983754465_r8, &
5050  -0.000102082879749_r8, -9.57256323875e-05_r8, -8.94652619765e-05_r8, &
5051  -8.31684621505e-05_r8, -7.7029217016e-05_r8, -7.11836216416e-05_r8, &
5052  -6.60961597565e-05_r8, -6.10731708539e-05_r8, -5.69174284815e-05_r8, &
5053  -4.89448287011e-05_r8, -4.25767017087e-05_r8, -3.84570314482e-05_r8, &
5054  -3.50399188553e-05_r8, -3.26300365172e-05_r8, -3.07443883574e-05_r8, &
5055  -2.93012951347e-05_r8, -2.77968997042e-05_r8, -2.67291927813e-05_r8, &
5056  -2.56667061049e-05_r8, -2.47835700184e-05_r8, -2.44413316253e-05_r8, &
5057  -2.38383582873e-05_r8, -2.34351650308e-05_r8, -2.33743942424e-05_r8, &
5058  -2.31561173014e-05_r8, -2.31210744217e-05_r8, -2.3108556757e-05_r8, &
5059  -0.000125198288398_r8, -0.000125287631536_r8, -0.000125258659317_r8, &
5060  -0.000125299188652_r8, -0.00012528609693_r8, -0.000126326203109_r8, &
5061  -0.000133728574336_r8, -0.000143366370375_r8, -0.000149594415982_r8, &
5062  -0.00015110441598_r8, -0.000148377454234_r8, -0.000144798592039_r8, &
5063  -0.000141023933237_r8, -0.000138394812921_r8, -0.000135750373986_r8, &
5064  -0.000132685355148_r8, -0.000124948966462_r8, -0.000116301942532_r8, &
5065  -0.000107256502102_r8, -9.98873871838e-05_r8, -9.34335223413e-05_r8, &
5066  -8.64605757211e-05_r8, -8.16377329849e-05_r8, -7.65844118455e-05_r8, &
5067  -7.13087913495e-05_r8, -6.59526323332e-05_r8, -6.06066828723e-05_r8, &
5068  -5.25097267001e-05_r8, -4.42269820766e-05_r8, -4.07978376415e-05_r8, &
5069  -3.70735670496e-05_r8, -3.45229145715e-05_r8, -3.21231392819e-05_r8, &
5070  -3.00089905592e-05_r8, -2.79684615578e-05_r8, -2.58315678736e-05_r8, &
5071  -2.3868520771e-05_r8, -2.21263115385e-05_r8, -2.11505891801e-05_r8, &
5072  -2.03636911e-05_r8, -1.97025635473e-05_r8, -1.94566992073e-05_r8, &
5073  -1.94107862783e-05_r8, -1.93899129641e-05_r8, -1.93190485165e-05_r8, &
5074  0.00025121366366_r8, 0.000271271166824_r8, 0.000323344910896_r8, &
5075  0.000382946499744_r8, 0.000419484606323_r8, 0.00043747002289_r8, &
5076  0.000382943731625_r8, 0.000340993169223_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5077  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5078  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5079  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5080  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5081  9e90_r8, 9e90_r8 &
5082  /) ) /
5083 
5084 type(gsw_result) :: ct_freezing
5085 
5086 data ct_freezing / gsw_result( &
5087  "CT_freezing", 2.2651e-11_r8, (/ &
5088  -1.8791958949408_r8, -1.8868182053422_r8, -1.8941709221796_r8, &
5089  -1.9019789045974_r8, -1.9111648742909_r8, -1.9192282573065_r8, &
5090  -1.9507388874847_r8, -1.9846958607985_r8, -2.0115939142263_r8, &
5091  -2.0307890103345_r8, -2.0423389404342_r8, -2.0535630471481_r8, &
5092  -2.0789750325263_r8, -2.1178411577977_r8, -2.1582332458539_r8, &
5093  -2.1995015947279_r8, -2.2791588648577_r8, -2.3590870568277_r8, &
5094  -2.4396717503512_r8, -2.520530104734_r8, -2.6017280661882_r8, &
5095  -2.6833153936944_r8, -2.7653268339308_r8, -2.8484693582115_r8, &
5096  -2.931240411044_r8, -3.0150116140337_r8, -3.098387060927_r8, &
5097  -3.3095294083266_r8, -3.5229348344736_r8, -3.7383954753251_r8, &
5098  -3.9568208963393_r8, -4.177420840384_r8, -4.4011252554805_r8, &
5099  -4.6261562075214_r8, -4.8543904602058_r8, -5.0847821437059_r8, &
5100  -5.3183596024468_r8, -5.553268739771_r8, -5.7921226328723_r8, &
5101  -6.0323385086428_r8, -6.2756513692701_r8, -6.5201377140971_r8, &
5102  -6.7687982394561_r8, -7.0186782399593_r8, -7.2717192232588_r8, &
5103  -1.8849644016803_r8, -1.8917574387165_r8, -1.9010969163467_r8, &
5104  -1.9078696942401_r8, -1.9161774446018_r8, -1.9261960805458_r8, &
5105  -1.9625395298524_r8, -1.9937712150807_r8, -2.0029891266937_r8, &
5106  -2.0090459997735_r8, -2.0260118741963_r8, -2.0484264113946_r8, &
5107  -2.0906831421232_r8, -2.1312945511431_r8, -2.1695935620603_r8, &
5108  -2.2084363285217_r8, -2.2849904881521_r8, -2.3627351805253_r8, &
5109  -2.4415594682131_r8, -2.5216852535991_r8, -2.6025200418749_r8, &
5110  -2.6837773231976_r8, -2.7656495916361_r8, -2.8486798492311_r8, &
5111  -2.9313349501003_r8, -3.0151531392989_r8, -3.0985471682423_r8, &
5112  -3.3097611700321_r8, -3.5232955513917_r8, -3.7385985104357_r8, &
5113  -3.9571221995538_r8, -4.1776996060705_r8, -4.401482577531_r8, &
5114  -4.6265595124195_r8, -4.8547422849411_r8, -5.0852160795985_r8, &
5115  -5.3187834253022_r8, -5.5537172253111_r8, -5.7926926135429_r8, &
5116  -6.0328899432519_r8, -6.2762212256378_r8, -6.5207821724769_r8, &
5117  -6.7694438620997_r8, -7.0193468650423_r8, -7.2724965542372_r8, &
5118  -0.34435926378422_r8, -0.3573186152802_r8, -0.37215500955514_r8, &
5119  -0.39152606605777_r8, -0.41111860875015_r8, -0.43027090960747_r8, &
5120  -0.53372193526402_r8, -0.61754439555328_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5121  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5122  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5123  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5124  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5125  9e90_r8, 9e90_r8 &
5126  /) ) /
5127 
5128 type(gsw_result) :: ct_freezing_poly
5129 
5130 data ct_freezing_poly / gsw_result( &
5131  "CT_freezing_poly", 2.2571e-11_r8, (/ &
5132  -1.879165299189_r8, -1.8867915277169_r8, -1.8941481125296_r8, &
5133  -1.9019599274485_r8, -1.911149705101_r8, -1.9192168306304_r8, &
5134  -1.9507370581506_r8, -1.9847028855903_r8, -2.0116093878303_r8, &
5135  -2.0308126385822_r8, -2.0423705612648_r8, -2.0536028233742_r8, &
5136  -2.0790299152128_r8, -2.1179102158149_r8, -2.1583151574789_r8, &
5137  -2.19959565426_r8, -2.2792744115994_r8, -2.35922072554_r8, &
5138  -2.4398203664626_r8, -2.5206907458524_r8, -2.6018980162035_r8, &
5139  -2.6834921338781_r8, -2.7655080355745_r8, -2.8486529100348_r8, &
5140  -2.9314243188432_r8, -3.0151941129344_r8, -3.0985665423481_r8, &
5141  -3.3096952907672_r8, -3.5230803564824_r8, -3.7385160463235_r8, &
5142  -3.9569137014165_r8, -4.1774848377762_r8, -4.4011607636733_r8, &
5143  -4.6261650525741_r8, -4.8543753263855_r8, -5.0847467556497_r8, &
5144  -5.3183083258015_r8, -5.5532066045758_r8, -5.7920549506277_r8, &
5145  -6.032270835885_r8, -6.2755892756456_r8, -6.5200865399919_r8, &
5146  -6.7687630950113_r8, -7.0186635203084_r8, -7.2717287133586_r8, &
5147  -1.8849339490842_r8, -1.8917308714354_r8, -1.9010742455088_r8, &
5148  -1.9078508208601_r8, -1.9161623526281_r8, -1.9261847461606_r8, &
5149  -1.9625378065188_r8, -1.9937782836036_r8, -2.0030046087903_r8, &
5150  -2.0090697857675_r8, -2.0260437103185_r8, -2.0484662852054_r8, &
5151  -2.0907376777608_r8, -2.1313630769912_r8, -2.1696749187524_r8, &
5152  -2.2085298703694_r8, -2.2851055981986_r8, -2.3628685197051_r8, &
5153  -2.4417078872916_r8, -2.521845759418_r8, -2.6026898899818_r8, &
5154  -2.683953999126_r8, -2.7658307453587_r8, -2.8488633680198_r8, &
5155  -2.9315188423573_r8, -3.0153356139912_r8, -3.098726621351_r8, &
5156  -3.3099270088683_r8, -3.5234410029104_r8, -3.7387190409731_r8, &
5157  -3.9572149442953_r8, -4.1777635480656_r8, -4.401518016045_r8, &
5158  -4.626568281103_r8, -4.8547270871213_r8, -5.0851806165703_r8, &
5159  -5.3187320800159_r8, -5.5536550230434_r8, -5.7926248541193_r8, &
5160  -6.0328222045205_r8, -6.2761590738229_r8, -6.5207309449014_r8, &
5161  -6.7694086776269_r8, -7.0193321189572_r8, -7.2725060322355_r8, &
5162  -0.34436067697949_r8, -0.35732308452908_r8, -0.37216307421288_r8, &
5163  -0.39153899577668_r8, -0.4111364360127_r8, -0.43029348368924_r8, &
5164  -0.53376844166695_r8, -0.61760714190764_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5165  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5166  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5167  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5168  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5169  9e90_r8, 9e90_r8 &
5170  /) ) /
5171 
5172 type(gsw_result) :: t_freezing
5173 
5174 data t_freezing / gsw_result( &
5175  "t_freezing", 2.1665e-11_r8, (/ &
5176  -1.8826905931951_r8, -1.8901461677747_r8, -1.8973379624874_r8, &
5177  -1.9049737446842_r8, -1.9139542679789_r8, -1.9218381661121_r8, &
5178  -1.9526256815874_r8, -1.9857887399157_r8, -2.0120573882085_r8, &
5179  -2.030809550684_r8, -2.042104578096_r8, -2.0530806960647_r8, &
5180  -2.077913061982_r8, -2.1158535175838_r8, -2.1552670391189_r8, &
5181  -2.195521373375_r8, -2.2731832839621_r8, -2.351056875271_r8, &
5182  -2.4295181367459_r8, -2.5081950819629_r8, -2.5871526425892_r8, &
5183  -2.6664399132855_r8, -2.7460913361178_r8, -2.8267934766592_r8, &
5184  -2.9070886904788_r8, -2.9883080142859_r8, -3.0690991723591_r8, &
5185  -3.2735062955401_r8, -3.4798425438878_r8, -3.6879171848331_r8, &
5186  -3.8986182990772_r8, -4.1111933649327_r8, -4.326548525959_r8, &
5187  -4.5429829218182_r8, -4.7623139208586_r8, -4.9835447325951_r8, &
5188  -5.2076747586109_r8, -5.4329360278028_r8, -5.6618424520317_r8, &
5189  -5.8919333027836_r8, -6.1248797713399_r8, -6.3588512282671_r8, &
5190  -6.5967346874308_r8, -6.8357133042251_r8, -7.0776568393026_r8, &
5191  -1.8883233531118_r8, -1.894968928702_r8, -1.9041001496371_r8, &
5192  -1.9107249189282_r8, -1.9188476524389_r8, -1.9286397424379_r8, &
5193  -1.9641399921631_r8, -1.9946404192825_r8, -2.0036656270369_r8, &
5194  -2.0096050296265_r8, -2.0261824951995_r8, -2.0480718549557_r8, &
5195  -2.0893279459456_r8, -2.1289665520812_r8, -2.166337136916_r8, &
5196  -2.2042256890662_r8, -2.2788619861796_r8, -2.3546078294497_r8, &
5197  -2.431354831369_r8, -2.5093185778221_r8, -2.5879226417744_r8, &
5198  -2.6668888768211_r8, -2.746404939177_r8, -2.8269979407159_r8, &
5199  -2.907180499952_r8, -2.9884454232404_r8, -3.0692545934804_r8, &
5200  -3.2737311950045_r8, -3.4801925197782_r8, -3.6881141755726_r8, &
5201  -3.8989106864215_r8, -4.111463979904_r8, -4.3268955889704_r8, &
5202  -4.5433749297943_r8, -4.7626561998873_r8, -4.9839673536046_r8, &
5203  -5.2080880567343_r8, -5.433374013047_r8, -5.662400009876_r8, &
5204  -5.8924737116545_r8, -6.1254393734442_r8, -6.3594854995454_r8, &
5205  -6.5973716576996_r8, -6.836374707733_r8, -7.0784279680514_r8, &
5206  -0.35965035812233_r8, -0.37262215964933_r8, -0.38747828670447_r8, &
5207  -0.40688908217896_r8, -0.4265177878358_r8, -0.4456992862519_r8, &
5208  -0.54941912387446_r8, -0.63333279383543_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5209  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5210  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5211  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5212  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5213  9e90_r8, 9e90_r8 &
5214  /) ) /
5215 
5216 type(gsw_result) :: t_freezing_poly
5217 
5218 data t_freezing_poly / gsw_result( &
5219  "t_freezing_poly", 2.1582e-11_r8, (/ &
5220  -1.8826599878942_r8, -1.8901194793719_r8, -1.8973151416915_r8, &
5221  -1.9049547564308_r8, -1.9139390879013_r8, -1.9218267300584_r8, &
5222  -1.9526238497569_r8, -1.985795778632_r8, -2.0120728991556_r8, &
5223  -2.0308332413559_r8, -2.0421362833428_r8, -2.0531205787677_r8, &
5224  -2.0779680977084_r8, -2.1159227992246_r8, -2.1553492567373_r8, &
5225  -2.1956158318492_r8, -2.2732994290661_r8, -2.3511913606043_r8, &
5226  -2.4296677996769_r8, -2.5083570037228_r8, -2.5873241044668_r8, &
5227  -2.666618388477_r8, -2.7462744830332_r8, -2.8269791683669_r8, &
5228  -2.9072749100759_r8, -2.9884929738587_r8, -3.0692812356518_r8, &
5229  -3.2736749374343_r8, -3.4799908109472_r8, -3.6880402958014_r8, &
5230  -3.8987132622314_r8, -4.1112589891525_r8, -4.3265850133247_r8, &
5231  -4.5429920296089_r8, -4.7622983053807_r8, -4.9835081438077_r8, &
5232  -5.2076216345545_r8, -5.4328715249982_r8, -5.6617720503664_r8, &
5233  -5.8918627718373_r8, -6.1248149278151_r8, -6.3587976839677_r8, &
5234  -6.5966978436162_r8, -6.835697843081_r8, -7.0776668266359_r8, &
5235  -1.8882928863901_r8, -1.8949423472362_r8, -1.9040774635918_r8, &
5236  -1.9107060315809_r8, -1.9188325476442_r8, -1.9286283966752_r8, &
5237  -1.9641382659443_r8, -1.9946475034965_r8, -2.003681143009_r8, &
5238  -2.0096288649146_r8, -2.0262144026947_r8, -2.0481118301387_r8, &
5239  -2.0893826503817_r8, -2.1290353239649_r8, -2.16641882171_r8, &
5240  -2.2043196495145_r8, -2.2789777098635_r8, -2.3547419959339_r8, &
5241  -2.4315043031859_r8, -2.5094803680354_r8, -2.58809400434_r8, &
5242  -2.6670672892505_r8, -2.7465880391777_r8, -2.8271836000083_r8, &
5243  -2.9073667042635_r8, -2.9886303589497_r8, -3.0694366288_r8, &
5244  -3.2738997935678_r8, -3.4803407163827_r8, -3.6882372458651_r8, &
5245  -3.8990055885664_r8, -4.1115295477852_r8, -4.3269320050684_r8, &
5246  -4.5433839590406_r8, -4.7626405182312_r8, -4.9839306868915_r8, &
5247  -5.2080348609809_r8, -5.4333094398617_r8, -5.6623295268815_r8, &
5248  -5.8924031109255_r8, -6.1253744681739_r8, -6.3594318983792_r8, &
5249  -6.5973347712821_r8, -6.8363592185427_r8, -7.078437942861_r8, &
5250  -0.35965171025197_r8, -0.372626436965_r8, -0.38748600761827_r8, &
5251  -0.40690146670374_r8, -0.42653487165802_r8, -0.44572092909025_r8, &
5252  -0.54946384049902_r8, -0.63339326223743_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5253  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5254  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5255  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5256  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5257  9e90_r8, 9e90_r8 &
5258  /) ) /
5259 
5260 type(gsw_result) :: pot_enthalpy_ice_freezing
5261 
5262 data pot_enthalpy_ice_freezing / gsw_result( &
5263  "pot_enthalpy_ice_freezing", 5.3551e-08_r8, (/ &
5264  -337292.5286083188_r8, -337312.7579547644_r8, -337332.4363577975_r8, &
5265  -337353.038040561_r8, -337376.4389086334_r8, -337397.5541162898_r8, &
5266  -337473.8724052532_r8, -337554.6512174989_r8, -337621.0606094321_r8, &
5267  -337671.8114174767_r8, -337707.0321172156_r8, -337742.050622553_r8, &
5268  -337817.1244312568_r8, -337919.9080269259_r8, -338025.2494001458_r8, &
5269  -338132.7660101896_r8, -338341.2926685412_r8, -338550.1010300861_r8, &
5270  -338759.9714730069_r8, -338970.1303196927_r8, -339180.7118227441_r8, &
5271  -339391.8171518027_r8, -339603.5169199127_r8, -339817.6923806436_r8, &
5272  -340030.4018086524_r8, -340245.3201521834_r8, -340458.7302933836_r8, &
5273  -340997.2475683898_r8, -341538.7152843216_r8, -342082.7283819687_r8, &
5274  -342631.5539811731_r8, -343183.1744816738_r8, -343739.884387533_r8, &
5275  -344297.2846544696_r8, -344859.9808416017_r8, -345425.4688583929_r8, &
5276  -345996.2158892297_r8, -346567.7188994841_r8, -347146.3988957212_r8, &
5277  -347725.9182117667_r8, -348310.5301961682_r8, -348895.6399101565_r8, &
5278  -349488.3745869813_r8, -350081.7235019524_r8, -350680.3078613432_r8, &
5279  -337304.2620025969_r8, -337322.8036627483_r8, -337346.5212226303_r8, &
5280  -337365.0165917433_r8, -337386.6303869931_r8, -337411.7191321187_r8, &
5281  -337497.848411035_r8, -337573.0800858865_r8, -337603.5910457126_r8, &
5282  -337627.6725150725_r8, -337673.8919563439_r8, -337731.626268882_r8, &
5283  -337840.8763534455_r8, -337947.1875214614_r8, -338048.27398013_r8, &
5284  -338150.8660828596_r8, -338353.0961300671_r8, -338557.4786956365_r8, &
5285  -338763.7858466981_r8, -338972.462537214_r8, -339182.3095345231_r8, &
5286  -339392.7483225207_r8, -339604.1670614369_r8, -339818.1160740027_r8, &
5287  -340030.5919736399_r8, -340245.6046403903_r8, -340459.0519309734_r8, &
5288  -340997.7124680873_r8, -341539.4379211129_r8, -342083.1346722353_r8, &
5289  -342632.1563367772_r8, -343183.7313431824_r8, -343740.5977326325_r8, &
5290  -344298.0894420425_r8, -344860.6827114493_r8, -345426.334452464_r8, &
5291  -345997.0613791341_r8, -346568.6138214103_r8, -347147.5367567042_r8, &
5292  -347727.0197365159_r8, -348311.6694447342_r8, -348896.9295859599_r8, &
5293  -349489.6681382116_r8, -350083.0649962297_r8, -350681.8699356489_r8, &
5294  -334111.3419690022_r8, -334143.2567784233_r8, -334179.1147826227_r8, &
5295  -334224.5065956119_r8, -334270.3499821011_r8, -334315.2523822773_r8, &
5296  -334544.6745763633_r8, -334732.08961088_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5297  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5298  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5299  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5300  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5301  9e90_r8, 9e90_r8 &
5302  /) ) /
5303 
5304 type(gsw_result) :: pot_enthalpy_ice_freezing_poly
5305 
5306 data pot_enthalpy_ice_freezing_poly / gsw_result( &
5307  "pot_enthalpy_ice_freezing_poly", 5.3318e-08_r8, (/ &
5308  -337292.6233524391_r8, -337312.8580831874_r8, -337332.5417696337_r8, &
5309  -337353.148655121_r8, -337376.5546690344_r8, -337397.6749009112_r8, &
5310  -337474.0060546685_r8, -337554.7966502972_r8, -337621.2171142157_r8, &
5311  -337671.9783636669_r8, -337707.2089016542_r8, -337742.2370687273_r8, &
5312  -337817.3279524388_r8, -337920.1271445645_r8, -338025.4819334847_r8, &
5313  -338133.0103560484_r8, -338341.555121393_r8, -338550.3750874678_r8, &
5314  -338760.2512010062_r8, -338970.410335073_r8, -339180.9872761816_r8, &
5315  -339392.0837095462_r8, -339603.7707459533_r8, -339817.9299480172_r8, &
5316  -340030.6203744399_r8, -340245.5170614634_r8, -340458.9037432773_r8, &
5317  -340997.3558860008_r8, -341538.7544923918_r8, -342082.6999735125_r8, &
5318  -342631.4640434073_r8, -343183.0336083654_r8, -343739.7066665121_r8, &
5319  -344297.0874613904_r8, -344859.7838044363_r8, -345425.2935246624_r8, &
5320  -345996.0852458664_r8, -346567.6562216873_r8, -347146.4284327684_r8, &
5321  -347726.0627874525_r8, -348310.8124243027_r8, -348896.0796878314_r8, &
5322  -349488.9915991574_r8, -350082.5327195056_r8, -350681.3224456676_r8, &
5323  -337304.3568990355_r8, -337322.9039206999_r8, -337346.6268116446_r8, &
5324  -337365.1273557156_r8, -337386.7462705303_r8, -337411.8400815909_r8, &
5325  -337497.9822654782_r8, -337573.2256241092_r8, -337603.7474532265_r8, &
5326  -337627.8391810044_r8, -337674.0685153431_r8, -337731.8126431071_r8, &
5327  -337841.0800358556_r8, -337947.4067970185_r8, -338048.5066228674_r8, &
5328  -338151.1104958672_r8, -338353.3586044493_r8, -338557.7527519469_r8, &
5329  -338764.0655663897_r8, -338972.7425427295_r8, -339182.5849779829_r8, &
5330  -339393.0148726371_r8, -339604.4208809396_r8, -339818.3536363667_r8, &
5331  -340030.8105368693_r8, -340245.8015454205_r8, -340459.2253756399_r8, &
5332  -340997.8207769884_r8, -341539.4771148273_r8, -342083.1062558881_r8, &
5333  -342632.0663886389_r8, -343183.5904625847_r8, -343740.4200066991_r8, &
5334  -344297.8922501268_r8, -344860.4856827242_r8, -345426.1591402434_r8, &
5335  -345996.9307695589_r8, -346568.5511947846_r8, -347147.5663809377_r8, &
5336  -347727.1644200567_r8, -348311.9518107406_r8, -348897.3695512928_r8, &
5337  -349490.2853720206_r8, -350083.8744791881_r8, -350682.8848710884_r8, &
5338  -334111.368591349_r8, -334143.286937236_r8, -334179.1468142975_r8, &
5339  -334224.5366951195_r8, -334270.3782708608_r8, -334315.2795182845_r8, &
5340  -334544.6668354722_r8, -334732.070891422_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5341  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5342  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5343  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5344  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5345  9e90_r8, 9e90_r8 &
5346  /) ) /
5347 
5348 type(gsw_result) :: sa_freezing_from_ct
5349 
5350 data sa_freezing_from_ct / gsw_result( &
5351  "SA_freezing_from_CT", 1.364e-10_r8, (/ &
5352  34.507499465695_r8, 34.507024988455_r8, 34.501848858516_r8, &
5353  34.504435326018_r8, 34.530643613167_r8, 34.537484086977_r8, &
5354  34.736078147784_r8, 34.989090287231_r8, 35.12039462339_r8, &
5355  35.119256777184_r8, 34.986762856758_r8, 34.835021959583_r8, &
5356  34.607546395929_r8, 34.595840357795_r8, 34.621926348235_r8, &
5357  34.648001549217_r8, 34.659174492302_r8, 34.668361402166_r8, &
5358  34.682170848908_r8, 34.694080110953_r8, 34.705238130447_r8, &
5359  34.716513959834_r8, 34.728518191976_r8, 34.739505619357_r8, &
5360  34.751452325211_r8, 34.760072302_r8, 34.769407785422_r8, &
5361  34.789641936941_r8, 34.808295026003_r8, 34.822151570278_r8, &
5362  34.832369913786_r8, 34.840088169274_r8, 34.846482961021_r8, &
5363  34.851270079602_r8, 34.856641575124_r8, 34.860019411636_r8, &
5364  34.863619225503_r8, 34.867061882501_r8, 34.868072764784_r8, &
5365  34.869952495229_r8, 34.870706954222_r8, 34.869948548766_r8, &
5366  34.870177007927_r8, 34.870163920171_r8, 34.870229963513_r8, &
5367  34.60668764696_r8, 34.591948048621_r8, 34.620913179144_r8, &
5368  34.605695909542_r8, 34.616792273633_r8, 34.657212493964_r8, &
5369  34.938587996852_r8, 35.144639998849_r8, 34.972934057673_r8, &
5370  34.746556607462_r8, 34.706863851407_r8, 34.746964646711_r8, &
5371  34.808232606379_r8, 34.826327152152_r8, 34.816456153416_r8, &
5372  34.800921106392_r8, 34.758899158899_r8, 34.730693983602_r8, &
5373  34.714397236343_r8, 34.713783487813_r8, 34.71873552972_r8, &
5374  34.72438007792_r8, 34.734010000495_r8, 34.743084410713_r8, &
5375  34.753058494527_r8, 34.762475024103_r8, 34.772124124595_r8, &
5376  34.793567706861_r8, 34.814396506584_r8, 34.825581702081_r8, &
5377  34.837454882016_r8, 34.844788711633_r8, 34.852503925853_r8, &
5378  34.858062359025_r8, 34.862564801306_r8, 34.86732380031_r8, &
5379  34.870753430508_r8, 34.874612605795_r8, 34.877672506822_r8, &
5380  34.879244950054_r8, 34.880316871764_r8, 34.880826475875_r8, &
5381  34.881086643284_r8, 34.881476814695_r8, 34.883401613802_r8, &
5382  6.669904340924_r8, 6.7737814418926_r8, 6.9129530644763_r8, &
5383  7.1375206720999_r8, 7.3661052164131_r8, 7.5862209196448_r8, &
5384  9.1676241523674_r8, 10.389468455025_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5385  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5386  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5387  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5388  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5389  9e90_r8 &
5390  /) ) /
5391 
5392 type(gsw_result) :: sa_freezing_from_ct_poly
5393 
5394 data sa_freezing_from_ct_poly / gsw_result( &
5395  "SA_freezing_from_CT_poly", 1.3004e-10_r8, (/ &
5396  34.507499465607_r8, 34.507024988369_r8, 34.501848858425_r8, &
5397  34.504435325932_r8, 34.530643613079_r8, 34.537484086889_r8, &
5398  34.736078147695_r8, 34.989090287136_r8, 35.120394623297_r8, &
5399  35.119256777086_r8, 34.98676285666_r8, 34.835021959486_r8, &
5400  34.607546395829_r8, 34.595840357695_r8, 34.621926348133_r8, &
5401  34.648001549116_r8, 34.659174492199_r8, 34.668361402057_r8, &
5402  34.682170848799_r8, 34.694080110843_r8, 34.705238130341_r8, &
5403  34.716513959731_r8, 34.728518191869_r8, 34.739505619249_r8, &
5404  34.751452325109_r8, 34.760072301898_r8, 34.769407785324_r8, &
5405  34.789641936846_r8, 34.808295025915_r8, 34.822151570202_r8, &
5406  34.832369913717_r8, 34.840088169209_r8, 34.846482960969_r8, &
5407  34.851270079554_r8, 34.856641575084_r8, 34.860019411601_r8, &
5408  34.863619225473_r8, 34.867061882477_r8, 34.868072764763_r8, &
5409  34.869952495215_r8, 34.870706954213_r8, 34.869948548759_r8, &
5410  34.870177007923_r8, 34.870163920169_r8, 34.870229963515_r8, &
5411  34.606687646876_r8, 34.591948048534_r8, 34.620913179057_r8, &
5412  34.605695909452_r8, 34.616792273544_r8, 34.657212493876_r8, &
5413  34.938587996758_r8, 35.144639998756_r8, 34.972934057577_r8, &
5414  34.746556607371_r8, 34.706863851313_r8, 34.746964646611_r8, &
5415  34.808232606278_r8, 34.826327152051_r8, 34.816456153313_r8, &
5416  34.800921106289_r8, 34.758899158795_r8, 34.730693983495_r8, &
5417  34.714397236238_r8, 34.713783487704_r8, 34.718735529611_r8, &
5418  34.724380077813_r8, 34.734010000388_r8, 34.743084410607_r8, &
5419  34.753058494422_r8, 34.762475024004_r8, 34.772124124495_r8, &
5420  34.793567706768_r8, 34.814396506498_r8, 34.825581702001_r8, &
5421  34.837454881944_r8, 34.84478871157_r8, 34.852503925799_r8, &
5422  34.858062358976_r8, 34.862564801265_r8, 34.867323800275_r8, &
5423  34.870753430479_r8, 34.874612605772_r8, 34.877672506803_r8, &
5424  34.879244950041_r8, 34.880316871754_r8, 34.880826475866_r8, &
5425  34.881086643283_r8, 34.881476814693_r8, 34.883401613801_r8, &
5426  6.6699043409305_r8, 6.7737814418975_r8, 6.9129530644828_r8, &
5427  7.1375206721037_r8, 7.3661052164194_r8, 7.5862209196494_r8, &
5428  9.167624152377_r8, 10.389468455037_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5429  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5430  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5431  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5432  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5433  9e90_r8 &
5434  /) ) /
5435 
5436 type(gsw_result) :: sa_freezing_from_t
5437 
5438 data sa_freezing_from_t / gsw_result( &
5439  "SA_freezing_from_t", 1.3474e-10_r8, (/ &
5440  34.507499465694_r8, 34.507024988456_r8, 34.501848858513_r8, &
5441  34.504435326017_r8, 34.530643613166_r8, 34.537484086978_r8, &
5442  34.736078147785_r8, 34.98909028723_r8, 35.120394623392_r8, &
5443  35.119256777183_r8, 34.98676285676_r8, 34.835021959583_r8, &
5444  34.607546395929_r8, 34.595840357794_r8, 34.621926348234_r8, &
5445  34.648001549217_r8, 34.659174492302_r8, 34.668361402164_r8, &
5446  34.682170848909_r8, 34.69408011095_r8, 34.705238130449_r8, &
5447  34.716513959836_r8, 34.728518191976_r8, 34.739505619355_r8, &
5448  34.751452325211_r8, 34.760072302003_r8, 34.76940778542_r8, &
5449  34.789641936939_r8, 34.808295026004_r8, 34.822151570279_r8, &
5450  34.832369913787_r8, 34.840088169271_r8, 34.846482961022_r8, &
5451  34.851270079603_r8, 34.856641575124_r8, 34.860019411635_r8, &
5452  34.863619225498_r8, 34.8670618825_r8, 34.868072764783_r8, &
5453  34.869952495228_r8, 34.870706954222_r8, 34.869948548765_r8, &
5454  34.870177007927_r8, 34.87016392017_r8, 34.870229963512_r8, &
5455  34.606687646961_r8, 34.591948048619_r8, 34.620913179144_r8, &
5456  34.605695909541_r8, 34.616792273633_r8, 34.657212493964_r8, &
5457  34.938587996855_r8, 35.14463999885_r8, 34.972934057674_r8, &
5458  34.746556607461_r8, 34.706863851408_r8, 34.746964646709_r8, &
5459  34.808232606376_r8, 34.826327152152_r8, 34.816456153416_r8, &
5460  34.800921106395_r8, 34.758899158896_r8, 34.730693983601_r8, &
5461  34.714397236343_r8, 34.713783487812_r8, 34.718735529717_r8, &
5462  34.724380077918_r8, 34.734010000493_r8, 34.743084410711_r8, &
5463  34.753058494526_r8, 34.762475024103_r8, 34.772124124591_r8, &
5464  34.793567706859_r8, 34.814396506585_r8, 34.825581702079_r8, &
5465  34.837454882016_r8, 34.844788711633_r8, 34.852503925856_r8, &
5466  34.858062359021_r8, 34.862564801305_r8, 34.867323800311_r8, &
5467  34.870753430508_r8, 34.874612605795_r8, 34.87767250682_r8, &
5468  34.879244950053_r8, 34.880316871763_r8, 34.880826475871_r8, &
5469  34.881086643285_r8, 34.881476814694_r8, 34.883401613803_r8, &
5470  6.6699043409241_r8, 6.7737814418901_r8, 6.9129530644795_r8, &
5471  7.1375206720995_r8, 7.366105216414_r8, 7.5862209196443_r8, &
5472  9.1676241523664_r8, 10.389468455024_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5473  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5474  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5475  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5476  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5477  9e90_r8 &
5478  /) ) /
5479 
5480 type(gsw_result) :: sa_freezing_from_t_poly
5481 
5482 data sa_freezing_from_t_poly / gsw_result( &
5483  "SA_freezing_from_t_poly", 1.3007e-10_r8, (/ &
5484  34.507499465692_r8, 34.507024988454_r8, 34.501848858511_r8, &
5485  34.504435326018_r8, 34.530643613166_r8, 34.537484086977_r8, &
5486  34.736078147786_r8, 34.98909028723_r8, 35.120394623393_r8, &
5487  35.119256777183_r8, 34.986762856758_r8, 34.835021959583_r8, &
5488  34.607546395926_r8, 34.595840357794_r8, 34.621926348234_r8, &
5489  34.648001549218_r8, 34.659174492303_r8, 34.668361402163_r8, &
5490  34.682170848906_r8, 34.694080110951_r8, 34.705238130449_r8, &
5491  34.716513959838_r8, 34.728518191976_r8, 34.739505619355_r8, &
5492  34.751452325212_r8, 34.760072302_r8, 34.769407785424_r8, 34.78964193694_r8, &
5493  34.808295026002_r8, 34.822151570281_r8, 34.832369913788_r8, &
5494  34.840088169273_r8, 34.846482961025_r8, 34.851270079602_r8, &
5495  34.856641575125_r8, 34.860019411636_r8, 34.863619225502_r8, &
5496  34.8670618825_r8, 34.868072764781_r8, 34.869952495228_r8, &
5497  34.870706954223_r8, 34.869948548766_r8, 34.870177007927_r8, &
5498  34.870163920171_r8, 34.870229963516_r8, 34.606687646962_r8, &
5499  34.59194804862_r8, 34.620913179144_r8, 34.60569590954_r8, &
5500  34.616792273632_r8, 34.657212493965_r8, 34.938587996851_r8, &
5501  35.144639998851_r8, 34.972934057672_r8, 34.746556607465_r8, &
5502  34.706863851408_r8, 34.746964646708_r8, 34.808232606377_r8, &
5503  34.826327152152_r8, 34.816456153416_r8, 34.800921106393_r8, &
5504  34.7588991589_r8, 34.730693983602_r8, 34.714397236346_r8, &
5505  34.713783487812_r8, 34.718735529719_r8, 34.72438007792_r8, &
5506  34.734010000495_r8, 34.743084410713_r8, 34.753058494526_r8, &
5507  34.762475024106_r8, 34.772124124595_r8, 34.793567706862_r8, &
5508  34.814396506585_r8, 34.825581702081_r8, 34.837454882016_r8, &
5509  34.844788711634_r8, 34.852503925855_r8, 34.858062359024_r8, &
5510  34.862564801306_r8, 34.86732380031_r8, 34.870753430507_r8, &
5511  34.874612605795_r8, 34.877672506821_r8, 34.879244950055_r8, &
5512  34.880316871764_r8, 34.880826475872_r8, 34.881086643287_r8, &
5513  34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, &
5514  6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, &
5515  7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, &
5516  10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5517  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5518  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5519  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5520  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
5521  /) ) /
5522 
5523 type(gsw_result) :: ctfreezing_sa
5524 
5525 data ctfreezing_sa / gsw_result( &
5526  "CTfreezing_SA", 3.2634e-14_r8, (/ &
5527  -0.05814490213410573_r8, -0.05815075695164051_r8, -0.05815542738436928_r8, &
5528  -0.05816201376122387_r8, -0.0581744580447603_r8, -0.05818206995235999_r8, &
5529  -0.05824676222710169_r8, -0.05832438675461858_r8, -0.05837159481981246_r8, &
5530  -0.05838563681024979_r8, -0.05836685285683351_r8, -0.05834385336845817_r8, &
5531  -0.05831558519012701_r8, -0.05834103563607843_r8, -0.05837488302900377_r8, &
5532  -0.05840887244310713_r8, -0.05846503769347981_r8, -0.05851917218154309_r8, &
5533  -0.05857289381812705_r8, -0.05862460421262847_r8, -0.05867458599293621_r8, &
5534  -0.05872305024180147_r8, -0.05877014259746428_r8, -0.05881585601445839_r8, &
5535  -0.05885981915981134_r8, -0.05890182216166186_r8, -0.05894204703302273_r8, &
5536  -0.05903558446428335_r8, -0.05911892354703549_r8, -0.05919130264255362_r8, &
5537  -0.05925319505802086_r8, -0.05930454647254415_r8, -0.05934572009982029_r8, &
5538  -0.05937630052823713_r8, -0.05939693329827823_r8, -0.05940688186508505_r8, &
5539  -0.05940652102557338_r8, -0.0593957105033546_r8, -0.05937375614469396_r8, &
5540  -0.05934142234318398_r8, -0.05929801627209128_r8, -0.05924376119689148_r8, &
5541  -0.0591783285213828_r8, -0.0591021383779478_r8, -0.05901459170763633_r8, &
5542  -0.05816960076896292_r8, -0.05817189605735894_r8, -0.05818506096954847_r8, &
5543  -0.05818720771495851_r8, -0.05819589079352982_r8, -0.05821185673984305_r8, &
5544  -0.058297242868089_r8, -0.05836323381090513_r8, -0.05833480137419331_r8, &
5545  -0.05829282454471085_r8, -0.05829726592667783_r8, -0.05832199072182864_r8, &
5546  -0.05836529355338283_r8, -0.05839804255060053_r8, -0.05842292962990073_r8, &
5547  -0.05844658589579067_r8, -0.05848955087084644_r8, -0.05853444278065473_r8, &
5548  -0.05858076223511516_r8, -0.05862939861246429_r8, -0.05867785880493588_r8, &
5549  -0.05872495069356188_r8, -0.05877146448201342_r8, -0.05881671407451842_r8, &
5550  -0.0588602027243467_r8, -0.05890239354447894_r8, -0.05894269022696621_r8, &
5551  -0.05903650340023552_r8, -0.05912033397474258_r8, -0.05919208474836187_r8, &
5552  -0.05925433722449391_r8, -0.05930558517200311_r8, -0.05934702704878014_r8, &
5553  -0.05937774665435526_r8, -0.05939816803805827_r8, -0.05940836990134606_r8, &
5554  -0.05940793829093183_r8, -0.05939717009491802_r8, -0.05937555683002121_r8, &
5555  -0.05934310917754619_r8, -0.05929969892068957_r8, -0.05924559211030513_r8, &
5556  -0.05918008599653621_r8, -0.05910387488585715_r8, -0.05901650759560111_r8, &
5557  -0.0530013208250531_r8, -0.05300868058120169_r8, -0.05301648782767866_r8, &
5558  -0.05302585759226835_r8, -0.05303763334873637_r8, -0.05305140995942938_r8, &
5559  -0.05316382330146954_r8, -0.05330256692258663_r8, 9e90_r8, 9e90_r8, &
5560  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5561  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5562  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5563  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5564  9e90_r8, 9e90_r8, 9e90_r8 &
5565  /) ) /
5566 
5567 type(gsw_result) :: ctfreezing_p
5568 
5569 data ctfreezing_p / gsw_result( &
5570  "CTfreezing_P", 9.6244e-20_r8, (/ &
5571  -7.6480068092038e-08_r8, -7.6518457514173e-08_r8, -7.6556555881901e-08_r8, &
5572  -7.6595105116669e-08_r8, -7.6635040414003e-08_r8, -7.6673812803457e-08_r8, &
5573  -7.6785147469249e-08_r8, -7.6895553809619e-08_r8, -7.69986626822e-08_r8, &
5574  -7.7094031524893e-08_r8, -7.7181871946466e-08_r8, -7.7272455654689e-08_r8, &
5575  -7.7450330043097e-08_r8, -7.7643964349702e-08_r8, -7.7835581605801e-08_r8, &
5576  -7.8030674683001e-08_r8, -7.8413955871112e-08_r8, -7.8795977140363e-08_r8, &
5577  -7.9177079658827e-08_r8, -7.9556939652482e-08_r8, -7.9935626073983e-08_r8, &
5578  -8.0313188253963e-08_r8, -8.0689658955212e-08_r8, -8.1068675239424e-08_r8, &
5579  -8.1442904870249e-08_r8, -8.1819586458937e-08_r8, -8.219151149419e-08_r8, &
5580  -8.3121964131685e-08_r8, -8.4045636893843e-08_r8, -8.496255812297e-08_r8, &
5581  -8.5876465774585e-08_r8, -8.6783885088997e-08_r8, -8.7688462787536e-08_r8, &
5582  -8.8583223193752e-08_r8, -8.947529041178e-08_r8, -9.0361205731077e-08_r8, &
5583  -9.1244484496036e-08_r8, -9.2118323129255e-08_r8, -9.2993023549984e-08_r8, &
5584  -9.3858431360532e-08_r8, -9.4721379193818e-08_r8, -9.5575271681735e-08_r8, &
5585  -9.6430066786847e-08_r8, -9.7275931737571e-08_r8, -9.8119493353928e-08_r8, &
5586  -7.6485996440836e-08_r8, -7.6523520925472e-08_r8, -7.6563636091906e-08_r8, &
5587  -7.660111183758e-08_r8, -7.6640136693054e-08_r8, -7.6680875673516e-08_r8, &
5588  -7.6796981735234e-08_r8, -7.6904560919858e-08_r8, -7.6990177653194e-08_r8, &
5589  -7.7072697402131e-08_r8, -7.7165938641266e-08_r8, -7.7267473980729e-08_r8, &
5590  -7.7461544552087e-08_r8, -7.7656667176906e-08_r8, -7.7846155641278e-08_r8, &
5591  -7.8038869335138e-08_r8, -7.8419150107365e-08_r8, -7.8799129951615e-08_r8, &
5592  -7.9178660991243e-08_r8, -7.9557876610206e-08_r8, -7.9936247421858e-08_r8, &
5593  -8.0313538416822e-08_r8, -8.0689895065416e-08_r8, -8.1068823600868e-08_r8, &
5594  -8.1442969006478e-08_r8, -8.181967870453e-08_r8, -8.2191611634728e-08_r8, &
5595  -8.3122093772485e-08_r8, -8.4045814857945e-08_r8, -8.4962644920094e-08_r8, &
5596  -8.5876574643194e-08_r8, -8.678396734958e-08_r8, -8.7688544395406e-08_r8, &
5597  -8.8583288416051e-08_r8, -8.947532364522e-08_r8, -9.0361217375338e-08_r8, &
5598  -9.1244466914063e-08_r8, -9.2118273780525e-08_r8, -9.2992921182031e-08_r8, &
5599  -9.3858293802159e-08_r8, -9.4721196750062e-08_r8, -9.5575019589e-08_r8, &
5600  -9.6429767600759e-08_r8, -9.7275573331652e-08_r8, -9.811901943903e-08_r8, &
5601  -7.4508663833748e-08_r8, -7.4559317771882e-08_r8, -7.4612922079419e-08_r8, &
5602  -7.4673681992147e-08_r8, -7.4734647757879e-08_r8, -7.4794770309749e-08_r8, &
5603  -7.5033133741101e-08_r8, -7.523464380045e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5604  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5605  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5606  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5607  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5608  9e90_r8, 9e90_r8 &
5609  /) ) /
5610 
5611 type(gsw_result) :: ctfreezing_sa_poly
5612 
5613 data ctfreezing_sa_poly / gsw_result( &
5614  "CTfreezing_SA_poly", 3.2564e-14_r8, (/ &
5615  -0.05814467152917618_r8, -0.05815038625171885_r8, -0.05815491563437256_r8, &
5616  -0.05816136541989279_r8, -0.05817368399260965_r8, -0.0581811629021938_r8, &
5617  -0.05824558332937864_r8, -0.05832296649102838_r8, -0.05836988848874046_r8, &
5618  -0.05838360459389962_r8, -0.05836446176763626_r8, -0.0583410956730107_r8, &
5619  -0.05831217065090378_r8, -0.05833704090383343_r8, -0.05837035101307744_r8, &
5620  -0.05840381376559546_r8, -0.0584589929001792_r8, -0.05851222355578702_r8, &
5621  -0.05856511942085491_r8, -0.05861607705178563_r8, -0.05866537495511907_r8, &
5622  -0.05871322014234021_r8, -0.05875975430970153_r8, -0.05880496214985481_r8, &
5623  -0.05884847855585585_r8, -0.05889008185886369_r8, -0.05892995836535157_r8, &
5624  -0.05902280963343222_r8, -0.05910570102398529_r8, -0.05917783538212645_r8, &
5625  -0.05923965612514409_r8, -0.05929108588472561_r8, -0.05933247005862318_r8, &
5626  -0.059363377531001_r8, -0.05938444688796363_r8, -0.05939493397486258_r8, &
5627  -0.05939521340296772_r8, -0.05938513881847345_r8, -0.05936402482514591_r8, &
5628  -0.05933262847881995_r8, -0.05929026405973633_r8, -0.0592371457215168_r8, &
5629  -0.05917295650939475_r8, -0.05909809562646889_r8, -0.05901196320629334_r8, &
5630  -0.05816941454829461_r8, -0.05817156270324186_r8, -0.05818460056385016_r8, &
5631  -0.05818660226709668_r8, -0.05819515248897807_r8, -0.05821099832417265_r8, &
5632  -0.05829614029013234_r8, -0.0583618679993071_r8, -0.05833304582398579_r8, &
5633  -0.05829067270610071_r8, -0.05829478886594895_r8, -0.05831920732925455_r8, &
5634  -0.05836193163507988_r8, -0.05839410110836477_r8, -0.05841843697844798_r8, &
5635  -0.05844155391876377_r8, -0.05848351847904014_r8, -0.05852749912035786_r8, &
5636  -0.05857298913960661_r8, -0.05862087157812002_r8, -0.05866864746300617_r8, &
5637  -0.0587151202262178_r8, -0.05876107582909022_r8, -0.05880581991567642_r8, &
5638  -0.05884886196968411_r8, -0.05889065299664824_r8, -0.05893060126960784_r8, &
5639  -0.05902372815573973_r8, -0.05910711091310872_r8, -0.05917861728443376_r8, &
5640  -0.05924079818416089_r8, -0.05929212469309349_r8, -0.05933377743784316_r8, &
5641  -0.05936482447881301_r8, -0.05938568263626884_r8, -0.05939642359913724_r8, &
5642  -0.05939663253177839_r8, -0.05938660067736389_r8, -0.0593658287182288_r8, &
5643  -0.05933431867715856_r8, -0.05929195039735995_r8, -0.05923898098300142_r8, &
5644  -0.05917471845970226_r8, -0.05909983683966646_r8, -0.05901388460027225_r8, &
5645  -0.05301578087812731_r8, -0.05302319516586801_r8, -0.05303095076059756_r8, &
5646  -0.05304001404371655_r8, -0.05305145476308031_r8, -0.05306490732203371_r8, &
5647  -0.05317340686483132_r8, -0.05330941332221949_r8, 9e90_r8, 9e90_r8, &
5648  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5649  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5650  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5651  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5652  9e90_r8, 9e90_r8, 9e90_r8 &
5653  /) ) /
5654 
5655 type(gsw_result) :: ctfreezing_p_poly
5656 
5657 data ctfreezing_p_poly / gsw_result( &
5658  "CTfreezing_P_poly", 9.5424e-20_r8, (/ &
5659  -7.6519219369902e-08_r8, -7.6557158499616e-08_r8, -7.6594815665582e-08_r8, &
5660  -7.663291556094e-08_r8, -7.6672372042886e-08_r8, -7.6710694882539e-08_r8, &
5661  -7.6820632618496e-08_r8, -7.6929637076692e-08_r8, -7.7031528924063e-08_r8, &
5662  -7.7125872964764e-08_r8, -7.7212868968724e-08_r8, -7.7302599356129e-08_r8, &
5663  -7.7478778911849e-08_r8, -7.7670478840772e-08_r8, -7.7860218502787e-08_r8, &
5664  -7.8053459238354e-08_r8, -7.8433290915955e-08_r8, -7.8812091373693e-08_r8, &
5665  -7.9190188308992e-08_r8, -7.9567255872918e-08_r8, -7.9943354341124e-08_r8, &
5666  -8.0318525032941e-08_r8, -8.0692793220706e-08_r8, -8.1069770806316e-08_r8, &
5667  -8.1442157506235e-08_r8, -8.1817150376806e-08_r8, -8.2187565574401e-08_r8, &
5668  -8.3114894821175e-08_r8, -8.4036328899369e-08_r8, -8.4951802941497e-08_r8, &
5669  -8.5864963973225e-08_r8, -8.6772258827959e-08_r8, -8.7677255322818e-08_r8, &
5670  -8.8572896080774e-08_r8, -8.946623653123e-08_r8, -9.0353741137872e-08_r8, &
5671  -9.1238861310497e-08_r8, -9.211470833841e-08_r8, -9.2991537148852e-08_r8, &
5672  -9.3859099960307e-08_r8, -9.4724174530002e-08_r8, -9.5580077435514e-08_r8, &
5673  -9.6436717123223e-08_r8, -9.7284162664539e-08_r8, -9.812897512015e-08_r8, &
5674  -7.6525008261912e-08_r8, -7.6562103482708e-08_r8, -7.660173100637e-08_r8, &
5675  -7.6638783201393e-08_r8, -7.6677350790141e-08_r8, -7.6717595460894e-08_r8, &
5676  -7.6832194329012e-08_r8, -7.6938436432062e-08_r8, -7.7023236756965e-08_r8, &
5677  -7.7105013785176e-08_r8, -7.7197283658889e-08_r8, -7.7297724566456e-08_r8, &
5678  -7.7489760612175e-08_r8, -7.7682925280345e-08_r8, -7.7870584928287e-08_r8, &
5679  -7.8061497554567e-08_r8, -7.843839180845e-08_r8, -7.8815190884497e-08_r8, &
5680  -7.9191744525942e-08_r8, -7.9568178873564e-08_r8, -7.9943967027622e-08_r8, &
5681  -8.0318870640519e-08_r8, -8.0693026473143e-08_r8, -8.1069917504663e-08_r8, &
5682  -8.1442220979041e-08_r8, -8.1817241747482e-08_r8, -8.2187664849036e-08_r8, &
5683  -8.3115023610106e-08_r8, -8.4036506066337e-08_r8, -8.49518895423e-08_r8, &
5684  -8.5865072871812e-08_r8, -8.6772341373495e-08_r8, -8.7677337588089e-08_r8, &
5685  -8.8572962342088e-08_r8, -8.946627091315e-08_r8, -9.0353754484392e-08_r8, &
5686  -9.1238845665988e-08_r8, -9.2114661329505e-08_r8, -9.2991438128958e-08_r8, &
5687  -9.385896600584e-08_r8, -9.472399619015e-08_r8, -9.5579830405453e-08_r8, &
5688  -9.6436423416394e-08_r8, -9.7283810317375e-08_r8, -9.8128508629192e-08_r8, &
5689  -7.4523336070684e-08_r8, -7.4574037788968e-08_r8, -7.4627805308599e-08_r8, &
5690  -7.4689007291807e-08_r8, -7.4750417572581e-08_r8, -7.4810945632147e-08_r8, &
5691  -7.5053434072496e-08_r8, -7.5257631194106e-08_r8, 9e90_r8, 9e90_r8, &
5692  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5693  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5694  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5695  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5696  9e90_r8, 9e90_r8, 9e90_r8 &
5697  /) ) /
5698 
5699 type(gsw_result) :: tfreezing_sa
5700 
5701 data tfreezing_sa / gsw_result( &
5702  "tfreezing_SA", 2.8484e-14_r8, (/ &
5703  -0.0567798139031856_r8, -0.05678223413923639_r8, -0.05678381518356748_r8, &
5704  -0.05678678319366636_r8, -0.05679397565929661_r8, -0.0567977086108083_r8, &
5705  -0.05683986295353308_r8, -0.0568917809875421_r8, -0.05692190838769959_r8, &
5706  -0.05692809171260809_r8, -0.05691046029624817_r8, -0.05688961256297963_r8, &
5707  -0.05686118166795689_r8, -0.0568719653065138_r8, -0.05688935253141398_r8, &
5708  -0.05690702813987412_r8, -0.05693475922382418_r8, -0.05696220949236099_r8, &
5709  -0.05699058990644853_r8, -0.05701870686348162_r8, -0.05704676945628698_r8, &
5710  -0.05707493808742089_r8, -0.05710332744131226_r8, -0.05713187240899185_r8, &
5711  -0.05716042377544763_r8, -0.05718869529118183_r8, -0.05721692446314915_r8, &
5712  -0.0572876703061904_r8, -0.05735864352675004_r8, -0.05742922100890682_r8, &
5713  -0.05749988975055042_r8, -0.05757060653346985_r8, -0.0576418867441369_r8, &
5714  -0.05771313991875113_r8, -0.05778537812037927_r8, -0.05785782652628126_r8, &
5715  -0.05793124538256098_r8, -0.05800502208574176_r8, -0.05807957262618014_r8, &
5716  -0.05815476032926115_r8, -0.05823078708255748_r8, -0.05830702010984887_r8, &
5717  -0.05838493731773364_r8, -0.05846343058710943_r8, -0.05854323350068819_r8, &
5718  -0.05679753217465359_r8, -0.05679740810249315_r8, -0.05680510186597855_r8, &
5719  -0.05680489192103042_r8, -0.0568093925814106_r8, -0.05681915152957574_r8, &
5720  -0.0568763130348378_r8, -0.05691991232242972_r8, -0.05689522338885922_r8, &
5721  -0.05686070919377004_r8, -0.0568598798046187_r8, -0.05687369872031543_r8, &
5722  -0.05689746892245147_r8, -0.05691372400482794_r8, -0.05692466827786459_r8, &
5723  -0.05693484580025991_r8, -0.05695296465749556_r8, -0.05697363009902799_r8, &
5724  -0.05699651660699433_r8, -0.05702234443060798_r8, -0.05704927094571612_r8, &
5725  -0.05707640155115551_r8, -0.05710435313706966_r8, -0.05713254340964729_r8, &
5726  -0.05716072607935274_r8, -0.05718914924840125_r8, -0.05721743961299226_r8, &
5727  -0.05728842181541011_r8, -0.05735982233103921_r8, -0.05742988967049775_r8, &
5728  -0.05750088979797725_r8, -0.05757153900242308_r8, -0.05764309139085403_r8, &
5729  -0.05771451026517471_r8, -0.0577865830127345_r8, -0.05785932443007964_r8, &
5730  -0.05793272009146375_r8, -0.05800659512270014_r8, -0.05808158799715961_r8, &
5731  -0.05815672593853945_r8, -0.0582328349696044_r8, -0.05830935504238893_r8, &
5732  -0.05838729589410799_r8, -0.05846589353901376_r8, -0.05854612103247572_r8, &
5733  -0.05329571534278817_r8, -0.05329554567939729_r8, -0.05329562519036385_r8, &
5734  -0.05329660126634706_r8, -0.05329929376510896_r8, -0.05330345110175239_r8, &
5735  -0.05336469388817219_r8, -0.05344564200252166_r8, 9e90_r8, 9e90_r8, &
5736  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5737  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5738  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5739  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5740  9e90_r8, 9e90_r8, 9e90_r8 &
5741  /) ) /
5742 
5743 type(gsw_result) :: tfreezing_p
5744 
5745 data tfreezing_p / gsw_result( &
5746  "tfreezing_P", 7.3771e-20_r8, (/ &
5747  -7.480941459441868e-08_r8, -7.484142543119165e-08_r8, &
5748  -7.487331343513785e-08_r8, -7.490539089547e-08_r8, &
5749  -7.493805577390966e-08_r8, -7.497023025286e-08_r8, &
5750  -7.505841543536741e-08_r8, -7.514478659688487e-08_r8, &
5751  -7.522806467803592e-08_r8, -7.530793631803006e-08_r8, &
5752  -7.538442321431812e-08_r8, -7.546359117575695e-08_r8, &
5753  -7.561739985460007e-08_r8, -7.577973970100512e-08_r8, &
5754  -7.593972686270895e-08_r8, -7.610278044529766e-08_r8, &
5755  -7.642430604050507e-08_r8, -7.674531190678021e-08_r8, &
5756  -7.706597540160855e-08_r8, -7.738613832331543e-08_r8, &
5757  -7.770583820603284e-08_r8, -7.802510564231947e-08_r8, &
5758  -7.834396473491413e-08_r8, -7.866552617485493e-08_r8, &
5759  -7.898354994973185e-08_r8, -7.930422376876027e-08_r8, &
5760  -7.962137772518619e-08_r8, -8.041719491577592e-08_r8, &
5761  -8.121064764229913e-08_r8, -8.200177278934908e-08_r8, &
5762  -8.27938221398336e-08_r8, -8.358382897184634e-08_r8, &
5763  -8.43750307878168e-08_r8, -8.516135805974682e-08_r8, &
5764  -8.594915527224243e-08_r8, -8.673538088554322e-08_r8, &
5765  -8.752327474748029e-08_r8, -8.830681012398712e-08_r8, &
5766  -8.909520910945989e-08_r8, -8.987950535147121e-08_r8, &
5767  -9.066585644058978e-08_r8, -9.14482650900927e-08_r8, &
5768  -9.223604494464683e-08_r8, -9.302014019115945e-08_r8, &
5769  -9.380674829722086e-08_r8, -7.481190207806875e-08_r8, &
5770  -7.484355527424766e-08_r8, -7.487630127465069e-08_r8, &
5771  -7.49079321787923e-08_r8, -7.494021946333844e-08_r8, &
5772  -7.497324004378032e-08_r8, -7.506354310458839e-08_r8, &
5773  -7.514875240013665e-08_r8, -7.52243047879607e-08_r8, &
5774  -7.529845661677459e-08_r8, -7.537731602922586e-08_r8, &
5775  -7.546135713194386e-08_r8, -7.562248638176188e-08_r8, &
5776  -7.578558970786537e-08_r8, -7.594467166895423e-08_r8, &
5777  -7.61066731973024e-08_r8, -7.642685019486348e-08_r8, &
5778  -7.674690585763207e-08_r8, -7.706680160924253e-08_r8, &
5779  -7.738664486875676e-08_r8, -7.770618618934587e-08_r8, &
5780  -7.802530902175102e-08_r8, -7.834410714167335e-08_r8, &
5781  -7.866561924846501e-08_r8, -7.898359184452803e-08_r8, &
5782  -7.930428662457523e-08_r8, -7.962144899385134e-08_r8, &
5783  -8.041729867705946e-08_r8, -8.121081011450347e-08_r8, &
5784  -8.200186480666794e-08_r8, -8.279395958529567e-08_r8, &
5785  -8.358395700420728e-08_r8, -8.437519608711952e-08_r8, &
5786  -8.516154604681048e-08_r8, -8.594932058583395e-08_r8, &
5787  -8.673558651941476e-08_r8, -8.752347740862811e-08_r8, &
5788  -8.83070266300552e-08_r8, -8.909548707081202e-08_r8, &
5789  -8.987977715973176e-08_r8, -9.066614053706646e-08_r8, &
5790  -9.144859024365485e-08_r8, -9.22363748684295e-08_r8, &
5791  -9.302048649288381e-08_r8, -9.380715668779972e-08_r8, &
5792  -7.434016238386904e-08_r8, -7.437296853650948e-08_r8, &
5793  -7.440612109683406e-08_r8, -7.444012331884646e-08_r8, &
5794  -7.44741921779601e-08_r8, -7.450820230415053e-08_r8, &
5795  -7.460755605334024e-08_r8, -7.470082142144461e-08_r8, 9e90_r8, 9e90_r8, &
5796  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5797  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5798  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5799  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5800  9e90_r8, 9e90_r8, 9e90_r8 &
5801  /) ) /
5802 
5803 type(gsw_result) :: tfreezing_sa_poly
5804 
5805 data tfreezing_sa_poly / gsw_result( &
5806  "tfreezing_SA_poly", 2.8491e-14_r8, (/ &
5807  -0.05677829479024063_r8, -0.0567807670382359_r8, -0.05678240120546947_r8, &
5808  -0.05678541898982356_r8, -0.05679265212180497_r8, -0.05679643211457153_r8, &
5809  -0.05683864055310561_r8, -0.05689058494300873_r8, -0.05692077819438569_r8, &
5810  -0.05692707034088679_r8, -0.05690959203546234_r8, -0.05688890714743097_r8, &
5811  -0.05686076022198718_r8, -0.05687173686053113_r8, -0.05688928554094392_r8, &
5812  -0.05690711311553229_r8, -0.05693512510065277_r8, -0.05696281076422686_r8, &
5813  -0.05699138064484994_r8, -0.05701964641793404_r8, -0.05704781910154298_r8, &
5814  -0.0570760610740267_r8, -0.05710448905583002_r8, -0.05713304103925001_r8, &
5815  -0.0571615688900062_r8, -0.0571897903850333_r8, -0.05721794414404811_r8, &
5816  -0.05728840397697029_r8, -0.0573589777266803_r8, -0.05742907478596963_r8, &
5817  -0.0574992083651081_r8, -0.05756936365534866_r8, -0.05764007847385572_r8, &
5818  -0.05771078991184457_r8, -0.05778252574307442_r8, -0.05785453283023617_r8, &
5819  -0.05792758521780392_r8, -0.05800108656462855_r8, -0.05807546127709294_r8, &
5820  -0.05815058183145707_r8, -0.05822665436848691_r8, -0.05830304663573563_r8, &
5821  -0.05838123603505834_r8, -0.05846010579540855_r8, -0.05854038205411227_r8, &
5822  -0.05679597809079141_r8, -0.05679591088455632_r8, -0.05680364551265712_r8, &
5823  -0.05680349147655791_r8, -0.05680803812775144_r8, -0.0568178319745877_r8, &
5824  -0.056875018864924_r8, -0.05691866193578628_r8, -0.05689414545820042_r8, &
5825  -0.05685982316493098_r8, -0.05685911528519355_r8, -0.05687302650119688_r8, &
5826  -0.05689696961977849_r8, -0.05691340441510077_r8, -0.05692452302031565_r8, &
5827  -0.05693486819636034_r8, -0.0569532883453983_r8, -0.05697420421830351_r8, &
5828  -0.05699729294556263_r8, -0.05702327498455261_r8, -0.05705031430549931_r8, &
5829  -0.05707752081273994_r8, -0.05710551211354387_r8, -0.05713371029963004_r8, &
5830  -0.05716187040507961_r8, -0.05719024315260381_r8, -0.05721845794083397_r8, &
5831  -0.05728915351679072_r8, -0.05736015348283301_r8, -0.05742974175876368_r8, &
5832  -0.05750020597165609_r8, -0.05757029394771408_r8, -0.05764128046154728_r8, &
5833  -0.05771215742989529_r8, -0.05778372833947416_r8, -0.05785602813436619_r8, &
5834  -0.05792905763162972_r8, -0.0580026574430335_r8, -0.05807747425984169_r8, &
5835  -0.05815254547500396_r8, -0.05822870057655628_r8, -0.05830538005103192_r8, &
5836  -0.05838359345146146_r8, -0.05846256787956657_r8, -0.05854326890811165_r8, &
5837  -0.05328313052667945_r8, -0.05328327595499649_r8, -0.05328377491250316_r8, &
5838  -0.05328542100107363_r8, -0.05328879709176362_r8, -0.05329361262604533_r8, &
5839  -0.05335925772583553_r8, -0.05344317961274174_r8, 9e90_r8, 9e90_r8, &
5840  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5841  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5842  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5843  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5844  9e90_r8, 9e90_r8, 9e90_r8 &
5845  /) ) /
5846 
5847 type(gsw_result) :: tfreezing_p_poly
5848 
5849 data tfreezing_p_poly / gsw_result( &
5850  "tfreezing_P_poly", 7.2183e-20_r8, (/ &
5851  -7.48621143377235e-08_r8, -7.489348575458774e-08_r8, &
5852  -7.492473540464642e-08_r8, -7.495618195749665e-08_r8, &
5853  -7.498823116402291e-08_r8, -7.501978353580322e-08_r8, &
5854  -7.510645331440379e-08_r8, -7.519141155942459e-08_r8, &
5855  -7.527323626560749e-08_r8, -7.535161518113864e-08_r8, &
5856  -7.542657564862877e-08_r8, -7.550417599582729e-08_r8, &
5857  -7.565506814037796e-08_r8, -7.581460779679992e-08_r8, &
5858  -7.59719441715182e-08_r8, -7.613237440614285e-08_r8, &
5859  -7.644893044086527e-08_r8, -7.676527715907407e-08_r8, &
5860  -7.708158496301593e-08_r8, -7.739768589542682e-08_r8, &
5861  -7.77136095784084e-08_r8, -7.802937853867493e-08_r8, &
5862  -7.834500873188728e-08_r8, -7.866357457957585e-08_r8, &
5863  -7.897888672301219e-08_r8, -7.929707116141976e-08_r8, &
5864  -7.961199869205489e-08_r8, -8.040321369811663e-08_r8, &
5865  -8.119339130168633e-08_r8, -8.198244607591117e-08_r8, &
5866  -8.277350647534538e-08_r8, -8.356349469119025e-08_r8, &
5867  -8.43555328951428e-08_r8, -8.514342629536983e-08_r8, &
5868  -8.593341330724134e-08_r8, -8.672233123144271e-08_r8, &
5869  -8.751331668034173e-08_r8, -8.830020445291627e-08_r8, &
5870  -8.909214305280101e-08_r8, -8.988001249736088e-08_r8, &
5871  -9.066988559067674e-08_r8, -9.145562667790486e-08_r8, &
5872  -9.224647627302618e-08_r8, -9.303323140159574e-08_r8, &
5873  -9.382200065263058e-08_r8, -7.486465363599245e-08_r8, &
5874  -7.489565948304096e-08_r8, -7.492778406575223e-08_r8, &
5875  -7.495877440134768e-08_r8, -7.499043786204554e-08_r8, &
5876  -7.502285237441945e-08_r8, -7.511167708000939e-08_r8, &
5877  -7.519544842407671e-08_r8, -7.526941096040349e-08_r8, &
5878  -7.53419744495423e-08_r8, -7.541935086062474e-08_r8, &
5879  -7.550190608084657e-08_r8, -7.566023147966864e-08_r8, &
5880  -7.582054006294413e-08_r8, -7.597695358057718e-08_r8, &
5881  -7.613631417772565e-08_r8, -7.645150061480918e-08_r8, &
5882  -7.676688461595673e-08_r8, -7.708241680151761e-08_r8, &
5883  -7.739819510228314e-08_r8, -7.771395888093885e-08_r8, &
5884  -7.802958241138774e-08_r8, -7.834515130306866e-08_r8, &
5885  -7.866366765005657e-08_r8, -7.897892857094457e-08_r8, &
5886  -7.929713388375258e-08_r8, -7.961206974465795e-08_r8, &
5887  -8.040331694611691e-08_r8, -8.119355273994052e-08_r8, &
5888  -8.198253741952181e-08_r8, -8.277364284080728e-08_r8, &
5889  -8.356362169841998e-08_r8, -8.435569690421469e-08_r8, &
5890  -8.514361291093749e-08_r8, -8.593357754400012e-08_r8, &
5891  -8.672253573352927e-08_r8, -8.751351846930485e-08_r8, &
5892  -8.830042031676222e-08_r8, -8.90924205911346e-08_r8, &
5893  -8.98802842969186e-08_r8, -9.067017010405048e-08_r8, &
5894  -9.145595278012282e-08_r8, -9.224680761132604e-08_r8, &
5895  -9.303357961220886e-08_r8, -9.382241171953162e-08_r8, &
5896  -7.437794913764851e-08_r8, -7.441028173277502e-08_r8, &
5897  -7.444297042643836e-08_r8, -7.447652904016719e-08_r8, &
5898  -7.451016050159252e-08_r8, -7.454373661765283e-08_r8, &
5899  -7.464226441645901e-08_r8, -7.473474154207217e-08_r8, 9e90_r8, 9e90_r8, &
5900  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5901  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5902  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5903  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5904  9e90_r8, 9e90_r8, 9e90_r8 &
5905  /) ) /
5906 
5907 type(gsw_result) :: pot_enthalpy_ice_freezing_sa
5908 
5909 data pot_enthalpy_ice_freezing_sa / gsw_result( &
5910  "pot_enthalpy_ice_freezing_SA", 5.447e-11_r8, (/ &
5911  -118.2770096024129_r8, -118.2770858177355_r8, -118.2755244900544_r8, &
5912  -118.2766657809087_r8, -118.2860412973467_r8, -118.2886706672191_r8, &
5913  -118.3587579103741_r8, -118.448335109222_r8, -118.495416784849_r8, &
5914  -118.4958043940141_r8, -118.4497587734552_r8, -118.3969767155658_r8, &
5915  -118.3181975709755_r8, -118.3153421554878_r8, -118.3257834909342_r8, &
5916  -118.3362783218933_r8, -118.3427791885712_r8, -118.3485829562756_r8, &
5917  -118.356047081722_r8, -118.3628475375852_r8, -118.3693915014071_r8, &
5918  -118.3759910320239_r8, -118.382868963761_r8, -118.3894178820495_r8, &
5919  -118.3963072844445_r8, -118.4020186835741_r8, -118.4079789350532_r8, &
5920  -118.4218239953343_r8, -118.4351581095175_r8, -118.4467734938293_r8, &
5921  -118.4571178440391_r8, -118.4665994333703_r8, -118.4757110066661_r8, &
5922  -118.4843164869626_r8, -118.4933582284637_r8, -118.501843539583_r8, &
5923  -118.5107199749194_r8, -118.5198374472637_r8, -118.5284333796178_r8, &
5924  -118.537806029645_r8, -118.5472903582128_r8, -118.5567293268764_r8, &
5925  -118.5673536770352_r8, -118.5786382816487_r8, -118.5909079967883_r8, &
5926  -118.3115559649122_r8, -118.3066705667715_r8, -118.3170264772061_r8, &
5927  -118.3119708431208_r8, -118.3160979209499_r8, -118.3304749632963_r8, &
5928  -118.4298234018337_r8, -118.5031845033693_r8, -118.4433911060878_r8, &
5929  -118.3644491540644_r8, -118.3511675033742_r8, -118.3659603521915_r8, &
5930  -118.3889104614253_r8, -118.3967069868321_r8, -118.3945861532505_r8, &
5931  -118.3904662456765_r8, -118.3782333993349_r8, -118.3708181435315_r8, &
5932  -118.367582937503_r8, -118.3699259057785_r8, -118.3742578729608_r8, &
5933  -118.37883727369_r8, -118.3848632648139_r8, -118.3907221738581_r8, &
5934  -118.39689474037_r8, -118.4029005914789_r8, -118.4089794386313_r8, &
5935  -118.4232824840621_r8, -118.4374441592169_r8, -118.4480692281818_r8, &
5936  -118.4590542036626_r8, -118.4684034760838_r8, -118.4780396849621_r8, &
5937  -118.4869632222728_r8, -118.4956833686908_r8, -118.5047315407943_r8, &
5938  -118.5135606569447_r8, -118.5228647210397_r8, -118.5323082107436_r8, &
5939  -118.5415815218776_r8, -118.5512199847954_r8, -118.5612052453047_r8, &
5940  -118.5718702504829_r8, -118.5833497933198_r8, -118.5964258085308_r8, &
5941  -111.6185555792632_r8, -111.6113679321992_r8, -111.6039619657437_r8, &
5942  -111.5966438055147_r8, -111.5928332056843_r8, -111.5922639668351_r8, &
5943  -111.6751435909979_r8, -111.8071141844643_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5944  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5945  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5946  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5947  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
5948  9e90_r8, 9e90_r8 &
5949  /) ) /
5950 
5951 type(gsw_result) :: pot_enthalpy_ice_freezing_p
5952 
5953 data pot_enthalpy_ice_freezing_p / gsw_result( &
5954  "pot_enthalpy_ice_freezing_P", 1.1905e-16_r8, (/ &
5955  -0.0002028289015986082_r8, -0.0002028804196652307_r8, &
5956  -0.0002029319085347564_r8, -0.0002029833982269374_r8, &
5957  -0.0002030349272731101_r8, -0.0002030863917016377_r8, &
5958  -0.000203220581456053_r8, -0.0002033497255366464_r8, &
5959  -0.0002034784429275102_r8, -0.0002036066412974095_r8, &
5960  -0.00020373432670365_r8, -0.0002038669887725706_r8, &
5961  -0.0002041220183925295_r8, -0.0002043822838920322_r8, &
5962  -0.000204637100890752_r8, -0.000204896568408263_r8, &
5963  -0.0002054089973966183_r8, -0.0002059196860412189_r8, &
5964  -0.000206428668669384_r8, -0.0002069359465411991_r8, &
5965  -0.0002074415400235692_r8, -0.0002079454686410774_r8, &
5966  -0.0002084477511343282_r8, -0.0002089533487724911_r8, &
5967  -0.0002094523704520252_r8, -0.0002099547036549035_r8, &
5968  -0.0002104505260802033_r8, -0.0002116905642064755_r8, &
5969  -0.0002129209696256486_r8, -0.0002141419892818813_r8, &
5970  -0.0002153586296548608_r8, -0.0002165663166318322_r8, &
5971  -0.0002177699820506145_r8, -0.0002189604618113277_r8, &
5972  -0.0002201473358988581_r8, -0.0002213261459874387_r8, &
5973  -0.0002225016868305657_r8, -0.0002236650357522069_r8, &
5974  -0.0002248299988553749_r8, -0.0002259832179021464_r8, &
5975  -0.000227133879340208_r8, -0.0002282732751139383_r8, &
5976  -0.0002294148882307961_r8, -0.0002305456614428127_r8, &
5977  -0.000231674569082022_r8, -0.000202829147295895_r8, &
5978  -0.0002028806290556009_r8, -0.0002029322036595624_r8, &
5979  -0.0002029836482283628_r8, -0.0002030351418189304_r8, &
5980  -0.0002030866932007087_r8, -0.0002032211515104056_r8, &
5981  -0.0002033502076674174_r8, -0.0002034779903639052_r8, &
5982  -0.0002036055527116597_r8, -0.0002037335408574061_r8, &
5983  -0.0002038667481583247_r8, -0.0002041225439749018_r8, &
5984  -0.0002043828862652733_r8, -0.0002046376094725246_r8, &
5985  -0.0002048969677877258_r8, -0.0002054092541271344_r8, &
5986  -0.0002059198446780579_r8, -0.0002064287500877199_r8, &
5987  -0.0002069359961347185_r8, -0.0002074415739175479_r8, &
5988  -0.0002079454883571766_r8, -0.0002084477648934296_r8, &
5989  -0.000208953357733808_r8, -0.0002094523744750814_r8, &
5990  -0.0002099547096712008_r8, -0.0002104505328842219_r8, &
5991  -0.0002116905740538632_r8, -0.0002129209849936592_r8, &
5992  -0.0002141419979601302_r8, -0.0002153586426244717_r8, &
5993  -0.0002165663287577169_r8, -0.0002177699978413807_r8, &
5994  -0.0002189604800095717_r8, -0.0002201473522090212_r8, &
5995  -0.0002213261667804597_r8, -0.0002225017079563833_r8, &
5996  -0.0002236650591532894_r8, -0.0002248300301759092_r8, &
5997  -0.0002259832499939369_r8, -0.0002271339146587456_r8, &
5998  -0.0002282733178456307_r8, -0.0002294149342689991_r8, &
5999  -0.0002305457129093449_r8, -0.0002316746339231032_r8, &
6000  -0.0002031814332884368_r8, -0.0002032301319067567_r8, &
6001  -0.0002032779018859639_r8, -0.0002033234610010417_r8, &
6002  -0.0002033689592190151_r8, -0.0002034147156986458_r8, &
6003  -0.0002035093752924112_r8, -0.0002036093733581402_r8, 9e90_r8, 9e90_r8, &
6004  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6005  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6006  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6007  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6008  9e90_r8, 9e90_r8, 9e90_r8 &
6009  /) ) /
6010 
6011 type(gsw_result) :: pot_enthalpy_ice_freezing_sa_poly
6012 
6013 data pot_enthalpy_ice_freezing_sa_poly / gsw_result( &
6014  "pot_enthalpy_ice_freezing_SA_poly", 5.4158e-11_r8, (/ &
6015  -118.2786136748115_r8, -118.2786691962934_r8, -118.277093410823_r8, &
6016  -118.2782095157019_r8, -118.2875281648098_r8, -118.2901267940559_r8, &
6017  -118.3599003949369_r8, -118.4491097058922_r8, -118.4959866045523_r8, &
6018  -118.4963332225193_r8, -118.4503992749859_r8, -118.3977428026978_r8, &
6019  -118.3191131015272_r8, -118.3161507378226_r8, -118.3264456680599_r8, &
6020  -118.3367925167793_r8, -118.3430399973835_r8, -118.348591486695_r8, &
6021  -118.3558014537028_r8, -118.3623536782914_r8, -118.3686565402758_r8, &
6022  -118.375023711984_r8, -118.3816799081347_r8, -118.3880188457441_r8, &
6023  -118.3947150889453_r8, -118.4002503496935_r8, -118.4060549416702_r8, &
6024  -118.4196059989038_r8, -118.4328061621266_r8, -118.4444735464772_r8, &
6025  -118.4550789517116_r8, -118.4650495467041_r8, -118.4748964840495_r8, &
6026  -118.4844895956926_r8, -118.4947850675499_r8, -118.5047911013883_r8, &
6027  -118.5154592215837_r8, -118.52661832918_r8, -118.5375212594883_r8, &
6028  -118.5494191019101_r8, -118.5616445683019_r8, -118.5739899847183_r8, &
6029  -118.5876794591411_r8, -118.6021106910076_r8, -118.6175802531017_r8, &
6030  -118.3130232732842_r8, -118.3081377430982_r8, -118.3184338455852_r8, &
6031  -118.3133782403272_r8, -118.3174698046054_r8, -118.3317727107976_r8, &
6032  -118.4307061686643_r8, -118.5037656450977_r8, -118.4441407519729_r8, &
6033  -118.3654255496223_r8, -118.3521385741138_r8, -118.3668284864211_r8, &
6034  -118.3896020438115_r8, -118.3972691634542_r8, -118.3950490420497_r8, &
6035  -118.3908304735428_r8, -118.3784044678154_r8, -118.3707752661933_r8, &
6036  -118.3673129777692_r8, -118.3694184372085_r8, -118.3735143833268_r8, &
6037  -118.3778654035574_r8, -118.3836712972589_r8, -118.3893213952983_r8, &
6038  -118.3953018239081_r8, -118.4011312590607_r8, -118.4070543929515_r8, &
6039  -118.4210631655153_r8, -118.4350902994053_r8, -118.4457681985728_r8, &
6040  -118.4570135769698_r8, -118.4668517640318_r8, -118.4772224181992_r8, &
6041  -118.4871326551818_r8, -118.4971063954093_r8, -118.5076735414957_r8, &
6042  -118.5182935295792_r8, -118.5296377679679_r8, -118.5413846234894_r8, &
6043  -118.5531819446509_r8, -118.5655594125699_r8, -118.5784471574916_r8, &
6044  -118.5921751086301_r8, -118.6067982250461_r8, -118.6230673860459_r8, &
6045  -111.5700765594952_r8, -111.5637032121096_r8, -111.5573803074221_r8, &
6046  -111.5518097831558_r8, -111.549791076265_r8, -111.5509512746412_r8, &
6047  -111.646217238763_r8, -111.7869466979063_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6048  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6049  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6050  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6051  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6052  9e90_r8, 9e90_r8 &
6053  /) ) /
6054 
6055 type(gsw_result) :: pot_enthalpy_ice_freezing_p_poly
6056 
6057 data pot_enthalpy_ice_freezing_p_poly / gsw_result( &
6058  "pot_enthalpy_ice_freezing_P_poly", 1.1636e-16_r8, (/ &
6059  -0.0002028832220404636_r8, -0.0002029338014859178_r8, &
6060  -0.0002029843592261198_r8, -0.0002030349225727318_r8, &
6061  -0.000203085526573594_r8, -0.000203136076554657_r8, &
6062  -0.0002032678808460198_r8, -0.0002033947630834457_r8, &
6063  -0.0002035212824260722_r8, -0.0002036473445770975_r8, &
6064  -0.0002037729566074213_r8, -0.0002039035090095683_r8, &
6065  -0.0002041545914453996_r8, -0.0002044109390337604_r8, &
6066  -0.0002046620564429886_r8, -0.0002049179015647689_r8, &
6067  -0.0002054236078846639_r8, -0.0002059281462065522_r8, &
6068  -0.00020643153160512_r8, -0.000206933749405151_r8, &
6069  -0.0002074348023094658_r8, -0.0002079346923911016_r8, &
6070  -0.0002084334211555538_r8, -0.0002089359050131323_r8, &
6071  -0.0002094322964875789_r8, -0.0002099324146733319_r8, &
6072  -0.0002104264631814717_r8, -0.0002116637759265789_r8, &
6073  -0.000212893732843667_r8, -0.0002141163263118669_r8, &
6074  -0.0002153363287030724_r8, -0.0002165489149202127_r8, &
6075  -0.0002177587994913051_r8, -0.0002189565292739232_r8, &
6076  -0.000220151504851596_r8, -0.0002213390063479329_r8, &
6077  -0.0002225236358151185_r8, -0.0002236961733120452_r8, &
6078  -0.0002248703059721947_r8, -0.0002260323501698013_r8, &
6079  -0.0002271913403082299_r8, -0.0002283382890749561_r8, &
6080  -0.000229486552985308_r8, -0.0002306227815074647_r8, &
6081  -0.0002317557843287904_r8, -0.0002028834471792632_r8, &
6082  -0.0002029339930752811_r8, -0.0002029846293697417_r8, &
6083  -0.0002030351511114238_r8, -0.0002030857229080125_r8, &
6084  -0.0002031363528744514_r8, -0.0002032684126533961_r8, &
6085  -0.000203395218923092_r8, -0.0002035208556543682_r8, &
6086  -0.0002036463267420247_r8, -0.0002037722271667668_r8, &
6087  -0.0002039032868846247_r8, -0.0002041550722873646_r8, &
6088  -0.0002044114890821092_r8, -0.0002046625202976901_r8, &
6089  -0.0002049182653904082_r8, -0.000205423840912133_r8, &
6090  -0.0002059282899069303_r8, -0.000206431605342751_r8, &
6091  -0.0002069337943859851_r8, -0.0002074348331346407_r8, &
6092  -0.0002079347103899682_r8, -0.0002084334337782607_r8, &
6093  -0.0002089359132826579_r8, -0.0002094323002252248_r8, &
6094  -0.0002099324203052572_r8, -0.0002104264696039522_r8, &
6095  -0.0002116637854466873_r8, -0.0002128937481161947_r8, &
6096  -0.0002141163352009773_r8, -0.00021533634242067_r8, &
6097  -0.0002165489281721139_r8, -0.0002177588173151009_r8, &
6098  -0.0002189565504544516_r8, -0.0002201515243769082_r8, &
6099  -0.0002213390318644419_r8, -0.0002225236622852469_r8, &
6100  -0.0002236962031106905_r8, -0.0002248703463188357_r8, &
6101  -0.0002260323917823209_r8, -0.0002271913861837698_r8, &
6102  -0.0002283383444160613_r8, -0.0002294866121623263_r8, &
6103  -0.0002306228468966869_r8, -0.0002317558654434513_r8, &
6104  -0.000203267229694165_r8, -0.0002033149358290789_r8, &
6105  -0.000203361719128917_r8, -0.0002034062929562954_r8, &
6106  -0.0002034507832465749_r8, -0.0002034955116930291_r8, &
6107  -0.0002035868068629447_r8, -0.0002036831985411069_r8, 9e90_r8, 9e90_r8, &
6108  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6109  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6110  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6111  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6112  9e90_r8, 9e90_r8, 9e90_r8 &
6113  /) ) /
6114 
6115 type(gsw_result) :: latentheat_melting
6116 
6117 data latentheat_melting / gsw_result( &
6118  "latentheat_melting", 6.3214e-08_r8, (/ &
6119  329985.5184172138_r8, 329967.4069665318_r8, 329949.6870640397_r8, &
6120  329931.2780902656_r8, 329910.8047362334_r8, 329891.9944452619_r8, &
6121  329827.3410740866_r8, 329759.7153231357_r8, 329702.5300849362_r8, &
6122  329656.6949090022_r8, 329622.1266588483_r8, 329587.2967956714_r8, &
6123  329514.4830801332_r8, 329420.6891621938_r8, 329325.0650913023_r8, &
6124  329227.1617327287_r8, 329035.570749666_r8, 328842.5308029521_r8, &
6125  328647.4695020783_r8, 328450.9599845368_r8, 328252.9063966507_r8, &
6126  328053.2368411109_r8, 327851.9016328267_r8, 327647.0512564728_r8, &
6127  327442.5136208842_r8, 327234.6412453998_r8, 327027.1429758187_r8, &
6128  326498.6214878421_r8, 325960.2991010458_r8, 325412.5237756381_r8, &
6129  324853.0441048888_r8, 324283.9500293087_r8, 323702.9058951924_r8, &
6130  323114.5282550592_r8, 322514.0583384848_r8, 321904.073445803_r8, &
6131  321281.9820854633_r8, 320652.7081568476_r8, 320009.0921141995_r8, &
6132  319358.2975858966_r8, 318695.5020520273_r8, 318025.9322802132_r8, &
6133  317341.5208785617_r8, 316650.3083867333_r8, 315946.9532509777_r8, &
6134  329976.9239755038_r8, 329960.0473453061_r8, 329939.3683538063_r8, &
6135  329922.5009567162_r8, 329903.3375833646_r8, 329881.6171669224_r8, &
6136  329809.8122578915_r8, 329746.2682362474_r8, 329715.283508438_r8, &
6137  329688.9632887048_r8, 329646.3817853_r8, 329594.9328472625_r8, &
6138  329497.0597789124_r8, 329400.6662756926_r8, 329308.1560384478_r8, &
6139  329213.8612686873_r8, 329026.8845850723_r8, 328837.0937699974_r8, &
6140  328644.6545299566_r8, 328449.2364583259_r8, 328251.7240247626_r8, &
6141  328052.5467459542_r8, 327851.4191059836_r8, 327646.7363159087_r8, &
6142  327442.3720479624_r8, 327234.4291060417_r8, 327026.9027375162_r8, &
6143  326498.2727146944_r8, 325959.754412801_r8, 325412.2159754166_r8, &
6144  324852.5852846295_r8, 324283.5234027592_r8, 323702.3560135125_r8, &
6145  323113.9038529727_r8, 322513.5100384949_r8, 321903.3923409138_r8, &
6146  321281.311705092_r8, 320651.992900466_r8, 320008.1749874189_r8, &
6147  319357.4019001912_r8, 318694.5670933039_r8, 318024.863643216_r8, &
6148  317340.4381456572_r8, 316649.1736884361_r8, 315945.6174279523_r8, &
6149  332669.6437188723_r8, 332640.2572422285_r8, 332607.0564168283_r8, &
6150  332564.65820149_r8, 332521.8726991066_r8, 332480.0412048035_r8, &
6151  332264.3938576001_r8, 332090.4995257973_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6152  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6153  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6154  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6155  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6156  9e90_r8, 9e90_r8 &
6157  /) ) /
6158 
6159 type(gsw_result) :: latentheat_evap_ct
6160 
6161 data latentheat_evap_ct / gsw_result( &
6162  "latentheat_evap_CT", 1.4557e-06_r8, (/ &
6163  2431864.952769883_r8, 2431868.202103747_r8, 2431986.861042973_r8, &
6164  2431973.261047543_r8, 2432127.743472645_r8, 2432344.798548297_r8, &
6165  2434351.343116321_r8, 2437877.091674121_r8, 2442850.427368078_r8, &
6166  2449397.883220954_r8, 2455357.818705388_r8, 2460812.629571125_r8, &
6167  2469994.8100478_r8, 2474129.882787106_r8, 2476547.887362144_r8, &
6168  2478584.090491191_r8, 2481348.629840151_r8, 2483151.948797595_r8, &
6169  2484630.3895131_r8, 2485875.092478835_r8, 2487011.88083393_r8, &
6170  2488082.255822622_r8, 2489067.993211114_r8, 2489957.29150394_r8, &
6171  2490702.887819767_r8, 2491403.84819501_r8, 2491969.608001212_r8, &
6172  2493015.806383749_r8, 2493818.749944407_r8, 2494325.435013433_r8, &
6173  2494733.981409546_r8, 2495018.383001656_r8, 2495238.969509745_r8, &
6174  2495406.042816157_r8, 2495579.569619582_r8, 2495701.040860897_r8, &
6175  2495821.697732517_r8, 2495922.339854242_r8, 2495960.5970205_r8, &
6176  2496028.024203883_r8, 2496072.034795387_r8, 2496076.995982333_r8, &
6177  2496100.434840173_r8, 2496104.100478163_r8, 2496105.544565524_r8, &
6178  2433469.705008135_r8, 2433621.896937062_r8, 2433459.084222254_r8, &
6179  2433568.0280929_r8, 2433503.843080851_r8, 2434270.363518625_r8, &
6180  2439364.636361379_r8, 2446360.237343366_r8, 2453811.631713511_r8, &
6181  2462841.025306763_r8, 2467755.129083686_r8, 2471214.028109648_r8, &
6182  2473791.169336211_r8, 2475108.253379064_r8, 2476140.065040834_r8, &
6183  2477200.150003994_r8, 2479482.88664616_r8, 2481670.221249355_r8, &
6184  2483669.158652083_r8, 2485151.463315451_r8, 2486357.124944527_r8, &
6185  2487566.976035961_r8, 2488369.879426961_r8, 2489170.770271193_r8, &
6186  2489971.331801482_r8, 2490748.037771734_r8, 2491492.774730543_r8, &
6187  2492582.732043585_r8, 2493636.341055364_r8, 2494062.122584621_r8, &
6188  2494514.244628739_r8, 2494816.729177481_r8, 2495098.986537879_r8, &
6189  2495342.141719426_r8, 2495572.532076836_r8, 2495811.227325485_r8, &
6190  2496026.367186597_r8, 2496217.04814388_r8, 2496324.805153277_r8, &
6191  2496409.630911063_r8, 2496480.171932505_r8, 2496506.555087547_r8, &
6192  2496511.788918582_r8, 2496514.679703501_r8, 2496525.620648657_r8, &
6193  2474951.236445722_r8, 2477150.708018741_r8, 2482116.299355683_r8, &
6194  2487144.960734571_r8, 2490040.730189713_r8, 2491529.576826381_r8, &
6195  2489855.680475559_r8, 2488434.428739395_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6196  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6197  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6198  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6199  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6200  9e90_r8, 9e90_r8 &
6201  /) ) /
6202 
6203 type(gsw_result) :: latentheat_evap_t
6204 
6205 data latentheat_evap_t / gsw_result( &
6206  "latentheat_evap_t", 1.4431e-06_r8, (/ &
6207  2431864.952769883_r8, 2431862.551762854_r8, 2431975.574268352_r8, &
6208  2431956.325670936_r8, 2432105.197918318_r8, 2432316.682174483_r8, &
6209  2434309.552635047_r8, 2437823.807558516_r8, 2442788.011152495_r8, &
6210  2449329.620329681_r8, 2455285.337273384_r8, 2460737.005868371_r8, &
6211  2469916.705366168_r8, 2474044.777726132_r8, 2476454.665276946_r8, &
6212  2478483.097244758_r8, 2481231.914996122_r8, 2483019.02957275_r8, &
6213  2484481.929632294_r8, 2485711.56894907_r8, 2486834.095638617_r8, &
6214  2487891.07770146_r8, 2488863.974233727_r8, 2489740.473569088_r8, &
6215  2490472.992241231_r8, 2491160.960492861_r8, 2491713.009184082_r8, &
6216  2492721.598696598_r8, 2493484.546981856_r8, 2493946.50204572_r8, &
6217  2494307.549071099_r8, 2494540.780746765_r8, 2494707.013869245_r8, &
6218  2494816.950986322_r8, 2494931.389848909_r8, 2494990.491959651_r8, &
6219  2495046.497308976_r8, 2495080.158962597_r8, 2495046.84516248_r8, &
6220  2495041.79858143_r8, 2495010.156617827_r8, 2494936.239632934_r8, &
6221  2494878.699389277_r8, 2494798.81909591_r8, 2494714.182808778_r8, &
6222  2433469.705008135_r8, 2433616.358865924_r8, 2433447.984254358_r8, &
6223  2433551.39763979_r8, 2433481.648362348_r8, 2434242.861349128_r8, &
6224  2439325.306510378_r8, 2446312.576971931_r8, 2453758.497017076_r8, &
6225  2462786.759063189_r8, 2467697.919106402_r8, 2471153.255976541_r8, &
6226  2473719.805461554_r8, 2475025.088398479_r8, 2476045.564330914_r8, &
6227  2477094.821224416_r8, 2479358.9580115_r8, 2481530.398063658_r8, &
6228  2483515.451184407_r8, 2484983.411159189_r8, 2486174.721808285_r8, &
6229  2487371.750479643_r8, 2488159.830735003_r8, 2488946.525919754_r8, &
6230  2489733.943981713_r8, 2490497.891010775_r8, 2491230.506593726_r8, &
6231  2492282.506728239_r8, 2493299.210525173_r8, 2493678.506603946_r8, &
6232  2494083.471869643_r8, 2494334.77416684_r8, 2494563.726033504_r8, &
6233  2494751.378794571_r8, 2494924.088134917_r8, 2495103.688679831_r8, &
6234  2495257.178520219_r8, 2495384.030015225_r8, 2495422.934461595_r8, &
6235  2495436.441461981_r8, 2495432.844093334_r8, 2495381.710948068_r8, &
6236  2495305.858746646_r8, 2495225.724194544_r8, 2495151.490367209_r8, &
6237  2474951.236445722_r8, 2477149.192049776_r8, 2482114.157329434_r8, &
6238  2487143.137323316_r8, 2490039.374968516_r8, 2491528.553854507_r8, &
6239  2489852.225141957_r8, 2488427.808798687_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6240  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6241  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6242  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6243  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6244  9e90_r8, 9e90_r8 &
6245  /) ) /
6246 
6247 type(gsw_result) :: grav
6248 
6249 data grav / gsw_result( &
6250  "grav", 5.3291e-14_r8, (/ &
6251  9.782207133388146_r8, 9.782229115001646_r8, 9.782251095547741_r8, &
6252  9.782273075026763_r8, 9.782295053439038_r8, 9.782317030784899_r8, &
6253  9.782374166895663_r8, 9.782429098672781_r8, 9.782484023797332_r8, &
6254  9.782538942274453_r8, 9.782593854109265_r8, 9.782650955376823_r8, &
6255  9.782760745350879_r8, 9.782872703838301_r8, 9.78298244035172_r8, &
6256  9.783094344394268_r8, 9.783315877380796_r8, 9.783537303132981_r8, &
6257  9.783758621984926_r8, 9.783979834269765_r8, 9.784200940319634_r8, &
6258  9.784421940465693_r8, 9.784642835038099_r8, 9.78486580987391_r8, &
6259  9.785086493248405_r8, 9.785309255463645_r8, 9.785529728961921_r8, &
6260  9.786083728448133_r8, 9.786637075764117_r8, 9.787189776013436_r8, &
6261  9.787744006454723_r8, 9.788297594909174_r8, 9.788852713607115_r8, &
6262  9.789405030698417_r8, 9.789958883080244_r8, 9.790512108534323_r8, &
6263  9.791066869383222_r8, 9.791618853322653_r8, 9.792174530201326_r8, &
6264  9.792727439921242_r8, 9.793281890130217_r8, 9.793833587542339_r8, &
6265  9.794388973464592_r8, 9.794941616086385_r8, 9.795495804176102_r8, &
6266  9.78173366906241_r8, 9.781755650675908_r8, 9.781777631221999_r8, &
6267  9.781799610701016_r8, 9.781821589113282_r8, 9.781843566459131_r8, &
6268  9.781900702569855_r8, 9.781955634346923_r8, 9.782010559471408_r8, &
6269  9.782065477948445_r8, 9.782120389783159_r8, 9.7821774910506_r8, &
6270  9.782287281024384_r8, 9.78239923951147_r8, 9.782508976024497_r8, &
6271  9.782620880066586_r8, 9.78284241305202_r8, 9.783063838802866_r8, &
6272  9.783285157653236_r8, 9.783506369936253_r8, 9.783727475984064_r8, &
6273  9.78394847612782_r8, 9.784169370697688_r8, 9.784392345530691_r8, &
6274  9.784613028902164_r8, 9.784835791114109_r8, 9.78505626460888_r8, &
6275  9.785610264085234_r8, 9.786163611389851_r8, 9.786716311626309_r8, &
6276  9.787270542053186_r8, 9.787824130491725_r8, 9.788379249172189_r8, &
6277  9.788931566244594_r8, 9.789485418605961_r8, 9.790038644038091_r8, &
6278  9.790593404863463_r8, 9.791145388777979_r8, 9.791701065630047_r8, &
6279  9.792253975321982_r8, 9.792808425501383_r8, 9.793360122882575_r8, &
6280  9.793915508772173_r8, 9.794468151359965_r8, 9.795022339414075_r8, &
6281  9.818385590850475_r8, 9.818407572464066_r8, 9.818429553010436_r8, &
6282  9.81845153248991_r8, 9.818473510902823_r8, 9.818495488249502_r8, &
6283  9.818552624363246_r8, 9.818607556144389_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6284  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6285  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6286  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6287  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6288  9e90_r8, 9e90_r8 &
6289  /) ) /
6290 
6291 type(gsw_result) :: enthalpy_ct_exact
6292 
6293 data enthalpy_ct_exact / gsw_result( &
6294  "enthalpy_CT_exact", 2.4993e-06_r8, (/ &
6295  111751.65419162_r8, 111844.17892919_r8, 111745.31155707_r8, &
6296  111865.3552419_r8, 111701.33349996_r8, 111436.44754759_r8, &
6297  108313.46433704_r8, 102637.16898192_r8, 94559.551909165_r8, &
6298  83859.401711777_r8, 74144.374216388_r8, 65274.269980247_r8, &
6299  50377.198756052_r8, 43928.738760163_r8, 40349.751105298_r8, &
6300  37421.655163955_r8, 33756.959140282_r8, 31707.050319261_r8, &
6301  30202.146967212_r8, 29089.754579442_r8, 28158.361085932_r8, &
6302  27338.166982042_r8, 26659.728500673_r8, 26152.693010668_r8, &
6303  25876.863150205_r8, 25685.581342207_r8, 25711.19728475_r8, &
6304  26406.404977005_r8, 27507.436800359_r8, 29103.505720826_r8, &
6305  30871.517776007_r8, 32845.411048917_r8, 34933.428390336_r8, &
6306  37099.127112522_r8, 39260.831556388_r8, 41507.462238219_r8, &
6307  43762.347930644_r8, 46038.664970726_r8, 48436.492711669_r8, &
6308  50773.101709681_r8, 53156.120022627_r8, 55592.847669091_r8, &
6309  58014.913882842_r8, 60458.220179324_r8, 62912.250660556_r8, &
6310  109061.39804526_r8, 108908.18138748_r8, 109272.29339626_r8, &
6311  109191.21220911_r8, 109394.05817582_r8, 108207.66159305_r8, &
6312  99919.588506324_r8, 88447.44721101_r8, 76248.740462444_r8, &
6313  61386.026651488_r8, 53386.552446308_r8, 47826.899887508_r8, &
6314  43978.283020473_r8, 42260.16666347_r8, 41014.255832079_r8, &
6315  39730.908469231_r8, 36881.724934893_r8, 34190.515656737_r8, &
6316  31814.038855221_r8, 30303.612347686_r8, 29257.043443947_r8, &
6317  28203.007767101_r8, 27831.837085728_r8, 27473.380128456_r8, &
6318  27105.322190615_r8, 26786.675195288_r8, 26511.647343278_r8, &
6319  27133.187226425_r8, 27813.119142058_r8, 29545.245288752_r8, &
6320  31239.94024217_r8, 33183.512531414_r8, 35167.867901385_r8, &
6321  37205.753019894_r8, 39272.061054654_r8, 41321.706396635_r8, &
6322  43417.924278086_r8, 45542.952840392_r8, 47823.778296866_r8, &
6323  50131.121967517_r8, 52469.455983044_r8, 54869.956030942_r8, &
6324  57322.501483125_r8, 59766.957096513_r8, 62204.701996098_r8, &
6325  41925.661983623_r8, 38203.689480714_r8, 29680.261445303_r8, &
6326  21044.677871075_r8, 16113.301299732_r8, 13625.18970737_r8, &
6327  16743.740011372_r8, 19409.635279461_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6328  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6329  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6330  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6331  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6332  9e90_r8 &
6333  /) ) /
6334 
6335 type(gsw_result) :: h_sa_ct_exact
6336 
6337 data h_sa_ct_exact / gsw_result( &
6338  "h_SA_CT_exact", 2.3714e-10_r8, (/ &
6339  0._r8, -0.0703453379025_r8, -0.140692842553_r8, -0.211018738227_r8, &
6340  -0.28136087909_r8, -0.351729215062_r8, -0.535248658826_r8, &
6341  -0.713014572037_r8, -0.892951458055_r8, -1.07625661092_r8, &
6342  -1.26166451945_r8, -1.45623099663_r8, -1.83544297712_r8, -2.21712639472_r8, &
6343  -2.58965749966_r8, -2.97015357431_r8, -3.7228102243_r8, -4.47402457187_r8, &
6344  -5.22525510985_r8, -5.97626297778_r8, -6.72748707633_r8, -7.47902259759_r8, &
6345  -8.23043896304_r8, -8.98864840922_r8, -9.73798275796_r8, -10.4941688275_r8, &
6346  -11.2408889842_r8, -13.1106190829_r8, -14.9715790535_r8, -16.8205779445_r8, &
6347  -18.6678934393_r8, -20.5047745976_r8, -22.339391716_r8, -24.1574308375_r8, &
6348  -25.9749620699_r8, -27.7827511321_r8, -29.589585339_r8, -31.3806792164_r8, &
6349  -33.1749938713_r8, -34.9556444398_r8, -36.7341514232_r8, -38.4958773164_r8, &
6350  -40.2642412963_r8, -42.0168054747_r8, -43.7681522043_r8, 0._r8, &
6351  -0.0704366237816_r8, -0.140838585972_r8, -0.211262058014_r8, &
6352  -0.281641205259_r8, -0.352222156589_r8, -0.537337971354_r8, &
6353  -0.718153534566_r8, -0.902255474838_r8, -1.09159976212_r8, &
6354  -1.27923280785_r8, -1.47386143199_r8, -1.84354261749_r8, -2.21921821122_r8, &
6355  -2.5876549507_r8, -2.96420219752_r8, -3.71303271302_r8, -4.46461824129_r8, &
6356  -5.21807337921_r8, -5.97004516199_r8, -6.72113475319_r8, -7.47344423405_r8, &
6357  -8.22212937716_r8, -8.97840045594_r8, -9.72763020832_r8, -10.4841112044_r8, &
6358  -11.233013657_r8, -13.1022244428_r8, -14.9674441648_r8, -16.8140090533_r8, &
6359  -18.6617699734_r8, -20.4986245364_r8, -22.334677756_r8, -24.1549846386_r8, &
6360  -25.9744960225_r8, -27.7868618282_r8, -29.597926635_r8, -31.3934633611_r8, &
6361  -33.1915889241_r8, -34.9738950168_r8, -36.7545583193_r8, -38.5182083128_r8, &
6362  -40.2864421028_r8, -42.039759396_r8, -43.7923727633_r8, 0._r8, &
6363  -0.0767124462575_r8, -0.154521128555_r8, -0.233529183568_r8, &
6364  -0.312713363967_r8, -0.391676442514_r8, -0.591567978773_r8, &
6365  -0.782297536806_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6366  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6367  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6368  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6369  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
6370  /) ) /
6371 
6372 type(gsw_result) :: h_ct_ct_exact
6373 
6374 data h_ct_ct_exact / gsw_result( &
6375  "h_CT_CT_exact", 3.1605e-10_r8, (/ &
6376  3991.86795711963_r8, 3991.899115705432_r8, 3991.930210459405_r8, &
6377  3991.961363614644_r8, 3991.992340862369_r8, 3992.023134437034_r8, &
6378  3992.099429834566_r8, 3992.164942642608_r8, 3992.218889657059_r8, &
6379  3992.256141717723_r8, 3992.284342969565_r8, 3992.306395021841_r8, &
6380  3992.327661617163_r8, 3992.372207391493_r8, 3992.422429032726_r8, &
6381  3992.470578475242_r8, 3992.567377000134_r8, 3992.666680886019_r8, &
6382  3992.762065601697_r8, 3992.854628488951_r8, 3992.942497065606_r8, &
6383  3993.025271908869_r8, 3993.104790958062_r8, 3993.184084580678_r8, &
6384  3993.264975244256_r8, 3993.345412362716_r8, 3993.430079975047_r8, &
6385  3993.661705112541_r8, 3993.907868030312_r8, 3994.18254671372_r8, &
6386  3994.474179160077_r8, 3994.788083786786_r8, 3995.121421471689_r8, &
6387  3995.471722483293_r8, 3995.834167983615_r8, 3996.216558925765_r8, &
6388  3996.613048907012_r8, 3997.02379256058_r8, 3997.46227896728_r8, &
6389  3997.906588953207_r8, 3998.370241750053_r8, 3998.853331876407_r8, &
6390  3999.349493985525_r8, 3999.861197527665_r8, 4000.38840943937_r8, &
6391  3991.86795711963_r8, 3991.898591637277_r8, 3991.92934075608_r8, &
6392  3991.959941919356_r8, 3991.990704821077_r8, 3992.02026416574_r8, &
6393  3992.087736015662_r8, 3992.137567043801_r8, 3992.1723972143_r8, &
6394  3992.183632158461_r8, 3992.203465854593_r8, 3992.22637427976_r8, &
6395  3992.290599363818_r8, 3992.361528195062_r8, 3992.429719215485_r8, &
6396  3992.495129769688_r8, 3992.608503622433_r8, 3992.706295516722_r8, &
6397  3992.792343300513_r8, 3992.880868026762_r8, 3992.969347228194_r8, &
6398  3993.048884656164_r8, 3993.140053828853_r8, 3993.227618215377_r8, &
6399  3993.308988237517_r8, 3993.388145120516_r8, 3993.463514876622_r8, &
6400  3993.697282916031_r8, 3993.925220824844_r8, 3994.210299372197_r8, &
6401  3994.499914114825_r8, 3994.813885626004_r8, 3995.141014816148_r8, &
6402  3995.481641999651_r8, 3995.835759285472_r8, 3996.198806497631_r8, &
6403  3996.577585702325_r8, 3996.969770752688_r8, 3997.392311256714_r8, &
6404  3997.829900565167_r8, 3998.284747382312_r8, 3998.75997075424_r8, &
6405  3999.256895784855_r8, 3999.765693812938_r8, 4000.287774376506_r8, &
6406  3991.86795711963_r8, 3991.876911698921_r8, 3991.880701355361_r8, &
6407  3991.878882338572_r8, 3991.876109030451_r8, 3991.874122733088_r8, &
6408  3991.888742365541_r8, 3991.90771168561_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6409  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6410  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6411  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6412  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6413  9e90_r8, 9e90_r8 &
6414  /) ) /
6415 
6416 type(gsw_result) :: h_sa_sa_ct_exact
6417 
6418 data h_sa_sa_ct_exact / gsw_result( &
6419  "h_SA_SA_CT_exact", 7.2642e-13_r8, (/ &
6420  0._r8, 8.3293771940984e-05_r8, 0.00016661627683259_r8, &
6421  0.00024985471597921_r8, 0.00033322864885257_r8, 0.00041674434162694_r8, &
6422  0.0006374713322103_r8, 0.00085799266620436_r8, 0.0010918055595788_r8, &
6423  0.0013452133961474_r8, 0.0016084372513077_r8, 0.00188907317836_r8, &
6424  0.0024482830537264_r8, 0.0029931769378554_r8, 0.0035202162432675_r8, &
6425  0.0040608739953159_r8, 0.0051290871713472_r8, 0.0061932452734504_r8, &
6426  0.0072604619359131_r8, 0.00832946523556_r8, 0.0094025626297904_r8, &
6427  0.010480455296301_r8, 0.011561111329466_r8, 0.012652449602682_r8, &
6428  0.013728752010233_r8, 0.01481578960879_r8, 0.015884053666224_r8, &
6429  0.01853738204032_r8, 0.02115792154543_r8, 0.023723820743186_r8, &
6430  0.026260965268559_r8, 0.028748374942378_r8, 0.031200058659298_r8, &
6431  0.033595132744024_r8, 0.03596261112123_r8, 0.03827754262418_r8, &
6432  0.040558878414316_r8, 0.042782481118791_r8, 0.044958808165073_r8, &
6433  0.047087864076707_r8, 0.049168635866432_r8, 0.051177404646141_r8, &
6434  0.053155685173375_r8, 0.05506541763857_r8, 0.056926478121759_r8, 0._r8, &
6435  8.379484898846e-05_r8, 0.00016744988402403_r8, 0.00025121746227259_r8, &
6436  0.00033479965091675_r8, 0.00041954445625518_r8, 0.00064988975216189_r8, &
6437  0.00088895733145866_r8, 0.0011450802051816_r8, 0.0014261469644257_r8, &
6438  0.0016964795810703_r8, 0.0019748392479748_r8, 0.0024882777820737_r8, &
6439  0.0030055598512751_r8, 0.0035134431661442_r8, 0.0040353040314505_r8, &
6440  0.0050845794466755_r8, 0.0061493098256536_r8, 0.0072260369786702_r8, &
6441  0.0082989620105011_r8, 0.009370671048826_r8, 0.010451783117299_r8, &
6442  0.011517426219548_r8, 0.01259751181407_r8, 0.013672228965277_r8, &
6443  0.014760026355229_r8, 0.015839781204135_r8, 0.018488978909036_r8, &
6444  0.021133907084548_r8, 0.023684434563836_r8, 0.02622397481397_r8, &
6445  0.028710775907203_r8, 0.031171354830617_r8, 0.03358077254973_r8, &
6446  0.035960740944591_r8, 0.038305674883164_r8, 0.040614989786642_r8, &
6447  0.042868554198516_r8, 0.045071304159808_r8, 0.047212166670292_r8, &
6448  0.049308336862888_r8, 0.051331167224718_r8, 0.053309362074762_r8, &
6449  0.055225066900172_r8, 0.057096096792184_r8, 0._r8, 0.00016487595354669_r8, &
6450  0.00033463077136397_r8, 0.00050846449695568_r8, 0.00067996552457185_r8, &
6451  0.000846306657985_r8, 0.0011641486228366_r8, 0.0014506369945591_r8, &
6452  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6453  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6454  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6455  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6456  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
6457  /) ) /
6458 
6459 type(gsw_result) :: h_sa_ct_ct_exact
6460 
6461 data h_sa_ct_ct_exact / gsw_result( &
6462  "h_SA_CT_CT_exact", 2.1886e-12_r8, (/ &
6463  0._r8, 0.00013268757223357_r8, 0.00026558329352477_r8, &
6464  0.00039818703394291_r8, 0.00053144224710609_r8, 0.00066540649384499_r8, &
6465  0.0010293060843694_r8, 0.0014153525397819_r8, 0.0018632306307213_r8, &
6466  0.0024134551750649_r8, 0.0030320431438038_r8, 0.003732554169615_r8, &
6467  0.0052369268477781_r8, 0.0066236111205942_r8, 0.0079381678386297_r8, &
6468  0.0092980208340131_r8, 0.011975526110754_r8, 0.014630764466664_r8, &
6469  0.017306377654516_r8, 0.019994891316673_r8, 0.022707726093976_r8, &
6470  0.025446562435503_r8, 0.02819930446862_r8, 0.030979075729334_r8, &
6471  0.033711343169154_r8, 0.036472054261152_r8, 0.03917067282631_r8, &
6472  0.04582733505138_r8, 0.052371854919758_r8, 0.058729566137221_r8, &
6473  0.064998364016865_r8, 0.071119601072757_r8, 0.077140499936462_r8, &
6474  0.083014093725214_r8, 0.088827169458928_r8, 0.094508196896595_r8, &
6475  0.10011830100592_r8, 0.10559678053752_r8, 0.11096244844897_r8, &
6476  0.11624098410781_r8, 0.1214206744695_r8, 0.1264419337283_r8, &
6477  0.13142573716053_r8, 0.13627088025166_r8, 0.14103560883119_r8, 0._r8, &
6478  0.00013485964195942_r8, 0.00026917096264646_r8, 0.00040407117259527_r8, &
6479  0.00053822020618529_r8, 0.00067746799056555_r8, 0.0010834267195458_r8, &
6480  0.0015578956570041_r8, 0.0021319214880465_r8, 0.0028700721006115_r8, &
6481  0.0035615765582204_r8, 0.004267814149679_r8, 0.0054898232398969_r8, &
6482  0.0066988284591237_r8, 0.0078923480130667_r8, 0.0091368592670338_r8, &
6483  0.011706553487823_r8, 0.014374591580659_r8, 0.017113060540453_r8, &
6484  0.019829356683826_r8, 0.022540311827474_r8, 0.025301228656673_r8, &
6485  0.027984658026532_r8, 0.030717171849668_r8, 0.033449611544355_r8, &
6486  0.036220959379534_r8, 0.038976407834657_r8, 0.045624722925043_r8, &
6487  0.052274807344737_r8, 0.058576142463974_r8, 0.064857468784594_r8, &
6488  0.07097939705299_r8, 0.077034546964738_r8, 0.082960409951627_r8, &
6489  0.088818118528629_r8, 0.094601427592826_r8, 0.10030440870067_r8, &
6490  0.10587948050102_r8, 0.11132783937978_r8, 0.11664088998987_r8, &
6491  0.1218661305117_r8, 0.12692848099349_r8, 0.13190861985732_r8, &
6492  0.13676955839746_r8, 0.14156160239403_r8, 0._r8, 0.00025914571458517_r8, &
6493  0.00055454300863473_r8, 0.00089187707309008_r8, 0.0012374586051721_r8, &
6494  0.0015773436097115_r8, 0.0023100057295601_r8, 0.0029814007789332_r8, &
6495  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6496  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6497  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6498  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6499  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
6500  /) ) /
6501 
6502 type(gsw_result) :: h_ct_ct_ct_exact
6503 
6504 data h_ct_ct_ct_exact / gsw_result( &
6505  "h_CT_CT_CT_exact", 1.1351e-11_r8, (/ &
6506  0._r8, 0.0007239355778385_r8, 0.0014485822042462_r8, 0.0021719997800172_r8, &
6507  0.0028977880486357_r8, 0.0036261831957023_r8, 0.0055754565807141_r8, &
6508  0.0075641679358376_r8, 0.0097224372899309_r8, 0.01213376483139_r8, &
6509  0.014703068879614_r8, 0.01752272975179_r8, 0.023435039190867_r8, &
6510  0.029129036180354_r8, 0.03460826206423_r8, 0.040282576404127_r8, &
6511  0.0515212090153_r8, 0.062713086204792_r8, 0.073999258650568_r8, &
6512  0.085350863417633_r8, 0.096816088100573_r8, 0.10840845026243_r8, &
6513  0.12008166502226_r8, 0.13189054199262_r8, 0.14350807986463_r8, &
6514  0.15526357910507_r8, 0.16674799148963_r8, 0.19501614670756_r8, &
6515  0.22274070030499_r8, 0.249496561025_r8, 0.27575223877451_r8, &
6516  0.30120956852095_r8, 0.32608767199099_r8, 0.35018828116592_r8, &
6517  0.37392780085132_r8, 0.39693802220521_r8, 0.41952921793122_r8, &
6518  0.4414307169925_r8, 0.46264236229133_r8, 0.48341881143714_r8, &
6519  0.50362523711925_r8, 0.52300008013381_r8, 0.54212507505657_r8, &
6520  0.56053973162348_r8, 0.57850638194304_r8, 0._r8, 0.00073204074664126_r8, &
6521  0.0014619355670896_r8, 0.0021938968283084_r8, 0.0029229645350226_r8, &
6522  0.0036701687285828_r8, 0.0057512850042279_r8, 0.0079729858974609_r8, &
6523  0.010437035307197_r8, 0.013323777576855_r8, 0.016110722941277_r8, &
6524  0.018994721419244_r8, 0.024169450811086_r8, 0.029340883317406_r8, &
6525  0.034438286479982_r8, 0.039725084845617_r8, 0.050554474338774_r8, &
6526  0.061750550598689_r8, 0.0732415543097_r8, 0.084678772756266_r8, &
6527  0.096114464737665_r8, 0.10777916031229_r8, 0.11912736647653_r8, &
6528  0.13069525852896_r8, 0.14228362024486_r8, 0.15406001130335_r8, &
6529  0.16579618116091_r8, 0.1939869204737_r8, 0.22223303472594_r8, &
6530  0.2486787145153_r8, 0.27499137810009_r8, 0.30044534063494_r8, &
6531  0.3255081985548_r8, 0.34989723880315_r8, 0.37388431762243_r8, &
6532  0.39747118279128_r8, 0.42058876210256_r8, 0.44304089435712_r8, &
6533  0.46472264614595_r8, 0.48569230328669_r8, 0.50615163984402_r8, &
6534  0.52574850794365_r8, 0.54484001484201_r8, 0.56332750212384_r8, &
6535  0.58143198106786_r8, 0._r8, 0.0011883837407528_r8, 0.0024995343269944_r8, &
6536  0.0039547266160598_r8, 0.0054400879379148_r8, 0.0069061436514812_r8, &
6537  0.010163914501159_r8, 0.01316138782273_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6538  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6539  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6540  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6541  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6542  9e90_r8, 9e90_r8 &
6543  /) ) /
6544 
6545 type(gsw_result) :: rho_t_exact
6546 
6547 data rho_t_exact / gsw_result( &
6548  "rho_t_exact", 2.9445e-10_r8, (/ &
6549  1021.915980252376_r8, 1021.95820244202_r8, 1022.012562533378_r8, &
6550  1022.054777270649_r8, 1022.137480309065_r8, 1022.214133439513_r8, &
6551  1022.741973341495_r8, 1023.499560650793_r8, 1024.329987849211_r8, &
6552  1025.209534205139_r8, 1025.868505717976_r8, 1026.416258550756_r8, &
6553  1027.283108882666_r8, 1027.826561523065_r8, 1028.24828114655_r8, &
6554  1028.640159275985_r8, 1029.287647691159_r8, 1029.865351798788_r8, &
6555  1030.423806337826_r8, 1030.965000504263_r8, 1031.498032797017_r8, &
6556  1032.026310691723_r8, 1032.549508586687_r8, 1033.070366376935_r8, &
6557  1033.578958501282_r8, 1034.086567347418_r8, 1034.582394993112_r8, &
6558  1035.804266194914_r8, 1037.008310934506_r8, 1038.187972998324_r8, &
6559  1039.359034747103_r8, 1040.515648794508_r8, 1041.666252566601_r8, &
6560  1042.802041501762_r8, 1043.937359727288_r8, 1045.061593125681_r8, &
6561  1046.18427112841_r8, 1047.29496809233_r8, 1048.401239909121_r8, &
6562  1049.49995848201_r8, 1050.593822029028_r8, 1051.672560302309_r8, &
6563  1052.755622333465_r8, 1053.826107151001_r8, 1054.894136622725_r8, &
6564  1022.206569836116_r8, 1022.258085199485_r8, 1022.300225866167_r8, &
6565  1022.34559730069_r8, 1022.387508329543_r8, 1022.562346900551_r8, &
6566  1023.545811698669_r8, 1024.663085881813_r8, 1025.477535623684_r8, &
6567  1026.317477939959_r8, 1026.835388550116_r8, 1027.266910757357_r8, &
6568  1027.737600569902_r8, 1028.078325352827_r8, 1028.370171242241_r8, &
6569  1028.662895327328_r8, 1029.242463513775_r8, 1029.820422053603_r8, &
6570  1030.390444880407_r8, 1030.937452325077_r8, 1031.470493151482_r8, &
6571  1032.003056400615_r8, 1032.514398287164_r8, 1033.029175657501_r8, &
6572  1033.539577336813_r8, 1034.052216349919_r8, 1034.558246311352_r8, &
6573  1035.783131165724_r8, 1037.002686544088_r8, 1038.175120868412_r8, &
6574  1039.349582358682_r8, 1040.506525998149_r8, 1041.661718684206_r8, &
6575  1042.802940890314_r8, 1043.941437926637_r8, 1045.075282822141_r8, &
6576  1046.205237852676_r8, 1047.323787382561_r8, 1048.437993587513_r8, &
6577  1049.53884329796_r8, 1050.636192319192_r8, 1051.718830667289_r8, &
6578  1052.801348924726_r8, 1053.873097410109_r8, 1054.94446014967_r8, &
6579  1004.881703725263_r8, 1005.101280969829_r8, 1005.425131980654_r8, &
6580  1005.761213793721_r8, 1006.02715857045_r8, 1006.261562376281_r8, &
6581  1007.624587752987_r8, 1008.687812318329_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6582  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6583  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6584  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6585  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6586  9e90_r8, 9e90_r8 &
6587  /) ) /
6588 
6589 type(gsw_result) :: pot_rho_t_exact
6590 
6591 data pot_rho_t_exact / gsw_result( &
6592  "pot_rho_t_exact", 2.9297e-10_r8, (/ &
6593  1021.915980252376_r8, 1021.916065964516_r8, 1021.928286405551_r8, &
6594  1021.928379495913_r8, 1021.968943563418_r8, 1022.003433190205_r8, &
6595  1022.421109956852_r8, 1023.071528441043_r8, 1023.792722022634_r8, &
6596  1024.559792447199_r8, 1025.104230695525_r8, 1025.531134467957_r8, &
6597  1026.160509071504_r8, 1026.466472364539_r8, 1026.656845155412_r8, &
6598  1026.812108990092_r8, 1026.991536086132_r8, 1027.10214656953_r8, &
6599  1027.19301217774_r8, 1027.266366449951_r8, 1027.330853953728_r8, &
6600  1027.389770715081_r8, 1027.443219187593_r8, 1027.489824200012_r8, &
6601  1027.529786471895_r8, 1027.564205046593_r8, 1027.593109254782_r8, &
6602  1027.647109352834_r8, 1027.689435144551_r8, 1027.717085717934_r8, &
6603  1027.738208847598_r8, 1027.753179595748_r8, 1027.764994696578_r8, &
6604  1027.773826855543_r8, 1027.783254260681_r8, 1027.789507957819_r8, &
6605  1027.795882982022_r8, 1027.801527923703_r8, 1027.803429465542_r8, &
6606  1027.80685142763_r8, 1027.808701215823_r8, 1027.808234133609_r8, &
6607  1027.809078408327_r8, 1027.809171244619_r8, 1027.80926481877_r8, &
6608  1022.206569836116_r8, 1022.215864843385_r8, 1022.215814470203_r8, &
6609  1022.218974820226_r8, 1022.218712661383_r8, 1022.351190200615_r8, &
6610  1023.222994928164_r8, 1024.230192197245_r8, 1024.931415572248_r8, &
6611  1025.653015193028_r8, 1026.054133484456_r8, 1026.364613069087_r8, &
6612  1026.606943709841_r8, 1026.716029908044_r8, 1026.780573007884_r8, &
6613  1026.840620512663_r8, 1026.956005157672_r8, 1027.066579028716_r8, &
6614  1027.166852302305_r8, 1027.245094077465_r8, 1027.309767001651_r8, &
6615  1027.372218661834_r8, 1027.41665627163_r8, 1027.459231586649_r8, &
6616  1027.501165806081_r8, 1027.540351994287_r8, 1027.577212392166_r8, &
6617  1027.634842466979_r8, 1027.688191670998_r8, 1027.711273248008_r8, &
6618  1027.735345882367_r8, 1027.75071334586_r8, 1027.765567795357_r8, &
6619  1027.77735300734_r8, 1027.787786553789_r8, 1027.798546057757_r8, &
6620  1027.807445676576_r8, 1027.815902147069_r8, 1027.821348772593_r8, &
6621  1027.824948075126_r8, 1027.827739967517_r8, 1027.828868335718_r8, &
6622  1027.829219438152_r8, 1027.829610807735_r8, 1027.831450910974_r8, &
6623  1004.881703725263_r8, 1005.053867831101_r8, 1005.329225275224_r8, &
6624  1005.615615468646_r8, 1005.831660997495_r8, 1006.016343242448_r8, &
6625  1007.254656852288_r8, 1008.199190243294_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6626  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6627  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6628  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6629  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6630  9e90_r8, 9e90_r8 &
6631  /) ) /
6632 
6633 type(gsw_result) :: alpha_wrt_t_exact
6634 
6635 data alpha_wrt_t_exact / gsw_result( &
6636  "alpha_wrt_t_exact", 8.5949e-15_r8, (/ &
6637  0.00031932154689476_r8, 0.00031939555594613_r8, 0.00031911127821026_r8, &
6638  0.00031923984048154_r8, 0.00031887380972951_r8, 0.00031829851431434_r8, &
6639  0.00031250507120278_r8, 0.00030189699151599_r8, 0.00028623167442661_r8, &
6640  0.00026457725106656_r8, 0.00024390904763603_r8, 0.00022423899660622_r8, &
6641  0.0001894615932663_r8, 0.00017367539145737_r8, 0.00016467964823286_r8, &
6642  0.00015718230096344_r8, 0.00014746961345526_r8, 0.00014182450450918_r8, &
6643  0.0001375947204968_r8, 0.00013439226007316_r8, 0.00013167658278869_r8, &
6644  0.00012927008601954_r8, 0.00012725729578235_r8, 0.00012571237868698_r8, &
6645  0.00012480417138423_r8, 0.00012412941523018_r8, 0.00012405012900227_r8, &
6646  0.00012556763507376_r8, 0.00012820494125487_r8, 0.00013213393837205_r8, &
6647  0.00013648827207237_r8, 0.00014132740981853_r8, 0.00014640322012336_r8, &
6648  0.00015161060554621_r8, 0.0001567561571529_r8, 0.0001620305119163_r8, &
6649  0.00016725921034035_r8, 0.00017246487772373_r8, 0.00017784918309176_r8, &
6650  0.00018302823261837_r8, 0.00018822111396016_r8, 0.00019343025513196_r8, &
6651  0.00019853139327939_r8, 0.00020358334651255_r8, 0.00020856973654297_r8, &
6652  0.00031445585673867_r8, 0.00031405734020747_r8, 0.0003146765129877_r8, &
6653  0.00031441227055674_r8, 0.00031470870440754_r8, 0.00031245374561479_r8, &
6654  0.00029685086467253_r8, 0.00027432803159821_r8, 0.00024871581475371_r8, &
6655  0.00021573541867181_r8, 0.000197160777492_r8, 0.00018394058327037_r8, &
6656  0.00017450042944097_r8, 0.00017008041096847_r8, 0.00016675171153774_r8, &
6657  0.00016330456704432_r8, 0.00015564788283278_r8, 0.00014836145942967_r8, &
6658  0.00014185835181184_r8, 0.00013761076840997_r8, 0.00013459063018148_r8, &
6659  0.00013156568016425_r8, 0.00013035920078177_r8, 0.00012920276377204_r8, &
6660  0.0001280458670595_r8, 0.00012703543975592_r8, 0.00012616184688681_r8, &
6661  0.00012746833653326_r8, 0.00012900526249986_r8, 0.00013325701746362_r8, &
6662  0.0001374127445887_r8, 0.00014215858787418_r8, 0.00014697364175842_r8, &
6663  0.00015187346816487_r8, 0.00015679469232639_r8, 0.00016163400976221_r8, &
6664  0.00016652757361722_r8, 0.00017143105009714_r8, 0.00017660352563905_r8, &
6665  0.00018175394099604_r8, 0.00018689197812034_r8, 0.00019206861688727_r8, &
6666  0.00019726232414476_r8, 0.00020235067750112_r8, 0.00020734462231256_r8, &
6667  0.00010498616088217_r8, 9.3763203248887e-05_r8, 6.6948840745084e-05_r8, &
6668  3.8572021505753e-05_r8, 2.1958178856618e-05_r8, 1.3698251429773e-05_r8, &
6669  2.974148308407e-05_r8, 4.2575930715782e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6670  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6671  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6672  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6673  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6674  9e90_r8, 9e90_r8 &
6675  /) ) /
6676 
6677 type(gsw_result) :: beta_const_t_exact
6678 
6679 data beta_const_t_exact / gsw_result( &
6680  "beta_const_t_exact", 1.8049e-15_r8, (/ &
6681  0.00073197647430931_r8, 0.00073189381057819_r8, 0.00073185563197511_r8, &
6682  0.00073176606119531_r8, 0.00073173538343879_r8, 0.00073173225731012_r8, &
6683  0.00073224704776871_r8, 0.00073340593192962_r8, 0.00073532885276884_r8, &
6684  0.00073829136580622_r8, 0.00074136787037057_r8, 0.00074450642172261_r8, &
6685  0.00075053650495103_r8, 0.00075329293727194_r8, 0.00075478861348929_r8, &
6686  0.00075600907318705_r8, 0.00075741922526989_r8, 0.0007580118259389_r8, &
6687  0.00075832355936115_r8, 0.00075842870328219_r8, 0.00075843959753375_r8, &
6688  0.00075839281533882_r8, 0.00075826843317328_r8, 0.0007580428666991_r8, &
6689  0.0007576886410097_r8, 0.00075728211504786_r8, 0.00075675356170238_r8, &
6690  0.00075505766266971_r8, 0.00075313043966764_r8, 0.00075092857131694_r8, &
6691  0.00074863911110155_r8, 0.00074625214193158_r8, 0.00074381759122361_r8, &
6692  0.00074136825575836_r8, 0.00073893816000572_r8, 0.00073648743658638_r8, &
6693  0.00073405127821708_r8, 0.00073163353106168_r8, 0.00072917210097819_r8, &
6694  0.00072677093491758_r8, 0.00072436892386095_r8, 0.00072197412928304_r8, &
6695  0.00071960281895344_r8, 0.00071725423973779_r8, 0.00071492349350395_r8, &
6696  0.00073257107401692_r8, 0.00073254859412108_r8, 0.00073239526068844_r8, &
6697  0.0007323560718343_r8, 0.00073224466089131_r8, 0.00073245065604665_r8, &
6698  0.0007342591832503_r8, 0.00073720136623204_r8, 0.00074094291839134_r8, &
6699  0.00074634997865004_r8, 0.00074957696966766_r8, 0.0007519290878632_r8, &
6700  0.00075346297950225_r8, 0.00075402361083229_r8, 0.00075438082546524_r8, &
6701  0.00075476391443931_r8, 0.00075571887871646_r8, 0.00075663364914823_r8, &
6702  0.00075741447413971_r8, 0.00075773666432468_r8, 0.00075780858675846_r8, &
6703  0.00075789255021541_r8, 0.00075758885099595_r8, 0.00075727477956673_r8, &
6704  0.00075697252886507_r8, 0.00075663816814765_r8, 0.00075628440310545_r8, &
6705  0.00075463326314024_r8, 0.00075295143409867_r8, 0.00075067569677688_r8, &
6706  0.00074843041283442_r8, 0.00074606378624853_r8, 0.00074368821136782_r8, &
6707  0.00074130899363427_r8, 0.00073893019141234_r8, 0.00073658025238661_r8, &
6708  0.00073422231255959_r8, 0.00073187588021015_r8, 0.00072946553378295_r8, &
6709  0.00072707240252715_r8, 0.00072468481660406_r8, 0.00072229946368541_r8, &
6710  0.00071990763462134_r8, 0.00071755187225658_r8, 0.00071522116568008_r8, &
6711  0.00077012209995467_r8, 0.00077213899873602_r8, 0.00077727164691835_r8, &
6712  0.00078291232214769_r8, 0.00078626212253045_r8, 0.00078789067779263_r8, &
6713  0.00078383856977939_r8, 0.00078072535810303_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6714  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6715  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6716  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6717  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6718  9e90_r8, 9e90_r8 &
6719  /) ) /
6720 
6721 type(gsw_result) :: specvol_t_exact
6722 
6723 data specvol_t_exact / gsw_result( &
6724  "specvol_t_exact", 2.8189e-16_r8, (/ &
6725  0.0009785540292197368_r8, 0.0009785136002729369_r8, &
6726  0.0009784615538591687_r8, 0.0009784211396873022_r8, &
6727  0.0009783419738190488_r8, 0.0009782686105456522_r8, &
6728  0.0009777637234666405_r8, 0.0009770399895082992_r8, &
6729  0.0009762479004443706_r8, 0.0009754103591860526_r8, &
6730  0.0009747837997035777_r8, 0.0009742636008240419_r8, &
6731  0.0009734414898417434_r8, 0.0009729267927442633_r8, &
6732  0.0009725277623464134_r8, 0.0009721572611979848_r8, &
6733  0.0009715457114861376_r8, 0.0009710007218452161_r8, &
6734  0.0009704744725901149_r8, 0.0009699650322861418_r8, &
6735  0.0009694637975104942_r8, 0.0009689675443736921_r8, &
6736  0.000968476563771514_r8, 0.0009679882731580853_r8, &
6737  0.0009675119561741346_r8, 0.0009670370272434203_r8, &
6738  0.0009665735709785182_r8, 0.0009654333667436577_r8, &
6739  0.000964312425904132_r8, 0.0009632167064235625_r8, 0.000962131435402705_r8, &
6740  0.0009610619515031347_r8, 0.0009600003816347722_r8, &
6741  0.0009589547778021978_r8, 0.0009579118810933579_r8, &
6742  0.0009568813996973079_r8, 0.0009558545541134965_r8, &
6743  0.0009548408332578178_r8, 0.0009538332862775735_r8, &
6744  0.0009528347208764003_r8, 0.0009518426427338824_r8, &
6745  0.0009508663035883951_r8, 0.0009498880640347178_r8, &
6746  0.0009489231602958491_r8, 0.0009479624213302859_r8, &
6747  0.0009782758490393228_r8, 0.0009782265501034006_r8, &
6748  0.0009781862262162051_r8, 0.000978142814563207_r8, &
6749  0.0009781027172699702_r8, 0.0009779354804438688_r8, &
6750  0.0009769958399227945_r8, 0.0009759305412465519_r8, &
6751  0.000975155442475696_r8, 0.0009743573713732477_r8, &
6752  0.0009738659293891226_r8, 0.0009734568392383487_r8, &
6753  0.0009730110092746232_r8, 0.000972688534851476_r8, &
6754  0.0009724124911091399_r8, 0.000972135774064051_r8, 0.000971588362751822_r8, &
6755  0.000971043085362264_r8, 0.000970505894118676_r8, 0.0009699909511917495_r8, &
6756  0.0009694896816143243_r8, 0.0009689893782754533_r8, &
6757  0.0009685094964863426_r8, 0.0009680268704545745_r8, &
6758  0.000967548821474997_r8, 0.0009670691520104089_r8, &
6759  0.0009665961327604634_r8, 0.0009654530662944358_r8, &
6760  0.0009643176560444568_r8, 0.0009632286306028223_r8, &
6761  0.0009621401855289322_r8, 0.0009610703777573219_r8, &
6762  0.0009600045600822968_r8, 0.0009589539507303556_r8, &
6763  0.0009579081389719437_r8, 0.0009568688652740701_r8, &
6764  0.0009558353980835424_r8, 0.000954814558828239_r8, 0.000953799849028964_r8, &
6765  0.0009527994188930688_r8, 0.0009518042566119706_r8, &
6766  0.0009508244702298663_r8, 0.0009498468073025791_r8, &
6767  0.0009488808495610127_r8, 0.0009479172011179862_r8, &
6768  0.000995142011535123_r8, 0.0009949246100204876_r8, &
6769  0.0009946041412651316_r8, 0.0009942717876622131_r8, &
6770  0.0009940089504352802_r8, 0.0009937774008166485_r8, &
6771  0.0009924331066890799_r8, 0.0009913870156730046_r8, 9e90_r8, 9e90_r8, &
6772  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6773  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6774  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6775  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6776  9e90_r8, 9e90_r8, 9e90_r8 &
6777  /) ) /
6778 
6779 type(gsw_result) :: sound_speed_t_exact
6780 
6781 data sound_speed_t_exact / gsw_result( &
6782  "sound_speed_t_exact", 2.5902e-09_r8, (/ &
6783  1540.4511400817_r8, 1540.6174829909_r8, 1540.6733946822_r8, &
6784  1540.8583527734_r8, 1540.914104975_r8, 1540.8918342152_r8, &
6785  1539.6737875821_r8, 1536.9672850869_r8, 1532.4751224261_r8, &
6786  1525.7454566214_r8, 1518.997289663_r8, 1512.3877604374_r8, &
6787  1500.377703069_r8, 1495.117666468_r8, 1492.2887496246_r8, &
6788  1489.983968439_r8, 1487.2421937419_r8, 1485.97018739_r8, &
6789  1485.1958564643_r8, 1484.7812379252_r8, 1484.5256816032_r8, &
6790  1484.3643365004_r8, 1484.334401594_r8, 1484.4765634511_r8, &
6791  1484.8501497413_r8, 1485.3096500659_r8, 1485.9943055887_r8, &
6792  1488.3971898424_r8, 1491.2528831458_r8, 1494.669492299_r8, &
6793  1498.3015594669_r8, 1502.1849081774_r8, 1506.2258082055_r8, &
6794  1510.3698108851_r8, 1514.5408679622_r8, 1518.8284795014_r8, &
6795  1523.1556111939_r8, 1527.521902991_r8, 1532.0566280948_r8, &
6796  1536.53710372_r8, 1541.0944491508_r8, 1545.7198846685_r8, &
6797  1550.3621835953_r8, 1555.0354689528_r8, 1559.7424667252_r8, &
6798  1539.0741754912_r8, 1539.0864179315_r8, 1539.4385288922_r8, &
6799  1539.4906799865_r8, 1539.7319860245_r8, 1539.2257858859_r8, &
6800  1535.0097628492_r8, 1528.3161593054_r8, 1520.0072668219_r8, &
6801  1508.7575213057_r8, 1502.4069000328_r8, 1497.9319527832_r8, &
6802  1495.0242140914_r8, 1493.9067002114_r8, 1493.1504345452_r8, &
6803  1492.3417672532_r8, 1490.3761815738_r8, 1488.4918229753_r8, &
6804  1486.8522297579_r8, 1486.0409800878_r8, 1485.6746896597_r8, &
6805  1485.2763587444_r8, 1485.5757116431_r8, 1485.8847541185_r8, &
6806  1486.1688391149_r8, 1486.5025105915_r8, 1486.8689992673_r8, &
6807  1489.2027130741_r8, 1491.6011166554_r8, 1495.1677437781_r8, &
6808  1498.721838638_r8, 1502.5715151975_r8, 1506.4980798154_r8, &
6809  1510.4993247511_r8, 1514.5617205558_r8, 1518.6293357686_r8, &
6810  1522.7777992066_r8, 1526.9751218263_r8, 1531.3828605464_r8, &
6811  1535.8320464885_r8, 1540.3423363746_r8, 1544.9323275967_r8, &
6812  1549.6117936248_r8, 1554.290449102_r8, 1558.9859082367_r8, &
6813  1455.6831811918_r8, 1452.3625840726_r8, 1444.239631824_r8, &
6814  1435.6727625022_r8, 1430.7264379745_r8, 1428.3327658191_r8, &
6815  1433.9414737382_r8, 1438.5338278577_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6816  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6817  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6818  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6819  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6820  9e90_r8 &
6821  /) ) /
6822 
6823 type(gsw_result) :: kappa_t_exact
6824 
6825 data kappa_t_exact / gsw_result( &
6826  "kappa_t_exact", 1.7127e-21_r8, (/ &
6827  4.1237179539499e-10_r8, 4.1226571787447e-10_r8, 4.1221386930498e-10_r8, &
6828  4.1209789253237e-10_r8, 4.1203473144474e-10_r8, 4.120157436542e-10_r8, &
6829  4.1245491953047e-10_r8, 4.1360244028808e-10_r8, 4.1569351243739e-10_r8, &
6830  4.1900884705664e-10_r8, 4.2246847299037e-10_r8, 4.2594170919663e-10_r8, &
6831  4.3242286481023e-10_r8, 4.3524061662496e-10_r8, 4.3671315886022e-10_r8, &
6832  4.3789837451692e-10_r8, 4.3923793684724e-10_r8, 4.3974343041805e-10_r8, &
6833  4.399635101686e-10_r8, 4.3997817697996e-10_r8, 4.3990223224169e-10_r8, &
6834  4.3977264111432e-10_r8, 4.3956753534123e-10_r8, 4.3926176785961e-10_r8, &
6835  4.3882472200102e-10_r8, 4.3833797594635e-10_r8, 4.3772426855141e-10_r8, &
6836  4.3579738687691e-10_r8, 4.3362585617983e-10_r8, 4.3115523750465e-10_r8, &
6837  4.2858398769597e-10_r8, 4.2589701366323e-10_r8, 4.2314697089622e-10_r8, &
6838  4.2036982551374e-10_r8, 4.1760295822861e-10_r8, 4.1480181563411e-10_r8, &
6839  4.1200573773302e-10_r8, 4.0921928344166e-10_r8, 4.0637112195602e-10_r8, &
6840  4.0358170473281e-10_r8, 4.0078055748597e-10_r8, 3.9797690437058e-10_r8, &
6841  3.951901373162e-10_r8, 3.9241938054042e-10_r8, 3.896595531004e-10_r8, &
6842  4.129925618318e-10_r8, 4.1296517978815e-10_r8, 4.127592736998e-10_r8, &
6843  4.1271299236889e-10_r8, 4.1256672899062e-10_r8, 4.1276754513512e-10_r8, &
6844  4.1463926931303e-10_r8, 4.1782315020386e-10_r8, 4.2206809145116e-10_r8, &
6845  4.280350951892e-10_r8, 4.3144360226785e-10_r8, 4.3384293635632e-10_r8, &
6846  4.353327103156e-10_r8, 4.3583975991644e-10_r8, 4.3615755433504e-10_r8, &
6847  4.3650612000419e-10_r8, 4.374118071221e-10_r8, 4.3827388513381e-10_r8, &
6848  4.3899801888566e-10_r8, 4.3924427616692e-10_r8, 4.3923378910551e-10_r8, &
6849  4.3924262638179e-10_r8, 4.3884818125611e-10_r8, 4.3844705699402e-10_r8, &
6850  4.3806301316273e-10_r8, 4.3764929794693e-10_r8, 4.3721961747365e-10_r8, &
6851  4.3533494365403e-10_r8, 4.3342575948025e-10_r8, 4.3087326196148e-10_r8, &
6852  4.2834754559376e-10_r8, 4.2568161007456e-10_r8, 4.2299587387292e-10_r8, &
6853  4.2029737905768e-10_r8, 4.1758982779533e-10_r8, 4.1490517688142e-10_r8, &
6854  4.1220194519802e-10_r8, 4.0950113483536e-10_r8, 4.0671452735207e-10_r8, &
6855  4.0393736956784e-10_r8, 4.0115585784003e-10_r8, 3.9836523272839e-10_r8, &
6856  3.9555578574473e-10_r8, 3.9277815434433e-10_r8, 3.9001923395066e-10_r8, &
6857  4.6962513464964e-10_r8, 4.7167197129523e-10_r8, 4.7683897562167e-10_r8, &
6858  4.8238544395298e-10_r8, 4.8559822445408e-10_r8, 4.8711367104981e-10_r8, &
6859  4.8265675815594e-10_r8, 4.790745149808e-10_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6860  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6861  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6862  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6863  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6864  9e90_r8, 9e90_r8 &
6865  /) ) /
6866 
6867 type(gsw_result) :: enthalpy_t_exact
6868 
6869 data enthalpy_t_exact / gsw_result( &
6870  "enthalpy_t_exact", 2.4993e-06_r8, (/ &
6871  111751.65419162_r8, 111844.17892919_r8, 111745.31155707_r8, &
6872  111865.3552419_r8, 111701.33349996_r8, 111436.44754759_r8, &
6873  108313.46433704_r8, 102637.16898192_r8, 94559.551909165_r8, &
6874  83859.401711777_r8, 74144.374216388_r8, 65274.269980247_r8, &
6875  50377.198756052_r8, 43928.738760163_r8, 40349.751105298_r8, &
6876  37421.655163955_r8, 33756.959140282_r8, 31707.050319261_r8, &
6877  30202.146967212_r8, 29089.754579442_r8, 28158.361085932_r8, &
6878  27338.166982042_r8, 26659.728500673_r8, 26152.693010668_r8, &
6879  25876.863150205_r8, 25685.581342207_r8, 25711.19728475_r8, &
6880  26406.404977005_r8, 27507.436800359_r8, 29103.505720826_r8, &
6881  30871.517776007_r8, 32845.411048917_r8, 34933.428390336_r8, &
6882  37099.127112522_r8, 39260.831556388_r8, 41507.462238219_r8, &
6883  43762.347930644_r8, 46038.664970726_r8, 48436.492711669_r8, &
6884  50773.101709681_r8, 53156.120022627_r8, 55592.847669091_r8, &
6885  58014.913882842_r8, 60458.220179324_r8, 62912.250660556_r8, &
6886  109061.39804526_r8, 108908.18138748_r8, 109272.29339626_r8, &
6887  109191.21220911_r8, 109394.05817582_r8, 108207.66159305_r8, &
6888  99919.588506324_r8, 88447.44721101_r8, 76248.740462444_r8, &
6889  61386.026651488_r8, 53386.552446308_r8, 47826.899887508_r8, &
6890  43978.283020473_r8, 42260.16666347_r8, 41014.255832079_r8, &
6891  39730.908469231_r8, 36881.724934893_r8, 34190.515656737_r8, &
6892  31814.038855221_r8, 30303.612347686_r8, 29257.043443947_r8, &
6893  28203.007767101_r8, 27831.837085728_r8, 27473.380128456_r8, &
6894  27105.322190615_r8, 26786.675195288_r8, 26511.647343278_r8, &
6895  27133.187226425_r8, 27813.119142058_r8, 29545.245288752_r8, &
6896  31239.94024217_r8, 33183.512531414_r8, 35167.867901385_r8, &
6897  37205.753019894_r8, 39272.061054654_r8, 41321.706396635_r8, &
6898  43417.924278086_r8, 45542.952840392_r8, 47823.778296866_r8, &
6899  50131.121967517_r8, 52469.455983044_r8, 54869.956030942_r8, &
6900  57322.501483125_r8, 59766.957096513_r8, 62204.701996098_r8, &
6901  41925.661983623_r8, 38203.689480714_r8, 29680.261445303_r8, &
6902  21044.677871075_r8, 16113.301299732_r8, 13625.18970737_r8, &
6903  16743.740011372_r8, 19409.635279461_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6904  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6905  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6906  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6907  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6908  9e90_r8 &
6909  /) ) /
6910 
6911 type(gsw_result) :: ct_sa_wrt_t
6912 
6913 data ct_sa_wrt_t / gsw_result( &
6914  "CT_SA_wrt_t", 1.0223e-12_r8, (/ &
6915  -0.0409833106342_r8, -0.0409894510556_r8, -0.0409376254811_r8, &
6916  -0.0409523700556_r8, -0.0408845525164_r8, -0.0407842933687_r8, &
6917  -0.0398128856157_r8, -0.0380777753711_r8, -0.0355896901211_r8, &
6918  -0.0322559694611_r8, -0.0291671284622_r8, -0.0262967815855_r8, &
6919  -0.0213679520336_r8, -0.0191509310048_r8, -0.0178752970123_r8, &
6920  -0.0168085175582_r8, -0.0153960924642_r8, -0.0145249393142_r8, &
6921  -0.0138386083534_r8, -0.0132852458251_r8, -0.0127933856175_r8, &
6922  -0.0123394564535_r8, -0.0119341337281_r8, -0.0115856378089_r8, &
6923  -0.0113184918849_r8, -0.0110779746725_r8, -0.0109138753285_r8, &
6924  -0.0107166476109_r8, -0.0106562354185_r8, -0.0107609814255_r8, &
6925  -0.0109175057521_r8, -0.0111384427301_r8, -0.0113904109409_r8, &
6926  -0.0116641871306_r8, -0.0119291297645_r8, -0.0122160741329_r8, &
6927  -0.0124980316409_r8, -0.012782903134_r8, -0.013097455956_r8, &
6928  -0.0133879553204_r8, -0.0136855248079_r8, -0.0139959815368_r8, &
6929  -0.0142922127204_r8, -0.0145911142543_r8, -0.0148856900244_r8, &
6930  -0.0401861116142_r8, -0.0401168387919_r8, -0.0402082061864_r8, &
6931  -0.0401605977085_r8, -0.0402013811297_r8, -0.0398277012563_r8, &
6932  -0.0373018548543_r8, -0.0337745048099_r8, -0.0299227894366_r8, &
6933  -0.0251411993705_r8, -0.022506513416_r8, -0.0206473736592_r8, &
6934  -0.0192964242656_r8, -0.0186371550375_r8, -0.0181308764195_r8, &
6935  -0.017608771728_r8, -0.0164675358601_r8, -0.0153778479294_r8, &
6936  -0.0143930594659_r8, -0.0137031018554_r8, -0.0131715580375_r8, &
6937  -0.0126372361844_r8, -0.0123371300523_r8, -0.012039619381_r8, &
6938  -0.0117407249044_r8, -0.0114568527944_r8, -0.0111895835829_r8, &
6939  -0.0109667917631_r8, -0.0107620838211_r8, -0.0109122082334_r8, &
6940  -0.0110435032306_r8, -0.011253500344_r8, -0.0114703069375_r8, &
6941  -0.0117010874464_r8, -0.0119339461267_r8, -0.0121558919706_r8, &
6942  -0.0123858129504_r8, -0.012621659675_r8, -0.0128992058_r8, &
6943  -0.0131811172382_r8, -0.0134653232428_r8, -0.0137654759103_r8, &
6944  -0.014072628686_r8, -0.0143730755344_r8, -0.0146638828542_r8, &
6945  -0.0144770495026_r8, -0.0130806915645_r8, -0.00984626835963_r8, &
6946  -0.00650204131652_r8, -0.00456294560753_r8, -0.00358310437893_r8, &
6947  -0.00504964627847_r8, -0.00626702045744_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6948  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6949  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6950  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6951  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6952  9e90_r8, 9e90_r8 &
6953  /) ) /
6954 
6955 type(gsw_result) :: ct_t_wrt_t
6956 
6957 data ct_t_wrt_t / gsw_result( &
6958  "CT_T_wrt_t", 6.2705e-13_r8, (/ &
6959  1.002958538576044_r8, 1.002896185663372_r8, 1.002833512323822_r8, &
6960  1.002768412900711_r8, 1.002666156643026_r8, 1.002583825491344_r8, &
6961  1.002073851937162_r8, 1.001413248070416_r8, 1.000800704852227_r8, &
6962  1.000229657482923_r8, 0.9998356792475399_r8, 0.9994795210000708_r8, &
6963  0.9987875597430298_r8, 0.9981534546140752_r8, 0.9975905948205817_r8, &
6964  0.9970424665845408_r8, 0.9960902470315909_r8, 0.9952006314273281_r8, &
6965  0.994322048430918_r8, 0.9934588073865972_r8, 0.9926006380472504_r8, &
6966  0.9917435573706385_r8, 0.9908892259098813_r8, 0.9900350044577462_r8, &
6967  0.989199524937059_r8, 0.9883646494393753_r8, 0.9875513430559159_r8, &
6968  0.9855628971989413_r8, 0.9836253443813096_r8, 0.9817630311168494_r8, &
6969  0.9799440298323511_r8, 0.9781829983874268_r8, 0.9764638744765225_r8, &
6970  0.9747997781464123_r8, 0.9731622137393536_r8, 0.9715749079460748_r8, &
6971  0.9700168043098364_r8, 0.9685049042500008_r8, 0.9670370878576499_r8, &
6972  0.9656003041165889_r8, 0.9642005629957549_r8, 0.9628539120564474_r8, &
6973  0.9615233325678456_r8, 0.9602373313865464_r8, 0.958979286621503_r8, &
6974  1.002755598752626_r8, 1.002702277977268_r8, 1.002612979363074_r8, &
6975  1.002562545769833_r8, 1.002489668785301_r8, 1.002336889514571_r8, &
6976  1.001547844299747_r8, 1.000716678979777_r8, 1.00028817964642_r8, &
6977  0.9998010017544803_r8, 0.9993449780633604_r8, 0.9988740587092378_r8, &
6978  0.9982608267352919_r8, 0.9977800327898122_r8, 0.9973611068183937_r8, &
6979  0.9969384358952524_r8, 0.9960959935352215_r8, 0.9952322380261199_r8, &
6980  0.9943570292065783_r8, 0.9934943440635076_r8, 0.992641691717001_r8, &
6981  0.9917821348517089_r8, 0.9909522015915371_r8, 0.9901138760292493_r8, &
6982  0.9892794128643272_r8, 0.9884388615485706_r8, 0.9876068743605733_r8, &
6983  0.9856180646489869_r8, 0.9836454677958367_r8, 0.981803360979377_r8, &
6984  0.9799780545208626_r8, 0.9782171340517238_r8, 0.9764859424883257_r8, &
6985  0.9748054571119633_r8, 0.9731562243273872_r8, 0.9715375697087856_r8, &
6986  0.9699532996732694_r8, 0.9684135776921027_r8, 0.9669200178923508_r8, &
6987  0.9654747403753834_r8, 0.9640627733525343_r8, 0.9627041891548226_r8, &
6988  0.9613759379365453_r8, 0.9600865478409804_r8, 0.9588200326463092_r8, &
6989  1.040382360969603_r8, 1.040398357380179_r8, 1.040772451657793_r8, &
6990  1.041136391013527_r8, 1.041196638004305_r8, 1.041021199857103_r8, &
6991  1.037828060508981_r8, 1.035368419878411_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6992  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6993  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6994  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6995  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
6996  9e90_r8, 9e90_r8 &
6997  /) ) /
6998 
6999 type(gsw_result) :: ct_p_wrt_t
7000 
7001 data ct_p_wrt_t / gsw_result( &
7002  "CT_P_wrt_t", 6.1712e-19_r8, (/ &
7003  -2.35702902289e-08_r8, -2.35746733554e-08_r8, -2.35485782607e-08_r8, &
7004  -2.35575345011e-08_r8, -2.35235924693e-08_r8, -2.34723464522e-08_r8, &
7005  -2.29692572777e-08_r8, -2.20645273137e-08_r8, -2.07573371066e-08_r8, &
7006  -1.89935339067e-08_r8, -1.73498999679e-08_r8, -1.58170216091e-08_r8, &
7007  -1.3174513436e-08_r8, -1.19968000236e-08_r8, -1.1329921159e-08_r8, &
7008  -1.07771773037e-08_r8, -1.00631039578e-08_r8, -9.64627314875e-09_r8, &
7009  -9.33268865054e-09_r8, -9.09357640049e-09_r8, -8.88991228605e-09_r8, &
7010  -8.70883428451e-09_r8, -8.55607713508e-09_r8, -8.4365313387e-09_r8, &
7011  -8.36196530426e-09_r8, -8.3038010221e-09_r8, -8.28736626128e-09_r8, &
7012  -8.36547536235e-09_r8, -8.52079067986e-09_r8, -8.76514115246e-09_r8, &
7013  -9.03812848274e-09_r8, -9.3440955712e-09_r8, -9.66572985225e-09_r8, &
7014  -9.99606469487e-09_r8, -1.0321335947e-08_r8, -1.06551539678e-08_r8, &
7015  -1.09851567921e-08_r8, -1.13132911254e-08_r8, -1.16534942029e-08_r8, &
7016  -1.19790541696e-08_r8, -1.23052668055e-08_r8, -1.26327560538e-08_r8, &
7017  -1.29521018402e-08_r8, -1.32681228354e-08_r8, -1.35793079966e-08_r8, &
7018  -2.31530595132e-08_r8, -2.31176798157e-08_r8, -2.31675213316e-08_r8, &
7019  -2.31435494752e-08_r8, -2.31664776731e-08_r8, -2.29721177132e-08_r8, &
7020  -2.1649685483e-08_r8, -1.97892465796e-08_r8, -1.77379414656e-08_r8, &
7021  -1.51738598444e-08_r8, -1.37611182124e-08_r8, -1.27677596743e-08_r8, &
7022  -1.20608216415e-08_r8, -1.17284597979e-08_r8, -1.14780226894e-08_r8, &
7023  -1.12198110305e-08_r8, -1.0651357471e-08_r8, -1.01138153465e-08_r8, &
7024  -9.63613454919e-09_r8, -9.32178211828e-09_r8, -9.09589557606e-09_r8, &
7025  -8.87061017776e-09_r8, -8.77422105824e-09_r8, -8.68148588824e-09_r8, &
7026  -8.58904211282e-09_r8, -8.50697785298e-09_r8, -8.4347680719e-09_r8, &
7027  -8.49789161541e-09_r8, -8.57641750714e-09_r8, -8.843310623e-09_r8, &
7028  -9.10248817731e-09_r8, -9.40203374237e-09_r8, -9.70551053988e-09_r8, &
7029  -1.00143647904e-08_r8, -1.03239415499e-08_r8, -1.06271417979e-08_r8, &
7030  -1.09334499418e-08_r8, -1.12400792122e-08_r8, -1.15649993566e-08_r8, &
7031  -1.18882452385e-08_r8, -1.22102260465e-08_r8, -1.25350065399e-08_r8, &
7032  -1.28606235254e-08_r8, -1.31788866368e-08_r8, -1.34901950014e-08_r8, &
7033  -7.41187460851e-09_r8, -6.59663334431e-09_r8, -4.67401666435e-09_r8, &
7034  -2.67182219021e-09_r8, -1.51399635463e-09_r8, -9.42142599939e-10_r8, &
7035  -2.04794442546e-09_r8, -2.93485453165e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7036  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7037  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7038  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7039  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7040  9e90_r8, 9e90_r8 &
7041  /) ) /
7042 
7043 type(gsw_result) :: chem_potential_water_t_exact
7044 
7045 data chem_potential_water_t_exact / gsw_result( &
7046  "chem_potential_water_t_exact", 4.8118e-10_r8, (/ &
7047  -8.2813019097643_r8, -8.1813570058991_r8, -8.0610290757152_r8, &
7048  -7.9642520846518_r8, -7.8401963043867_r8, -7.7038894634784_r8, &
7049  -7.1194196809707_r8, -6.3130352258349_r8, -5.3098624806101_r8, &
7050  -4.1449361199008_r8, -3.1433450936883_r8, -2.2707069458974_r8, &
7051  -0.91173280051605_r8, -0.093188622200692_r8, 0.56359853014036_r8, &
7052  1.1931769081934_r8, 2.3485500705464_r8, 3.4407270839207_r8, &
7053  4.5101254726377_r8, 5.5645096494759_r8, 6.6106047445575_r8, &
7054  7.650677138067_r8, 8.684678085483_r8, 9.7229788629479_r8, &
7055  10.74501222729_r8, 11.774202852189_r8, 12.788602464859_r8, &
7056  15.326751832402_r8, 17.854899914265_r8, 20.373905079189_r8, &
7057  22.897887073442_r8, 25.416796820433_r8, 27.941557653627_r8, &
7058  30.452753872822_r8, 32.970829562868_r8, 35.485343631562_r8, &
7059  38.006691462481_r8, 40.515059744394_r8, 43.039452594399_r8, &
7060  45.55151186144_r8, 48.070253010317_r8, 50.576003283723_r8, &
7061  53.098596056158_r8, 55.60840581396_r8, 58.125119735182_r8, &
7062  -8.0133846063496_r8, -7.8870502367202_r8, -7.8175708664657_r8, &
7063  -7.6985375254038_r8, -7.6109447841265_r8, -7.3852141182549_r8, &
7064  -6.3227398464353_r8, -5.05629894209_r8, -3.8242072257402_r8, &
7065  -2.5671505254122_r8, -1.8621862473836_r8, -1.3241994165437_r8, &
7066  -0.64039991654737_r8, -0.043044367478044_r8, 0.52356836452704_r8, &
7067  1.0994597845347_r8, 2.2421533722128_r8, 3.3651752974141_r8, &
7068  4.4660842563847_r8, 5.5342674310638_r8, 6.5855612991322_r8, &
7069  7.6327099080813_r8, 8.66234076644_r8, 9.6997437348718_r8, &
7070  10.72500913831_r8, 11.757477135139_r8, 12.777193853087_r8, &
7071  15.317487229919_r8, 17.851120877025_r8, 20.369135689994_r8, &
7072  22.893982485472_r8, 25.413350749208_r8, 27.939050328172_r8, &
7073  30.451350112677_r8, 32.970308694196_r8, 35.486313271598_r8, &
7074  38.008876743126_r8, 40.518309680654_r8, 43.043409294835_r8, &
7075  45.555665861842_r8, 48.074690133337_r8, 50.580636238688_r8, &
7076  53.103015316397_r8, 55.612816060606_r8, 58.129543323637_r8, &
7077  -1.1226592127859_r8, -0.89508450708121_r8, -0.54659337008948_r8, &
7078  -0.26606408987197_r8, -0.09879179535595_r8, 0.020438641668798_r8, &
7079  0.13747607525642_r8, 0.26764832484136_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7080  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7081  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7082  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7083  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7084  9e90_r8, 9e90_r8 &
7085  /) ) /
7086 
7087 type(gsw_result) :: t_deriv_chem_potential_water_t_exact
7088 
7089 data t_deriv_chem_potential_water_t_exact / gsw_result( &
7090  "t_deriv_chem_potential_water_t_exact", 9.1325e-12_r8, (/ &
7091  -0.417380847621_r8, -0.417365578057_r8, -0.416684354598_r8, &
7092  -0.416766918177_r8, -0.415887140889_r8, -0.41464155826_r8, &
7093  -0.403114772169_r8, -0.382728871345_r8, -0.353695057771_r8, &
7094  -0.315036265405_r8, -0.279430198775_r8, -0.24651383848_r8, &
7095  -0.190418033305_r8, -0.164909445382_r8, -0.149933067481_r8, &
7096  -0.137282845863_r8, -0.120059922576_r8, -0.108812341315_r8, &
7097  -0.0995835729207_r8, -0.0918106972281_r8, -0.0847063514273_r8, &
7098  -0.0780112254224_r8, -0.0718431052412_r8, -0.06627974384_r8, &
7099  -0.06162297721_r8, -0.0572456392833_r8, -0.0537249494925_r8, &
7100  -0.0472613824381_r8, -0.0423409997306_r8, -0.039306001499_r8, &
7101  -0.0368938554212_r8, -0.0352708237835_r8, -0.0340525607459_r8, &
7102  -0.0331717181085_r8, -0.0322469689506_r8, -0.0316509772395_r8, &
7103  -0.0310574417493_r8, -0.0305876377124_r8, -0.0305136904117_r8, &
7104  -0.0302494562908_r8, -0.0301317132199_r8, -0.0302588639919_r8, &
7105  -0.0302660719518_r8, -0.0303954248489_r8, -0.0305361743877_r8, &
7106  -0.408150291576_r8, -0.407271064256_r8, -0.408222533194_r8, &
7107  -0.407593050753_r8, -0.407970262966_r8, -0.403553676858_r8, &
7108  -0.374036123418_r8, -0.333015765002_r8, -0.288669517503_r8, &
7109  -0.234152579942_r8, -0.204151310223_r8, -0.182903714197_r8, &
7110  -0.167019432861_r8, -0.158890331289_r8, -0.152511976462_r8, &
7111  -0.145946756727_r8, -0.131764567924_r8, -0.118133646637_r8, &
7112  -0.105645231115_r8, -0.0963825880562_r8, -0.0888495057876_r8, &
7113  -0.0812768127427_r8, -0.0762720969256_r8, -0.0712751654075_r8, &
7114  -0.0662740746825_r8, -0.0614197365758_r8, -0.0567628750053_r8, &
7115  -0.0500245796641_r8, -0.0435071495352_r8, -0.0409888694088_r8, &
7116  -0.0382992248574_r8, -0.0365607389648_r8, -0.0349487096018_r8, &
7117  -0.0335817729208_r8, -0.0322933721643_r8, -0.0309484431421_r8, &
7118  -0.0297509844577_r8, -0.0287058825313_r8, -0.0281886434192_r8, &
7119  -0.0278135367542_r8, -0.0275268406459_r8, -0.0275181488227_r8, &
7120  -0.0276422895662_r8, -0.0277773790261_r8, -0.0278586774043_r8, &
7121  -0.153370026777_r8, -0.139766509712_r8, -0.108847934496_r8, &
7122  -0.0773007866804_r8, -0.0590424607412_r8, -0.0496472894285_r8, &
7123  -0.0606436969679_r8, -0.0699304866827_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7124  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7125  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7126  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7127  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7128  9e90_r8, 9e90_r8 &
7129  /) ) /
7130 
7131 type(gsw_result) :: dilution_coefficient_t_exact
7132 
7133 data dilution_coefficient_t_exact / gsw_result( &
7134  "dilution_coefficient_t_exact", 2.0061e-10_r8, (/ &
7135  78.833320052832_r8, 78.83593293107_r8, 78.823088765264_r8, &
7136  78.828707627146_r8, 78.82145115118_r8, 78.800473970403_r8, &
7137  78.627440586818_r8, 78.282228915059_r8, 77.712325060703_r8, &
7138  76.890655287235_r8, 76.089293496322_r8, 75.336020207832_r8, &
7139  74.050795099879_r8, 73.494615069765_r8, 73.181304865603_r8, &
7140  72.919216657713_r8, 72.564344488684_r8, 72.343588340428_r8, &
7141  72.169509494764_r8, 72.027865356153_r8, 71.901063679478_r8, &
7142  71.78345117593_r8, 71.677971905319_r8, 71.586373767671_r8, &
7143  71.515549334823_r8, 71.450582027344_r8, 71.405246652122_r8, &
7144  71.345544204633_r8, 71.320792050356_r8, 71.337883209023_r8, &
7145  71.368061523065_r8, 71.414958285884_r8, 71.470210413684_r8, &
7146  71.531442320687_r8, 71.591095563193_r8, 71.656566397849_r8, &
7147  71.72127784564_r8, 71.787217891944_r8, 71.860663179836_r8, &
7148  71.928428704386_r8, 71.998029076657_r8, 72.070903241685_r8, &
7149  72.140411100809_r8, 72.210717472586_r8, 72.279939006426_r8, &
7150  78.669931029937_r8, 78.64993569215_r8, 78.682048882631_r8, &
7151  78.667161066155_r8, 78.681638663555_r8, 78.604190899252_r8, &
7152  78.07432665239_r8, 77.269009459109_r8, 76.269663563831_r8, &
7153  75.023332530604_r8, 74.35846185532_r8, 73.905429873352_r8, &
7154  73.582942931936_r8, 73.421871787573_r8, 73.291935585755_r8, &
7155  73.156317218841_r8, 72.857133780075_r8, 72.572955408012_r8, &
7156  72.316902301381_r8, 72.13807122687_r8, 71.999977234742_r8, &
7157  71.860826594694_r8, 71.781689652184_r8, 71.702794397599_r8, &
7158  71.623584380885_r8, 71.547849093018_r8, 71.47631764206_r8, &
7159  71.410533747224_r8, 71.349354514067_r8, 71.377609457223_r8, &
7160  71.40174880523_r8, 71.44580981645_r8, 71.492329000472_r8, &
7161  71.542632662964_r8, 71.593766101719_r8, 71.642657620501_r8, &
7162  71.693753744418_r8, 71.746977685804_r8, 71.811217521719_r8, &
7163  71.876615923486_r8, 71.942748970714_r8, 72.013185959348_r8, &
7164  72.085515733992_r8, 72.156278733013_r8, 72.224944994649_r8, &
7165  67.616064342506_r8, 67.393227954882_r8, 66.882766763945_r8, &
7166  66.363169629683_r8, 66.065372183713_r8, 65.916337307894_r8, &
7167  66.205547430761_r8, 66.491057841081_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7168  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7169  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7170  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7171  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7172  9e90_r8 &
7173  /) ) /
7174 
7175 type(gsw_result) :: deltasa_atlas
7176 
7177 data deltasa_atlas / gsw_result( &
7178  "deltaSA_atlas", 6.9455e-13_r8, (/ &
7179  0.00017939635663096_r8, 0.00018024758715744_r8, 0.00018145414888945_r8, &
7180  0.00018480149666306_r8, 0.0001890819429285_r8, 0.00019257785168297_r8, &
7181  0.00021838682262078_r8, 0.0002769048901837_r8, 0.0003841754706041_r8, &
7182  0.00059115297388777_r8, 0.000908032530689_r8, 0.0014136509836714_r8, &
7183  0.0024015801387818_r8, 0.0033398659951461_r8, 0.0040049993210942_r8, &
7184  0.0046889462226183_r8, 0.0058334431988866_r8, 0.0069484506083137_r8, &
7185  0.0079381342483063_r8, 0.0089327852091521_r8, 0.0098963770497479_r8, &
7186  0.010973576474338_r8, 0.011870748123933_r8, 0.012728813659902_r8, &
7187  0.013418386717769_r8, 0.014040359250388_r8, 0.01456070508641_r8, &
7188  0.015428131967582_r8, 0.016060553155259_r8, 0.016455937500031_r8, &
7189  0.01669085057857_r8, 0.016759188863781_r8, 0.016764921688203_r8, &
7190  0.016715136964137_r8, 0.016605539274252_r8, 0.016433897885828_r8, &
7191  0.016216771986636_r8, 0.015990922944192_r8, 0.015863711655954_r8, &
7192  0.015696581504836_r8, 0.015596179819865_r8, 0.015387103573608_r8, &
7193  0.015362381428498_r8, 0.015273078591966_r8, 0.015274142150493_r8, &
7194  0.00021235061036736_r8, 0.00021301804444092_r8, 0.00021413422210172_r8, &
7195  0.00022847644465434_r8, 0.00022876526137954_r8, 0.00021812849786686_r8, &
7196  0.00029304728764045_r8, 0.00041136066870002_r8, 0.00062533710472071_r8, &
7197  0.0010917318476372_r8, 0.0017102071106534_r8, 0.0024953518417291_r8, &
7198  0.0033345452414699_r8, 0.003784167655865_r8, 0.0041277349579295_r8, &
7199  0.0045066479478527_r8, 0.0054532660684768_r8, 0.0065338658058966_r8, &
7200  0.0075811940259255_r8, 0.0085681891348377_r8, 0.009473486240849_r8, &
7201  0.010415261498633_r8, 0.011326409800329_r8, 0.012157375577417_r8, &
7202  0.012909369238079_r8, 0.013607063590185_r8, 0.01424583740154_r8, &
7203  0.015349461470091_r8, 0.016309913771638_r8, 0.016744021807487_r8, &
7204  0.017065525716525_r8, 0.017201490812971_r8, 0.017201060329123_r8, &
7205  0.017067842326023_r8, 0.016856247611578_r8, 0.016455962562338_r8, &
7206  0.015980441165909_r8, 0.015427993081175_r8, 0.015031765070164_r8, &
7207  0.014752503347485_r8, 0.014571537959061_r8, 0.014479362618144_r8, &
7208  0.014425096269633_r8, 0.01439026764316_r8, 0.014359769181164_r8, 0._r8, &
7209  0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7210  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7211  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7212  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7213  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7214  9e90_r8, 9e90_r8 &
7215  /) ) /
7216 
7217 type(gsw_result) :: fdelta
7218 
7219 data fdelta / gsw_result( &
7220  "Fdelta", 2.7029e-14_r8, (/ &
7221  7.0162092855842e-06_r8, 7.045771655865e-06_r8, 7.0925570787417e-06_r8, &
7222  7.2228681299504e-06_r8, 7.3856585860477e-06_r8, 7.516523009202e-06_r8, &
7223  8.4887977309356e-06_r8, 1.0702138779874e-05_r8, 1.479793570398e-05_r8, &
7224  2.2773868246066e-05_r8, 3.5069359008853e-05_r8, 5.4780618089434e-05_r8, &
7225  9.3478780811629e-05_r8, 0.00013013319176724_r8, 0.00015607775679941_r8, &
7226  0.00018273894780754_r8, 0.00022737046094256_r8, 0.000270751390802_r8, &
7227  0.00030917342817022_r8, 0.00034777205409477_r8, 0.00038515412009118_r8, &
7228  0.00042694219568702_r8, 0.00046169859176163_r8, 0.00049492242264361_r8, &
7229  0.00052157918848318_r8, 0.00054561070915829_r8, 0.00056568102308624_r8, &
7230  0.0005990446305563_r8, 0.00062328470868508_r8, 0.00063838363046292_r8, &
7231  0.00064729592014973_r8, 0.00064980440901981_r8, 0.000649910321814_r8, &
7232  0.00064789790936163_r8, 0.0006435621630436_r8, 0.00063683716640362_r8, &
7233  0.00062835411352535_r8, 0.00061954782661418_r8, 0.00061458883431837_r8, &
7234  0.00060808717410232_r8, 0.00060417640328676_r8, 0.00059605613792856_r8, &
7235  0.00059509370077862_r8, 0.00059162690254536_r8, 0.00059165434193113_r8, &
7236  8.2762501034542e-06_r8, 8.3024791123899e-06_r8, 8.3420980555677e-06_r8, &
7237  8.9003665862788e-06_r8, 8.9087023796018e-06_r8, 8.4880049309081e-06_r8, &
7238  1.1328356767566e-05_r8, 1.5813763093615e-05_r8, 2.4110920120232e-05_r8, &
7239  4.2304087419597e-05_r8, 6.6449619273076e-05_r8, 9.7004821389896e-05_r8, &
7240  0.00012951165543516_r8, 0.00014684358282955_r8, 0.00016018665824436_r8, &
7241  0.00017495135781717_r8, 0.00021190762658129_r8, 0.00025408998558083_r8, &
7242  0.00029493459694787_r8, 0.00033337770309563_r8, 0.00036854664750044_r8, &
7243  0.00040511732244817_r8, 0.00044044264143216_r8, 0.000472636033848_r8, &
7244  0.00050173286540279_r8, 0.0005287164414977_r8, 0.00055339787626305_r8, &
7245  0.000595907112918_r8, 0.00063284353796775_r8, 0.00064947531198844_r8, &
7246  0.00066174683580697_r8, 0.00066688542106136_r8, 0.00066673786823971_r8, &
7247  0.00066146290008391_r8, 0.00065316955332418_r8, 0.00063756474556709_r8, &
7248  0.00061906246610478_r8, 0.00059757938871502_r8, 0.00058216858248275_r8, &
7249  0.00057132159369387_r8, 0.00056429229571656_r8, 0.00056071080342301_r8, &
7250  0.00055860236733881_r8, 0.00055724686598179_r8, 0.00055603918673276_r8, &
7251  0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e90_r8, 9e90_r8, &
7252  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7253  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7254  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7255  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7256  9e90_r8, 9e90_r8, 9e90_r8 &
7257  /) ) /
7258 
7259 type(gsw_result_mpres) :: n2
7260 
7261 data n2 / gsw_result_mpres( &
7262  "n2", 1.5894e-14_r8, (/ &
7263  8.2026964985796e-08_r8, 1.1699772859452e-05_r8, 8.7438092338887e-08_r8, &
7264  3.8833373834459e-05_r8, 3.3043599666939e-05_r8, 0.00015391835025989_r8, &
7265  0.00024952146968971_r8, 0.00027722386889469_r8, 0.00029577102803556_r8, &
7266  0.00021100479506579_r8, 0.0001600213886865_r8, 0.00012387690055916_r8, &
7267  5.9348214132557e-05_r8, 3.7839570095079e-05_r8, 3.0505463674136e-05_r8, &
7268  1.8171916683283e-05_r8, 1.1439442352111e-05_r8, 9.554923614465e-06_r8, &
7269  7.8841621236537e-06_r8, 7.0909879473625e-06_r8, 6.6282051500872e-06_r8, &
7270  6.141180595242e-06_r8, 5.4387415491748e-06_r8, 4.7753686216973e-06_r8, &
7271  4.2349015699631e-06_r8, 3.6234536707489e-06_r8, 2.7689355332178e-06_r8, &
7272  2.2498200926608e-06_r8, 1.5118179942688e-06_r8, 1.2166565958644e-06_r8, &
7273  8.8808405013559e-07_r8, 7.1747201799272e-07_r8, 5.5927607936267e-07_r8, &
7274  6.0624755324609e-07_r8, 4.2469382614092e-07_r8, 4.3861957806637e-07_r8, &
7275  3.8945451968156e-07_r8, 1.4205655800746e-07_r8, 2.6062673277363e-07_r8, &
7276  1.6021757878092e-07_r8, -5.347519079759e-09_r8, 8.4584880995889e-08_r8, &
7277  1.2252102303609e-08_r8, 6.9380930140001e-09_r8, 8.8939626693067e-06_r8, &
7278  -5.8572650419504e-08_r8, 3.0366319504277e-06_r8, -2.6240110464918e-07_r8, &
7279  0.00012689914792751_r8, 0.00032140565400816_r8, 0.00038684922902992_r8, &
7280  0.00027060948445507_r8, 0.00027997500129161_r8, 0.00015610058162044_r8, &
7281  0.00011634565153526_r8, 4.7368275412028e-05_r8, 2.1092424875728e-05_r8, &
7282  1.2960935791785e-05_r8, 1.1985406737722e-05_r8, 1.1892832249788e-05_r8, &
7283  1.1628255199148e-05_r8, 1.0773163369264e-05_r8, 8.5198781815982e-06_r8, &
7284  7.1617121522671e-06_r8, 7.094136272655e-06_r8, 5.0800245505697e-06_r8, &
7285  4.9451696828056e-06_r8, 5.0261915533833e-06_r8, 4.7800075475075e-06_r8, &
7286  4.6504617754474e-06_r8, 2.9311666534791e-06_r8, 2.8676876410897e-06_r8, &
7287  1.2635453327005e-06_r8, 1.3704630991692e-06_r8, 9.232552391782e-07_r8, &
7288  9.0763897983424e-07_r8, 7.7453845573444e-07_r8, 7.2929983279132e-07_r8, &
7289  7.7947941915189e-07_r8, 6.9417388358826e-07_r8, 6.5839386952473e-07_r8, &
7290  4.0411494275729e-07_r8, 3.0346639076028e-07_r8, 2.5135344103683e-07_r8, &
7291  9.9982620909999e-08_r8, 2.4654934937997e-08_r8, 2.0885423177912e-08_r8, &
7292  9.223702816207e-08_r8, 0.0001660648551066_r8, 0.00026633634883617_r8, &
7293  0.00027763586396894_r8, 0.00020948149219376_r8, 0.00017879921415107_r8, &
7294  0.00045821505037643_r8, 0.0003631969327651_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7295  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7296  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7297  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7298  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7299  9e90_r8, 9e90_r8 &
7300  /) ) /
7301 
7302 type(gsw_result_mpres) :: p_mid_n2
7303 
7304 data p_mid_n2 / gsw_result_mpres( &
7305  "p_mid_n2", 2.3e-08_r8, (/ &
7306  5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 113.5_r8, 138.5_r8, &
7307  163.5_r8, 189._r8, 227._r8, 277.5_r8, 328._r8, 378.5_r8, 454.5_r8, &
7308  555.5_r8, 656.5_r8, 757.5_r8, 858.5_r8, 959.5_r8, 1060.5_r8, 1162._r8, &
7309  1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, &
7310  2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, &
7311  4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, &
7312  5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 113.5_r8, 138.5_r8, &
7313  163.5_r8, 189._r8, 227._r8, 277.5_r8, 328._r8, 378.5_r8, 454.5_r8, &
7314  555.5_r8, 656.5_r8, 757.5_r8, 858.5_r8, 959.5_r8, 1060.5_r8, 1162._r8, &
7315  1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, &
7316  2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, &
7317  4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, &
7318  5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, &
7319  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7320  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7321  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7322  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7323  9e90_r8, 9e90_r8, 9e90_r8 &
7324  /) ) /
7325 
7326 type(gsw_result_mpres) :: tu
7327 
7328 data tu / gsw_result_mpres( &
7329  "Tu", 2.191e-08_r8, (/ &
7330  83.7512715531_r8, 58.3454831514_r8, -88.5886471321_r8, 2.92826882605_r8, &
7331  35.3335360092_r8, 16.7767955292_r8, 23.1453658821_r8, 36.1807645983_r8, &
7332  45.0628267869_r8, 53.6905299283_r8, 56.7883441369_r8, 56.9326967577_r8, &
7333  46.5849078108_r8, 38.5295118726_r8, 36.9318436163_r8, 42.2885144296_r8, &
7334  41.3992929624_r8, 38.1889773139_r8, 37.8380885257_r8, 37.4971404763_r8, &
7335  36.8038996651_r8, 35.3944849137_r8, 35.1313315209_r8, 32.1809769569_r8, &
7336  35.0419064725_r8, 31.7239821171_r8, 29.6666138814_r8, 27.1239939518_r8, &
7337  24.7797012441_r8, 26.9993873354_r8, 26.2646952509_r8, 25.811165216_r8, &
7338  26.715853043_r8, 26.0585133223_r8, 28.4721456872_r8, 27.9527739358_r8, &
7339  26.2741237332_r8, 30.8162904006_r8, 30.5584919457_r8, 36.2877144131_r8, &
7340  98.1115814363_r8, 40.3270291392_r8, 46.6645727862_r8, 25.1677854333_r8, &
7341  73.3042571336_r8, -90.0821543625_r8, 82.9243994801_r8, -90.9462769959_r8, &
7342  28.8710711676_r8, 27.6683232267_r8, 34.87829511_r8, 53.7493883935_r8, &
7343  55.7385165045_r8, 48.9531109909_r8, 38.8500056391_r8, 31.7547925712_r8, &
7344  36.9307020403_r8, 50.7776166783_r8, 53.9930973847_r8, 56.632752241_r8, &
7345  53.6069689045_r8, 50.7267584625_r8, 45.3029924543_r8, 41.9186714576_r8, &
7346  41.4234361198_r8, 35.7368538207_r8, 36.1715534015_r8, 35.2334062198_r8, &
7347  35.4219028649_r8, 34.714575531_r8, 29.6604583721_r8, 29.8105310685_r8, &
7348  25.6530679295_r8, 26.3018903463_r8, 28.2454891003_r8, 26.9185031189_r8, &
7349  30.270140287_r8, 32.7813265864_r8, 32.9709181493_r8, 35.6564979625_r8, &
7350  33.5909391428_r8, 29.7048355369_r8, 35.2075098131_r8, 37.2062343408_r8, &
7351  35.4422070149_r8, 22.2582946063_r8, -2.71157620588_r8, -9.2408573343_r8, &
7352  3.83688900053_r8, 12.213034823_r8, -12.5408613299_r8, -33.415215626_r8, &
7353  -41.3216504414_r8, -45.694408063_r8, -46.2699201995_r8, 9e90_r8, 9e90_r8, &
7354  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7355  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7356  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7357  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7358  9e90_r8, 9e90_r8, 9e90_r8 &
7359  /) ) /
7360 
7361 type(gsw_result_mpres) :: rsubrho
7362 
7363 data rsubrho / gsw_result_mpres( &
7364  "Rsubrho", 1.7097e-08_r8, (/ &
7365  1.2459175325039_r8, 4.2153481295466_r8, 0.95190936871968_r8, &
7366  -1.107820226202_r8, -5.8709296665608_r8, -1.863179843003_r8, &
7367  -2.4932807508948_r8, -6.4452938606987_r8, 911.96381930288_r8, &
7368  6.542261075283_r8, 4.7915994080783_r8, 4.7319552533319_r8, &
7369  36.141638362012_r8, -8.8172634661977_r8, -7.0544703166585_r8, &
7370  -21.114993438142_r8, -15.891415548716_r8, -8.3725515666241_r8, &
7371  -7.9583583205784_r8, -7.5928258426897_r8, -6.942866548538_r8, &
7372  -5.9088959999433_r8, -5.7482992972723_r8, -4.3947620579714_r8, &
7373  -5.6956387915142_r8, -4.2382207205296_r8, -3.647033532806_r8, &
7374  -3.1004983066208_r8, -2.7149518889933_r8, -3.077571562158_r8, &
7375  -2.9483891913517_r8, -2.8734116424598_r8, -3.0265294275299_r8, &
7376  -2.9138744664455_r8, -3.3699265051144_r8, -3.2612360693181_r8, &
7377  -2.9499850267085_r8, -3.9566916848526_r8, -3.8830621269777_r8, &
7378  -6.5256706347176_r8, 0.75050520217966_r8, -12.233905223308_r8, &
7379  34.41102678354_r8, -2.7727144268352_r8, 1.8568710091076_r8, &
7380  1.0028718480496_r8, 1.2834286368338_r8, 1.0335890982435_r8, &
7381  -3.4580273138405_r8, -3.2043895712144_r8, -5.6016760811397_r8, &
7382  6.4975656301787_r8, 5.2729185990282_r8, 14.470839821139_r8, &
7383  -9.280588726355_r8, -4.2484409903949_r8, -7.0534589928125_r8, &
7384  9.8832181117997_r8, 6.3186782204139_r8, 4.8575213434529_r8, &
7385  6.6067567935772_r8, 9.9715842182905_r8, 189.09792833758_r8, &
7386  -18.576575269977_r8, -15.998970621283_r8, -6.1313627158849_r8, &
7387  -6.4384616751149_r8, -5.8095757368348_r8, -5.9261312921768_r8, &
7388  -5.510612844363_r8, -3.6454977380252_r8, -3.683287012584_r8, &
7389  -2.8480708828048_r8, -2.9546937300325_r8, -3.321688571393_r8, &
7390  -3.0628530002732_r8, -3.8036960609114_r8, -4.6178962271521_r8, &
7391  -4.6929160941601_r8, -6.0776976068411_r8, -4.9554027146376_r8, &
7392  -3.6565968106825_r8, -5.7939101213145_r8, -7.3060902936167_r8, &
7393  -5.9389578850225_r8, -2.3856977176447_r8, -0.90956072716382_r8, &
7394  -0.7201392832697_r8, -1.143775818143_r8, -1.5524718006901_r8, &
7395  -0.63606810722336_r8, -0.20499378284572_r8, -0.064287656743285_r8, &
7396  0.012120300497005_r8, 0.022167918876923_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7397  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7398  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7399  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7400  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7401  9e90_r8, 9e90_r8 &
7402  /) ) /
7403 
7404 type(gsw_result_mpres) :: p_mid_tursr
7405 
7406 data p_mid_tursr / gsw_result_mpres( &
7407  "p_mid_TuRsr", 2.3e-08_r8, (/ &
7408  5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 113.5_r8, 138.5_r8, &
7409  163.5_r8, 189._r8, 227._r8, 277.5_r8, 328._r8, 378.5_r8, 454.5_r8, &
7410  555.5_r8, 656.5_r8, 757.5_r8, 858.5_r8, 959.5_r8, 1060.5_r8, 1162._r8, &
7411  1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, &
7412  2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, &
7413  4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, &
7414  5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 113.5_r8, 138.5_r8, &
7415  163.5_r8, 189._r8, 227._r8, 277.5_r8, 328._r8, 378.5_r8, 454.5_r8, &
7416  555.5_r8, 656.5_r8, 757.5_r8, 858.5_r8, 959.5_r8, 1060.5_r8, 1162._r8, &
7417  1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, &
7418  2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, &
7419  4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, &
7420  5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, &
7421  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7422  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7423  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7424  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7425  9e90_r8, 9e90_r8, 9e90_r8 &
7426  /) ) /
7427 
7428 type(gsw_result_mpres) :: n2min
7429 
7430 data n2min / gsw_result_mpres( &
7431  "n2min", 1.6328e-14_r8, (/ &
7432  8.194346517331e-08_r8, 1.1693792052724e-05_r8, 8.6908546214712e-08_r8, &
7433  3.8824431193258e-05_r8, 3.3020752923137e-05_r8, 0.00015310139213068_r8, &
7434  0.00024668867358782_r8, 0.00027105946540631_r8, 0.00028423794269635_r8, &
7435  0.00020079664615052_r8, 0.0001514096913331_r8, 0.00011039282872572_r8, &
7436  5.6705715946628e-05_r8, 3.6954143672373e-05_r8, 2.9897624987788e-05_r8, &
7437  1.7631142382078e-05_r8, 1.1237369246147e-05_r8, 9.4322749748566e-06_r8, &
7438  7.8069574461344e-06_r8, 7.0316977467948e-06_r8, 6.5790778297963e-06_r8, &
7439  6.1038618178456e-06_r8, 5.4138460793387e-06_r8, 4.7640209338309e-06_r8, &
7440  4.2276564320787e-06_r8, 3.622540230433e-06_r8, 2.7526216068212e-06_r8, &
7441  2.2298654800872e-06_r8, 1.4938010041093e-06_r8, 1.2006519363361e-06_r8, &
7442  8.7576351990733e-07_r8, 7.074850805058e-07_r8, 5.5146466608614e-07_r8, &
7443  5.9822639826711e-07_r8, 4.1891253612497e-07_r8, 4.3292528337733e-07_r8, &
7444  3.8470041331749e-07_r8, 1.4018932099856e-07_r8, 2.5742911935292e-07_r8, &
7445  1.5811034046085e-07_r8, -5.614015728967e-09_r8, 8.3471263452627e-08_r8, &
7446  1.2076783778133e-08_r8, 6.8720345007695e-09_r8, 8.8824016500659e-06_r8, &
7447  -8.2540631948745e-08_r8, 3.0313882730487e-06_r8, -2.6724410525543e-07_r8, &
7448  0.00012657170436251_r8, 0.00031550885902692_r8, 0.00037432394289753_r8, &
7449  0.00025476865027384_r8, 0.00025495503066683_r8, 0.00014853929693453_r8, &
7450  0.00011275179870003_r8, 4.6388757332712e-05_r8, 2.0864397023715e-05_r8, &
7451  1.2822659723008e-05_r8, 1.1840426292707e-05_r8, 1.1539231463307e-05_r8, &
7452  1.1306319249887e-05_r8, 1.0511494568517e-05_r8, 8.3955189650568e-06_r8, &
7453  7.0911527989959e-06_r8, 7.0230514306517e-06_r8, 5.0629926137659e-06_r8, &
7454  4.9291455495426e-06_r8, 5.0099504939714e-06_r8, 4.7667157864395e-06_r8, &
7455  4.6396435295822e-06_r8, 2.9160151594144e-06_r8, 2.8509628516544e-06_r8, &
7456  1.2472553745903e-06_r8, 1.3534968507002e-06_r8, 9.1035641766551e-07_r8, &
7457  8.9544965222798e-07_r8, 7.6374774721198e-07_r8, 7.1900165062914e-07_r8, &
7458  7.6892629462664e-07_r8, 6.8453184115671e-07_r8, 6.497880048791e-07_r8, &
7459  3.9905172585809e-07_r8, 2.9944086396421e-07_r8, 2.4800489062871e-07_r8, &
7460  9.8716189054048e-08_r8, 2.4408839243381e-08_r8, 2.0758737456709e-08_r8, &
7461  9.1779374620329e-08_r8, 0.0001611729885002_r8, 0.00023944070948783_r8, &
7462  0.00024904640983871_r8, 0.00020007889751824_r8, 0.00017649915736858_r8, &
7463  0.0004552721778721_r8, 0.00036118359668038_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7464  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7465  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7466  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7467  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7468  9e90_r8, 9e90_r8 &
7469  /) ) /
7470 
7471 type(gsw_result_mpres) :: n2min_pmid
7472 
7473 data n2min_pmid / gsw_result_mpres( &
7474  "n2min_pmid", 2.3e-08_r8, (/ &
7475  0._r8, 20._r8, 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 126._r8, 151._r8, &
7476  176._r8, 202._r8, 252._r8, 303._r8, 353._r8, 404._r8, 505._r8, 606._r8, &
7477  707._r8, 808._r8, 909._r8, 1010._r8, 1111._r8, 1213._r8, 1314._r8, &
7478  1416._r8, 1416._r8, 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, &
7479  2789._r8, 3045._r8, 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, &
7480  4583._r8, 4840._r8, 5098._r8, 5355._r8, 5614._r8, 5872._r8, 10._r8, 20._r8, &
7481  30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 126._r8, 151._r8, 176._r8, &
7482  202._r8, 252._r8, 303._r8, 353._r8, 404._r8, 505._r8, 606._r8, 707._r8, &
7483  808._r8, 909._r8, 1010._r8, 1111._r8, 1213._r8, 1314._r8, 1416._r8, &
7484  1517._r8, 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, &
7485  3045._r8, 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, &
7486  4840._r8, 5098._r8, 5355._r8, 5614._r8, 5872._r8, 10._r8, 20._r8, 30._r8, &
7487  40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7488  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7489  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7490  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7491  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7492  9e90_r8 &
7493  /) ) /
7494 
7495 type(gsw_result_mpres) :: n2min_specvol
7496 
7497 data n2min_specvol / gsw_result_mpres( &
7498  "n2min_specvol", 2.8189e-16_r8, (/ &
7499  0.0009785543233027595_r8, 0.0009784618366719601_r8, &
7500  0.000978421415045363_r8, 0.0009783422466640218_r8, &
7501  0.0009782688824288848_r8, 0.0009777640332867593_r8, &
7502  0.0009770403727271287_r8, 0.0009762483688210682_r8, &
7503  0.0009754108796092231_r8, 0.0009747842882447639_r8, &
7504  0.0009742639966029803_r8, 0.0009734416458830165_r8, &
7505  0.0009729268429971193_r8, 0.0009725277630284352_r8, &
7506  0.0009721572293526454_r8, 0.0009715456523783769_r8, &
7507  0.0009710006565911184_r8, 0.0009704744077971193_r8, &
7508  0.0009699649710788868_r8, 0.0009694637413999293_r8, &
7509  0.0009689674943787913_r8, 0.0009684765204907988_r8, &
7510  0.000967988236724932_r8, 0.0009675119259902132_r8, &
7511  0.0009670370032809823_r8, 0.0009670370032809823_r8, &
7512  0.0009665735522400026_r8, 0.0009654333580315161_r8, &
7513  0.0009643124260948762_r8, 0.0009632167130854711_r8, &
7514  0.0009621314486924892_r8, 0.0009610619706652792_r8, &
7515  0.0009600004065422604_r8, 0.0009589548080759135_r8, &
7516  0.0009579119173599126_r8, 0.000956881440892287_r8, 0.00095585460009929_r8, &
7517  0.0009548408831970166_r8, 0.000953833338236736_r8, &
7518  0.0009528347748806934_r8, 0.0009518426976033604_r8, &
7519  0.0009508663579792579_r8, 0.000949888117673811_r8, &
7520  0.0009489232123869458_r8, 0.0009782268853134868_r8, &
7521  0.0009781865501847123_r8, 0.0009781431340949687_r8, &
7522  0.0009781030281571829_r8, 0.0009779358050676108_r8, &
7523  0.0009769962722238172_r8, 0.0009759310684951503_r8, &
7524  0.0009751559609852537_r8, 0.0009743577254754103_r8, &
7525  0.0009738661471026388_r8, 0.0009734569588197507_r8, &
7526  0.0009730110644159331_r8, 0.0009726885634491161_r8, &
7527  0.0009724125020294047_r8, 0.0009721357687388763_r8, &
7528  0.0009715883283967369_r8, 0.000971043032837796_r8, &
7529  0.0009705058336202661_r8, 0.0009699908909482257_r8, &
7530  0.000969489624674539_r8, 0.000968989326368841_r8, 0.0009685094493383497_r8, &
7531  0.000968026828388607_r8, 0.0009675487850033837_r8, &
7532  0.0009670691215662698_r8, 0.0009665961087766352_r8, &
7533  0.0009665961087766352_r8, 0.000965453051992845_r8, &
7534  0.0009643176535877508_r8, 0.0009632286329509885_r8, &
7535  0.0009621401948976804_r8, 0.0009610703930294092_r8, &
7536  0.000960004582156618_r8, 0.0009589539797173984_r8, &
7537  0.0009579081751836131_r8, 0.0009568689091533141_r8, 0.00095583544893347_r8, &
7538  0.0009548146155764491_r8, 0.0009537999090189937_r8, &
7539  0.0009527994807394211_r8, 0.0009518043190938421_r8, &
7540  0.0009508245316705431_r8, 0.0009498468666524498_r8, &
7541  0.0009488809062396042_r8, 0.0009949245452751476_r8, &
7542  0.0009946040926904509_r8, 0.0009942717261025088_r8, &
7543  0.0009940088745524498_r8, 0.0009937773244990007_r8, &
7544  0.0009924332606871787_r8, 0.0009913873184543118_r8, &
7545  0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7546  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7547  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7548  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7549  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
7550  /) ) /
7551 
7552 type(gsw_result_mpres) :: n2min_alpha
7553 
7554 data n2min_alpha / gsw_result_mpres( &
7555  "n2min_alpha", 8.2511e-15_r8, (/ &
7556  0.00031831246465714_r8, 0.00031814275657959_r8, 0.00031829167734161_r8, &
7557  0.00031795922055419_r8, 0.00031741177706767_r8, 0.00031179395602026_r8, &
7558  0.00030141362492837_r8, 0.00028596263812853_r8, 0.00026450886155659_r8, &
7559  0.00024397404528929_r8, 0.00022440625955621_r8, 0.00018975958703816_r8, &
7560  0.00017405696520385_r8, 0.00016512854145658_r8, 0.0001576899406304_r8, &
7561  0.00014807441042483_r8, 0.00014252387994453_r8, 0.00013838738637137_r8, &
7562  0.00013527726299367_r8, 0.00013265234399935_r8, 0.00013033509102019_r8, &
7563  0.00012841147506385_r8, 0.0001269577988008_r8, 0.00012614373092141_r8, &
7564  0.00012556465287975_r8, 0.00012556465287975_r8, 0.0001255854517629_r8, &
7565  0.00012737392919504_r8, 0.00013030163856574_r8, 0.00013454687195958_r8, &
7566  0.00013923611412081_r8, 0.00014443028981363_r8, 0.00014987962882352_r8, &
7567  0.000155475108165_r8, 0.00016102244369735_r8, 0.00016671350692754_r8, &
7568  0.00017237190127977_r8, 0.00017801733274792_r8, 0.00018385807300305_r8, &
7569  0.00018949876493089_r8, 0.00019516412817312_r8, 0.00020085264541274_r8, &
7570  0.00020644192075943_r8, 0.00021198604708151_r8, 0.00031314584363571_r8, &
7571  0.00031379095358515_r8, 0.00031354339000421_r8, 0.00031386177161337_r8, &
7572  0.00031166099032067_r8, 0.000296339987212_r8, 0.00027410972793407_r8, &
7573  0.00024866352968226_r8, 0.00021583977103351_r8, 0.00019736078118712_r8, &
7574  0.00018421708451963_r8, 0.00017486696247624_r8, 0.00017051611280154_r8, &
7575  0.00016724557059136_r8, 0.00016385374058867_r8, 0.00015629414174458_r8, &
7576  0.00014909651010626_r8, 0.00014267633917463_r8, 0.00013851653174449_r8, &
7577  0.0001355865358085_r8, 0.00013264771558957_r8, 0.00013153755731539_r8, &
7578  0.00013047724467425_r8, 0.00012941419181229_r8, 0.00012849847982801_r8, &
7579  0.0001277188349363_r8, 0.0001277188349363_r8, 0.0001292970942265_r8, &
7580  0.00013111334945339_r8, 0.0001356863138958_r8, 0.0001401755697496_r8, &
7581  0.00014527582557902_r8, 0.00015046105362017_r8, 0.00015574418663267_r8, &
7582  0.00016106309539841_r8, 0.000166311327862_r8, 0.00017162801220594_r8, &
7583  0.0001769653707843_r8, 0.00018259067859958_r8, 0.00018820225131634_r8, &
7584  0.00019381214928371_r8, 0.00019946847313476_r8, 0.00020515279445686_r8, &
7585  0.0002107349775155_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, &
7586  3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, &
7587  2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 4.1139568399101e-05_r8, &
7588  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7589  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7590  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7591  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7592  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
7593  /) ) /
7594 
7595 type(gsw_result_mpres) :: n2min_beta
7596 
7597 data n2min_beta / gsw_result_mpres( &
7598  "n2min_beta", 1.8397e-15_r8, (/ &
7599  0.00071891860085091_r8, 0.00071881933367617_r8, 0.00071871921576397_r8, &
7600  0.00071872418757004_r8, 0.00071877529859646_r8, 0.00071982423795744_r8, &
7601  0.00072192226059341_r8, 0.00072514590519558_r8, 0.00072975281215256_r8, &
7602  0.00073424294205732_r8, 0.00073859466136716_r8, 0.00074646994917444_r8, &
7603  0.00074994874791257_r8, 0.00075182666867381_r8, 0.00075334843991345_r8, &
7604  0.00075512854627534_r8, 0.00075592980881447_r8, 0.00075639564873158_r8, &
7605  0.0007566177576665_r8, 0.00075672790306217_r8, 0.00075676918303485_r8, &
7606  0.00075672001336559_r8, 0.00075655563168968_r8, 0.00075624428466638_r8, &
7607  0.00075587437871921_r8, 0.00075587437871921_r8, 0.00075536613495089_r8, &
7608  0.00075367570819568_r8, 0.00075172497764175_r8, 0.00074946350249751_r8, &
7609  0.00074710150046774_r8, 0.00074462553600039_r8, 0.00074209220383233_r8, &
7610  0.0007395363612618_r8, 0.0007369989868843_r8, 0.00073443279635813_r8, &
7611  0.00073187950375532_r8, 0.00072934138433148_r8, 0.00072674861171345_r8, &
7612  0.00072422009277462_r8, 0.00072168607463089_r8, 0.00071915330486918_r8, &
7613  0.00071664523040865_r8, 0.00071415696387813_r8, 0.00071997330477217_r8, &
7614  0.00071976642054599_r8, 0.00071975188668924_r8, 0.00071961539411425_r8, &
7615  0.00072002646142771_r8, 0.00072319569356983_r8, 0.00072793617402992_r8, &
7616  0.00073349085963673_r8, 0.00074090987742426_r8, 0.0007451230130126_r8, &
7617  0.00074811560205416_r8, 0.00075008075571807_r8, 0.00075083844183457_r8, &
7618  0.00075134129226816_r8, 0.00075187115532691_r8, 0.00075313631886973_r8, &
7619  0.00075433050421882_r8, 0.00075534894473538_r8, 0.00075582533336245_r8, &
7620  0.00075600843911033_r8, 0.00075620105004302_r8, 0.00075595017479816_r8, &
7621  0.00075568741799472_r8, 0.00075543622349373_r8, 0.00075514882901842_r8, &
7622  0.00075483806381027_r8, 0.00075483806381027_r8, 0.00075319778801004_r8, &
7623  0.00075152316047427_r8, 0.00074917733334614_r8, 0.00074686443787858_r8, &
7624  0.00074441062667607_r8, 0.00074194391469331_r8, 0.00073946813600148_r8, &
7625  0.00073698980118432_r8, 0.00073454083205842_r8, 0.00073207955103499_r8, &
7626  0.00072962628588647_r8, 0.00072709545590058_r8, 0.00072457837687366_r8, &
7627  0.00072206359478347_r8, 0.00071954433782395_r8, 0.00071701373131388_r8, &
7628  0.00071451889363731_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, &
7629  0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, &
7630  0.00078356549344703_r8, 0.00078036996563038_r8, 0.00078036996563038_r8, &
7631  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7632  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7633  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7634  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7635  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
7636  /) ) /
7637 
7638 type(gsw_result_mpres) :: n2min_dsa
7639 
7640 data n2min_dsa / gsw_result_mpres( &
7641  "n2min_dsa", 8.8818e-16_r8, (/ &
7642  -0.0004744772376454875_r8, -0.005176129943286867_r8, &
7643  0.002586467507178725_r8, 0.02620828714793788_r8, 0.006840473811116965_r8, &
7644  0.1985940608084107_r8, 0.2530121394447065_r8, 0.131304336162323_r8, &
7645  -0.001137846209545046_r8, -0.1324939204252473_r8, -0.1517408971750243_r8, &
7646  -0.2274755636567818_r8, -0.01170603813245208_r8, 0.02608599044023663_r8, &
7647  0.02607520098421645_r8, 0.01117294308506445_r8, 0.009186909859579373_r8, &
7648  0.01380944674360052_r8, 0.01190926204460396_r8, 0.01115801949747208_r8, &
7649  0.01127582938957516_r8, 0.01200423213758484_r8, 0.01098742737897851_r8, &
7650  0.01194670585781665_r8, 0.008619976787883843_r8, 0.009335483423242863_r8, &
7651  0.02023415151669639_r8, 0.01865308906126018_r8, 0.01385654427959793_r8, &
7652  0.01021834350689943_r8, 0.007718255484803649_r8, 0.006394791752256879_r8, &
7653  0.00478711857731895_r8, 0.005371495522787484_r8, 0.003377836510438215_r8, &
7654  0.003599813865946544_r8, 0.003442656998416282_r8, 0.001010882281143211_r8, &
7655  0.001879730447228667_r8, 0.0007544589947272584_r8, &
7656  -0.0007584054574749644_r8, 0.0002284591615548948_r8, &
7657  -1.308775630803893e-05_r8, 6.604334464554995e-05_r8, &
7658  -0.01473959834153504_r8, 0.02896513052414207_r8, -0.01521726960453407_r8, &
7659  0.01109636409248083_r8, 0.0404202203324644_r8, 0.2813755028858438_r8, &
7660  0.2060520020007388_r8, -0.1717059411792121_r8, -0.226377450206698_r8, &
7661  -0.03969275605752642_r8, 0.04010079530032584_r8, 0.06126795966883236_r8, &
7662  0.01809454577515623_r8, -0.00987099873615449_r8, -0.01553504702332731_r8, &
7663  -0.04202194749251476_r8, -0.02820517529822553_r8, -0.01629674725631958_r8, &
7664  -0.0006137485337021076_r8, 0.004952041906733484_r8, 0.00564454820149507_r8, &
7665  0.009629922574951877_r8, 0.009074410217799311_r8, 0.009974083813375501_r8, &
7666  0.009416529579489463_r8, 0.00964910048947587_r8, 0.02144358226677667_r8, &
7667  0.0208287997231551_r8, 0.01118519549540764_r8, 0.01187317993527159_r8, &
7668  0.007333829617643062_r8, 0.00771521422122845_r8, 0.00555843316933391_r8, &
7669  0.004502442281811625_r8, 0.00475899900411747_r8, 0.003429630197402389_r8, &
7670  0.003859175287516337_r8, 0.003059901025849854_r8, 0.001572443233868626_r8, &
7671  0.001071921709083767_r8, 0.000509604108586359_r8, 0.0002601674146944788_r8, &
7672  0.0003901714079006524_r8, 0.001924799106966191_r8, 0.1038771009668551_r8, &
7673  0.1391716225851436_r8, 0.2245676076205712_r8, 0.2285845443154297_r8, &
7674  0.2201157032297125_r8, 1.581403232725715_r8, 1.221844302658285_r8, 9e90_r8, &
7675  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7676  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7677  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7678  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7679  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
7680  /) ) /
7681 
7682 type(gsw_result_mpres) :: n2min_dct
7683 
7684 data n2min_dct / gsw_result_mpres( &
7685  "n2min_dct", 1.724e-12_r8, (/ &
7686  -0.0013348737376226_r8, -0.049278777774731_r8, 0.0055611990517122_r8, &
7687  -0.065594930625537_r8, -0.090860123210103_r8, -0.84597374485428_r8, &
7688  -1.4830388043076_r8, -2.0844865998417_r8, -2.7413460849488_r8, &
7689  -2.4945588770153_r8, -2.2853227490877_r8, -3.853489926104_r8, &
7690  -1.7395278672663_r8, -1.0182572261116_r8, -0.8575987888712_r8, &
7691  -1.1637328820748_r8, -0.75911510820753_r8, -0.62245388286957_r8, &
7692  -0.52400388601308_r8, -0.478532999596_r8, -0.45054562952269_r8, &
7693  -0.41490762544248_r8, -0.37427588931676_r8, -0.31381792152272_r8, &
7694  -0.29494725725024_r8, -0.23808252357275_r8, -0.44025869722012_r8, &
7695  -0.33789555838012_r8, -0.21323532270198_r8, -0.17189977775025_r8, &
7696  -0.11966703964826_r8, -0.092818057931045_r8, -0.070296726368226_r8, &
7697  -0.073016524880242_r8, -0.051103862820067_r8, -0.050764285513594_r8, &
7698  -0.042350313013534_r8, -0.016092977934408_r8, -0.028364852788488_r8, &
7699  -0.01850530763409_r8, -0.0020707686447146_r8, -0.0098522181324587_r8, &
7700  -0.0015399156201532_r8, -0.000607941579851_r8, -0.062888185571321_r8, &
7701  0.066708459481077_r8, -0.044815330343756_r8, 0.026311892401687_r8, &
7702  -0.32168935376222_r8, -2.1397723764561_r8, -2.9348178700752_r8, &
7703  -3.1167944013478_r8, -3.784054688131_r8, -2.0647913287754_r8, &
7704  -1.4560208145895_r8, -1.0858843251912_r8, -0.55462219878911_r8, &
7705  -0.4338772460996_r8, -0.4456523053638_r8, -0.9595122858769_r8, &
7706  -0.91977629706493_r8, -0.84078316195593_r8, -0.62371198557713_r8, &
7707  -0.50739110629554_r8, -0.50912155819238_r8, -0.33796641362137_r8, &
7708  -0.33707745347528_r8, -0.33692455706723_r8, -0.32684519469372_r8, &
7709  -0.31337100206954_r8, -0.45871123532297_r8, -0.44333170339381_r8, &
7710  -0.17918538296045_r8, -0.19025307865916_r8, -0.12726403571675_r8, &
7711  -0.11876258928689_r8, -0.10228397404565_r8, -0.096895440680724_r8, &
7712  -0.10038491134625_r8, -0.090458480745555_r8, -0.080185728149454_r8, &
7713  -0.045328621433661_r8, -0.035666598339575_r8, -0.02965556614995_r8, &
7714  -0.011093356350105_r8, -0.0022035202723656_r8, -0.0012214821167824_r8, &
7715  -0.0046310453391714_r8, -0.95731305534169_r8, -2.1601074073571_r8, &
7716  -2.1881877052759_r8, -1.2602409976967_r8, -0.64817239735291_r8, &
7717  0.71673511444779_r8, 0.60591670607301_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7718  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7719  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7720  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7721  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7722  9e90_r8, 9e90_r8 &
7723  /) ) /
7724 
7725 type(gsw_result_mpres) :: n2min_dp
7726 
7727 data n2min_dp / gsw_result_mpres( &
7728  "n2min_dp", 2.2737e-13_r8, (/ &
7729  10._r8, 10._r8, 10._r8, 10._r8, 10._r8, 26._r8, 25._r8, 25._r8, 25._r8, &
7730  25._r8, 26._r8, 50._r8, 51._r8, 50._r8, 51._r8, 101._r8, 101._r8, 101._r8, &
7731  101._r8, 101._r8, 101._r8, 101._r8, 102._r8, 101._r8, 102._r8, 101._r8, &
7732  254._r8, 254._r8, 254._r8, 255._r8, 255._r8, 256._r8, 255._r8, 256._r8, &
7733  256._r8, 257._r8, 256._r8, 258._r8, 257._r8, 258._r8, 257._r8, 259._r8, &
7734  258._r8, 259._r8, 10._r8, 10._r8, 10._r8, 10._r8, 10._r8, 26._r8, 25._r8, &
7735  25._r8, 25._r8, 25._r8, 26._r8, 50._r8, 51._r8, 50._r8, 51._r8, 101._r8, &
7736  101._r8, 101._r8, 101._r8, 101._r8, 101._r8, 101._r8, 102._r8, 101._r8, &
7737  102._r8, 101._r8, 254._r8, 254._r8, 254._r8, 255._r8, 255._r8, 256._r8, &
7738  255._r8, 256._r8, 256._r8, 257._r8, 256._r8, 258._r8, 257._r8, 258._r8, &
7739  257._r8, 259._r8, 258._r8, 259._r8, 10._r8, 10._r8, 10._r8, 10._r8, 10._r8, &
7740  26._r8, 25._r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7741  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7742  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7743  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7744  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
7745  /) ) /
7746 
7747 type(gsw_result_mpres) :: ipvfn2
7748 
7749 data ipvfn2 / gsw_result_mpres( &
7750  "IPVfN2", 3.4747e-09_r8, (/ &
7751  0.998915064829_r8, 0.999297107902_r8, 1.02277262967_r8, 0.999605429655_r8, &
7752  0.998815151264_r8, 0.998889357966_r8, 0.998028321472_r8, 0.996209050884_r8, &
7753  0.993415543976_r8, 0.988650700453_r8, 0.983220768023_r8, 0.974597457349_r8, &
7754  0.969175078981_r8, 0.964767683253_r8, 0.957049735004_r8, 0.937862925132_r8, &
7755  0.918730897701_r8, 0.903932423241_r8, 0.884725191086_r8, 0.865139964365_r8, &
7756  0.845943972895_r8, 0.82864086603_r8, 0.808209089653_r8, 0.797461193146_r8, &
7757  0.767217792875_r8, 0.760843842348_r8, 0.740282774013_r8, 0.71498527347_r8, &
7758  0.695946025437_r8, 0.658820407204_r8, 0.640465991403_r8, 0.623975783949_r8, &
7759  0.601441131873_r8, 0.590636185422_r8, 0.559938579595_r8, 0.551189125788_r8, &
7760  0.552494940341_r8, 0.506834288317_r8, 0.499660411834_r8, 0.438115986614_r8, &
7761  3.33487846338_r8, 0.378117295672_r8, 0.288372137554_r8, 0.512277405064_r8, &
7762  0.999556036895_r8, 0.755120921284_r8, 0.995024925084_r8, 0.950100030163_r8, &
7763  0.998927389746_r8, 0.998410709081_r8, 0.996905474121_r8, 0.992579402219_r8, &
7764  0.987892792414_r8, 0.984805327429_r8, 0.983412062428_r8, 0.980445072233_r8, &
7765  0.971950447647_r8, 0.954893394545_r8, 0.942090551514_r8, 0.921588785537_r8, &
7766  0.90357919588_r8, 0.884747254752_r8, 0.873229933983_r8, 0.859009719249_r8, &
7767  0.837748529615_r8, 0.832798715244_r8, 0.811973870239_r8, 0.794998350171_r8, &
7768  0.773840665349_r8, 0.755933548568_r8, 0.746266091204_r8, 0.706952433001_r8, &
7769  0.695026061927_r8, 0.666496718806_r8, 0.632315896007_r8, 0.620055480994_r8, &
7770  0.579402038396_r8, 0.543263196491_r8, 0.524793097945_r8, 0.486069931007_r8, &
7771  0.489471768125_r8, 0.510287776481_r8, 0.451275078269_r8, 0.421444778721_r8, &
7772  0.43039269445_r8, 0.539652744147_r8, 0.713846676418_r8, 0.757928068915_r8, &
7773  0.99936536978_r8, 0.997108372389_r8, 0.995041407996_r8, 0.994575061931_r8, &
7774  0.995970426837_r8, 1.00211308856_r8, 1.00308855992_r8, 9e90_r8, 9e90_r8, &
7775  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7776  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7777  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7778  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7779  9e90_r8, 9e90_r8, 9e90_r8 &
7780  /) ) /
7781 
7782 type(gsw_result_mpres) :: p_mid_ipvfn2
7783 
7784 data p_mid_ipvfn2 / gsw_result_mpres( &
7785  "p_mid_IPVfN2", 2.3e-08_r8, (/ &
7786  5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 113.5_r8, 138.5_r8, &
7787  163.5_r8, 189._r8, 227._r8, 277.5_r8, 328._r8, 378.5_r8, 454.5_r8, &
7788  555.5_r8, 656.5_r8, 757.5_r8, 858.5_r8, 959.5_r8, 1060.5_r8, 1162._r8, &
7789  1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, &
7790  2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, &
7791  4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, &
7792  5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 113.5_r8, 138.5_r8, &
7793  163.5_r8, 189._r8, 227._r8, 277.5_r8, 328._r8, 378.5_r8, 454.5_r8, &
7794  555.5_r8, 656.5_r8, 757.5_r8, 858.5_r8, 959.5_r8, 1060.5_r8, 1162._r8, &
7795  1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, &
7796  2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, &
7797  4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, &
7798  5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, &
7799  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7800  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7801  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7802  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7803  9e90_r8, 9e90_r8, 9e90_r8 &
7804  /) ) /
7805 
7806 type(gsw_result) :: n2_lowerlimit
7807 
7808 data n2_lowerlimit / gsw_result( &
7809  "n2_lowerlimit", 1.725e-18_r8, (/ &
7810  1e-07_r8, 9.9253737531188e-08_r8, 9.8514900498007e-08_r8, &
7811  9.7783415016138e-08_r8, 9.7059207936424e-08_r8, 9.6342206837554e-08_r8, &
7812  9.4511215491954e-08_r8, 9.279497746644e-08_r8, 9.1121113508756e-08_r8, &
7813  8.948857739944e-08_r8, 8.7896348750281e-08_r8, 8.6282119595668e-08_r8, &
7814  8.3293355355171e-08_r8, 8.0394932227786e-08_r8, 7.7693289503293e-08_r8, &
7815  7.507330909517e-08_r8, 7.0262918157028e-08_r8, 6.5914646886947e-08_r8, &
7816  6.1984100849972e-08_r8, 5.8431150449872e-08_r8, 5.5219521219016e-08_r8, &
7817  5.2316423467864e-08_r8, 4.9692217512901e-08_r8, 4.7297802110385e-08_r8, &
7818  4.515571988833e-08_r8, 4.3201210694322e-08_r8, 4.1452675585113e-08_r8, &
7819  3.7762205573102e-08_r8, 3.4899538239087e-08_r8, 3.2678990656106e-08_r8, &
7820  3.0950576547105e-08_r8, 2.9611199938732e-08_r8, 2.8569723399065e-08_r8, &
7821  2.7766237555093e-08_r8, 2.7141460587047e-08_r8, 2.6657794514947e-08_r8, &
7822  2.6282085582815e-08_r8, 2.5992516257241e-08_r8, 2.5766813328133e-08_r8, &
7823  2.559302905387e-08_r8, 2.545817141952e-08_r8, 2.5354335212313e-08_r8, &
7824  2.5273484074738e-08_r8, 2.52112924922e-08_r8, 2.5163080410076e-08_r8, &
7825  1e-07_r8, 9.9253737531188e-08_r8, 9.8514900498007e-08_r8, &
7826  9.7783415016138e-08_r8, 9.7059207936424e-08_r8, 9.6342206837554e-08_r8, &
7827  9.4511215491954e-08_r8, 9.279497746644e-08_r8, 9.1121113508756e-08_r8, &
7828  8.948857739944e-08_r8, 8.7896348750281e-08_r8, 8.6282119595668e-08_r8, &
7829  8.3293355355171e-08_r8, 8.0394932227786e-08_r8, 7.7693289503293e-08_r8, &
7830  7.507330909517e-08_r8, 7.0262918157028e-08_r8, 6.5914646886947e-08_r8, &
7831  6.1984100849972e-08_r8, 5.8431150449872e-08_r8, 5.5219521219016e-08_r8, &
7832  5.2316423467864e-08_r8, 4.9692217512901e-08_r8, 4.7297802110385e-08_r8, &
7833  4.515571988833e-08_r8, 4.3201210694322e-08_r8, 4.1452675585113e-08_r8, &
7834  3.7762205573102e-08_r8, 3.4899538239087e-08_r8, 3.2678990656106e-08_r8, &
7835  3.0950576547105e-08_r8, 2.9611199938732e-08_r8, 2.8569723399065e-08_r8, &
7836  2.7766237555093e-08_r8, 2.7141460587047e-08_r8, 2.6657794514947e-08_r8, &
7837  2.6282085582815e-08_r8, 2.5992516257241e-08_r8, 2.5766813328133e-08_r8, &
7838  2.559302905387e-08_r8, 2.545817141952e-08_r8, 2.5354335212313e-08_r8, &
7839  2.5273484074738e-08_r8, 2.52112924922e-08_r8, 2.5163080410076e-08_r8, &
7840  1e-07_r8, 9.9253737531188e-08_r8, 9.8514900498007e-08_r8, &
7841  9.7783415016138e-08_r8, 9.7059207936424e-08_r8, 9.6342206837554e-08_r8, &
7842  9.4511215491954e-08_r8, 9.279497746644e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7843  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7844  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7845  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7846  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7847  9e90_r8, 9e90_r8 &
7848  /) ) /
7849 
7850 type(gsw_result_cast) :: mlp
7851 
7852 data mlp / gsw_result_cast( &
7853  "mlp", 2.3e-08_r8, (/ &
7854  50._r8, 50._r8, 9e90_r8 &
7855  /) ) /
7856 
7857 type(gsw_result) :: geo_strf_dyn_height
7858 
7859 data geo_strf_dyn_height / gsw_result( &
7860  "geo_strf_dyn_height", 3.2646e-07_r8, (/ &
7861  0._r8, -0.589583852182_r8, -1.17898875589_r8, -1.76835996825_r8, &
7862  -2.35629697345_r8, -2.94107494231_r8, -4.41504899203_r8, -5.70371913969_r8, &
7863  -6.82833809933_r8, -7.77225648508_r8, -8.56194300993_r8, -9.26464935526_r8, &
7864  -10.3577304278_r8, -11.2494865368_r8, -12.0141850113_r8, -12.7146420058_r8, &
7865  -13.9410096837_r8, -15.0408144983_r8, -16.0528539701_r8, -16.9918463035_r8, &
7866  -17.8690824578_r8, -18.6893021534_r8, -19.4560620223_r8, -20.1812233611_r8, &
7867  -20.8567919617_r8, -21.5013788595_r8, -22.107368801_r8, -23.5221727916_r8, &
7868  -24.8155384999_r8, -26.0200884995_r8, -27.1700255891_r8, -28.2762836822_r8, &
7869  -29.3571334561_r8, -30.4133187178_r8, -31.4543339584_r8, -32.478887343_r8, &
7870  -33.4953532497_r8, -34.4953814025_r8, -35.500938212_r8, -36.5026430157_r8, &
7871  -37.506667055_r8, -38.514739718_r8, -39.5397218581_r8, -40.5689711546_r8, &
7872  -41.6127915497_r8, 0._r8, -0.561215577078_r8, -1.12252280531_r8, &
7873  -1.68412878005_r8, -2.24610019878_r8, -2.80315775651_r8, -4.13563680699_r8, &
7874  -5.18458706138_r8, -6.03108615435_r8, -6.70915711255_r8, -7.25132829874_r8, &
7875  -7.7290960717_r8, -8.51312925211_r8, -9.24061013851_r8, -9.91981523998_r8, &
7876  -10.5867719394_r8, -11.8322255188_r8, -12.9784251056_r8, -14.0278812309_r8, &
7877  -14.9953866143_r8, -15.8993238983_r8, -16.7440555306_r8, -17.538735985_r8, &
7878  -18.3009282281_r8, -19.0150306211_r8, -19.6950883357_r8, -20.3288487094_r8, &
7879  -21.8013564389_r8, -23.128399457_r8, -24.3578935471_r8, -25.5362986575_r8, &
7880  -26.6653261277_r8, -27.7629553234_r8, -28.8227383269_r8, -29.8579137819_r8, &
7881  -30.8618747808_r8, -31.8374646642_r8, -32.7793482731_r8, -33.7066558451_r8, &
7882  -34.6196050521_r8, -35.528763007_r8, -36.4329605749_r8, -37.3502339552_r8, &
7883  -38.2718413368_r8, -39.2027260967_r8, 0._r8, -2.24045354272_r8, &
7884  -4.45755336701_r8, -6.64607367518_r8, -8.80938788479_r8, -10.9527107504_r8, &
7885  -16.3381819771_r8, -21.247093529_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7886  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7887  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7888  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7889  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7890  9e90_r8 &
7891  /) ) /
7892 
7893 type(gsw_result) :: geo_strf_dyn_height_pc
7894 
7895 data geo_strf_dyn_height_pc / gsw_result( &
7896  "geo_strf_dyn_height_pc", 4.2179e-08_r8, (/ &
7897  0._r8, -0.29470152206_r8, -0.883871636364_r8, -1.47292133789_r8, &
7898  -2.06049336665_r8, -2.64493938313_r8, -3.64315019735_r8, -4.95368424359_r8, &
7899  -6.07569585812_r8, -7.02216247979_r8, -7.81375276812_r8, -8.50314412232_r8, &
7900  -9.30451615962_r8, -10.1934557304_r8, -10.9669574383_r8, -11.6591435275_r8, &
7901  -12.5613346235_r8, -13.6571016261_r8, -14.6635467532_r8, -15.5970750225_r8, &
7902  -16.4688241309_r8, -17.2839891238_r8, -18.0462840087_r8, -18.763831793_r8, &
7903  -19.4392075147_r8, -20.0772448326_r8, -20.6833978696_r8, -21.6414037358_r8, &
7904  -22.9228071977_r8, -24.1171738047_r8, -25.2548047757_r8, -26.3520514774_r8, &
7905  -27.4219954247_r8, -28.471203294_r8, -29.5017024248_r8, -30.5184904828_r8, &
7906  -31.52565902_r8, -32.5214998449_r8, -33.5162918326_r8, -34.5136032724_r8, &
7907  -35.5103364473_r8, -36.5143173727_r8, -37.5295595557_r8, -38.5552617811_r8, &
7908  -39.5916203386_r8, 0._r8, -0.280353555457_r8, -0.841411539841_r8, &
7909  -1.40278522327_r8, -1.96448447201_r8, -2.52031846741_r8, -3.40211327067_r8, &
7910  -4.47427627124_r8, -5.32123694121_r8, -5.99974817046_r8, -6.54518664003_r8, &
7911  -7.0151462297_r8, -7.60426761378_r8, -8.32492976414_r8, -9.00881511468_r8, &
7912  -9.66656205833_r8, -10.584115078_r8, -11.7220696332_r8, -12.7652511188_r8, &
7913  -13.7273525444_r8, -14.6249287056_r8, -15.463915391_r8, -16.253538589_r8, &
7914  -17.0070083399_r8, -17.7203028042_r8, -18.3929873569_r8, -19.0266437127_r8, &
7915  -20.0199263987_r8, -21.3321626761_r8, -22.547504514_r8, -23.7106615149_r8, &
7916  -24.8291173272_r8, -25.9146248763_r8, -26.967832566_r8, -27.9923937472_r8, &
7917  -28.9885713261_r8, -29.9556148515_r8, -30.8940119373_r8, -31.8130593451_r8, &
7918  -32.7229663545_r8, -33.6259672453_r8, -34.5278590095_r8, -35.437066302_r8, &
7919  -36.3558675938_r8, -37.2801867992_r8, 0._r8, -1.11548125131_r8, &
7920  -3.33264515219_r8, -5.5216982052_r8, -7.68551090876_r8, -9.82911352409_r8, &
7921  -13.5117663277_r8, -18.5249676298_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7922  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7923  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7924  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7925  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7926  9e90_r8 &
7927  /) ) /
7928 
7929 type(gsw_result) :: geo_strf_dyn_height_pc_p_mid
7930 
7931 data geo_strf_dyn_height_pc_p_mid / gsw_result( &
7932  "geo_strf_dyn_height_pc_p_mid", 1e-15_r8, (/ &
7933  0._r8, 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 113.5_r8, &
7934  138.5_r8, 163.5_r8, 189._r8, 227._r8, 277.5_r8, 328._r8, 378.5_r8, &
7935  454.5_r8, 555.5_r8, 656.5_r8, 757.5_r8, 858.5_r8, 959.5_r8, 1060.5_r8, &
7936  1162._r8, 1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, &
7937  2406.5_r8, 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, &
7938  4197._r8, 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, &
7939  6001.5_r8, 0._r8, 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, &
7940  113.5_r8, 138.5_r8, 163.5_r8, 189._r8, 227._r8, 277.5_r8, 328._r8, &
7941  378.5_r8, 454.5_r8, 555.5_r8, 656.5_r8, 757.5_r8, 858.5_r8, 959.5_r8, &
7942  1060.5_r8, 1162._r8, 1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, &
7943  2152._r8, 2406.5_r8, 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, &
7944  3940.5_r8, 4197._r8, 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, &
7945  5743._r8, 6001.5_r8, 0._r8, 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, &
7946  88.5_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7947  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7948  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7949  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
7950  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
7951  /) ) /
7952 
7953 type(gsw_result_ice) :: rho_ice
7954 
7955 data rho_ice / gsw_result_ice( &
7956  "rho_ice", 1.1221e-10_r8, (/ &
7957  917.0725744920776_r8, 917.056072336695_r8, 917.1013541739903_r8, &
7958  917.2348189282852_r8, 917.1907519837395_r8, 917.5662845738501_r8, &
7959  917.3183127245584_r8, 917.2088052553296_r8, 917.6569448140186_r8, &
7960  917.7314274777738_r8, 917.4512655432399_r8, 917.2955615033782_r8, &
7961  917.4459916400274_r8, 917.5955656625484_r8, 917.7631220263058_r8, &
7962  917.6316094282093_r8, 917.9476609303331_r8, 918.1291573978269_r8, &
7963  917.9670346044569_r8, 918.0264072839477_r8, 918.2489925867368_r8, &
7964  918.3810252469073_r8, 918.5606601503913_r8, 918.728836795579_r8, &
7965  918.6065952772138_r8, 918.8283130104422_r8, 919.253636255803_r8, &
7966  919.1144524016175_r8, 919.9226910369063_r8, 920.1093348872243_r8, &
7967  920.2731371789597_r8, 920.6229129200607_r8, 920.7327466455769_r8, &
7968  921.1556006256584_r8, 921.7341055268886_r8, 921.8040037060908_r8, &
7969  917.251067420926_r8, 917.0916305380905_r8, 917.2531996179194_r8, &
7970  917.361768956137_r8, 917.4159127049744_r8, 917.265696505985_r8, &
7971  917.2835457557601_r8, 917.6734972012716_r8, 917.1544948473191_r8, &
7972  917.6763213887402_r8, 917.7233232841215_r8, 917.6884405454296_r8, &
7973  917.3521315066283_r8, 917.5103469148975_r8, 917.6130414381731_r8, &
7974  917.8724527855444_r8, 917.6787194772852_r8, 918.1348551233872_r8, &
7975  917.9007025283722_r8, 918.3345399884379_r8, 918.3623019698942_r8, &
7976  918.6442679738756_r8, 918.7267709137126_r8, 918.954237022831_r8, &
7977  919.0657990308683_r8, 918.8692160502469_r8, 919.19565227953_r8, &
7978  919.21043886144_r8, 919.4150774315063_r8, 920.1170466723365_r8, &
7979  920.2795419003088_r8, 920.5677824576441_r8, 921.104491263489_r8, &
7980  921.239469681308_r8, 921.5435464092545_r8, 921.9760757127095_r8, &
7981  917.4259362049502_r8, 917.3045546756497_r8, 917.0877159944189_r8, &
7982  917.1333659184636_r8, 917.5270457573201_r8, 917.0528385857903_r8, &
7983  917.3564204192957_r8, 917.2031395145484_r8, 917.7057846151997_r8, &
7984  917.5867552914912_r8, 917.4956183523165_r8, 917.5107012323881_r8, &
7985  917.3331371772798_r8, 917.7544361383088_r8, 917.4442071669743_r8, &
7986  917.5213949896561_r8, 917.9010419655547_r8, 917.7753999772925_r8, &
7987  918.3095753461748_r8, 918.4282673987276_r8, 918.4929629768128_r8, &
7988  918.2840812671728_r8, 918.6951923367775_r8, 918.7349881525729_r8, &
7989  919.1123524801136_r8, 919.0485186491356_r8, 919.2532779791813_r8, &
7990  919.3558537741848_r8, 919.6428490009646_r8, 920.1626401152499_r8, &
7991  920.0451812190762_r8, 920.3733778644217_r8, 920.6970030771812_r8, &
7992  921.1178395359448_r8, 921.661545043789_r8, 921.9452599025518_r8 &
7993  /) ) /
7994 
7995 type(gsw_result_ice) :: alpha_wrt_t_ice
7996 
7997 data alpha_wrt_t_ice / gsw_result_ice( &
7998  "alpha_wrt_t_ice", 3.3873e-16_r8, (/ &
7999  0.00015867502981839_r8, 0.00015874871682068_r8, 0.0001586152330998_r8, &
8000  0.00015818417045966_r8, 0.00015835147855663_r8, 0.00015709159656146_r8, &
8001  0.00015798747177663_r8, 0.00015840343834605_r8, 0.00015692565159078_r8, &
8002  0.00015671697513112_r8, 0.00015772378201718_r8, 0.0001582978284369_r8, &
8003  0.00015788339653427_r8, 0.00015747174268508_r8, 0.00015699475352751_r8, &
8004  0.00015753810958951_r8, 0.00015665132567108_r8, 0.00015622030599997_r8, &
8005  0.00015696510701732_r8, 0.00015695139672716_r8, 0.00015638333686172_r8, &
8006  0.00015612218799899_r8, 0.00015569749790569_r8, 0.0001553127020791_r8, &
8007  0.00015592096492173_r8, 0.00015535467062908_r8, 0.00015407683166919_r8, &
8008  0.00015503972656303_r8, 0.00015272118522358_r8, 0.00015256085447904_r8, &
8009  0.00015248027099767_r8, 0.00015174625931314_r8, 0.00015185382364558_r8, &
8010  0.00015086074063224_r8, 0.00014930466926141_r8, 0.000149561064805_r8, &
8011  0.00015807314958801_r8, 0.00015862947279265_r8, 0.0001581033329237_r8, &
8012  0.00015775350071514_r8, 0.00015758783730918_r8, 0.00015811703801291_r8, &
8013  0.00015810513096815_r8, 0.00015682037892401_r8, 0.00015863152255942_r8, &
8014  0.00015690700208157_r8, 0.000156793175368_r8, 0.00015696313392568_r8, &
8015  0.00015819969358876_r8, 0.00015776060626796_r8, 0.00015750596756889_r8, &
8016  0.00015671708248307_r8, 0.00015756615225995_r8, 0.00015620068018356_r8, &
8017  0.00015718974356426_r8, 0.0001558990828981_r8, 0.00015599580151939_r8, &
8018  0.00015521625270497_r8, 0.00015512478520875_r8, 0.00015453115711854_r8, &
8019  0.0001543382163675_r8, 0.0001552144011567_r8, 0.00015427888629472_r8, &
8020  0.00015471117630675_r8, 0.00015448493276535_r8, 0.00015253375076408_r8, &
8021  0.00015245787209268_r8, 0.00015193987732389_r8, 0.00015054239144333_r8, &
8022  0.00015056431085972_r8, 0.00014998601794562_r8, 0.00014894564251673_r8, &
8023  0.00015747755943545_r8, 0.00015791041722494_r8, 0.00015866099633419_r8, &
8024  0.00015852612819709_r8, 0.00015720730273311_r8, 0.00015883270731178_r8, &
8025  0.00015785824045682_r8, 0.00015842248360366_r8, 0.00015675721259775_r8, &
8026  0.00015721457913359_r8, 0.00015757305167079_r8, 0.00015757064287398_r8, &
8027  0.00015826349914919_r8, 0.00015692947222852_r8, 0.00015807588853755_r8, &
8028  0.00015791010209018_r8, 0.00015681090933925_r8, 0.00015742638844815_r8, &
8029  0.00015579146280699_r8, 0.00015557528651209_r8, 0.0001555457833791_r8, &
8030  0.00015645239020902_r8, 0.00015523408375209_r8, 0.00015529150796138_r8, &
8031  0.00015417539811207_r8, 0.00015459560677948_r8, 0.00015407808223874_r8, &
8032  0.00015420997666824_r8, 0.00015369994215162_r8, 0.00015237325755508_r8, &
8033  0.00015327207989466_r8, 0.0001526176702292_r8, 0.00015197841779699_r8, &
8034  0.0001509937269398_r8, 0.00014956502636122_r8, 0.00014905632274574_r8 &
8035  /) ) /
8036 
8037 type(gsw_result_ice) :: specvol_ice
8038 
8039 data specvol_ice / gsw_result_ice( &
8040  "specvol_ice", 1.3336e-16_r8, (/ &
8041  0.001090426240860874_r8, 0.001090445862761653_r8, 0.001090392022047197_r8, &
8042  0.001090233361581737_r8, 0.001090285742455598_r8, 0.001089839520928382_r8, &
8043  0.001090134129155087_r8, 0.001090264282538831_r8, 0.001089731849850131_r8, &
8044  0.001089643407710606_r8, 0.001089976151929859_r8, 0.001090161167204467_r8, &
8045  0.001089982417616103_r8, 0.001089804743419778_r8, 0.001089605777351486_r8, &
8046  0.001089761936844259_r8, 0.001089386729289672_r8, 0.001089171378495606_r8, &
8047  0.001089363737806653_r8, 0.001089293284011925_r8, 0.001089029237247479_r8, &
8048  0.001088872671047564_r8, 0.001088659729708297_r8, 0.001088460446596937_r8, &
8049  0.001088605291036718_r8, 0.001088342605294353_r8, 0.001087839047417951_r8, &
8050  0.001088003781669444_r8, 0.001087047867982073_r8, 0.001086827360709874_r8, &
8051  0.001086633912911375_r8, 0.001086221063983916_r8, 0.001086091489243986_r8, &
8052  0.001085592921891578_r8, 0.001084911574828158_r8, 0.001084829308594369_r8, &
8053  0.001090214048822797_r8, 0.001090403583132979_r8, 0.001090211514570403_r8, &
8054  0.001090082488545273_r8, 0.001090018154417585_r8, 0.001090196661457158_r8, &
8055  0.001090175447523251_r8, 0.001089712193988176_r8, 0.001090328843851408_r8, &
8056  0.001089708840353075_r8, 0.00108965303008912_r8, 0.001089694449464405_r8, &
8057  0.001090093940652466_r8, 0.00108990596494358_r8, 0.001089783988284105_r8, &
8058  0.001089475990880014_r8, 0.001089705992713447_r8, 0.001089164619358243_r8, &
8059  0.001089442460655585_r8, 0.001088927788790989_r8, 0.00108889487063547_r8, &
8060  0.001088560648405894_r8, 0.001088462894148015_r8, 0.001088193470046709_r8, &
8061  0.001088061378254391_r8, 0.001088294158224707_r8, 0.001087907669624069_r8, &
8062  0.00108789016934863_r8, 0.001087648032479103_r8, 0.001086818251674138_r8, &
8063  0.001086626350440296_r8, 0.001086286114999914_r8, 0.001085653158229952_r8, &
8064  0.001085494090202125_r8, 0.001085135915602086_r8, 0.001084626842650962_r8, &
8065  0.001090006245230681_r8, 0.00109015047936134_r8, 0.001090408237466879_r8, &
8066  0.001090353962859643_r8, 0.001089886128832973_r8, 0.001090449707938448_r8, &
8067  0.001090088844140787_r8, 0.001090271017311687_r8, 0.001089673854915611_r8, &
8068  0.001089815207372221_r8, 0.001089923461210473_r8, 0.001089905544051762_r8, &
8069  0.00109011651217255_r8, 0.001089616089689265_r8, 0.001089984537684263_r8, &
8070  0.001089892841148706_r8, 0.001089442057782876_r8, 0.001089591200662757_r8, &
8071  0.001088957391763045_r8, 0.001088816661569345_r8, 0.001088739968958526_r8, &
8072  0.001088987624200198_r8, 0.00108850030819952_r8, 0.001088453158849254_r8, &
8073  0.001088006267461884_r8, 0.00108808183649526_r8, 0.001087839471400446_r8, &
8074  0.001087718097290348_r8, 0.00108737865040361_r8, 0.001086764400557222_r8, &
8075  0.001086903143903196_r8, 0.001086515564281465_r8, 0.001086133653805508_r8, &
8076  0.001085637425612988_r8, 0.001084996987644189_r8, 0.00108466309605594_r8 &
8077  /) ) /
8078 
8079 type(gsw_result_ice) :: pressure_coefficient_ice
8080 
8081 data pressure_coefficient_ice / gsw_result_ice( &
8082  "pressure_coefficient_ice", 1.5646e-06_r8, (/ &
8083  1352054.4081673_r8, 1352377.9086491_r8, 1351803.1555507_r8, &
8084  1349928.7960488_r8, 1350664.1532572_r8, 1345110.5151939_r8, &
8085  1349088.7567804_r8, 1350916.3442238_r8, 1344415.0717808_r8, &
8086  1343496.4673802_r8, 1347978.4115608_r8, 1350497.5297415_r8, &
8087  1348711.8854629_r8, 1346929.1404541_r8, 1344846.9780489_r8, &
8088  1347264.0145063_r8, 1343398.4287741_r8, 1341529.7434514_r8, &
8089  1344869.374225_r8, 1344844.2979663_r8, 1342384.4651087_r8, &
8090  1341268.5633801_r8, 1339425.1319464_r8, 1337752.3551742_r8, &
8091  1340477.3229255_r8, 1338008.9200265_r8, 1332329.0192478_r8, &
8092  1336708.061103_r8, 1326384.7295797_r8, 1325749.7257887_r8, &
8093  1325459.0083494_r8, 1322194.322673_r8, 1322729.0264624_r8, &
8094  1318268.8029233_r8, 1311162.0553349_r8, 1312399.0066914_r8, &
8095  1349427.8570628_r8, 1351860.8302282_r8, 1349570.0032606_r8, &
8096  1348036.5790306_r8, 1347310.0455611_r8, 1349644.2946161_r8, &
8097  1349604.2325344_r8, 1343928.9173444_r8, 1351915.2364488_r8, &
8098  1344346.593592_r8, 1343852.7132525_r8, 1344626.3164225_r8, &
8099  1350090.3000544_r8, 1348196.2923267_r8, 1347101.7003567_r8, &
8100  1343640.0303228_r8, 1347425.5586347_r8, 1341442.1420189_r8, &
8101  1345852.7569697_r8, 1340194.3933675_r8, 1340669.6248763_r8, &
8102  1337232.5708267_r8, 1336868.9994619_r8, 1334242.7801692_r8, &
8103  1333418.7976467_r8, 1337387.1022519_r8, 1333240.7794429_r8, &
8104  1335255.9673675_r8, 1334308.9843076_r8, 1325626.4606859_r8, &
8105  1325357.7575976_r8, 1323073.1679996_r8, 1316749.8086779_r8, &
8106  1316915.2309851_r8, 1314311.6223828_r8, 1309554.8270437_r8, &
8107  1346799.0852257_r8, 1348717.6583673_r8, 1352001.7323487_r8, &
8108  1351420.240638_r8, 1345620.5486984_r8, 1352756.6124275_r8, &
8109  1348521.2539454_r8, 1350999.1372382_r8, 1343661.3804801_r8, &
8110  1345716.2589918_r8, 1347315.0597441_r8, 1347317.0996737_r8, &
8111  1350367.3493581_r8, 1344531.5892082_r8, 1349589.62852_r8, &
8112  1348887.4455017_r8, 1344105.958848_r8, 1346851.4873369_r8, &
8113  1339662.9239371_r8, 1338744.9999277_r8, 1338662.5328094_r8, &
8114  1342722.5323011_r8, 1337358.9405667_r8, 1337657.8562646_r8, &
8115  1332680.7789255_r8, 1334624.2392709_r8, 1332334.6728942_r8, &
8116  1333023.2697216_r8, 1330814.5373764_r8, 1324895.2846607_r8, &
8117  1329010.9475929_r8, 1326124.6616779_r8, 1323289.4887058_r8, &
8118  1318873.6222536_r8, 1312370.2263364_r8, 1310068.7164959_r8 &
8119  /) ) /
8120 
8121 type(gsw_result_ice) :: sound_speed_ice
8122 
8123 data sound_speed_ice / gsw_result_ice( &
8124  "sound_speed_ice", 1.3333e-09_r8, (/ &
8125  3095.703522406592_r8, 3095.419875364491_r8, 3095.922166375146_r8, &
8126  3097.549896982661_r8, 3096.913649225968_r8, 3101.651154762964_r8, &
8127  3098.277202345323_r8, 3096.692824235721_r8, 3102.257173176591_r8, &
8128  3103.033420147594_r8, 3099.239952025137_r8, 3097.051642313127_r8, &
8129  3098.606897363879_r8, 3100.149898191745_r8, 3101.939080717489_r8, &
8130  3099.858761779406_r8, 3103.190886839035_r8, 3104.79255455414_r8, &
8131  3101.915618356257_r8, 3101.919632019498_r8, 3104.054226834773_r8, &
8132  3105.010821277422_r8, 3106.597516202041_r8, 3108.031929835583_r8, &
8133  3105.6302395305_r8, 3107.771345469046_r8, 3112.658859518238_r8, &
8134  3108.790012254587_r8, 3117.685947513672_r8, 3118.193670957905_r8, &
8135  3118.369236188578_r8, 3121.10985794942_r8, 3120.510646491839_r8, &
8136  3124.291882137346_r8, 3130.326108797631_r8, 3129.131562257495_r8, &
8137  3097.978722247371_r8, 3095.872207018054_r8, 3097.858451728277_r8, &
8138  3099.173310745295_r8, 3099.793348576233_r8, 3097.79661337719_r8, &
8139  3097.832550240882_r8, 3102.655719778571_r8, 3095.814842799129_r8, &
8140  3102.321898629926_r8, 3102.74330395283_r8, 3102.09978835037_r8, &
8141  3097.403416613191_r8, 3099.053196884522_r8, 3100.001388719219_r8, &
8142  3102.973191315195_r8, 3099.707632212225_r8, 3104.866917475515_r8, &
8143  3101.053843099176_r8, 3105.946809743973_r8, 3105.539719970263_r8, &
8144  3108.479440329064_r8, 3108.7933896141_r8, 3111.026086996273_r8, &
8145  3111.730002589922_r8, 3108.314881858854_r8, 3111.881226798996_r8, &
8146  3110.075576780629_r8, 3110.801475628939_r8, 3118.299428611449_r8, &
8147  3118.457433952903_r8, 3120.344540961287_r8, 3125.713569619289_r8, &
8148  3125.474033852704_r8, 3127.609702915326_r8, 3131.600199220058_r8, &
8149  3100.216899226069_r8, 3098.58862306233_r8, 3095.748590791231_r8, &
8150  3096.255976083823_r8, 3101.220261907103_r8, 3095.083329556063_r8, &
8151  3098.764994481486_r8, 3096.62051966575_r8, 3102.887427833208_r8, &
8152  3101.16738860368_r8, 3099.809574711504_r8, 3099.81025177751_r8, &
8153  3097.160191325779_r8, 3102.200302029_r8, 3097.82971032741_r8, &
8154  3098.439410200605_r8, 3102.585507217353_r8, 3100.195123493768_r8, &
8155  3106.387488910225_r8, 3107.177659900315_r8, 3107.257687516353_r8, &
8156  3103.738931711196_r8, 3108.375267448453_r8, 3108.113427287572_r8, &
8157  3112.352173797009_r8, 3110.703887462648_r8, 3112.654051245065_r8, &
8158  3112.028897055726_r8, 3113.879966337284_r8, 3118.92510087816_r8, &
8159  3115.239284904962_r8, 3117.654289817829_r8, 3120.012960948077_r8, &
8160  3123.760458335762_r8, 3129.290190566825_r8, 3131.157287837835_r8 &
8161  /) ) /
8162 
8163 type(gsw_result_ice) :: kappa_ice
8164 
8165 data kappa_ice / gsw_result_ice( &
8166  "kappa_ice", 1.0713e-22_r8, (/ &
8167  1.137830501222573e-10_r8, 1.138059518359331e-10_r8, &
8168  1.137634091037491e-10_r8, 1.136273414534416e-10_r8, &
8169  1.136794962916872e-10_r8, 1.132861065691551e-10_r8, &
8170  1.135636633521728e-10_r8, 1.136934719725221e-10_r8, 1.1323066279159e-10_r8, &
8171  1.13164833734814e-10_r8, 1.134766724465139e-10_r8, &
8172  1.136563784687789e-10_r8, 1.135236970133652e-10_r8, &
8173  1.133922328480553e-10_r8, 1.13240784269592e-10_r8, &
8174  1.134090784911456e-10_r8, 1.131266946595139e-10_r8, &
8175  1.129876676431264e-10_r8, 1.132173422255071e-10_r8, &
8176  1.132097270063357e-10_r8, 1.130266719774159e-10_r8, &
8177  1.129408005266604e-10_r8, 1.128033966514361e-10_r8, &
8178  1.126786689978609e-10_r8, 1.128680306004571e-10_r8, &
8179  1.126853647267947e-10_r8, 1.122797901756329e-10_r8, &
8180  1.12576470601176e-10_r8, 1.118365954353543e-10_r8, &
8181  1.117774999314207e-10_r8, 1.117450206781401e-10_r8, &
8182  1.115064808290171e-10_r8, 1.115360020174492e-10_r8, &
8183  1.112151116717781e-10_r8, 1.107172207914431e-10_r8, &
8184  1.107933677332305e-10_r8, 1.135938745380542e-10_r8, &
8185  1.137682870635752e-10_r8, 1.136024309177036e-10_r8, &
8186  1.134926237673829e-10_r8, 1.134405300712644e-10_r8, &
8187  1.136054186475635e-10_r8, 1.13600572294595e-10_r8, &
8188  1.131995330830114e-10_r8, 1.137647049824666e-10_r8, &
8189  1.132235473074612e-10_r8, 1.131869967736505e-10_r8, &
8190  1.132382660306948e-10_r8, 1.136235566513834e-10_r8, 1.1348304152095e-10_r8, &
8191  1.134009377622376e-10_r8, 1.131518391079895e-10_r8, &
8192  1.134143149751942e-10_r8, 1.129815543588859e-10_r8, &
8193  1.132884628093288e-10_r8, 1.128784540494333e-10_r8, &
8194  1.129046361438956e-10_r8, 1.126565979101272e-10_r8, &
8195  1.126237305660626e-10_r8, 1.124342972700951e-10_r8, &
8196  1.123697928824495e-10_r8, 1.126409442710822e-10_r8, &
8197  1.123429990067138e-10_r8, 1.124716759719954e-10_r8, &
8198  1.123941703755581e-10_r8, 1.117689813760878e-10_r8, &
8199  1.11737922261169e-10_r8, 1.115678663326341e-10_r8, 1.11120130761304e-10_r8, &
8200  1.111208802420488e-10_r8, 1.109325597375458e-10_r8, &
8201  1.105981147916864e-10_r8, 1.134082966941002e-10_r8, &
8202  1.13542540206765e-10_r8, 1.137778586529252e-10_r8, &
8203  1.137349106299884e-10_r8, 1.133224355019357e-10_r8, &
8204  1.138311040979308e-10_r8, 1.135231968775739e-10_r8, &
8205  1.136994837474083e-10_r8, 1.131786452924846e-10_r8, &
8206  1.13318925303366e-10_r8, 1.134294876298994e-10_r8, &
8207  1.134275734221216e-10_r8, 1.136437565191755e-10_r8, &
8208  1.132227857153639e-10_r8, 1.135808869866612e-10_r8, &
8209  1.135266399023634e-10_r8, 1.131765935523327e-10_r8, &
8210  1.133667064722054e-10_r8, 1.128494977136148e-10_r8, &
8211  1.12777532053619e-10_r8, 1.127637796799514e-10_r8, &
8212  1.130453171487988e-10_r8, 1.126579039882742e-10_r8, &
8213  1.126720056124599e-10_r8, 1.123191817580212e-10_r8, &
8214  1.124460532582967e-10_r8, 1.122801808252694e-10_r8, &
8215  1.123127632187604e-10_r8, 1.121442645162024e-10_r8, &
8216  1.117186071631419e-10_r8, 1.11997421259374e-10_r8, &
8217  1.117841016378322e-10_r8, 1.115759194133638e-10_r8, &
8218  1.112575162073459e-10_r8, 1.107992587479614e-10_r8, 1.106331036227652e-10_r8 &
8219  /) ) /
8220 
8221 type(gsw_result_ice) :: kappa_const_t_ice
8222 
8223 data kappa_const_t_ice / gsw_result_ice( &
8224  "kappa_const_t_ice", 1.2219e-22_r8, (/ &
8225  1.173584649108e-10_r8, 1.1738487874241e-10_r8, 1.1733604293533e-10_r8, &
8226  1.1717964008373e-10_r8, 1.1723971364366e-10_r8, 1.1678712996962e-10_r8, &
8227  1.1710680337569e-10_r8, 1.1725628979422e-10_r8, 1.1672410915694e-10_r8, &
8228  1.1664859486882e-10_r8, 1.1700764690626e-10_r8, 1.1721445241532e-10_r8, &
8229  1.1706236019421e-10_r8, 1.169116755704e-10_r8, 1.1673800520805e-10_r8, &
8230  1.1693187667247e-10_r8, 1.1660823945881e-10_r8, 1.1644937934664e-10_r8, &
8231  1.1671401700836e-10_r8, 1.167059985788e-10_r8, 1.1649668252758e-10_r8, &
8232  1.1639890195111e-10_r8, 1.1624203114617e-10_r8, 1.1609974109063e-10_r8, &
8233  1.1631749545859e-10_r8, 1.1610884524298e-10_r8, 1.1564473147645e-10_r8, &
8234  1.159862284627e-10_r8, 1.1514094049618e-10_r8, 1.1507515446649e-10_r8, &
8235  1.1503959763158e-10_r8, 1.1476850014479e-10_r8, 1.1480342580196e-10_r8, &
8236  1.1443852748218e-10_r8, 1.1387201807276e-10_r8, 1.1396005638715e-10_r8, &
8237  1.171408673392e-10_r8, 1.1734157040845e-10_r8, 1.1715089438986e-10_r8, &
8238  1.1702464396669e-10_r8, 1.1696479056797e-10_r8, 1.1715460039631e-10_r8, &
8239  1.1714925543117e-10_r8, 1.1668800105432e-10_r8, 1.1733836433127e-10_r8, &
8240  1.1671618229219e-10_r8, 1.1667437496816e-10_r8, 1.1673364711714e-10_r8, &
8241  1.1717712036179e-10_r8, 1.170160511239e-10_r8, 1.1692210582704e-10_r8, &
8242  1.1663621129643e-10_r8, 1.1693866963576e-10_r8, 1.1644235356172e-10_r8, &
8243  1.1679564703511e-10_r8, 1.1632572384247e-10_r8, 1.1635663151075e-10_r8, &
8244  1.1607274313473e-10_r8, 1.1603589078002e-10_r8, 1.1581936916979e-10_r8, &
8245  1.1574624314573e-10_r8, 1.1605794679443e-10_r8, 1.1571719727864e-10_r8, &
8246  1.1586630585278e-10_r8, 1.1577897966827e-10_r8, 1.1506540891252e-10_r8, &
8247  1.1503148581484e-10_r8, 1.1483860530073e-10_r8, 1.1432877411578e-10_r8, &
8248  1.1433105739622e-10_r8, 1.141175467e-10_r8, 1.1373761482975e-10_r8, &
8249  1.1692728422744e-10_r8, 1.1708189348993e-10_r8, 1.1735265757283e-10_r8, &
8250  1.1730335496696e-10_r8, 1.1682885110901e-10_r8, 1.1741410528148e-10_r8, &
8251  1.1706025395964e-10_r8, 1.1726320116497e-10_r8, 1.1666422424208e-10_r8, &
8252  1.1682594906847e-10_r8, 1.1695338111987e-10_r8, 1.1695141619752e-10_r8, &
8253  1.1720033013566e-10_r8, 1.1671683543034e-10_r8, 1.1712885546616e-10_r8, &
8254  1.1706692253441e-10_r8, 1.166655860031e-10_r8, 1.1688474188005e-10_r8, &
8255  1.162915387321e-10_r8, 1.1620979837123e-10_r8, 1.1619491811178e-10_r8, &
8256  1.1651877915603e-10_r8, 1.1607510821763e-10_r8, 1.1609209876361e-10_r8, &
8257  1.1568816820213e-10_r8, 1.1583455644709e-10_r8, 1.1564517937827e-10_r8, &
8258  1.1568438463977e-10_r8, 1.1549313434359e-10_r8, 1.1500777406276e-10_r8, &
8259  1.1532792876708e-10_r8, 1.1508546265635e-10_r8, 1.1484895715875e-10_r8, &
8260  1.1448688061695e-10_r8, 1.139655741648e-10_r8, 1.1377748424099e-10_r8 &
8261  /) ) /
8262 
8263 type(gsw_result_ice) :: internal_energy_ice
8264 
8265 data internal_energy_ice / gsw_result_ice( &
8266  "internal_energy_ice", 1.2601e-06_r8, (/ &
8267  -338485.52543942_r8, -338100.62787003_r8, -338598.56136929_r8, &
8268  -340356.22331632_r8, -339577.81816009_r8, -344790.59192119_r8, &
8269  -340864.17320025_r8, -338926.69841841_r8, -344957.12322566_r8, &
8270  -345649.62310982_r8, -341275.75538311_r8, -338661.082924_r8, &
8271  -340068.10907861_r8, -341448.73102191_r8, -343102.3710908_r8, &
8272  -340459.41587649_r8, -343482.90645775_r8, -344581.04162752_r8, &
8273  -340748.6629085_r8, -340092.37278514_r8, -341784.01629885_r8, &
8274  -342174.84275641_r8, -343252.58123159_r8, -344152.27474266_r8, &
8275  -340877.31065495_r8, -342551.61725042_r8, -347185.23018919_r8, &
8276  -341368.01272674_r8, -349280.79765208_r8, -348190.57090352_r8, &
8277  -346750.04255908_r8, -348022.50201893_r8, -345775.27563153_r8, &
8278  -348130.30381352_r8, -352770.64094603_r8, -349941.9579099_r8, &
8279  -341034.65688511_r8, -338608.70609502_r8, -340767.55061888_r8, &
8280  -342168.91281704_r8, -342793.1867746_r8, -340499.54064094_r8, &
8281  -340367.4533975_r8, -345564.11981317_r8, -337777.00341284_r8, &
8282  -344862.85342525_r8, -345163.10254596_r8, -344278.90883521_r8, &
8283  -338724.59949298_r8, -340228.89443516_r8, -340953.90075778_r8, &
8284  -343908.56849932_r8, -339627.28039902_r8, -344662.72667054_r8, &
8285  -339795.68121297_r8, -344520.58817004_r8, -343413.70246446_r8, &
8286  -345962.77096519_r8, -345644.70322882_r8, -347399.96199236_r8, &
8287  -347502.56827869_r8, -343142.50343692_r8, -346347.73172636_r8, &
8288  -342759.32150612_r8, -341913.27796491_r8, -348302.6789956_r8, &
8289  -346843.39992765_r8, -347217.19864968_r8, -351217.04214128_r8, &
8290  -349360.830856_r8, -349969.85080128_r8, -352477.18672819_r8, &
8291  -343530.18332449_r8, -341649.49320801_r8, -338403.68225622_r8, &
8292  -338906.90301314_r8, -344379.10146324_r8, -337457.61349555_r8, &
8293  -341408.5392379_r8, -338845.69235794_r8, -345654.2665266_r8, &
8294  -343583.71480193_r8, -341909.79431086_r8, -341738.52736116_r8, &
8295  -338452.650192_r8, -343721.68455834_r8, -338535.35389507_r8, &
8296  -338879.86572147_r8, -342814.8685141_r8, -339505.71651359_r8, &
8297  -345665.76747568_r8, -345866.46805446_r8, -345292.02945608_r8, &
8298  -340778.85402368_r8, -345190.0683643_r8, -344240.94483184_r8, &
8299  -348173.56653662_r8, -345731.58037299_r8, -347180.05594681_r8, &
8300  -344866.07428584_r8, -345220.94187662_r8, -348965.41693898_r8, &
8301  -343425.79898675_r8, -344376.16037796_r8, -345251.65307171_r8, &
8302  -347576.15140857_r8, -351704.38041466_r8, -352023.26994042_r8 &
8303  /) ) /
8304 
8305 type(gsw_result_ice) :: enthalpy_ice
8306 
8307 data enthalpy_ice / gsw_result_ice( &
8308  "enthalpy_ice", 1.2496e-06_r8, (/ &
8309  -338375.03800056_r8, -337881.09385671_r8, -338269.99899325_r8, &
8310  -339918.68541248_r8, -339031.23066026_r8, -344135.24417127_r8, &
8311  -339925.21342146_r8, -337715.06046462_r8, -343473.64401516_r8, &
8312  -343893.85344589_r8, -339246.95552212_r8, -336348.49678598_r8, &
8313  -337210.91091775_r8, -338036.19818372_r8, -339145.65839136_r8, &
8314  -335946.35752339_r8, -337871.12136449_r8, -337870.30278391_r8, &
8315  -332936.48150147_r8, -331180.51040832_r8, -331774.39464481_r8, &
8316  -331066.89875544_r8, -331047.26318742_r8, -330838.96127069_r8, &
8317  -326462.73419961_r8, -327030.40964497_r8, -330572.48654838_r8, &
8318  -321989.2237702_r8, -327157.93320022_r8, -323311.65257061_r8, &
8319  -319104.63602468_r8, -317617.73519511_r8, -312593.7415639_r8, &
8320  -312195.73968829_r8, -314081.25667982_r8, -308478.34433659_r8, &
8321  -340924.19094662_r8, -338389.18059365_r8, -340439.04263425_r8, &
8322  -341731.43546232_r8, -342246.73342334_r8, -339843.97813349_r8, &
8323  -339428.45803017_r8, -344353.09540919_r8, -336292.71149948_r8, &
8324  -343106.97832807_r8, -343134.90411973_r8, -341967.3127572_r8, &
8325  -335867.10899399_r8, -336816.04463949_r8, -336996.54091653_r8, &
8326  -339396.69434138_r8, -334013.85067611_r8, -337952.02947218_r8, &
8327  -331982.93525881_r8, -335611.71602841_r8, -333405.31581762_r8, &
8328  -334858.01000859_r8, -333441.59197208_r8, -334089.91399734_r8, &
8329  -333095.19394927_r8, -327621.98675088_r8, -329733.94013353_r8, &
8330  -323382.55613555_r8, -319778.19937031_r8, -323423.9691806_r8, &
8331  -319198.18579254_r8, -316810.61096173_r8, -318048.89966692_r8, &
8332  -313429.53819065_r8, -311272.46624582_r8, -311021.3116715_r8, &
8333  -343419.73844169_r8, -341430.01866276_r8, -338075.11499407_r8, &
8334  -338469.31670899_r8, -343832.7142997_r8, -336801.89882493_r8, &
8335  -340469.61846422_r8, -337634.04691963_r8, -344170.86626606_r8, &
8336  -341827.66831291_r8, -339881.09252442_r8, -339426.48348292_r8, &
8337  -335595.10052573_r8, -340309.74245629_r8, -334577.26579377_r8, &
8338  -334366.2652511_r8, -337202.7984058_r8, -332792.39100916_r8, &
8339  -337856.5001082_r8, -336958.50508075_r8, -335285.0665609_r8, &
8340  -329669.73734823_r8, -332986.53764647_r8, -330927.72049868_r8, &
8341  -333766.92194712_r8, -330214.09167614_r8, -330567.30583122_r8, &
8342  -325492.37374662_r8, -323091.34556419_r8, -324087.93984739_r8, &
8343  -315773.54285918_r8, -313963.1501006_r8, -312068.83082086_r8, &
8344  -311640.11415119_r8, -313011.95021426_r8, -310566.00923056_r8 &
8345  /) ) /
8346 
8347 type(gsw_result_ice) :: entropy_ice
8348 
8349 data entropy_ice / gsw_result_ice( &
8350  "entropy_ice", 4.6493e-09_r8, (/ &
8351  -1239.2291908496_r8, -1237.808063629_r8, -1239.6467496457_r8, &
8352  -1246.1501708896_r8, -1243.2675532861_r8, -1262.6489366557_r8, &
8353  -1248.0335397995_r8, -1240.8595837801_r8, -1263.2714645842_r8, &
8354  -1265.8609335987_r8, -1249.561372351_r8, -1239.878741995_r8, &
8355  -1245.0842796924_r8, -1250.2050036373_r8, -1256.355053417_r8, &
8356  -1246.536515607_r8, -1257.7757869682_r8, -1261.8749451718_r8, &
8357  -1247.6167402263_r8, -1245.1878898474_r8, -1251.4674282429_r8, &
8358  -1252.9244771161_r8, -1256.9403216668_r8, -1260.3000706561_r8, &
8359  -1248.1221617848_r8, -1254.3484750159_r8, -1271.6673428719_r8, &
8360  -1249.975450854_r8, -1279.5865248669_r8, -1275.5093877286_r8, &
8361  -1270.1296880206_r8, -1274.9368620421_r8, -1266.5433981619_r8, &
8362  -1275.4129512956_r8, -1292.9697873007_r8, -1282.3167036116_r8, &
8363  -1248.6658278979_r8, -1239.684215556_r8, -1247.6750280114_r8, &
8364  -1252.8786264935_r8, -1255.2009457517_r8, -1246.6813957511_r8, &
8365  -1246.1919214683_r8, -1265.5407410628_r8, -1236.6143301828_r8, &
8366  -1262.9194077119_r8, -1264.0416639567_r8, -1260.7393478147_r8, &
8367  -1240.1139698065_r8, -1245.6805755259_r8, -1248.3692394218_r8, &
8368  -1259.3605716003_r8, -1243.4566233231_r8, -1262.1799929202_r8, &
8369  -1244.0856623098_r8, -1261.6558667458_r8, -1257.5311853666_r8, &
8370  -1267.056222853_r8, -1265.8708177664_r8, -1272.4539925977_r8, &
8371  -1272.8450617788_r8, -1256.5480511416_r8, -1268.5274680281_r8, &
8372  -1255.1473403295_r8, -1252.0228491814_r8, -1275.9308440654_r8, &
8373  -1270.4797239515_r8, -1271.9128566328_r8, -1287.0112359874_r8, &
8374  -1280.0433909411_r8, -1282.37899951_r8, -1291.9005579691_r8, &
8375  -1257.9458848857_r8, -1250.9483461491_r8, -1238.9269433246_r8, &
8376  -1240.786167241_r8, -1261.1123325844_r8, -1235.4361369857_r8, &
8377  -1250.0536924457_r8, -1240.5601745227_r8, -1265.8781351832_r8, &
8378  -1258.1460044234_r8, -1251.9162313234_r8, -1251.2801088934_r8, &
8379  -1239.1093400585_r8, -1258.6619971736_r8, -1239.4162554642_r8, &
8380  -1240.6901205853_r8, -1255.2876866931_r8, -1243.0093733135_r8, &
8381  -1265.9325785182_r8, -1266.6872092359_r8, -1264.5422899016_r8, &
8382  -1247.7407323526_r8, -1264.170544832_r8, -1260.630950709_r8, &
8383  -1275.3656446898_r8, -1266.2136877686_r8, -1271.6479292825_r8, &
8384  -1263.0035040656_r8, -1264.3518875086_r8, -1278.4241019998_r8, &
8385  -1257.7044387224_r8, -1261.279921878_r8, -1264.5846748477_r8, &
8386  -1273.3311124301_r8, -1288.9313663785_r8, -1290.1813039913_r8 &
8387  /) ) /
8388 
8389 type(gsw_result_ice) :: cp_ice
8390 
8391 data cp_ice / gsw_result_ice( &
8392  "cp_ice", 4.457e-09_r8, (/ &
8393  2078.9899137873_r8, 2080.3550250568_r8, 2078.5921482_r8, &
8394  2072.3549584602_r8, 2075.1212480904_r8, 2056.5437052233_r8, &
8395  2070.5550518896_r8, 2077.4400237469_r8, 2055.9565205783_r8, &
8396  2053.4791390878_r8, 2069.1033292804_r8, 2078.3955929739_r8, &
8397  2073.4078314008_r8, 2068.5028967626_r8, 2062.6123345467_r8, &
8398  2072.0352343276_r8, 2061.2691584216_r8, 2057.3518305204_r8, &
8399  2071.0390620421_r8, 2073.3835291235_r8, 2067.3700512575_r8, &
8400  2065.9846070186_r8, 2062.143917901_r8, 2058.9329513743_r8, &
8401  2070.632356476_r8, 2064.6676582223_r8, 2048.0653605158_r8, &
8402  2068.9094933153_r8, 2040.5229556741_r8, 2044.4561324091_r8, &
8403  2049.642332751_r8, 2045.0527828123_r8, 2053.1357337569_r8, &
8404  2044.6415590728_r8, 2027.8135720599_r8, 2038.0553725425_r8, &
8405  2069.9384669735_r8, 2078.5547606392_r8, 2070.8912534971_r8, &
8406  2065.903565572_r8, 2063.6788996726_r8, 2071.8482297834_r8, &
8407  2072.3212305965_r8, 2053.7799370039_r8, 2081.5176014319_r8, &
8408  2056.2967767492_r8, 2055.2246837226_r8, 2058.3916452878_r8, &
8409  2078.1769588555_r8, 2072.8427362667_r8, 2070.2702569999_r8, &
8410  2059.7376173667_r8, 2075.0042735388_r8, 2057.0594409612_r8, &
8411  2074.4279891481_r8, 2057.5856077286_r8, 2061.5528716043_r8, &
8412  2052.4316221203_r8, 2053.579178128_r8, 2047.2799172006_r8, &
8413  2046.9155668512_r8, 2062.5565880307_r8, 2051.0759288189_r8, &
8414  2063.942896857_r8, 2066.9734361001_r8, 2044.0518923417_r8, &
8415  2049.3063733485_r8, 2047.9552393301_r8, 2033.4905926745_r8, &
8416  2040.1964240661_r8, 2037.9754269117_r8, 2028.8569504275_r8, &
8417  2061.0433011736_r8, 2067.7513804858_r8, 2079.2828197328_r8, &
8418  2077.5003501452_r8, 2058.0144904293_r8, 2082.6372760067_r8, &
8419  2068.6179254702_r8, 2077.7273086086_r8, 2053.45973482_r8, &
8420  2060.8704630962_r8, 2066.8453004024_r8, 2067.4586420807_r8, &
8421  2079.1411315268_r8, 2060.3947950964_r8, 2078.860934422_r8, &
8422  2077.6454459309_r8, 2063.6547394759_r8, 2075.4473508217_r8, &
8423  2053.4746172953_r8, 2052.7628168452_r8, 2054.8301140504_r8, &
8424  2070.959582748_r8, 2055.2093765018_r8, 2058.615567599_r8, &
8425  2044.5000197382_r8, 2053.2839271941_r8, 2048.0839724258_r8, &
8426  2056.4021599901_r8, 2055.1356384206_r8, 2041.660746493_r8, &
8427  2061.5735385337_r8, 2058.1659609704_r8, 2055.0172991216_r8, &
8428  2046.6405877938_r8, 2031.6874624203_r8, 2030.5065656792_r8 &
8429  /) ) /
8430 
8431 type(gsw_result_ice) :: chem_potential_water_ice
8432 
8433 data chem_potential_water_ice / gsw_result_ice( &
8434  "chem_potential_water_ice", 7.7579e-07_r8, (/ &
8435  -2856.1466436639_r8, -2515.0896636323_r8, -2699.8798430037_r8, &
8436  -3640.6634793403_r8, -3061.6084746122_r8, -6111.5727361786_r8, &
8437  -3432.1471607215_r8, -1990.003173102_r8, -5364.3051252554_r8, &
8438  -5511.1270508209_r8, -2562.5614598218_r8, -702.26619016216_r8, &
8439  -985.68218582892_r8, -1247.6571848231_r8, -1692.5791450738_r8, &
8440  477.6736468164_r8, -226.61052412528_r8, 229.24701381032_r8, &
8441  3687.9008753935_r8, 5210.5885866613_r8, 5317.3180770967_r8, &
8442  6207.475909136_r8, 6678.522111672_r8, 7266.1904208774_r8, &
8443  10384.004812748_r8, 10507.03768699_r8, 8783.4892879552_r8, &
8444  15181.705617255_r8, 13132.151906014_r8, 16642.088079065_r8, &
8445  20376.182434824_r8, 22418.750740427_r8, 26660.533546018_r8, &
8446  28028.196185866_r8, 27934.991001567_r8, 32571.721690044_r8, &
8447  -4384.7402319559_r8, -2817.7605643976_r8, -4000.0681343313_r8, &
8448  -4735.3545676712_r8, -5002.7104640587_r8, -3503.2433283946_r8, &
8449  -3133.0747618469_r8, -6017.2834108077_r8, -1025.5418935668_r8, &
8450  -5026.9560441258_r8, -4932.1016429755_r8, -4098.7467381326_r8, &
8451  -181.26305034733_r8, -512.30110708484_r8, -390.1112221356_r8, &
8452  -1614.9365626016_r8, 2105.9074052757_r8, 179.11039948021_r8, &
8453  4261.0458205375_r8, 2521.5482972104_r8, 4326.2656516355_r8, &
8454  3887.7665446122_r8, 5210.872424955_r8, 5260.9693131602_r8, &
8455  6323.2817566616_r8, 10147.137469024_r8, 9303.1276997131_r8, &
8456  14337.139102955_r8, 17680.5710267_r8, 16571.996711819_r8, &
8457  20318.198439959_r8, 22920.978962794_r8, 23251.841796657_r8, &
8458  27256.337355332_r8, 29714.13295864_r8, 30962.109666238_r8, &
8459  -5898.9974552995_r8, -4644.3528961146_r8, -2583.7064714002_r8, &
8460  -2772.0819259542_r8, -5970.9593041942_r8, -1685.7381152179_r8, &
8461  -3760.7082761877_r8, -1941.6227842603_r8, -5793.4121508247_r8, &
8462  -4243.5960057055_r8, -2946.0960869304_r8, -2551.7654952232_r8, &
8463  -19.050363987684_r8, -2629.1446746979_r8, 1060.4666531848_r8, &
8464  1424.7459609215_r8, 180.55772082694_r8, 3306.9636991356_r8, &
8465  689.55644516728_r8, 1693.1161322896_r8, 3174.5580262274_r8, &
8466  7052.0202960061_r8, 5491.0781968995_r8, 7211.8484039591_r8, &
8467  5904.9169025265_r8, 8558.3335310133_r8, 8786.7060156661_r8, &
8468  13047.723000914_r8, 15658.033958288_r8, 16156.887545832_r8, &
8469  22424.348314103_r8, 24677.665536837_r8, 26983.943192945_r8, &
8470  28374.33395978_r8, 28615.085332449_r8, 31251.718658662_r8 &
8471  /) ) /
8472 
8473 type(gsw_result_ice) :: helmholtz_energy_ice
8474 
8475 data helmholtz_energy_ice / gsw_result_ice( &
8476  "Helmholtz_energy_ice", 7.7232e-07_r8, (/ &
8477  -2966.63408252_r8, -2734.62367695_r8, -3028.44221905_r8, -4078.20138318_r8, &
8478  -3608.19597445_r8, -6766.9204861_r8, -4371.10693952_r8, -3201.64112689_r8, &
8479  -6847.78433575_r8, -7266.89671475_r8, -4591.36132081_r8, -3014.85232818_r8, &
8480  -3842.88034669_r8, -4660.19002301_r8, -5649.29184451_r8, -4035.38470629_r8, &
8481  -5838.39561738_r8, -6481.4918298_r8, -4124.28053163_r8, -3701.27379016_r8, &
8482  -4692.30357695_r8, -4900.46809184_r8, -5526.7959325_r8, -6047.12305109_r8, &
8483  -4030.57164259_r8, -5014.16991846_r8, -7829.25435285_r8, -4197.08333929_r8, &
8484  -8990.71254585_r8, -8236.83025384_r8, -7269.22409958_r8, -7986.01608339_r8, &
8485  -6521.00052161_r8, -7906.36793937_r8, -10754.3932646_r8, -8891.89188327_r8, &
8486  -4495.20617045_r8, -3037.28606577_r8, -4328.57611896_r8, -5172.83192239_r8, &
8487  -5549.16381532_r8, -4158.80583585_r8, -4072.07012918_r8, -7228.30781479_r8, &
8488  -2509.83380692_r8, -6782.83114131_r8, -6960.30006921_r8, -6410.34281614_r8, &
8489  -3038.75354933_r8, -3925.15090276_r8, -4347.47106339_r8, -6126.81072053_r8, &
8490  -3507.52231764_r8, -6531.58679889_r8, -3551.70013362_r8, -6387.32384442_r8, &
8491  -5682.12099521_r8, -7216.99441199_r8, -6992.23883178_r8, -8049.07868186_r8, &
8492  -8084.09257275_r8, -5373.37921702_r8, -7310.66389311_r8, -5039.62626762_r8, &
8493  -4454.50756789_r8, -8306.71310319_r8, -7327.01569516_r8, -7485.60872516_r8, &
8494  -9916.3006777_r8, -8674.95531003_r8, -8983.25159682_r8, -10493.7653904_r8, &
8495  -6009.4423381_r8, -4863.82744137_r8, -2912.27373355_r8, -3209.6682301_r8, &
8496  -6517.34646773_r8, -2341.45278584_r8, -4699.62904987_r8, -3153.26822257_r8, &
8497  -7276.81241137_r8, -5999.64249472_r8, -4974.79787337_r8, -4863.80937346_r8, &
8498  -2876.60003026_r8, -6041.08677674_r8, -2897.62144812_r8, -3088.85450945_r8, &
8499  -5431.51238748_r8, -3406.36180529_r8, -7119.71092232_r8, -7214.84684142_r8, &
8500  -6832.40486896_r8, -4057.09637944_r8, -6712.45252093_r8, -6101.3759292_r8, &
8501  -8501.72768697_r8, -6959.15516584_r8, -7826.04409992_r8, -6325.97753831_r8, &
8502  -6471.56235414_r8, -8720.58954575_r8, -5227.90781346_r8, -5735.34474052_r8, &
8503  -6198.8790579_r8, -7561.7032976_r8, -10077.344868_r8, -10205.5420512_r8 &
8504  /) ) /
8505 
8506 type(gsw_result_ice) :: adiabatic_lapse_rate_ice
8507 
8508 data adiabatic_lapse_rate_ice / gsw_result_ice( &
8509  "adiabatic_lapse_rate_ice", 5.247e-20_r8, (/ &
8510  2.2532939131206e-08_r8, 2.2544603686578e-08_r8, 2.2523901152231e-08_r8, &
8511  2.2456726358678e-08_r8, 2.2483006691338e-08_r8, 2.2286509763096e-08_r8, &
8512  2.2426715129186e-08_r8, 2.2492048524301e-08_r8, 2.2261792956974e-08_r8, &
8513  2.2229634863038e-08_r8, 2.2387077044376e-08_r8, 2.2477086272623e-08_r8, &
8514  2.2413143234304e-08_r8, 2.2349677868113e-08_r8, 2.2276037000468e-08_r8, &
8515  2.236156185005e-08_r8, 2.2224802658892e-08_r8, 2.2159166065845e-08_r8, &
8516  2.2276764876573e-08_r8, 2.2276141820801e-08_r8, 2.2189132293743e-08_r8, &
8517  2.2149967719347e-08_r8, 2.2085354877189e-08_r8, 2.2026994875304e-08_r8, &
8518  2.2123162589865e-08_r8, 2.2036547097806e-08_r8, 2.1839372372593e-08_r8, &
8519  2.1992801052427e-08_r8, 2.163645506015e-08_r8, 2.161533865507e-08_r8, &
8520  2.1606578555271e-08_r8, 2.1496538567331e-08_r8, 2.1516901623374e-08_r8, &
8521  2.1366830077169e-08_r8, 2.1129930476556e-08_r8, 2.1173215489286e-08_r8, &
8522  2.2438932926878e-08_r8, 2.2525973780086e-08_r8, 2.2443951095372e-08_r8, &
8523  2.2389488558404e-08_r8, 2.2363784901684e-08_r8, 2.2446548413457e-08_r8, &
8524  2.2445085209062e-08_r8, 2.2244991341306e-08_r8, 2.2528053007014e-08_r8, &
8525  2.2259267836343e-08_r8, 2.2241900429193e-08_r8, 2.2268802864879e-08_r8, &
8526  2.2462519552301e-08_r8, 2.2394751684405e-08_r8, 2.2355775588414e-08_r8, &
8527  2.2233518728353e-08_r8, 2.2367460333408e-08_r8, 2.2156108403404e-08_r8, &
8528  2.2311787946577e-08_r8, 2.2112187762472e-08_r8, 2.2128770987616e-08_r8, &
8529  2.2008940204862e-08_r8, 2.1996228451587e-08_r8, 2.1905432941919e-08_r8, &
8530  2.1876955317668e-08_r8, 2.201472606847e-08_r8, 2.1870771516191e-08_r8, &
8531  2.1941723680336e-08_r8, 2.1910287509125e-08_r8, 2.1611135371156e-08_r8, &
8532  2.1603105884033e-08_r8, 2.1526534216709e-08_r8, 2.1313885900919e-08_r8, &
8533  2.132096999512e-08_r8, 2.1235225830237e-08_r8, 2.1078159689768e-08_r8, &
8534  2.2345961837094e-08_r8, 2.2413678244667e-08_r8, 2.2531050494451e-08_r8, &
8535  2.2510133676719e-08_r8, 2.2304406640856e-08_r8, 2.2558333508212e-08_r8, &
8536  2.2406540652114e-08_r8, 2.2495023032685e-08_r8, 2.2235525191016e-08_r8, &
8537  2.2307242651616e-08_r8, 2.2363554253756e-08_r8, 2.2363574274543e-08_r8, &
8538  2.2472481877406e-08_r8, 2.226509568509e-08_r8, 2.2444716346828e-08_r8, &
8539  2.2419608278285e-08_r8, 2.2249679346062e-08_r8, 2.2347177258707e-08_r8, &
8540  2.2093900117944e-08_r8, 2.2061770828541e-08_r8, 2.2058704243119e-08_r8, &
8541  2.2201399432686e-08_r8, 2.2013234122041e-08_r8, 2.2023697213358e-08_r8, &
8542  2.1851647444146e-08_r8, 2.1918495999899e-08_r8, 2.1839566693146e-08_r8, &
8543  2.1863834583552e-08_r8, 2.1788361013749e-08_r8, 2.1586247825881e-08_r8, &
8544  2.1729381567717e-08_r8, 2.1631577874055e-08_r8, 2.1536200947689e-08_r8, &
8545  2.1387407775522e-08_r8, 2.1170159186773e-08_r8, 2.1095251515047e-08_r8 &
8546  /) ) /
8547 
8548 type(gsw_result_ice) :: pt0_from_t_ice
8549 
8550 data pt0_from_t_ice / gsw_result_ice( &
8551  "pt0_from_t_ice", 6.0526e-10_r8, (/ &
8552  -2.40194642416_r8, -2.21686964922_r8, -2.45632512542_r8, -3.30320859054_r8, &
8553  -2.92784394715_r8, -5.45120600207_r8, -3.5484429277_r8, -2.6142700592_r8, &
8554  -5.5322397299_r8, -5.86929674065_r8, -3.74737597714_r8, -2.48653730851_r8, &
8555  -3.1644143558_r8, -3.8311788568_r8, -4.63188080606_r8, -3.35351546063_r8, &
8556  -4.81683823276_r8, -5.35045500004_r8, -3.49417205113_r8, -3.17790600374_r8, &
8557  -3.99554750653_r8, -4.18525122513_r8, -4.70807427998_r8, -5.14544758223_r8, &
8558  -3.55998221184_r8, -4.37064644059_r8, -6.62501963845_r8, -3.80129046371_r8, &
8559  -7.6555786778_r8, -7.12502382986_r8, -6.42489777845_r8, -7.05051782509_r8, &
8560  -5.95812642334_r8, -7.11247407449_r8, -9.39680728813_r8, -8.01082913793_r8, &
8561  -3.63077139965_r8, -2.46120429102_r8, -3.50176164729_r8, -4.17928168576_r8, &
8562  -4.48163001503_r8, -3.37238055172_r8, -3.30864505182_r8, -5.82762000428_r8, &
8563  -2.06140295858_r8, -5.48641302823_r8, -5.63249424313_r8, -5.20263062702_r8, &
8564  -2.51717070374_r8, -3.24206093725_r8, -3.59215356914_r8, -5.02314627349_r8, &
8565  -2.95246465612_r8, -5.39016346517_r8, -3.03437748333_r8, -5.32193712134_r8, &
8566  -4.78499528516_r8, -6.02487493232_r8, -5.87058327424_r8, -6.72739761026_r8, &
8567  -6.77829240483_r8, -4.65700642229_r8, -6.2163661115_r8, -4.47465115554_r8, &
8568  -4.06786242384_r8, -7.17986975161_r8, -6.47045462697_r8, -6.65697203391_r8, &
8569  -8.62163243228_r8, -7.71502746486_r8, -8.01893482953_r8, -9.25771382177_r8, &
8570  -4.83898198108_r8, -3.92796312241_r8, -2.36258443911_r8, -2.60470927831_r8, &
8571  -5.25118363647_r8, -1.90795663849_r8, -3.81147774589_r8, -2.57527894549_r8, &
8572  -5.87153571667_r8, -4.86503391694_r8, -4.05398101171_r8, -3.9711586458_r8, &
8573  -2.38633816841_r8, -4.93220633048_r8, -2.42630791225_r8, -2.59220143524_r8, &
8574  -4.49292275299_r8, -2.89422359144_r8, -5.87862211217_r8, -5.97684473303_r8, &
8575  -5.69765835106_r8, -3.51031693554_r8, -5.64927012031_r8, -5.18852004669_r8, &
8576  -7.10631781994_r8, -5.9152114289_r8, -6.6224930493_r8, -5.49735975135_r8, &
8577  -5.67287465251_r8, -7.50431811712_r8, -4.80754992701_r8, -5.27299932524_r8, &
8578  -5.70317536793_r8, -6.84154776201_r8, -8.87144183175_r8, -9.03405340779_r8 &
8579  /) ) /
8580 
8581 type(gsw_result_ice) :: pt_from_t_ice
8582 
8583 data pt_from_t_ice / gsw_result_ice( &
8584  "pt_from_t_ice", 6.0536e-10_r8, (/ &
8585  -2.40194642416_r8, -2.21686964922_r8, -2.45632512542_r8, -3.30320859054_r8, &
8586  -2.92784394715_r8, -5.45120600207_r8, -3.5484429277_r8, -2.6142700592_r8, &
8587  -5.5322397299_r8, -5.86929674065_r8, -3.74737597714_r8, -2.48653730851_r8, &
8588  -3.1644143558_r8, -3.8311788568_r8, -4.63188080606_r8, -3.35351546063_r8, &
8589  -4.81683823276_r8, -5.35045500004_r8, -3.49417205113_r8, -3.17790600374_r8, &
8590  -3.99554750653_r8, -4.18525122513_r8, -4.70807427998_r8, -5.14544758223_r8, &
8591  -3.55998221184_r8, -4.37064644059_r8, -6.62501963845_r8, -3.80129046371_r8, &
8592  -7.6555786778_r8, -7.12502382986_r8, -6.42489777845_r8, -7.05051782509_r8, &
8593  -5.95812642334_r8, -7.11247407449_r8, -9.39680728813_r8, -8.01082913793_r8, &
8594  -3.63077139965_r8, -2.46120429102_r8, -3.50176164729_r8, -4.17928168576_r8, &
8595  -4.48163001503_r8, -3.37238055172_r8, -3.30864505182_r8, -5.82762000428_r8, &
8596  -2.06140295858_r8, -5.48641302823_r8, -5.63249424313_r8, -5.20263062702_r8, &
8597  -2.51717070374_r8, -3.24206093725_r8, -3.59215356914_r8, -5.02314627349_r8, &
8598  -2.95246465612_r8, -5.39016346517_r8, -3.03437748333_r8, -5.32193712134_r8, &
8599  -4.78499528516_r8, -6.02487493232_r8, -5.87058327424_r8, -6.72739761026_r8, &
8600  -6.77829240483_r8, -4.65700642229_r8, -6.2163661115_r8, -4.47465115554_r8, &
8601  -4.06786242384_r8, -7.17986975161_r8, -6.47045462697_r8, -6.65697203391_r8, &
8602  -8.62163243228_r8, -7.71502746486_r8, -8.01893482953_r8, -9.25771382177_r8, &
8603  -4.83898198108_r8, -3.92796312241_r8, -2.36258443911_r8, -2.60470927831_r8, &
8604  -5.25118363647_r8, -1.90795663849_r8, -3.81147774589_r8, -2.57527894549_r8, &
8605  -5.87153571667_r8, -4.86503391694_r8, -4.05398101171_r8, -3.9711586458_r8, &
8606  -2.38633816841_r8, -4.93220633048_r8, -2.42630791225_r8, -2.59220143524_r8, &
8607  -4.49292275299_r8, -2.89422359144_r8, -5.87862211217_r8, -5.97684473303_r8, &
8608  -5.69765835106_r8, -3.51031693554_r8, -5.64927012031_r8, -5.18852004669_r8, &
8609  -7.10631781994_r8, -5.9152114289_r8, -6.6224930493_r8, -5.49735975135_r8, &
8610  -5.67287465251_r8, -7.50431811712_r8, -4.80754992701_r8, -5.27299932524_r8, &
8611  -5.70317536793_r8, -6.84154776201_r8, -8.87144183175_r8, -9.03405340779_r8 &
8612  /) ) /
8613 
8614 type(gsw_result_ice) :: t_from_pt0_ice
8615 
8616 data t_from_pt0_ice / gsw_result_ice( &
8617  "t_from_pt0_ice", 6.0023e-10_r8, (/ &
8618  -2.40194642416_r8, -2.21461506654_r8, -2.45181985622_r8, -3.29647047469_r8, &
8619  -2.91884879072_r8, -5.44005971336_r8, -3.53139158119_r8, -2.59154062237_r8, &
8620  -5.50417060482_r8, -5.83570234402_r8, -3.70793695923_r8, -2.44108369441_r8, &
8621  -3.10785569231_r8, -3.76334739579_r8, -4.55309474738_r8, -3.26297546596_r8, &
8622  -4.70429263412_r8, -5.21572403126_r8, -3.33606473987_r8, -2.9971164571_r8, &
8623  -3.79283966609_r8, -3.96029158208_r8, -4.46120111476_r8, -4.87646771689_r8, &
8624  -3.26717175932_r8, -4.05616040515_r8, -6.29092106043_r8, -3.40795894064_r8, &
8625  -7.21246588785_r8, -6.62609674981_r8, -5.8695626861_r8, -6.44150951767_r8, &
8626  -5.29161030544_r8, -6.39409515479_r8, -8.63009316181_r8, -7.18601070931_r8, &
8627  -3.63077139965_r8, -2.4589515714_r8, -3.49727236934_r8, -4.1725637436_r8, &
8628  -4.47268255477_r8, -3.36115422801_r8, -3.29157973991_r8, -5.80514019387_r8, &
8629  -2.03299818073_r8, -5.45277385913_r8, -5.59331091263_r8, -5.1575980775_r8, &
8630  -2.46048749009_r8, -3.1740927411_r8, -3.5130856442_r8, -4.9331243918_r8, &
8631  -2.83919721291_r8, -5.25545107014_r8, -2.87602187613_r8, -5.1424765239_r8, &
8632  -4.58283808838_r8, -5.80134534405_r8, -5.62470465069_r8, -6.45989938763_r8, &
8633  -6.48873391346_r8, -4.34283109546_r8, -5.8817883307_r8, -4.08223051419_r8, &
8634  -3.61915987383_r8, -6.68103933979_r8, -5.91520842338_r8, -6.04711779162_r8, &
8635  -7.96137388693_r8, -6.99818205616_r8, -7.24842228019_r8, -8.43657509418_r8, &
8636  -4.83898198108_r8, -3.92572163279_r8, -2.35807773993_r8, -2.59795513839_r8, &
8637  -5.24225993125_r8, -1.8966744114_r8, -3.79444173653_r8, -2.55254650323_r8, &
8638  -5.84349970544_r8, -4.83132226281_r8, -4.0145834224_r8, -3.92593450628_r8, &
8639  -2.32962982517_r8, -4.86463145795_r8, -2.34692559523_r8, -2.50142656442_r8, &
8640  -4.38025127777_r8, -2.75835056911_r8, -5.7218112495_r8, -5.79779280647_r8, &
8641  -5.49614034659_r8, -3.28483577686_r8, -5.40320173208_r8, -4.91958037365_r8, &
8642  -6.81709361827_r8, -5.60240635161_r8, -6.2883915056_r8, -5.10632818297_r8, &
8643  -5.22666088119_r8, -7.00606008133_r8, -4.24907164131_r8, -4.66018282032_r8, &
8644  -5.0360644467_r8, -6.1224807697_r8, -8.10327644438_r8, -8.21225300912_r8 &
8645  /) ) /
8646 
8647 type(gsw_result_ice) :: pot_enthalpy_from_pt_ice
8648 
8649 data pot_enthalpy_from_pt_ice / gsw_result_ice( &
8650  "pot_enthalpy_from_pt_ice", 1.2603e-06_r8, (/ &
8651  -338375.03800056_r8, -337990.13906349_r8, -338488.07987869_r8, &
8652  -340245.76099591_r8, -339467.3548735_r8, -344680.17936627_r8, &
8653  -340753.75111848_r8, -338816.29062666_r8, -344846.80411902_r8, &
8654  -345539.35561374_r8, -341165.50518434_r8, -338550.87523577_r8, &
8655  -339958.05970682_r8, -341338.87417265_r8, -342992.73610017_r8, &
8656  -340350.00516036_r8, -343374.09741299_r8, -344472.94378936_r8, &
8657  -340641.36999452_r8, -339986.03225628_r8, -341678.76512726_r8, &
8658  -342070.79811452_r8, -343149.868933_r8, -344051.031681_r8, &
8659  -340777.64323239_r8, -342453.67135005_r8, -347089.1027054_r8, &
8660  -341277.04785717_r8, -349195.68182525_r8, -348112.14310319_r8, &
8661  -346679.12541798_r8, -347959.81564284_r8, -345721.73491052_r8, &
8662  -348086.48799828_r8, -352737.21112004_r8, -349920.04409786_r8, &
8663  -340924.19094662_r8, -338498.22157224_r8, -340657.08741428_r8, &
8664  -342058.46577646_r8, -342682.75057809_r8, -340389.09194732_r8, &
8665  -340257.02714212_r8, -345453.76765529_r8, -337666.62433157_r8, &
8666  -344752.57938058_r8, -345052.88454198_r8, -344168.74739966_r8, &
8667  -338614.53920683_r8, -340119.02783645_r8, -340844.24892253_r8, &
8668  -343799.18420626_r8, -339518.44345901_r8, -344554.62938109_r8, &
8669  -339688.38247963_r8, -344414.27156271_r8, -343308.45879743_r8, &
8670  -345858.7403854_r8, -345541.9974547_r8, -347298.72424021_r8, &
8671  -347402.90395744_r8, -343044.55706162_r8, -346251.60607083_r8, &
8672  -342668.34830963_r8, -341828.2390632_r8, -348224.24945756_r8, &
8673  -346772.48081416_r8, -347154.53433332_r8, -351163.31477752_r8, &
8674  -349316.96363917_r8, -349936.56092824_r8, -352455.12410896_r8, &
8675  -343419.73844169_r8, -341539.0343296_r8, -338293.19912295_r8, &
8676  -338796.4284787_r8, -344268.67863273_r8, -337347.13919635_r8, &
8677  -341298.1217304_r8, -338735.28388752_r8, -345543.9532461_r8, &
8678  -343473.43011182_r8, -341799.54936208_r8, -341628.34500604_r8, &
8679  -338342.58769682_r8, -343611.84587905_r8, -338425.68310227_r8, &
8680  -338770.44290764_r8, -342706.05463567_r8, -339397.5845846_r8, &
8681  -345558.50458416_r8, -345760.15871488_r8, -345186.7944346_r8, &
8682  -340674.8041931_r8, -345087.36135121_r8, -344139.70191557_r8, &
8683  -348073.9025203_r8, -345633.63189806_r8, -347083.92847432_r8, &
8684  -344775.08845198_r8, -345135.86850932_r8, -348886.97712483_r8, &
8685  -343354.95198125_r8, -344313.5737781_r8, -345198.13027078_r8, &
8686  -347532.35872672_r8, -351671.00390044_r8, -352001.23398293_r8 &
8687  /) ) /
8688 
8689 type(gsw_result_ice) :: pt_from_pot_enthalpy_ice
8690 
8691 data pt_from_pot_enthalpy_ice / gsw_result_ice( &
8692  "pt_from_pot_enthalpy_ice", 6.0536e-10_r8, (/ &
8693  -2.40194642416_r8, -2.21686964922_r8, -2.45632512542_r8, -3.30320859054_r8, &
8694  -2.92784394715_r8, -5.45120600207_r8, -3.5484429277_r8, -2.6142700592_r8, &
8695  -5.5322397299_r8, -5.86929674065_r8, -3.74737597714_r8, -2.48653730851_r8, &
8696  -3.1644143558_r8, -3.8311788568_r8, -4.63188080606_r8, -3.35351546063_r8, &
8697  -4.81683823276_r8, -5.35045500004_r8, -3.49417205113_r8, -3.17790600374_r8, &
8698  -3.99554750653_r8, -4.18525122513_r8, -4.70807427998_r8, -5.14544758223_r8, &
8699  -3.55998221184_r8, -4.37064644059_r8, -6.62501963845_r8, -3.80129046371_r8, &
8700  -7.6555786778_r8, -7.12502382986_r8, -6.42489777845_r8, -7.05051782509_r8, &
8701  -5.95812642334_r8, -7.11247407449_r8, -9.39680728813_r8, -8.01082913793_r8, &
8702  -3.63077139965_r8, -2.46120429102_r8, -3.50176164729_r8, -4.17928168576_r8, &
8703  -4.48163001503_r8, -3.37238055172_r8, -3.30864505182_r8, -5.82762000428_r8, &
8704  -2.06140295858_r8, -5.48641302823_r8, -5.63249424313_r8, -5.20263062702_r8, &
8705  -2.51717070374_r8, -3.24206093725_r8, -3.59215356914_r8, -5.02314627349_r8, &
8706  -2.95246465612_r8, -5.39016346517_r8, -3.03437748333_r8, -5.32193712134_r8, &
8707  -4.78499528516_r8, -6.02487493232_r8, -5.87058327424_r8, -6.72739761026_r8, &
8708  -6.77829240483_r8, -4.65700642229_r8, -6.2163661115_r8, -4.47465115554_r8, &
8709  -4.06786242384_r8, -7.17986975161_r8, -6.47045462697_r8, -6.65697203391_r8, &
8710  -8.62163243228_r8, -7.71502746486_r8, -8.01893482953_r8, -9.25771382177_r8, &
8711  -4.83898198108_r8, -3.92796312241_r8, -2.36258443911_r8, -2.60470927831_r8, &
8712  -5.25118363647_r8, -1.90795663849_r8, -3.81147774589_r8, -2.57527894549_r8, &
8713  -5.87153571667_r8, -4.86503391694_r8, -4.05398101171_r8, -3.9711586458_r8, &
8714  -2.38633816841_r8, -4.93220633048_r8, -2.42630791225_r8, -2.59220143524_r8, &
8715  -4.49292275299_r8, -2.89422359144_r8, -5.87862211217_r8, -5.97684473303_r8, &
8716  -5.69765835106_r8, -3.51031693554_r8, -5.64927012031_r8, -5.18852004669_r8, &
8717  -7.10631781994_r8, -5.9152114289_r8, -6.6224930493_r8, -5.49735975135_r8, &
8718  -5.67287465251_r8, -7.50431811712_r8, -4.80754992701_r8, -5.27299932524_r8, &
8719  -5.70317536793_r8, -6.84154776201_r8, -8.87144183175_r8, -9.03405340779_r8 &
8720  /) ) /
8721 
8722 type(gsw_result_ice) :: pot_enthalpy_from_pt_ice_poly
8723 
8724 data pot_enthalpy_from_pt_ice_poly / gsw_result_ice( &
8725  "pot_enthalpy_from_pt_ice_poly", 1.2605e-06_r8, (/ &
8726  -338375.03588375_r8, -337990.13783234_r8, -338488.07752548_r8, &
8727  -340245.75617159_r8, -339467.35088372_r8, -344680.17489189_r8, &
8728  -340753.74594004_r8, -338816.28764507_r8, -344846.79976204_r8, &
8729  -345539.3517857_r8, -341165.49981638_r8, -338550.87275573_r8, &
8730  -339958.05514746_r8, -341338.86874891_r8, -342992.73074277_r8, &
8731  -340350.00025188_r8, -343374.09219737_r8, -344472.93917517_r8, &
8732  -340641.36488254_r8, -339986.027669_r8, -341678.75963257_r8, &
8733  -342070.79259664_r8, -343149.86362922_r8, -344051.02680589_r8, &
8734  -340777.63804067_r8, -342453.66586469_r8, -347089.10021942_r8, &
8735  -341277.04245176_r8, -349195.68124857_r8, -348112.14155157_r8, &
8736  -346679.12256325_r8, -347959.81395197_r8, -345721.73123107_r8, &
8737  -348086.48642323_r8, -352737.21319685_r8, -349920.0441445_r8, &
8738  -340924.18567968_r8, -338498.21919833_r8, -340657.0822926_r8, &
8739  -342058.46025841_r8, -342682.74513602_r8, -340389.08700884_r8, &
8740  -340257.02230841_r8, -345453.76375872_r8, -337666.62394635_r8, &
8741  -344752.57495668_r8, -345052.88033588_r8, -344168.74259394_r8, &
8742  -338614.53660144_r8, -340119.02312285_r8, -340844.24369529_r8, &
8743  -343799.17919232_r8, -339518.43940266_r8, -344554.62482115_r8, &
8744  -339688.37821422_r8, -344414.26691027_r8, -343308.45355463_r8, &
8745  -345858.73681968_r8, -345541.99362879_r8, -347298.72194477_r8, &
8746  -347402.90175703_r8, -343044.55172113_r8, -346251.60283996_r8, &
8747  -342668.34286434_r8, -341828.23355256_r8, -348224.24800825_r8, &
8748  -346772.47804283_r8, -347154.53190671_r8, -351163.31580926_r8, &
8749  -349316.96316886_r8, -349936.56098872_r8, -352455.12601723_r8, &
8750  -343419.73324562_r8, -341539.0288581_r8, -338293.19718387_r8, &
8751  -338796.42553275_r8, -344268.67388803_r8, -337347.13974323_r8, &
8752  -341298.11631855_r8, -338735.28105319_r8, -345543.94942177_r8, &
8753  -343473.42493942_r8, -341799.5438538_r8, -341628.33951878_r8, &
8754  -338342.58564982_r8, -343611.84077093_r8, -338425.68087825_r8, &
8755  -338770.44000877_r8, -342706.04919895_r8, -339397.58068858_r8, &
8756  -345558.50077156_r8, -345760.15506715_r8, -345186.79032968_r8, &
8757  -340674.79906066_r8, -345087.35717094_r8, -344139.69709247_r8, &
8758  -348073.90093375_r8, -345633.62814641_r8, -347083.92598366_r8, &
8759  -344775.08404395_r8, -345135.86436564_r8, -348886.97627438_r8, &
8760  -343354.94675758_r8, -344313.56906144_r8, -345198.12617453_r8, &
8761  -347532.35664461_r8, -351671.00529632_r8, -352001.23560227_r8 &
8762  /) ) /
8763 
8764 type(gsw_result_ice) :: pt_from_pot_enthalpy_ice_poly
8765 
8766 data pt_from_pot_enthalpy_ice_poly / gsw_result_ice( &
8767  "pt_from_pot_enthalpy_ice_poly", 6.0578e-10_r8, (/ &
8768  -2.40194642416_r8, -2.21686964922_r8, -2.45632512542_r8, -3.30320859054_r8, &
8769  -2.92784394715_r8, -5.45120600207_r8, -3.5484429277_r8, -2.6142700592_r8, &
8770  -5.5322397299_r8, -5.86929674065_r8, -3.74737597714_r8, -2.48653730851_r8, &
8771  -3.1644143558_r8, -3.8311788568_r8, -4.63188080606_r8, -3.35351546063_r8, &
8772  -4.81683823276_r8, -5.35045500004_r8, -3.49417205113_r8, -3.17790600374_r8, &
8773  -3.99554750653_r8, -4.18525122513_r8, -4.70807427998_r8, -5.14544758223_r8, &
8774  -3.55998221184_r8, -4.37064644059_r8, -6.62501963845_r8, -3.80129046371_r8, &
8775  -7.6555786778_r8, -7.12502382986_r8, -6.42489777845_r8, -7.05051782509_r8, &
8776  -5.95812642334_r8, -7.11247407449_r8, -9.39680728813_r8, -8.01082913793_r8, &
8777  -3.63077139965_r8, -2.46120429102_r8, -3.50176164729_r8, -4.17928168576_r8, &
8778  -4.48163001503_r8, -3.37238055172_r8, -3.30864505182_r8, -5.82762000428_r8, &
8779  -2.06140295858_r8, -5.48641302823_r8, -5.63249424313_r8, -5.20263062702_r8, &
8780  -2.51717070374_r8, -3.24206093725_r8, -3.59215356914_r8, -5.02314627349_r8, &
8781  -2.95246465612_r8, -5.39016346517_r8, -3.03437748334_r8, -5.32193712134_r8, &
8782  -4.78499528516_r8, -6.02487493232_r8, -5.87058327424_r8, -6.72739761026_r8, &
8783  -6.77829240483_r8, -4.65700642229_r8, -6.2163661115_r8, -4.47465115554_r8, &
8784  -4.06786242384_r8, -7.17986975161_r8, -6.47045462697_r8, -6.65697203391_r8, &
8785  -8.62163243228_r8, -7.71502746486_r8, -8.01893482953_r8, -9.25771382177_r8, &
8786  -4.83898198108_r8, -3.92796312241_r8, -2.36258443911_r8, -2.60470927831_r8, &
8787  -5.25118363647_r8, -1.90795663849_r8, -3.81147774589_r8, -2.57527894549_r8, &
8788  -5.87153571667_r8, -4.86503391694_r8, -4.05398101171_r8, -3.9711586458_r8, &
8789  -2.38633816841_r8, -4.93220633048_r8, -2.42630791224_r8, -2.59220143524_r8, &
8790  -4.49292275299_r8, -2.89422359144_r8, -5.87862211217_r8, -5.97684473303_r8, &
8791  -5.69765835106_r8, -3.51031693554_r8, -5.64927012031_r8, -5.18852004669_r8, &
8792  -7.10631781994_r8, -5.9152114289_r8, -6.6224930493_r8, -5.49735975135_r8, &
8793  -5.67287465251_r8, -7.50431811712_r8, -4.80754992701_r8, -5.27299932524_r8, &
8794  -5.70317536793_r8, -6.84154776201_r8, -8.87144183175_r8, -9.03405340779_r8 &
8795  /) ) /
8796 
8797 type(gsw_result_ice) :: pressure_freezing_ct
8798 
8799 data pressure_freezing_ct / gsw_result_ice( &
8800  "pressure_freezing_CT", 7.8061e-07_r8, (/ &
8801  1096.2576803_r8, 1070.15780265_r8, 1034.10979826_r8, 1016.50879419_r8, &
8802  9e90_r8, 9e90_r8, 437.916027373_r8, 755.449491706_r8, 881.374551326_r8, &
8803  954.261417834_r8, 887.895489475_r8, 600.592848315_r8, 9e90_r8, 9e90_r8, &
8804  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
8805  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
8806  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 802.377377456_r8, &
8807  853.652282077_r8, 845.860234122_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
8808  734.087015732_r8, 1063.88226444_r8, 1069.83800462_r8, 1066.97994243_r8, &
8809  1036.44481588_r8, 917.648895914_r8, 78.4226170927_r8, 9e90_r8, 9e90_r8, &
8810  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
8811  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
8812  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 1161.78021795_r8, &
8813  1175.15379759_r8, 1174.68820878_r8, 1143.24330131_r8, 948.567161058_r8, &
8814  678.700648579_r8, 771.864647788_r8, 891.763117349_r8, 776.657764279_r8, &
8815  582.676250797_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
8816  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
8817  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
8818  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
8819  /) ) /
8820 
8821 type(gsw_result_ice) :: melting_ice_sa_ct_ratio
8822 
8823 data melting_ice_sa_ct_ratio / gsw_result_ice( &
8824  "melting_ice_SA_CT_ratio", 2.9516e-12_r8, (/ &
8825  0.33168549572671_r8, 0.33771954459289_r8, 0.33752562735487_r8, &
8826  0.33680549826042_r8, 0.35861380642615_r8, 0.36438130865652_r8, &
8827  0.38251615461128_r8, 0.3908894615964_r8, 0.38731789147645_r8, &
8828  0.38964035728073_r8, 0.39815380892669_r8, 0.40553364928523_r8, &
8829  0.40861843048257_r8, 0.40659418062568_r8, 0.4040193476287_r8, &
8830  0.40734513677559_r8, 0.40466041165682_r8, 0.40442294499789_r8, &
8831  0.40979465401742_r8, 0.41152531686084_r8, 0.41028747280234_r8, &
8832  0.41045138639088_r8, 0.40978363326214_r8, 0.4092644819744_r8, &
8833  0.41372220545763_r8, 0.41216182779741_r8, 0.40702597665108_r8, &
8834  0.4150140108451_r8, 0.40610409293514_r8, 0.40783080581039_r8, &
8835  0.40991764323686_r8, 0.408731388187_r8, 0.41175858350917_r8, &
8836  0.40926597900308_r8, 0.40411310202443_r8, 0.40777569901518_r8, &
8837  0.33866503315594_r8, 0.33668066335857_r8, 0.33485725303349_r8, &
8838  0.35664036837699_r8, 0.36964154864318_r8, 0.37864897939103_r8, &
8839  0.38657904934305_r8, 0.38456737933128_r8, 0.39585521819186_r8, &
8840  0.38997954859048_r8, 0.3915172600888_r8, 0.39492643677616_r8, &
8841  0.41027732546661_r8, 0.4080289616842_r8, 0.40678719745521_r8, &
8842  0.40324202931223_r8, 0.40910197170859_r8, 0.40421150504112_r8, &
8843  0.41076164628494_r8, 0.40602539483904_r8, 0.40816263005159_r8, &
8844  0.40583767530144_r8, 0.40678221830671_r8, 0.40530948927837_r8, &
8845  0.40572368169712_r8, 0.41139345226705_r8, 0.40797484245643_r8, &
8846  0.41325187042278_r8, 0.41495568996855_r8, 0.40769367311829_r8, &
8847  0.4098104685127_r8, 0.40969835346267_r8, 0.4052724898911_r8, &
8848  0.40780170025356_r8, 0.40741183565705_r8, 0.40478905176137_r8, &
8849  0.35259690418496_r8, 0.35340072357083_r8, 0.35687908713333_r8, &
8850  0.35719476083434_r8, 0.36161438161743_r8, 0.38529741878_r8, &
8851  0.38831783703406_r8, 0.39769504047186_r8, 0.39551445282827_r8, &
8852  0.40426868687999_r8, 0.40681929269018_r8, 0.40613140539362_r8, &
8853  0.40905177415103_r8, 0.40236168558483_r8, 0.40836056650403_r8, &
8854  0.40878989537467_r8, 0.40561499256144_r8, 0.41062583673875_r8, &
8855  0.40432348292418_r8, 0.40505458316446_r8, 0.40640399557953_r8, &
8856  0.41245524102963_r8, 0.40772552641994_r8, 0.40940314775106_r8, &
8857  0.40520007075016_r8, 0.40844317472176_r8, 0.40710794399953_r8, &
8858  0.41071033691799_r8, 0.41093576995677_r8, 0.40692463116963_r8, &
8859  0.41396910274313_r8, 0.41313141666861_r8, 0.41240125815685_r8, &
8860  0.40993676584045_r8, 0.40536542049367_r8, 0.40531920773799_r8 &
8861  /) ) /
8862 
8863 type(gsw_result_ice) :: melting_ice_sa_ct_ratio_poly
8864 
8865 data melting_ice_sa_ct_ratio_poly / gsw_result_ice( &
8866  "melting_ice_SA_CT_ratio_poly", 2.9517e-12_r8, (/ &
8867  0.33168549572671_r8, 0.33771954422683_r8, 0.33752562660978_r8, &
8868  0.33680549713831_r8, 0.35861380423964_r8, 0.36438130559991_r8, &
8869  0.38251615129452_r8, 0.39088945807584_r8, 0.3873178877609_r8, &
8870  0.38964035338836_r8, 0.398153804339_r8, 0.40553364288434_r8, &
8871  0.40861841762992_r8, 0.40659416236398_r8, 0.40401932570981_r8, &
8872  0.40734511189788_r8, 0.40466038216916_r8, 0.40442291160556_r8, &
8873  0.40979461662443_r8, 0.4115252765674_r8, 0.4102874303034_r8, &
8874  0.4104513416006_r8, 0.40978358664036_r8, 0.40926443352512_r8, &
8875  0.41372215442445_r8, 0.41216177506958_r8, 0.4070259226687_r8, &
8876  0.41501394983385_r8, 0.40610402529642_r8, 0.40783072752044_r8, &
8877  0.4099175523912_r8, 0.4087312841684_r8, 0.41175846375223_r8, &
8878  0.40926584459501_r8, 0.40411295353438_r8, 0.40777553252481_r8, &
8879  0.33866503315594_r8, 0.33668066295131_r8, 0.33485725222155_r8, &
8880  0.35664036662396_r8, 0.36964154613259_r8, 0.37864897674162_r8, &
8881  0.38657904657741_r8, 0.38456737674637_r8, 0.39585521507367_r8, &
8882  0.38997954513869_r8, 0.39151725613153_r8, 0.39492643184085_r8, &
8883  0.41027731518308_r8, 0.40802894360187_r8, 0.40678717564513_r8, &
8884  0.40324200466657_r8, 0.40910194180591_r8, 0.4042114716074_r8, &
8885  0.41076160858054_r8, 0.40602535473654_r8, 0.408162587378_r8, &
8886  0.40583763079067_r8, 0.40678217154538_r8, 0.40530944096446_r8, &
8887  0.40572363162013_r8, 0.41139339944541_r8, 0.40797478814098_r8, &
8888  0.4132518094548_r8, 0.4149556205137_r8, 0.40769359486471_r8, &
8889  0.40981037773914_r8, 0.40969824916483_r8, 0.40527237229881_r8, &
8890  0.40780156640017_r8, 0.40741168581388_r8, 0.4047888866452_r8, &
8891  0.35259690418496_r8, 0.35340072324187_r8, 0.35687908647092_r8, &
8892  0.35719475982465_r8, 0.36161438017581_r8, 0.385297416802_r8, &
8893  0.38831783441337_r8, 0.39769503755761_r8, 0.39551444924226_r8, &
8894  0.40426868227922_r8, 0.40681928488013_r8, 0.40613139394828_r8, &
8895  0.40905175789356_r8, 0.40236166619901_r8, 0.4083605439547_r8, &
8896  0.40878987017826_r8, 0.4056149630271_r8, 0.41062580288623_r8, &
8897  0.40432344654024_r8, 0.40505454431351_r8, 0.40640395415564_r8, &
8898  0.41245519683122_r8, 0.40772548080382_r8, 0.40940310014757_r8, &
8899  0.40520002182085_r8, 0.40844312288826_r8, 0.40710789022492_r8, &
8900  0.41071027632691_r8, 0.41093570125641_r8, 0.40692455313962_r8, &
8901  0.41396901093423_r8, 0.41313131127007_r8, 0.41240113820642_r8, &
8902  0.40993663120213_r8, 0.40536527150044_r8, 0.40531904237398_r8 &
8903  /) ) /
8904 
8905 type(gsw_result_ice) :: melting_ice_equilibrium_sa_ct_ratio
8906 
8907 data melting_ice_equilibrium_sa_ct_ratio / gsw_result_ice( &
8908  "melting_ice_equilibrium_SA_CT_ratio", 1.6376e-12_r8, (/ &
8909  0.33414334412702_r8, 0.33986838553319_r8, 0.34030594345545_r8, &
8910  0.3414284479325_r8, 0.36618238158968_r8, 0.38026225193919_r8, &
8911  0.38998972217873_r8, 0.39502432853306_r8, 0.3980275064054_r8, &
8912  0.40095820173457_r8, 0.40468101169401_r8, 0.41005306022004_r8, &
8913  0.41908167065177_r8, 0.42228896905614_r8, 0.42395097699308_r8, &
8914  0.42448069098754_r8, 0.42512347385849_r8, 0.42551502986933_r8, &
8915  0.42589857948608_r8, 0.42624721978477_r8, 0.42659796350778_r8, &
8916  0.42695730226314_r8, 0.42731704848123_r8, 0.42768970619346_r8, &
8917  0.42806960773745_r8, 0.42844055939174_r8, 0.42880616452742_r8, &
8918  0.42974138788071_r8, 0.43063440820838_r8, 0.43148559241997_r8, &
8919  0.43230975584646_r8, 0.43312922259166_r8, 0.43395072258414_r8, &
8920  0.43478038281294_r8, 0.43561749257443_r8, 0.43646806869177_r8, &
8921  0.34464228603668_r8, 0.3400415320731_r8, 0.34041946501382_r8, &
8922  0.36820072247108_r8, 0.38395120270228_r8, 0.38733063921174_r8, &
8923  0.39243389439405_r8, 0.39522734734797_r8, 0.39746344438498_r8, &
8924  0.39996071821325_r8, 0.40202059730138_r8, 0.40491834447371_r8, &
8925  0.41693224980679_r8, 0.42188777920574_r8, 0.42355155657738_r8, &
8926  0.42449882944438_r8, 0.42513736073437_r8, 0.42544603454398_r8, &
8927  0.42587627500288_r8, 0.42624749506018_r8, 0.42659929503759_r8, &
8928  0.42694868273172_r8, 0.42732185577497_r8, 0.42768594073799_r8, &
8929  0.42805563500754_r8, 0.42842919668895_r8, 0.42879372146257_r8, &
8930  0.42972265358693_r8, 0.43062288632185_r8, 0.43147887935582_r8, &
8931  0.43230799845564_r8, 0.43313354950927_r8, 0.43395266444436_r8, &
8932  0.43478377509266_r8, 0.43562134315655_r8, 0.43647199189681_r8, &
8933  0.36010168007726_r8, 0.35888834117673_r8, 0.35892635377665_r8, &
8934  0.35989869405081_r8, 0.37092332853148_r8, 0.38795651374652_r8, &
8935  0.39525222990091_r8, 0.40121048554727_r8, 0.40757743843127_r8, &
8936  0.41475983158254_r8, 0.41769769197627_r8, 0.41976476295687_r8, &
8937  0.42243772946506_r8, 0.42407362095144_r8, 0.4247467606191_r8, &
8938  0.42480765299462_r8, 0.42528126881158_r8, 0.42563789365876_r8, &
8939  0.42592862030609_r8, 0.42628144373555_r8, 0.42665102143654_r8, &
8940  0.42699953962202_r8, 0.42737031099592_r8, 0.42772556716471_r8, &
8941  0.42808836656464_r8, 0.4284857045989_r8, 0.42885082746987_r8, &
8942  0.42975425996488_r8, 0.43064426260056_r8, 0.43149243568032_r8, &
8943  0.43232396924991_r8, 0.43314863421959_r8, 0.43395810257978_r8, &
8944  0.4347868367356_r8, 0.4356215064151_r8, 0.43646972355485_r8 &
8945  /) ) /
8946 
8947 type(gsw_result_ice) :: melting_ice_equilibrium_sa_ct_ratio_poly
8948 
8949 data melting_ice_equilibrium_sa_ct_ratio_poly / gsw_result_ice( &
8950  "melting_ice_equilibrium_SA_CT_ratio_poly", 1.6377e-12_r8, (/ &
8951  0.33414329019901_r8, 0.33986833703748_r8, 0.34030590325666_r8, &
8952  0.34142841561703_r8, 0.36618234802077_r8, 0.38026222358012_r8, &
8953  0.38998971464819_r8, 0.39502434147261_r8, 0.39802753953618_r8, &
8954  0.40095825461786_r8, 0.404681083948_r8, 0.41005315239992_r8, &
8955  0.41908180019161_r8, 0.42228913394613_r8, 0.42395117432264_r8, &
8956  0.42448091915166_r8, 0.42512375741251_r8, 0.42551536174075_r8, &
8957  0.42589895318183_r8, 0.42624762926899_r8, 0.42659840323164_r8, &
8958  0.4269577671394_r8, 0.42731753385742_r8, 0.42769020800228_r8, &
8959  0.42807012202073_r8, 0.42844108281486_r8, 0.42880669399371_r8, &
8960  0.42974192195254_r8, 0.43063493622789_r8, 0.43148610925356_r8, &
8961  0.43231026164218_r8, 0.43312972285343_r8, 0.43395122794905_r8, &
8962  0.43478090898665_r8, 0.43561806032078_r8, 0.43646870379768_r8, &
8963  0.34464222644075_r8, 0.34004148348706_r8, 0.34041942475775_r8, &
8964  0.36820067965358_r8, 0.38395116504947_r8, 0.38733060977373_r8, &
8965  0.39243388667239_r8, 0.39522736028036_r8, 0.39746347751792_r8, &
8966  0.3999607710691_r8, 0.40202066939651_r8, 0.40491843613229_r8, &
8967  0.41693237890635_r8, 0.42188794398974_r8, 0.42355175378387_r8, &
8968  0.42449905761484_r8, 0.42513764429448_r8, 0.42544636637805_r8, &
8969  0.42587664868381_r8, 0.42624790454462_r8, 0.42659973476274_r8, &
8970  0.42694914759809_r8, 0.42732234115763_r8, 0.4276864425409_r8, &
8971  0.42805614926553_r8, 0.42842972008849_r8, 0.42879425089952_r8, &
8972  0.42972318759943_r8, 0.43062341429394_r8, 0.43147939615447_r8, &
8973  0.43230850424003_r8, 0.43313404980498_r8, 0.43395316982754_r8, &
8974  0.43478430130414_r8, 0.43562191095311_r8, 0.43647262706207_r8, &
8975  0.36010161356825_r8, 0.35888828400165_r8, 0.35892630534801_r8, &
8976  0.35989865393581_r8, 0.37092329362713_r8, 0.38795648423284_r8, &
8977  0.39525222201894_r8, 0.40121049841548_r8, 0.40757747190176_r8, &
8978  0.41475988563642_r8, 0.41769776579418_r8, 0.41976485668366_r8, &
8979  0.42243785976911_r8, 0.42407378633008_r8, 0.42474695819826_r8, &
8980  0.42480788127348_r8, 0.42528155243479_r8, 0.42563822559684_r8, &
8981  0.42592899402182_r8, 0.42628185324736_r8, 0.42665146121171_r8, &
8982  0.42700000454672_r8, 0.42737079644387_r8, 0.42772606902982_r8, &
8983  0.42808888088189_r8, 0.42848622811575_r8, 0.42885135704155_r8, &
8984  0.42975479407749_r8, 0.43064479066062_r8, 0.43149295254953_r8, &
8985  0.43232447513727_r8, 0.43314913463365_r8, 0.43395860801411_r8, &
8986  0.43478736298117_r8, 0.43562207421379_r8, 0.4364703586858_r8 &
8987  /) ) /
8988 
8989 type(gsw_result_ice) :: melting_ice_into_seawater_sa_final
8990 
8991 data melting_ice_into_seawater_sa_final / gsw_result_ice( &
8992  "melting_ice_into_seawater_SA_final", 3.6441e-10_r8, (/ &
8993  27.614593517892_r8, 28.068255102176_r8, 28.095599027261_r8, &
8994  28.185691875733_r8, 29.885738875836_r8, 30.803040903732_r8, &
8995  31.954085286935_r8, 32.412350816674_r8, 32.713166969798_r8, &
8996  32.954963841855_r8, 33.237082182713_r8, 33.538938713473_r8, &
8997  33.927995505099_r8, 33.856193009125_r8, 33.826052010675_r8, &
8998  33.777365932927_r8, 33.818863805807_r8, 33.8672225996_r8, &
8999  33.898673839381_r8, 33.910342433692_r8, 33.938255448677_r8, &
9000  33.949304269294_r8, 33.960249214581_r8, 33.966408005333_r8, &
9001  33.951088854212_r8, 33.951277314438_r8, 33.976836678009_r8, &
9002  33.905196477707_r8, 33.873200183404_r8, 33.79232041956_r8, &
9003  33.702465550401_r8, 33.627987708751_r8, 33.519457945033_r8, &
9004  33.439943053341_r8, 33.369979220641_r8, 33.263585608079_r8, &
9005  28.397483134792_r8, 28.036493126233_r8, 28.059154963359_r8, &
9006  29.964150575146_r8, 31.079792552686_r8, 31.60375996991_r8, &
9007  32.231588531051_r8, 32.561718321356_r8, 32.698053244829_r8, &
9008  32.911771773659_r8, 33.063395717747_r8, 33.245950328985_r8, &
9009  33.901516738141_r8, 33.850714438599_r8, 33.801356853255_r8, &
9010  33.806196819911_r8, 33.794599845346_r8, 33.856664992375_r8, &
9011  33.861011987895_r8, 33.907919703181_r8, 33.952581538446_r8, &
9012  33.973786599947_r8, 33.956884711462_r8, 33.968420165888_r8, &
9013  33.968901544743_r8, 33.976371062154_r8, 33.956699380577_r8, &
9014  33.90566580986_r8, 33.843799844938_r8, 33.827056123662_r8, &
9015  33.731846515061_r8, 33.616858440234_r8, 33.544358108513_r8, &
9016  33.446661611254_r8, 33.357547776599_r8, 33.277056444379_r8, &
9017  29.765361384898_r8, 29.666067836646_r8, 29.658786175_r8, &
9018  29.730212211875_r8, 30.566019115332_r8, 31.865474409884_r8, &
9019  32.476564601014_r8, 32.970502694058_r8, 33.450585677724_r8, &
9020  33.973638212389_r8, 33.970475271667_r8, 33.887269349125_r8, &
9021  33.775775259734_r8, 33.734984979753_r8, 33.687261456324_r8, &
9022  33.735409316788_r8, 33.829610842719_r8, 33.863116027514_r8, &
9023  33.924998458766_r8, 33.963212558365_r8, 33.974331654078_r8, &
9024  33.969382320898_r8, 33.988021782839_r8, 33.985643297995_r8, &
9025  33.992028076456_r8, 33.971796678897_r8, 33.964606253997_r8, &
9026  33.914419302866_r8, 33.857178609065_r8, 33.79626372226_r8, &
9027  33.689672074486_r8, 33.603301666135_r8, 33.516564492698_r8, &
9028  33.436500401445_r8, 33.367328293786_r8, 33.273365486828_r8 &
9029  /) ) /
9030 
9031 type(gsw_result_ice) :: melting_ice_into_seawater_ct_final
9032 
9033 data melting_ice_into_seawater_ct_final / gsw_result_ice( &
9034  "melting_ice_into_seawater_CT_final", 6.0576e-10_r8, (/ &
9035  -1.41093471265_r8, -1.45647956398_r8, -1.45017799343_r8, -1.44272895296_r8, &
9036  -1.59486646519_r8, -1.70267455304_r8, -1.70850050254_r8, -1.83425824545_r8, &
9037  -1.79773202937_r8, -1.84824280761_r8, -1.84644529844_r8, -1.96019808883_r8, &
9038  -1.97333604917_r8, -2.07379949658_r8, -2.01658154176_r8, -2.14778480006_r8, &
9039  -2.22916072585_r8, -2.31132890788_r8, -2.3428715937_r8, -2.47370586657_r8, &
9040  -2.55584544651_r8, -2.63738300409_r8, -2.7192969318_r8, -2.80212185093_r8, &
9041  -2.88325957663_r8, -2.96650265897_r8, -3.00035095322_r8, -3.25646240345_r8, &
9042  -3.46681100783_r8, -3.676617459_r8, -3.88907304089_r8, -4.0815871045_r8, &
9043  -4.32162432387_r8, -4.54163111172_r8, -4.76538099467_r8, -4.98926658706_r8, &
9044  -1.45390375763_r8, -1.42180376325_r8, -1.43921754813_r8, -1.56557559722_r8, &
9045  -1.65695766101_r8, -1.69565445215_r8, -1.74397470963_r8, -1.74520608546_r8, &
9046  -1.85855252475_r8, -1.83537764031_r8, -1.84895986697_r8, -1.88815599791_r8, &
9047  -2.03690669203_r8, -2.07348082497_r8, -2.10945812673_r8, -2.09404962193_r8, &
9048  -2.2277469834_r8, -2.31071307144_r8, -2.39070243963_r8, -2.47356427507_r8, &
9049  -2.49824812543_r8, -2.58348234565_r8, -2.71909979184_r8, -2.80223984401_r8, &
9050  -2.88430482716_r8, -2.89941351511_r8, -3.03387945486_r8, -3.25649001805_r8, &
9051  -3.46507906317_r8, -3.58891091331_r8, -3.81667449247_r8, -4.10089814286_r8, &
9052  -4.32309520449_r8, -4.54202809544_r8, -4.76464633148_r8, -4.99006264463_r8, &
9053  -1.51240950176_r8, -1.5119462035_r8, -1.53512864658_r8, -1.53238566566_r8, &
9054  -1.60707533953_r8, -1.69396902495_r8, -1.7472153271_r8, -1.82925318828_r8, &
9055  -1.85831151407_r8, -1.87134603024_r8, -1.98219216523_r8, -1.99742081577_r8, &
9056  -2.02959675149_r8, -2.06675091525_r8, -2.10282143343_r8, -2.14534297655_r8, &
9057  -2.22978694897_r8, -2.31108936396_r8, -2.39443858279_r8, -2.47679610457_r8, &
9058  -2.55795598487_r8, -2.63855856125_r8, -2.72092434296_r8, -2.80324984775_r8, &
9059  -2.88566200644_r8, -2.96770758118_r8, -3.05008080349_r8, -3.25700506621_r8, &
9060  -3.46586716836_r8, -3.67684998285_r8, -3.88831812192_r8, -4.10330292846_r8, &
9061  -4.32145341296_r8, -4.54142769721_r8, -4.76522432974_r8, -4.98984452431_r8 &
9062  /) ) /
9063 
9064 type(gsw_result_ice) :: ice_fraction_to_freeze_seawater_sa_freeze
9065 
9066 data ice_fraction_to_freeze_seawater_sa_freeze / gsw_result_ice( &
9067  "ice_fraction_to_freeze_seawater_SA_freeze", 3.638e-10_r8, (/ &
9068  27.623573185756_r8, 28.081447302697_r8, 28.103654114307_r8, &
9069  28.187063599892_r8, 29.90364103373_r8, 30.837290619367_r8, &
9070  31.961184743507_r8, 32.45029786444_r8, 32.723169623335_r8, &
9071  32.971627038977_r8, 33.23953181485_r8, 33.571469418519_r8, &
9072  33.941180009229_r8, 33.893495974927_r8, 33.827033163081_r8, &
9073  33.814723607843_r8, 33.855536806724_r8, 33.903791651873_r8, &
9074  33.917383187131_r8, 33.949011543335_r8, 33.976964780845_r8, &
9075  33.987049275227_r8, 33.998622498073_r8, 34.003593298921_r8, &
9076  33.990167133602_r8, 33.990113784705_r8, 33.995283561544_r8, &
9077  33.944325484207_r8, 33.909559990438_r8, 33.829589607693_r8, &
9078  33.739858131968_r8, 33.656950808644_r8, 33.55612048902_r8, &
9079  33.476446377014_r8, 33.406836073716_r8, 33.29988350075_r8, &
9080  28.406113722266_r8, 28.038729379481_r8, 28.064170515876_r8, &
9081  29.972723262335_r8, 31.095710407676_r8, 31.620711851054_r8, &
9082  32.246223646043_r8, 32.562487833922_r8, 32.732183289968_r8, &
9083  32.924539503281_r8, 33.070668442007_r8, 33.256537272932_r8, &
9084  33.941011604319_r8, 33.88853326584_r8, 33.839543240917_r8, &
9085  33.822442840059_r8, 33.832395420211_r8, 33.894552151971_r8, &
9086  33.899707461301_r8, 33.945977488938_r8, 33.967914359499_r8, &
9087  33.990280665806_r8, 33.993625859448_r8, 34.004948983272_r8, &
9088  34.006591224414_r8, 33.987743615713_r8, 33.988994441081_r8, &
9089  33.944379781399_r8, 33.882484396627_r8, 33.829679810346_r8, &
9090  33.740621122137_r8, 33.653860226376_r8, 33.580422015201_r8, &
9091  33.482476787799_r8, 33.39342756421_r8, 33.313293678754_r8, &
9092  29.767808870445_r8, 29.667682898497_r8, 29.665993483987_r8, &
9093  29.732362262321_r8, 30.574964710951_r8, 31.876657118595_r8, &
9094  32.487147418372_r8, 32.994696222608_r8, 33.467671384449_r8, &
9095  33.976587262728_r8, 34.009215649981_r8, 33.925447310902_r8, &
9096  33.814313648611_r8, 33.772411571725_r8, 33.725450047037_r8, &
9097  33.773756891724_r8, 33.867222612609_r8, 33.901564723391_r8, &
9098  33.961833423411_r8, 34.0002803472_r8, 34.011947598751_r8, &
9099  34.008193673147_r8, 34.025322272636_r8, 34.023790511484_r8, &
9100  34.03038119376_r8, 34.008692173427_r8, 34.001464242497_r8, &
9101  33.952421284689_r8, 33.894878041591_r8, 33.833431862073_r8, &
9102  33.7283452129_r8, 33.641628663235_r8, 33.554345344699_r8, &
9103  33.474348681112_r8, 33.40198259909_r8, 33.310797408192_r8 &
9104  /) ) /
9105 
9106 type(gsw_result_ice) :: ice_fraction_to_freeze_seawater_ct_freeze
9107 
9108 data ice_fraction_to_freeze_seawater_ct_freeze / gsw_result_ice( &
9109  "ice_fraction_to_freeze_seawater_CT_freeze", 3.3783e-11_r8, (/ &
9110  -1.4836625652296_r8, -1.5171697900132_r8, -1.5260414554195_r8, &
9111  -1.5383844861429_r8, -1.6436140963126_r8, -1.7046365705155_r8, &
9112  -1.789083655638_r8, -1.8364479337119_r8, -1.8714067827215_r8, &
9113  -1.9050030865931_r8, -1.9397725767791_r8, -1.9790793350097_r8, &
9114  -2.0392133083768_r8, -2.0759694908583_r8, -2.1109521029957_r8, &
9115  -2.1499593322694_r8, -2.2312977543519_r8, -2.313462228644_r8, &
9116  -2.3939938783513_r8, -2.4759659946084_r8, -2.5581100408944_r8, &
9117  -2.6395930300336_r8, -2.7215455699805_r8, -2.804302551735_r8, &
9118  -2.8855527924261_r8, -2.9687832678518_r8, -3.0518835365616_r8, &
9119  -3.258764854619_r8, -3.4689532010017_r8, -3.678815242656_r8, &
9120  -3.8912797146039_r8, -4.1064707796483_r8, -4.3237900675169_r8, &
9121  -4.5437881204471_r8, -4.7675593159396_r8, -4.9914116894817_r8, &
9122  -1.527951745671_r8, -1.5147513817686_r8, -1.5238056838449_r8, &
9123  -1.6399227102841_r8, -1.7118045532237_r8, -1.7495919179424_r8, &
9124  -1.8055046039364_r8, -1.8429237620508_r8, -1.8719276876799_r8, &
9125  -1.9022786530322_r8, -1.9299913426356_r8, -1.9608125747047_r8, &
9126  -2.0392035139776_r8, -2.0756807796661_r8, -2.1116800603568_r8, &
9127  -2.150408699239_r8, -2.2299492091402_r8, -2.3129231953283_r8, &
9128  -2.3929617337065_r8, -2.4757886474808_r8, -2.5575805359691_r8, &
9129  -2.6397822485883_r8, -2.721252751781_r8, -2.8043820609311_r8, &
9130  -2.886516708945_r8, -2.9686440733325_r8, -3.0515139422863_r8, &
9131  -3.2587680498514_r8, -3.4673579726063_r8, -3.6788205623332_r8, &
9132  -3.8913247446824_r8, -4.1062882712985_r8, -4.3252257744932_r8, &
9133  -4.5441444887294_r8, -4.7667668113593_r8, -4.9922042593301_r8, &
9134  -1.6053581985957_r8, -1.6072719807167_r8, -1.6147999065834_r8, &
9135  -1.626211561245_r8, -1.6819746035308_r8, -1.7643108411191_r8, &
9136  -1.8193994355643_r8, -1.8679002862682_r8, -1.9144986986998_r8, &
9137  -1.9632782135769_r8, -1.9844440855943_r8, -1.999639828898_r8, &
9138  -2.0318367563024_r8, -2.06892699112_r8, -2.1050424307882_r8, &
9139  -2.1475747414212_r8, -2.2319787845798_r8, -2.3133323075262_r8, &
9140  -2.3965898101649_r8, -2.4789631043385_r8, -2.5601569345741_r8, &
9141  -2.6408312149281_r8, -2.7231103588416_r8, -2.8054871382836_r8, &
9142  -2.8879130360987_r8, -2.9698743793184_r8, -3.0522467671852_r8, &
9143  -3.2592412765773_r8, -3.4680881553499_r8, -3.6790418402018_r8, &
9144  -3.8906002619339_r8, -4.1055659804147_r8, -4.3236851989152_r8, &
9145  -4.5436641584868_r8, -4.7672724490261_r8, -4.9920567217524_r8 &
9146  /) ) /
9147 
9148 type(gsw_result_ice) :: ice_fraction_to_freeze_seawater_w_ih
9149 
9150 data ice_fraction_to_freeze_seawater_w_ih / gsw_result_ice( &
9151  "ice_fraction_to_freeze_seawater_w_Ih", 7.0421e-12_r8, (/ &
9152  0.00166855877594_r8, 0.0020030321173_r8, 0.00242845831891_r8, &
9153  0.00266888879646_r8, 0.0127290315875_r8, 0.0191615461061_r8, &
9154  0.00835092384763_r8, 0.00572139096865_r8, 0.00469528575818_r8, &
9155  0.00423938067448_r8, 0.00513175548721_r8, 0.00805692588252_r8, &
9156  0.0181945030877_r8, 0.0266339507505_r8, 0.0320139809301_r8, &
9157  0.033261371986_r8, 0.03294704648_r8, 0.0318505741305_r8, &
9158  0.0317210091411_r8, 0.0309930852789_r8, 0.0303698588948_r8, &
9159  0.0302708108816_r8, 0.0301250563872_r8, 0.0301851657529_r8, &
9160  0.0307869931945_r8, 0.0309757867604_r8, 0.0310047674585_r8, &
9161  0.0329120932955_r8, 0.0342304408378_r8, 0.0367106070803_r8, &
9162  0.0393699928967_r8, 0.0417928042153_r8, 0.0446917770667_r8, &
9163  0.0469816341858_r8, 0.0489628043637_r8, 0.0520047755584_r8, &
9164  0.00437621019125_r8, 0.0040238954536_r8, 0.00415908677475_r8, &
9165  0.0158750481373_r8, 0.0204014760785_r8, 0.012403079301_r8, &
9166  0.00567049502499_r8, 0.0027907142289_r8, 0.00302403958912_r8, &
9167  0.0032095960008_r8, 0.00371043479014_r8, 0.00504606933209_r8, &
9168  0.0131982276057_r8, 0.0258621538563_r8, 0.0307539023806_r8, &
9169  0.0330814989669_r8, 0.0336392397041_r8, 0.0319593810646_r8, &
9170  0.0321755589976_r8, 0.0310803043007_r8, 0.0306311266301_r8, &
9171  0.0301592771186_r8, 0.0302783673715_r8, 0.0301380690765_r8, &
9172  0.0302874159069_r8, 0.0310179856881_r8, 0.0311562757385_r8, &
9173  0.0328689269241_r8, 0.0349760888977_r8, 0.0366932472858_r8, &
9174  0.0393444155301_r8, 0.0418902370412_r8, 0.0440041584554_r8, &
9175  0.0468172956176_r8, 0.0493528119936_r8, 0.0516314175797_r8, &
9176  0.00101776403959_r8, 0.000987292778511_r8, 0.00109097683024_r8, &
9177  0.00147630752864_r8, 0.00333667349983_r8, 0.00599804464643_r8, &
9178  0.00530604913665_r8, 0.00445590546579_r8, 0.00563491459061_r8, &
9179  0.00764756287517_r8, 0.0134525205963_r8, 0.0205197137374_r8, &
9180  0.0295423566545_r8, 0.0341436939639_r8, 0.0367070342458_r8, &
9181  0.0351667013171_r8, 0.032967795036_r8, 0.0321901763906_r8, &
9182  0.0305195746914_r8, 0.0296066675539_r8, 0.0294907277613_r8, &
9183  0.0297622946819_r8, 0.0294828459355_r8, 0.0296894557305_r8, &
9184  0.0296822923339_r8, 0.0305469907619_r8, 0.0309282434002_r8, &
9185  0.0327100414034_r8, 0.0346703973265_r8, 0.0366162791779_r8, &
9186  0.0397289408318_r8, 0.0422713764524_r8, 0.0447583421255_r8, &
9187  0.0470553077127_r8, 0.0491096180216_r8, 0.0516976204519_r8 &
9188  /) ) /
9189 
9190 type(gsw_result_ice) :: dsa_dct_frazil
9191 
9192 data dsa_dct_frazil / gsw_result_ice( &
9193  "dSA_dCT_frazil", 1.6976e-12_r8, (/ &
9194  0.33459111646994_r8, 0.34043318315061_r8, 0.34092692826698_r8, &
9195  0.34205198351191_r8, 0.36949047578447_r8, 0.38578782051496_r8, &
9196  0.39224121311839_r8, 0.39688053760759_r8, 0.39936089295767_r8, &
9197  0.40223111272372_r8, 0.40609058895968_r8, 0.41253508356364_r8, &
9198  0.42434961640927_r8, 0.4313569515867_r8, 0.43324794528778_r8, &
9199  0.43580754371167_r8, 0.43586598653879_r8, 0.435845411618_r8, &
9200  0.43522610515751_r8, 0.43610061051386_r8, 0.43577319870748_r8, &
9201  0.43709230122021_r8, 0.4365956985556_r8, 0.43766835310854_r8, &
9202  0.43729837696235_r8, 0.4377697419085_r8, 0.43781969129347_r8, &
9203  0.43949453650589_r8, 0.44139564472709_r8, 0.44274250029278_r8, &
9204  0.44452263797025_r8, 0.44526959179791_r8, 0.44922612126623_r8, &
9205  0.44956622720616_r8, 0.45008719331915_r8, 0.45243994285988_r8, &
9206  0.34572873683244_r8, 0.34098111015332_r8, 0.34141362618123_r8, &
9207  0.37224763261158_r8, 0.38943177760647_r8, 0.39072216747309_r8, &
9208  0.39404785471866_r8, 0.3959715527611_r8, 0.39854468714369_r8, &
9209  0.40092244723514_r8, 0.40307652002688_r8, 0.40637080057613_r8, &
9210  0.42096878542538_r8, 0.43085151701307_r8, 0.43306732624244_r8, &
9211  0.43424821857938_r8, 0.43699005741285_r8, 0.43516351256846_r8, &
9212  0.43574441652913_r8, 0.43570698562551_r8, 0.43554699746077_r8, &
9213  0.43575363637694_r8, 0.43715649433798_r8, 0.43732731607785_r8, &
9214  0.43731105024997_r8, 0.43739824083998_r8, 0.43796833548453_r8, &
9215  0.43984079309875_r8, 0.44342175566014_r8, 0.44195066141543_r8, &
9216  0.44358424742831_r8, 0.44537117324126_r8, 0.44743257308049_r8, &
9217  0.44956497187967_r8, 0.45100343046668_r8, 0.45195692818711_r8, &
9218  0.36036736311164_r8, 0.35913905129267_r8, 0.359247384869_r8, &
9219  0.36027242082709_r8, 0.37182696286618_r8, 0.3896124867489_r8, &
9220  0.39674627242579_r8, 0.40260553546251_r8, 0.40925617684476_r8, &
9221  0.4169121509842_r8, 0.42209261658409_r8, 0.42639270128384_r8, &
9222  0.4321981616881_r8, 0.43459763001752_r8, 0.4369016257656_r8, &
9223  0.43590574648162_r8, 0.43561040527443_r8, 0.43626471361891_r8, &
9224  0.43565331715869_r8, 0.43566654314027_r8, 0.43586164137119_r8, &
9225  0.43632973063414_r8, 0.43681307975668_r8, 0.43694215093009_r8, &
9226  0.43690478192368_r8, 0.43843595000296_r8, 0.4386935201264_r8, &
9227  0.43995260758833_r8, 0.44160033100708_r8, 0.44267605165332_r8, &
9228  0.44424942583703_r8, 0.4460693995696_r8, 0.44812668936002_r8, &
9229  0.44870967634161_r8, 0.45109927868808_r8, 0.45152857035841_r8 &
9230  /) ) /
9231 
9232 type(gsw_result_ice) :: dsa_dp_frazil
9233 
9234 data dsa_dp_frazil / gsw_result_ice( &
9235  "dSA_dP_frazil", 1.4507e-19_r8, (/ &
9236  -2.4975389078882e-08_r8, -2.5425456233617e-08_r8, -2.5475393934859e-08_r8, &
9237  -2.5572750347456e-08_r8, -2.7637514659792e-08_r8, -2.886862166101e-08_r8, &
9238  -2.9395606619289e-08_r8, -2.9781121126576e-08_r8, -3.0005377359089e-08_r8, &
9239  -3.025851087573e-08_r8, -3.0586130154783e-08_r8, -3.1108871289784e-08_r8, &
9240  -3.2071741714428e-08_r8, -3.2674682289028e-08_r8, -3.28967352151e-08_r8, &
9241  -3.316870167644e-08_r8, -3.3335299578263e-08_r8, -3.3495144910851e-08_r8, &
9242  -3.3609404523414e-08_r8, -3.3835715828714e-08_r8, -3.3970832417051e-08_r8, &
9243  -3.4230992488201e-08_r8, -3.4352344077047e-08_r8, -3.4595401187828e-08_r8, &
9244  -3.472551793985e-08_r8, -3.4921901316178e-08_r8, -3.5083679343379e-08_r8, &
9245  -3.5611106200764e-08_r8, -3.6156703344197e-08_r8, -3.6658113896041e-08_r8, &
9246  -3.7196020963051e-08_r8, -3.7649218713202e-08_r8, -3.836968487146e-08_r8, &
9247  -3.8788774009587e-08_r8, -3.9222780248725e-08_r8, -3.9812133756398e-08_r8, &
9248  -2.5807819052732e-08_r8, -2.5465879370766e-08_r8, -2.5511252627469e-08_r8, &
9249  -2.7828682292577e-08_r8, -2.9126878878894e-08_r8, -2.9241661650433e-08_r8, &
9250  -2.9532072768117e-08_r8, -2.9714773779124e-08_r8, -2.9944505460878e-08_r8, &
9251  -3.0160664499997e-08_r8, -3.0359973320094e-08_r8, -3.0646456996855e-08_r8, &
9252  -3.1818877705412e-08_r8, -3.2636691107463e-08_r8, -3.2882726705288e-08_r8, &
9253  -3.3052991989861e-08_r8, -3.3419145131527e-08_r8, -3.3443943530347e-08_r8, &
9254  -3.3648401114326e-08_r8, -3.3805937864492e-08_r8, -3.3953640612894e-08_r8, &
9255  -3.4128763538718e-08_r8, -3.4395367631115e-08_r8, -3.4569116684515e-08_r8, &
9256  -3.4726483949739e-08_r8, -3.4892999544742e-08_r8, -3.5095278349419e-08_r8, &
9257  -3.5638435714768e-08_r8, -3.6318417913548e-08_r8, -3.6594220983738e-08_r8, &
9258  -3.7119512529706e-08_r8, -3.7657587836396e-08_r8, -3.8220460139598e-08_r8, &
9259  -3.8788668619502e-08_r8, -3.9300539860487e-08_r8, -3.9770742723537e-08_r8, &
9260  -2.6904234200947e-08_r8, -2.6826059443227e-08_r8, -2.6847722990252e-08_r8, &
9261  -2.6938073752089e-08_r8, -2.7816464223312e-08_r8, -2.9161481706298e-08_r8, &
9262  -2.9734495937717e-08_r8, -3.0211296467129e-08_r8, -3.0747631260709e-08_r8, &
9263  -3.136000128856e-08_r8, -3.1784343140577e-08_r8, -3.2144750995142e-08_r8, &
9264  -3.2655850880412e-08_r8, -3.2916967075237e-08_r8, -3.3168519559818e-08_r8, &
9265  -3.3176500951068e-08_r8, -3.3316476635669e-08_r8, -3.3526743960875e-08_r8, &
9266  -3.3641614923904e-08_r8, -3.3802923916291e-08_r8, -3.3977623341733e-08_r8, &
9267  -3.4172818081112e-08_r8, -3.43690825795e-08_r8, -3.4539479565508e-08_r8, &
9268  -3.4695067801268e-08_r8, -3.497375285967e-08_r8, -3.515197770697e-08_r8, &
9269  -3.5647292459274e-08_r8, -3.6173049938889e-08_r8, -3.6652756669472e-08_r8, &
9270  -3.7173752863471e-08_r8, -3.7715106419719e-08_r8, -3.8278215907974e-08_r8, &
9271  -3.8716790617798e-08_r8, -3.930867389774e-08_r8, -3.9734034883564e-08_r8 &
9272  /) ) /
9273 
9274 type(gsw_result_ice) :: dct_dp_frazil
9275 
9276 data dct_dp_frazil / gsw_result_ice( &
9277  "dCT_dP_frazil", 8.8383e-20_r8, (/ &
9278  -7.4644507428595e-08_r8, -7.46855990897e-08_r8, -7.4723912435891e-08_r8, &
9279  -7.4762759990151e-08_r8, -7.4798990694184e-08_r8, -7.4830308594178e-08_r8, &
9280  -7.4942677200055e-08_r8, -7.5037998351085e-08_r8, -7.5133489252963e-08_r8, &
9281  -7.5226679186584e-08_r8, -7.5318490470657e-08_r8, -7.5409031932637e-08_r8, &
9282  -7.5578580666126e-08_r8, -7.5748593291098e-08_r8, -7.5930504859633e-08_r8, &
9283  -7.6108599208609e-08_r8, -7.6480616996472e-08_r8, -7.6850975180642e-08_r8, &
9284  -7.7222859854078e-08_r8, -7.7586949004372e-08_r8, -7.7955304543302e-08_r8, &
9285  -7.8315249187964e-08_r8, -7.8682277884771e-08_r8, -7.904478571986e-08_r8, &
9286  -7.9409208378652e-08_r8, -7.9772304874094e-08_r8, -8.0132712258166e-08_r8, &
9287  -8.1027415002431e-08_r8, -8.1914499556407e-08_r8, -8.2797820113947e-08_r8, &
9288  -8.3676325536295e-08_r8, -8.4553761152164e-08_r8, -8.5412853471894e-08_r8, &
9289  -8.6280444709206e-08_r8, -8.714484844476e-08_r8, -8.7994294899661e-08_r8, &
9290  -7.4647595942366e-08_r8, -7.4684135315637e-08_r8, -7.4722420756362e-08_r8, &
9291  -7.4758520550794e-08_r8, -7.4793277163754e-08_r8, -7.4840037460756e-08_r8, &
9292  -7.4945396642755e-08_r8, -7.5042698324978e-08_r8, -7.5134624615087e-08_r8, &
9293  -7.5228176192159e-08_r8, -7.5320619812014e-08_r8, -7.5415007558138e-08_r8, &
9294  -7.558488611753e-08_r8, -7.5749277462734e-08_r8, -7.5929825947846e-08_r8, &
9295  -7.6115434849663e-08_r8, -7.6475756289242e-08_r8, -7.6853740179069e-08_r8, &
9296  -7.7220498617856e-08_r8, -7.7588698322013e-08_r8, -7.7956318860751e-08_r8, &
9297  -7.8321236335469e-08_r8, -7.867975902589e-08_r8, -7.9046323917168e-08_r8, &
9298  -7.9409116073992e-08_r8, -7.9773982350121e-08_r8, -8.0131999293036e-08_r8, &
9299  -8.1025762671284e-08_r8, -8.1904907573783e-08_r8, -8.2801597957876e-08_r8, &
9300  -8.3680862755852e-08_r8, -8.4553267249735e-08_r8, -8.5421720364385e-08_r8, &
9301  -8.6280451204468e-08_r8, -8.714022378903e-08_r8, -8.7996754210773e-08_r8, &
9302  -7.4657799109882e-08_r8, -7.4695467804656e-08_r8, -7.4733245448791e-08_r8, &
9303  -7.4771401291961e-08_r8, -7.4810239711754e-08_r8, -7.4847400168394e-08_r8, &
9304  -7.4945873482097e-08_r8, -7.5039446321628e-08_r8, -7.5130524596509e-08_r8, &
9305  -7.5219686484381e-08_r8, -7.5301822139893e-08_r8, -7.5387667045793e-08_r8, &
9306  -7.555758856739e-08_r8, -7.5741248459891e-08_r8, -7.591759243673e-08_r8, &
9307  -7.6109345239998e-08_r8, -7.6482279193218e-08_r8, -7.6849543211421e-08_r8, &
9308  -7.7221069136609e-08_r8, -7.7588982786332e-08_r8, -7.7955066738248e-08_r8, &
9309  -7.8318793522153e-08_r8, -7.8681441037994e-08_r8, -7.9048174894516e-08_r8, &
9310  -7.9411050729423e-08_r8, -7.9769354815529e-08_r8, -8.0128782610787e-08_r8, &
9311  -8.1025301008398e-08_r8, -8.1913548063689e-08_r8, -8.279814670927e-08_r8, &
9312  -8.3677661019889e-08_r8, -8.4549862546298e-08_r8, -8.5418290891445e-08_r8, &
9313  -8.6284724085875e-08_r8, -8.713974008573e-08_r8, -8.799893847697e-08_r8 &
9314  /) ) /
9315 
9316 type(gsw_result_ice) :: dsa_dct_frazil_poly
9317 
9318 data dsa_dct_frazil_poly / gsw_result_ice( &
9319  "dSA_dCT_frazil_poly", 1.6977e-12_r8, (/ &
9320  0.33459101869473_r8, 0.34043308373712_r8, 0.34092683275722_r8, &
9321  0.34205189686973_r8, 0.36949027117826_r8, 0.38578763143698_r8, &
9322  0.39224117599942_r8, 0.39688054070922_r8, 0.39936092460662_r8, &
9323  0.40223116913083_r8, 0.40609067214562_r8, 0.41253521331922_r8, &
9324  0.42434988522658_r8, 0.43135736766129_r8, 0.43324838789074_r8, &
9325  0.43580803516139_r8, 0.43586644751467_r8, 0.43584584305637_r8, &
9326  0.43522650669586_r8, 0.43610098601281_r8, 0.4357735505124_r8, &
9327  0.43709260989129_r8, 0.43659599003133_r8, 0.4376685944808_r8, &
9328  0.43729860632819_r8, 0.43776993566929_r8, 0.43781986585281_r8, &
9329  0.43949460385268_r8, 0.44139559281456_r8, 0.44274236993499_r8, &
9330  0.44452242611317_r8, 0.44526939021616_r8, 0.44922578840395_r8, &
9331  0.44956601229514_r8, 0.45008712700566_r8, 0.45243999853079_r8, &
9332  0.34572858561692_r8, 0.34098097706906_r8, 0.34141349751703_r8, &
9333  0.37224739276909_r8, 0.38943161515512_r8, 0.3907220799189_r8, &
9334  0.39404783252043_r8, 0.39597156200584_r8, 0.39854471805554_r8, &
9335  0.40092250117145_r8, 0.40307659574125_r8, 0.40637090222468_r8, &
9336  0.42096900752234_r8, 0.43085192463257_r8, 0.43306776898903_r8, &
9337  0.43424867363818_r8, 0.43699053688998_r8, 0.43516393735362_r8, &
9338  0.43574481941949_r8, 0.43570736251272_r8, 0.43554735147327_r8, &
9339  0.43575396559815_r8, 0.43715677417148_r8, 0.43732756626581_r8, &
9340  0.43731127871486_r8, 0.43739844731132_r8, 0.4379685036248_r8, &
9341  0.43984084285077_r8, 0.4434215935227_r8, 0.44195057628698_r8, &
9342  0.44358409074929_r8, 0.44537096604271_r8, 0.44743233905786_r8, &
9343  0.44956475722511_r8, 0.45100332406071_r8, 0.45195700162972_r8, &
9344  0.36036728016511_r8, 0.35913897820777_r8, 0.35924731617119_r8, &
9345  0.3602723577535_r8, 0.37182688796687_r8, 0.38961243064642_r8, &
9346  0.39674625841113_r8, 0.402605555738_r8, 0.40925623577252_r8, &
9347  0.41691226129098_r8, 0.42209282006417_r8, 0.42639300141891_r8, &
9348  0.43219860227694_r8, 0.43459811551691_r8, 0.43690215801303_r8, &
9349  0.4359062377228_r8, 0.43561086151566_r8, 0.43626514940145_r8, &
9350  0.43565372016373_r8, 0.43566692058965_r8, 0.43586199325191_r8, &
9351  0.43633005208392_r8, 0.43681336813781_r8, 0.43694241248032_r8, &
9352  0.43690502416079_r8, 0.43843612197533_r8, 0.43869366214536_r8, &
9353  0.43995265362162_r8, 0.44160026860286_r8, 0.44267592554796_r8, &
9354  0.44424923097801_r8, 0.4460691528311_r8, 0.44812641746992_r8, &
9355  0.44870950486772_r8, 0.45109916807441_r8, 0.45152865929133_r8 &
9356  /) ) /
9357 
9358 type(gsw_result_ice) :: dsa_dp_frazil_poly
9359 
9360 data dsa_dp_frazil_poly / gsw_result_ice( &
9361  "dSA_dP_frazil_poly", 1.4507e-19_r8, (/ &
9362  -2.4990378528585e-08_r8, -2.5440434269897e-08_r8, -2.5490219461352e-08_r8, &
9363  -2.558743810527e-08_r8, -2.7652571913228e-08_r8, -2.8883713565401e-08_r8, &
9364  -2.9410165950428e-08_r8, -2.9795240008683e-08_r8, -3.0019051704916e-08_r8, &
9365  -3.0271757907882e-08_r8, -3.0598952795165e-08_r8, -3.1121267722511e-08_r8, &
9366  -3.2083332841276e-08_r8, -3.2685542756351e-08_r8, -3.2906819063463e-08_r8, &
9367  -3.3178072681947e-08_r8, -3.3343225239014e-08_r8, -3.3501727514703e-08_r8, &
9368  -3.3614728599568e-08_r8, -3.3839888046912e-08_r8, -3.3973924981143e-08_r8, &
9369  -3.4233095129514e-08_r8, -3.4353527103107e-08_r8, -3.4595733581776e-08_r8, &
9370  -3.4725081804091e-08_r8, -3.4920758345753e-08_r8, -3.5081906097053e-08_r8, &
9371  -3.5608014838907e-08_r8, -3.6152655719236e-08_r8, -3.6653447251006e-08_r8, &
9372  -3.7191025393026e-08_r8, -3.764417673018e-08_r8, -3.8364784639154e-08_r8, &
9373  -3.878427390429e-08_r8, -3.9218851576954e-08_r8, -3.9808900044422e-08_r8, &
9374  -2.5823096856645e-08_r8, -2.548087540528e-08_r8, -2.5526094408521e-08_r8, &
9375  -2.7843962396151e-08_r8, -2.9142162577849e-08_r8, -2.9256705941337e-08_r8, &
9376  -2.9546610822564e-08_r8, -2.9728854096892e-08_r8, -2.9958172990265e-08_r8, &
9377  -3.0173905643054e-08_r8, -3.0372799669759e-08_r8, -3.065885981421e-08_r8, &
9378  -3.1830458122107e-08_r8, -3.2647553955835e-08_r8, -3.289282133024e-08_r8, &
9379  -3.306232692437e-08_r8, -3.3427091701788e-08_r8, -3.3450517598341e-08_r8, &
9380  -3.3653732142502e-08_r8, -3.3810106451292e-08_r8, -3.39567317107e-08_r8, &
9381  -3.4130861372082e-08_r8, -3.4396551285643e-08_r8, -3.4569449479432e-08_r8, &
9382  -3.4726047932463e-08_r8, -3.4891858540834e-08_r8, -3.5093504194574e-08_r8, &
9383  -3.5635340847623e-08_r8, -3.631434424314e-08_r8, -3.6589565797129e-08_r8, &
9384  -3.7114531314229e-08_r8, -3.7652544325473e-08_r8, -3.8215586356095e-08_r8, &
9385  -3.8784168565725e-08_r8, -3.9296600389159e-08_r8, -3.9767513754543e-08_r8, &
9386  -2.6919780353864e-08_r8, -2.6841414108684e-08_r8, -2.6862910433864e-08_r8, &
9387  -2.6953108595283e-08_r8, -2.7831486960325e-08_r8, -2.9176464293108e-08_r8, &
9388  -2.9749028003779e-08_r8, -3.0225382642874e-08_r8, -3.0761270396884e-08_r8, &
9389  -3.1373178680821e-08_r8, -3.1797148780562e-08_r8, -3.2157176540751e-08_r8, &
9390  -3.266752940207e-08_r8, -3.292784275236e-08_r8, -3.3178663038772e-08_r8, &
9391  -3.3185862252266e-08_r8, -3.332439221506e-08_r8, -3.3533329416279e-08_r8, &
9392  -3.3646943438772e-08_r8, -3.3807091325525e-08_r8, -3.3980715357962e-08_r8, &
9393  -3.4174917121247e-08_r8, -3.4370265036151e-08_r8, -3.4539812222181e-08_r8, &
9394  -3.4694632674104e-08_r8, -3.4972606134017e-08_r8, -3.5150198256432e-08_r8, &
9395  -3.5644196343586e-08_r8, -3.6168999686957e-08_r8, -3.6648091010328e-08_r8, &
9396  -3.7168761555434e-08_r8, -3.7710052297117e-08_r8, -3.8273331943447e-08_r8, &
9397  -3.8712302173085e-08_r8, -3.9304733294069e-08_r8, -3.9730810052296e-08_r8 &
9398  /) ) /
9399 
9400 type(gsw_result_ice) :: dct_dp_frazil_poly
9401 
9402 data dct_dp_frazil_poly / gsw_result_ice( &
9403  "dCT_dP_frazil_poly", 8.7258e-20_r8, (/ &
9404  -7.4689328560207e-08_r8, -7.4729617905005e-08_r8, -7.4767419317518e-08_r8, &
9405  -7.4805719071966e-08_r8, -7.4839783534886e-08_r8, -7.4869464989882e-08_r8, &
9406  -7.4979802606119e-08_r8, -7.5073572404027e-08_r8, -7.5167723869043e-08_r8, &
9407  -7.5259602514881e-08_r8, -7.5350050848232e-08_r8, -7.5439057607017e-08_r8, &
9408  -7.5605847811519e-08_r8, -7.5773697650196e-08_r8, -7.5953702271506e-08_r8, &
9409  -7.613001598206e-08_r8, -7.6498719800843e-08_r8, -7.6866002162076e-08_r8, &
9410  -7.7235021494355e-08_r8, -7.7596449291032e-08_r8, -7.7962338331904e-08_r8, &
9411  -7.832000439913e-08_r8, -7.8684935014272e-08_r8, -7.9045501591944e-08_r8, &
9412  -7.9408169387191e-08_r8, -7.9769658673257e-08_r8, -8.0128630135863e-08_r8, &
9413  -8.1020368684307e-08_r8, -8.1905339128351e-08_r8, -8.2787304175083e-08_r8, &
9414  -8.3665127355255e-08_r8, -8.4542475987188e-08_r8, -8.5402008587841e-08_r8, &
9415  -8.6270476067102e-08_r8, -8.7136132592526e-08_r8, -8.7987136799782e-08_r8, &
9416  -7.4691818758829e-08_r8, -7.4728143558925e-08_r8, -7.4765920486925e-08_r8, &
9417  -7.4799616967157e-08_r8, -7.483255453269e-08_r8, -7.4878558046705e-08_r8, &
9418  -7.4982295001031e-08_r8, -7.5078255484553e-08_r8, -7.5168912378085e-08_r8, &
9419  -7.5261192761417e-08_r8, -7.535242678604e-08_r8, -7.544550962278e-08_r8, &
9420  -7.5612355193197e-08_r8, -7.5774418284604e-08_r8, -7.5953057894442e-08_r8, &
9421  -7.6136851835079e-08_r8, -7.6493857143188e-08_r8, -7.6868772264918e-08_r8, &
9422  -7.7232661508947e-08_r8, -7.7598198608143e-08_r8, -7.7963352539831e-08_r8, &
9423  -7.8325991423238e-08_r8, -7.8682416281511e-08_r8, -7.9047039670077e-08_r8, &
9424  -7.9408077547218e-08_r8, -7.977133607884e-08_r8, -8.0127917656466e-08_r8, &
9425  -8.1018717172005e-08_r8, -8.1895750621086e-08_r8, -8.2791080632894e-08_r8, &
9426  -8.3669662840108e-08_r8, -8.4541982294064e-08_r8, -8.5410872259621e-08_r8, &
9427  -8.6270482599918e-08_r8, -8.7131509442863e-08_r8, -8.7989595495024e-08_r8, &
9428  -7.4700956039986e-08_r8, -7.4738237109855e-08_r8, -7.4775535472791e-08_r8, &
9429  -7.4813146263428e-08_r8, -7.4850657284378e-08_r8, -7.4885866050783e-08_r8, &
9430  -7.498250424066e-08_r8, -7.5074430077026e-08_r8, -7.516384042095e-08_r8, &
9431  -7.5251273694069e-08_r8, -7.5332124284245e-08_r8, -7.5416755044621e-08_r8, &
9432  -7.5584532735573e-08_r8, -7.5766188523841e-08_r8, -7.5940716772067e-08_r8, &
9433  -7.6130734961791e-08_r8, -7.6500370305531e-08_r8, -7.6864561522474e-08_r8, &
9434  -7.7233228781167e-08_r8, -7.759848115108e-08_r8, -7.7962097829261e-08_r8, &
9435  -7.8323546494281e-08_r8, -7.8684096099614e-08_r8, -7.9048888905324e-08_r8, &
9436  -7.9410010770065e-08_r8, -7.9766708035943e-08_r8, -8.0124700422011e-08_r8, &
9437  -8.1018255146705e-08_r8, -8.1904387878633e-08_r8, -8.2787630623833e-08_r8, &
9438  -8.3666462345039e-08_r8, -8.4538578957499e-08_r8, -8.5407444085834e-08_r8, &
9439  -8.6274754051615e-08_r8, -8.7131025893591e-08_r8, -8.7991779114648e-08_r8 &
9440  /) ) /
9441 
9442 type(gsw_result_ice) :: frazil_properties_potential_sa_final
9443 
9444 data frazil_properties_potential_sa_final / gsw_result_ice( &
9445  "frazil_properties_potential_SA_final", 3.6572e-10_r8, (/ &
9446  27.61945299247_r8, 28.077387196801_r8, 28.099512156485_r8, &
9447  28.185691875733_r8, 29.898278492069_r8, 30.833134150415_r8, &
9448  31.958028921858_r8, 32.447867444435_r8, 32.721254612213_r8, &
9449  32.970171732285_r8, 33.2379309253_r8, 33.569688713121_r8, &
9450  33.938651042411_r8, 33.889647893517_r8, 33.826052010675_r8, &
9451  33.80709667939_r8, 33.847575321316_r8, 33.894668947261_r8, &
9452  33.906703230124_r8, 33.935128143202_r8, 33.963484964353_r8, &
9453  33.969313561228_r8, 33.982014878835_r8, 33.983439181673_r8, &
9454  33.970320407264_r8, 33.968655159215_r8, 33.976836678009_r8, &
9455  33.91578433637_r8, 33.873530706025_r8, 33.78580292953_r8, &
9456  33.684270603653_r8, 33.627987708751_r8, 33.460711960454_r8, &
9457  33.382580456432_r8, 33.3433689666_r8, 33.182187426548_r8, &
9458  28.401586077002_r8, 28.036493126233_r8, 28.059573187659_r8, &
9459  29.966923812248_r8, 31.090653891247_r8, 31.616903763202_r8, &
9460  32.243632040477_r8, 32.561718321356_r8, 32.730209095184_r8, &
9461  32.923091554709_r8, 33.069259935139_r8, 33.255177496413_r8, &
9462  33.938857319928_r8, 33.884110242517_r8, 33.834125891016_r8, &
9463  33.816178121049_r8, 33.821260273164_r8, 33.885523323446_r8, &
9464  33.887800135072_r8, 33.934056200405_r8, 33.955179816855_r8, &
9465  33.976665927644_r8, 33.976428633337_r8, 33.98711021115_r8, &
9466  33.987980905124_r8, 33.976371062154_r8, 33.967389875962_r8, &
9467  33.913800055064_r8, 33.828433382605_r8, 33.827056123662_r8, &
9468  33.731846515061_r8, 33.616858440234_r8, 33.506207841115_r8, &
9469  33.389276215025_r8, 33.288342236833_r8, 33.220809512131_r8, &
9470  29.765361384898_r8, 29.666067836646_r8, 29.662614577637_r8, &
9471  29.730212211875_r8, 30.5717315612_r8, 31.873613827174_r8, &
9472  32.484764201743_r8, 32.992748838715_r8, 33.466359100347_r8, &
9473  33.97530221176_r8, 34.008009249927_r8, 33.923533737374_r8, &
9474  33.809643522531_r8, 33.767952639749_r8, 33.717521663391_r8, &
9475  33.765821604864_r8, 33.859148004528_r8, 33.889892438605_r8, &
9476  33.9518743587_r8, 33.98915798774_r8, 33.999236305323_r8, &
9477  33.992270807149_r8, 34.008880486097_r8, 34.00599807019_r8, &
9478  34.013042614934_r8, 33.985686407333_r8, 33.977676076271_r8, &
9479  33.922012277638_r8, 33.85611600569_r8, 33.790358788593_r8, &
9480  33.674376716374_r8, 33.574946173078_r8, 33.470720008763_r8, &
9481  33.412220981719_r8, 33.296687379164_r8, 33.270299588068_r8 &
9482  /) ) /
9483 
9484 type(gsw_result_ice) :: frazil_properties_potential_ct_final
9485 
9486 data frazil_properties_potential_ct_final / gsw_result_ice( &
9487  "frazil_properties_potential_CT_final", 6.104e-10_r8, (/ &
9488  -1.48342974905_r8, -1.51693991538_r8, -1.52580689883_r8, -1.52990473633_r8, &
9489  -1.64330810094_r8, -1.70439844956_r8, -1.78890196017_r8, -1.83630767882_r8, &
9490  -1.87129611568_r8, -1.90491887605_r8, -1.93967981426_r8, -1.97897598197_r8, &
9491  -2.03906622486_r8, -2.07574562386_r8, -2.09988772409_r8, -2.14951535295_r8, &
9492  -2.23083379065_r8, -2.31293000905_r8, -2.39337023097_r8, -2.47515449761_r8, &
9493  -2.55732139648_r8, -2.63855453525_r8, -2.72057233606_r8, -2.80312058941_r8, &
9494  -2.88438808939_r8, -2.96752310087_r8, -3.04465576866_r8, -3.25708538523_r8, &
9495  -3.46683047971_r8, -3.6762331513_r8, -3.88799940215_r8, -4.03093993348_r8, &
9496  -4.31815465645_r8, -4.53824207515_r8, -4.68747973899_r8, -4.98445713924_r8, &
9497  -1.52769508935_r8, -1.50740605354_r8, -1.52354538201_r8, -1.6395917262_r8, &
9498  -1.711514589_r8, -1.74937304115_r8, -1.80535521434_r8, -1.83958441253_r8, &
9499  -1.87181359614_r8, -1.90219488486_r8, -1.92990978559_r8, -1.96073375719_r8, &
9500  -2.0390782218_r8, -2.07542347039_r8, -2.11136482183_r8, -2.15004400411_r8, &
9501  -2.22930036407_r8, -2.31239647262_r8, -2.39226646778_r8, -2.47509184354_r8, &
9502  -2.55683552079_r8, -2.63898503565_r8, -2.72024498763_r8, -2.80333587414_r8, &
9503  -2.88542448927_r8, -2.94724517035_r8, -3.05024437221_r8, -3.25696862961_r8, &
9504  -3.46417391875_r8, -3.58922685117_r8, -3.79346032385_r8, -4.04791414532_r8, &
9505  -4.32084167925_r8, -4.5386376315_r8, -4.76055705633_r8, -4.94069541517_r8, &
9506  -1.60248891337_r8, -1.60206579135_r8, -1.61460733123_r8, -1.62250969605_r8, &
9507  -1.68178960024_r8, -1.76413573452_r8, -1.81926191904_r8, -1.86778764851_r8, &
9508  -1.91442262424_r8, -1.96320353842_r8, -1.98437395379_r8, -1.99952859796_r8, &
9509  -2.03156529057_r8, -2.06866771966_r8, -2.10458129731_r8, -2.14711289154_r8, &
9510  -2.23150820568_r8, -2.31265135506_r8, -2.3960081507_r8, -2.47831285134_r8, &
9511  -2.55941314495_r8, -2.63989878532_r8, -2.7221467379_r8, -2.80444358887_r8, &
9512  -2.88689535327_r8, -2.96852325934_r8, -3.05084881655_r8, -3.25745184482_r8, &
9513  -3.4658045719_r8, -3.67650178925_r8, -3.88741561913_r8, -4.10162885848_r8, &
9514  -4.31874570187_r8, -4.48443651344_r8, -4.76105010931_r8, -4.82557926698_r8 &
9515  /) ) /
9516 
9517 type(gsw_result_ice) :: frazil_properties_potential_w_ih_final
9518 
9519 data frazil_properties_potential_w_ih_final / gsw_result_ice( &
9520  "frazil_properties_potential_w_Ih_final", 7.1653e-12_r8, (/ &
9521  0.000175943910977_r8, 0.000325247308841_r8, 0.000139259685443_r8, 0._r8, &
9522  0.000419409306027_r8, 0.002017432853_r8, 0.000123400442883_r8, &
9523  0.00120454864895_r8, 0.000247167858043_r8, 0.000461262093306_r8, &
9524  2.55353616513e-05_r8, 0.000916004908794_r8, 0.000313964668153_r8, &
9525  0.0047418068119_r8, 0._r8, 0.00546773956985_r8, 0.00382007617351_r8, &
9526  0.00355456374909_r8, 0.000236808358773_r8, 0.00275628293651_r8, &
9527  0.0011132909019_r8, 0.00445331712463_r8, 0.00172006379129_r8, &
9528  0.00402419678809_r8, 0.000853165715189_r8, 0.00100289329179_r8, 0._r8, &
9529  0.000419253358741_r8, 0.0024657100593_r8, 0.00151513113933_r8, &
9530  0.0018655819425_r8, 0._r8, 0.00605804945539_r8, 0.00214686102479_r8, 0._r8, &
9531  0.000550592065164_r8, 0.000144461728278_r8, 0._r8, 1.49048703155e-05_r8, &
9532  9.25432693471e-05_r8, 0.000349344166235_r8, 0.000415720444685_r8, &
9533  0.00037351590573_r8, 0._r8, 0.000982451724083_r8, 0.000343824972539_r8, &
9534  0.00017733137675_r8, 0.000277465589493_r8, 0.00112135355546_r8, &
9535  0.00518367546632_r8, 0.00195200860944_r8, 0.000295163489559_r8, &
9536  0.00679513532731_r8, 0.00134441499541_r8, 0.00159887590039_r8, &
9537  0.00136459927625_r8, 7.65208260592e-05_r8, 8.47442684152e-05_r8, &
9538  0.00347094014688_r8, 0.00297285199158_r8, 0.00149831855054_r8, 0._r8, &
9539  0.000314728197359_r8, 0.00168026569472_r8, 0.0082299044543_r8, 0._r8, &
9540  0._r8, 0._r8, 0.00116059089977_r8, 0.00232267573379_r8, &
9541  0.00153357063855_r8, 0._r8, 0._r8, 0._r8, 0.000129064908525_r8, 0._r8, &
9542  0.000186853854055_r8, 0.000255365373165_r8, 0.000252413737036_r8, &
9543  0.000674273755283_r8, 0.000471321740596_r8, 4.89767349512e-05_r8, &
9544  0.00210864451437_r8, 0.00267661200911_r8, 0.00406741706598_r8, &
9545  0.00185989060658_r8, 0.00464657027347_r8, 0.0026850406453_r8, &
9546  0.00236740200475_r8, 0.00413536531658_r8, 0.00286438450722_r8, &
9547  0.00264579739591_r8, 0.0021596665492_r8, 0.00224522881793_r8, &
9548  0.00295082342363_r8, 0.00195835635638_r8, 0.000626885928573_r8, &
9549  0.00355555619926_r8, 0.00281035898774_r8, 0.00212658964777_r8, &
9550  0.00260870991664_r8, 0.00137727293636_r8, 0.000533324448916_r8, &
9551  0.00110991724646_r8, 0.00249479651339_r8, 0._r8, 0.00211731119253_r8, 0._r8 &
9552  /) ) /
9553 
9554 type(gsw_result_ice) :: frazil_properties_potential_poly_sa_final
9555 
9556 data frazil_properties_potential_poly_sa_final / gsw_result_ice( &
9557  "frazil_properties_potential_poly_SA_final", 3.6578e-10_r8, (/ &
9558  27.619462009144_r8, 28.077395240092_r8, 28.099518740265_r8, 9e90_r8, &
9559  29.898283690558_r8, 30.833138422429_r8, 31.958029861582_r8, &
9560  32.447864928944_r8, 32.721248702259_r8, 32.97016250481_r8, &
9561  33.237918493123_r8, 33.569673037364_r8, 33.9386294611_r8, &
9562  33.889620551202_r8, 9e90_r8, 33.807059234246_r8, 33.847529321824_r8, &
9563  33.894615740874_r8, 33.906644166593_r8, 33.935064268119_r8, &
9564  33.963417505071_r8, 33.969243390678_r8, 33.981943113224_r8, &
9565  33.98336654852_r8, 33.970247817386_r8, 33.968583289137_r8, 9e90_r8, &
9566  33.91571968155_r8, 33.873474659656_r8, 33.785757272285_r8, &
9567  33.684236446719_r8, 9e90_r8, 33.460701558507_r8, 33.382581211615_r8, &
9568  9e90_r8, 33.182206929451_r8, 28.401595974588_r8, 9e90_r8, &
9569  28.059579730041_r8, 29.966930557237_r8, 31.090659801979_r8, &
9570  31.616908402516_r8, 32.243633054773_r8, 9e90_r8, 32.730203175942_r8, &
9571  32.923082322458_r8, 33.069247479255_r8, 33.25516179739_r8, &
9572  33.938835722367_r8, 33.884082889677_r8, 33.834093430906_r8, &
9573  33.816140803161_r8, 33.821214185726_r8, 33.885470171844_r8, &
9574  33.887741021164_r8, 33.933992362797_r8, 33.955112377298_r8, &
9575  33.976595880254_r8, 33.976356816568_r8, 33.987037608102_r8, &
9576  33.987908331074_r8, 9e90_r8, 33.967319395492_r8, 33.913735382299_r8, &
9577  33.828377186532_r8, 9e90_r8, 9e90_r8, 9e90_r8, 33.506197542375_r8, &
9578  33.389277003262_r8, 33.288353107427_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9579  29.662622604441_r8, 9e90_r8, 30.571737196243_r8, 31.87361855776_r8, &
9580  32.484765271401_r8, 32.992746418169_r8, 33.466353267655_r8, &
9581  33.975293057089_r8, 34.007996831074_r8, 33.923518054566_r8, &
9582  33.809621851607_r8, 33.767925339862_r8, 33.717489115504_r8, &
9583  33.765784215388_r8, 33.859102047353_r8, 33.889839213901_r8, &
9584  33.951815253881_r8, 33.989094161206_r8, 33.999168853543_r8, &
9585  33.992200721395_r8, 34.008808725628_r8, 34.005925519296_r8, &
9586  34.012970101682_r8, 33.98561451966_r8, 33.977605574524_r8, &
9587  33.921947620388_r8, 33.856059908809_r8, 33.790313145771_r8, &
9588  33.674342511332_r8, 33.574923909669_r8, 33.470709584706_r8, 9e90_r8, &
9589  33.296698299423_r8, 9e90_r8 &
9590  /) ) /
9591 
9592 type(gsw_result_ice) :: frazil_properties_potential_poly_ct_final
9593 
9594 data frazil_properties_potential_poly_ct_final / gsw_result_ice( &
9595  "frazil_properties_potential_poly_CT_final", 3.3237e-11_r8, (/ &
9596  -1.4834027127773_r8, -1.5169161924119_r8, -1.5257874983377_r8, 9e90_r8, &
9597  -1.6432937054344_r8, -1.7043869362712_r8, -1.7888995253979_r8, &
9598  -1.8363140441232_r8, -1.8713110314647_r8, -1.9049419808812_r8, &
9599  -1.9397107112703_r8, -1.9790145069022_r8, -2.0391187131171_r8, &
9600  -2.0758119733136_r8, 9e90_r8, -2.1496064359662_r8, -2.230945667147_r8, &
9601  -2.3130592343749_r8, -2.3935138314256_r8, -2.4753094410413_r8, &
9602  -2.557484964559_r8, -2.6387243769701_r8, -2.7207461026847_r8, &
9603  -2.8032962616757_r8, -2.8845638508944_r8, -2.9676970624302_r8, 9e90_r8, &
9604  -3.257241960811_r8, -3.4669662396459_r8, -3.6763439596778_r8, &
9605  -3.8880825049006_r8, 9e90_r8, -4.3181803425367_r8, -4.5382403343366_r8, &
9606  9e90_r8, -4.9844092632503_r8, -1.5276662366953_r8, 9e90_r8, &
9607  -1.5235260778831_r8, -1.6395731015876_r8, -1.7114988570637_r8, &
9608  -1.7493608966498_r8, -1.8053526021754_r8, 9e90_r8, -1.8718285034298_r8, &
9609  -1.9022180398996_r8, -1.9299408946819_r8, -1.9607727381913_r8, &
9610  -2.0391307087401_r8, -2.0754898324663_r8, -2.1114439018909_r8, &
9611  -2.1501350633777_r8, -2.2294123502127_r8, -2.312525748803_r8, &
9612  -2.3924101786441_r8, -2.4752467963548_r8, -2.5569991511628_r8, &
9613  -2.6391548261204_r8, -2.720418798658_r8, -2.8035115152502_r8, &
9614  -2.8856000858269_r8, 9e90_r8, -3.0504149488495_r8, -3.2571252254802_r8, &
9615  -3.4643101743347_r8, 9e90_r8, 9e90_r8, 9e90_r8, -4.3208668583143_r8, &
9616  -4.5386358189678_r8, -4.760530490996_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9617  -1.6145849366953_r8, 9e90_r8, -1.6817743489142_r8, -1.7641234564172_r8, &
9618  -1.8192591892992_r8, -1.8677936871773_r8, -1.9144370045146_r8, &
9619  -1.9632257911131_r8, -1.9844040196908_r8, -1.9995666517687_r8, &
9620  -2.0316180116333_r8, -2.0687343646064_r8, -2.1046607147382_r8, &
9621  -2.1472041196441_r8, -2.2316200342102_r8, -2.3127806042112_r8, &
9622  -2.3961514780032_r8, -2.4784674350956_r8, -2.5595764502954_r8, &
9623  -2.6400684494478_r8, -2.7223202768743_r8, -2.8046190636588_r8, &
9624  -2.8870707179455_r8, -2.9686970533908_r8, -3.0510192879771_r8, &
9625  -3.2576083532515_r8, -3.4659405236976_r8, -3.6766125464238_r8, &
9626  -3.88749883286_r8, -4.1016831600569_r8, -4.3187712737818_r8, 9e90_r8, &
9627  -4.7610234582053_r8, 9e90_r8 &
9628  /) ) /
9629 
9630 type(gsw_result_ice) :: frazil_properties_potential_poly_w_ih_final
9631 
9632 data frazil_properties_potential_poly_w_ih_final / gsw_result_ice( &
9633  "frazil_properties_potential_poly_w_Ih_final", 7.1663e-12_r8, (/ &
9634  0.000176270314407_r8, 0.000325533684252_r8, 0.000139493955038_r8, 9e90_r8, &
9635  0.000419583105568_r8, 0.00201757112615_r8, 0.000123429844205_r8, &
9636  0.00120447121825_r8, 0.000246987287503_r8, 0.000460982348892_r8, &
9637  2.51613352381e-05_r8, 0.000915538374681_r8, 0.00031332897557_r8, &
9638  0.0047410038326_r8, 9e90_r8, 0.00546663801282_r8, 0.00381872234438_r8, &
9639  0.00355299956965_r8, 0.000235066825627_r8, 0.00275440585078_r8, &
9640  0.00111130687955_r8, 0.00445126061551_r8, 0.001717955549_r8, &
9641  0.00402206807423_r8, 0.000851030671989_r8, 0.00100077963282_r8, 9e90_r8, &
9642  0.000417347820148_r8, 0.00246405955914_r8, 0.00151378181133_r8, &
9643  0.00186456980105_r8, 9e90_r8, 0.00605774046811_r8, 0.00214688359831_r8, &
9644  9e90_r8, 0.000551179493386_r8, 0.000144810164904_r8, 9e90_r8, &
9645  1.51380272089e-05_r8, 9.27683296179e-05_r8, 0.000349534212591_r8, &
9646  0.000415867118907_r8, 0.000373547351226_r8, 9e90_r8, 0.000982271052213_r8, &
9647  0.000343544650167_r8, 0.000176954782895_r8, 0.000276993642702_r8, &
9648  0.00112071790189_r8, 0.00518287240335_r8, 0.0019510510916_r8, &
9649  0.00029406026277_r8, 0.0067937819085_r8, 0.00134284853804_r8, &
9650  0.00159713428555_r8, 0.00136272061447_r8, 7.45348395273e-05_r8, &
9651  8.26828066367e-05_r8, 0.00346883375573_r8, 0.00297072214399_r8, &
9652  0.00149618645963_r8, 9e90_r8, 0.00031265390097_r8, 0.00167836192043_r8, &
9653  0.00822825691488_r8, 9e90_r8, 9e90_r8, 9e90_r8, 0.00116028388827_r8, &
9654  0.00232269928647_r8, 0.00153389669623_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9655  0.00012933547693_r8, 9e90_r8, 0.000187038141609_r8, 0.000255513752244_r8, &
9656  0.000252446656721_r8, 0.000674200438757_r8, 0.000471147537491_r8, &
9657  4.87072973125e-05_r8, 0.0021082801099_r8, 0.0026761509475_r8, &
9658  0.00406677870392_r8, 0.00185908365405_r8, 0.00464560944716_r8, &
9659  0.00268393630002_r8, 0.00236604791164_r8, 0.00413380129025_r8, &
9660  0.00286264864954_r8, 0.00264392451101_r8, 0.00215768690944_r8, &
9661  0.00224317162854_r8, 0.00294871959469_r8, 0.00195622705652_r8, &
9662  0.00062475533561_r8, 0.00355344848183_r8, 0.0028082898716_r8, &
9663  0.0021246876417_r8, 0.00260705731618_r8, 0.00137592403026_r8, &
9664  0.000532309230885_r8, 0.0011092548861_r8, 0.0024944858522_r8, 9e90_r8, &
9665  0.00211763846635_r8, 9e90_r8 &
9666  /) ) /
9667 
9668 type(gsw_result_ice) :: frazil_properties_sa_final
9669 
9670 data frazil_properties_sa_final / gsw_result_ice( &
9671  "frazil_properties_SA_final", 3.6609e-10_r8, (/ &
9672  27.623623561427_r8, 28.081503352371_r8, 28.103699698138_r8, &
9673  28.187078397573_r8, 29.903781057656_r8, 30.838813040454_r8, &
9674  31.961260688773_r8, 32.45049028041_r8, 32.723392388456_r8, &
9675  32.972028506651_r8, 33.239558438095_r8, 33.571561934475_r8, &
9676  33.941266838836_r8, 33.895213904489_r8, 33.827047902145_r8, &
9677  33.816054436013_r8, 33.857636339322_r8, 33.906117324683_r8, &
9678  33.917492987047_r8, 33.94936565028_r8, 33.977360175801_r8, &
9679  33.988449241788_r8, 33.999437566971_r8, 34.005626095609_r8, &
9680  33.990289420543_r8, 33.990496030268_r8, 33.995654659453_r8, &
9681  33.944374207256_r8, 33.912356277891_r8, 33.831350576225_r8, &
9682  33.741354108431_r8, 33.657381174341_r8, 33.558062940271_r8, &
9683  33.478439546733_r8, 33.408391041751_r8, 33.301828392668_r8, &
9684  28.406225115885_r8, 28.038742283542_r8, 28.064231269498_r8, &
9685  29.972856518092_r8, 31.095980113389_r8, 31.620879572077_r8, &
9686  32.246357204013_r8, 32.562506508951_r8, 32.732216472087_r8, &
9687  32.924817498288_r8, 33.070831789686_r8, 33.256744981076_r8, &
9688  33.941116222712_r8, 33.88975924607_r8, 33.840162035195_r8, &
9689  33.822720985679_r8, 33.833314511974_r8, 33.895542929736_r8, &
9690  33.899908558031_r8, 33.946938069794_r8, 33.968106946188_r8, &
9691  33.990602978779_r8, 33.996064104724_r8, 34.007643762985_r8, &
9692  34.008143935709_r8, 33.987841906881_r8, 33.989563484923_r8, &
9693  33.944845691138_r8, 33.882886551089_r8, 33.82972920738_r8, &
9694  33.740734068714_r8, 33.654320136047_r8, 33.583022494547_r8, &
9695  33.485173091296_r8, 33.395929545557_r8, 33.315330262844_r8, &
9696  29.767857402922_r8, 29.667705873716_r8, 29.666026182853_r8, &
9697  29.732375047205_r8, 30.575159994159_r8, 31.876665844739_r8, &
9698  32.487275755786_r8, 32.994797856219_r8, 33.468082726782_r8, &
9699  33.976639157728_r8, 34.010127176637_r8, 33.926548161231_r8, &
9700  33.814575875397_r8, 33.773569255216_r8, 33.725698626127_r8, &
9701  33.773974433772_r8, 33.868394297609_r8, 33.901990001374_r8, &
9702  33.964035710551_r8, 34.002353574073_r8, 34.013513602051_r8, &
9703  34.008570463524_r8, 34.027268316849_r8, 34.024903212934_r8, &
9704  34.031320932898_r8, 34.011057111349_r8, 34.003868839064_r8, &
9705  33.953616215346_r8, 33.896296968559_r8, 33.835302383735_r8, &
9706  33.728530715664_r8, 33.642029190536_r8, 33.555164066308_r8, &
9707  33.47498991009_r8, 33.405732116443_r8, 33.311631801947_r8 &
9708  /) ) /
9709 
9710 type(gsw_result_ice) :: frazil_properties_ct_final
9711 
9712 data frazil_properties_ct_final / gsw_result_ice( &
9713  "frazil_properties_CT_final", 3.3901e-11_r8, (/ &
9714  -1.4836654117882_r8, -1.5171729634541_r8, -1.5260440368264_r8, &
9715  -1.5383853245131_r8, -1.6436220863971_r8, -1.704723789896_r8, &
9716  -1.7890880281931_r8, -1.836459037731_r8, -1.8714196562076_r8, &
9717  -1.9050263173969_r8, -1.9397741194511_r8, -1.9790847047035_r8, &
9718  -2.0392183583735_r8, -2.0760694347524_r8, -2.1109529606345_r8, &
9719  -2.1500368039915_r8, -2.2314201093313_r8, -2.3135979118844_r8, &
9720  -2.3940002901713_r8, -2.4759866930799_r8, -2.5581331743632_r8, &
9721  -2.6396750067091_r8, -2.7215933360585_r8, -2.8044217728885_r8, &
9722  -2.8855599691111_r8, -2.9688057163698_r8, -3.0519053452526_r8, &
9723  -3.2587677218292_r8, -3.4691179610303_r8, -3.6789190956345_r8, &
9724  -3.8913680041163_r8, -4.1064961942259_r8, -4.3239048207295_r8, &
9725  -4.5439059063534_r8, -4.7676512240786_r8, -4.9915266344812_r8, &
9726  -1.5279580602441_r8, -1.5147521122483_r8, -1.5238091237623_r8, &
9727  -1.6399303155009_r8, -1.7118200195783_r8, -1.7496015580943_r8, &
9728  -1.8055123027487_r8, -1.8429248402648_r8, -1.87192960533_r8, &
9729  -1.9022947359366_r8, -1.9300008010198_r8, -1.9608246142516_r8, &
9730  -2.0392095985636_r8, -2.0757521018859_r8, -2.1117160687879_r8, &
9731  -2.1504248914647_r8, -2.2300027659694_r8, -2.3129809964067_r8, &
9732  -2.392973475991_r8, -2.4758447952963_r8, -2.5575918032615_r8, &
9733  -2.6398011222085_r8, -2.7213956396155_r8, -2.804540107697_r8, &
9734  -2.8866078396099_r8, -2.9686498457182_r8, -3.0515473830429_r8, &
9735  -3.2587954673187_r8, -3.4673816653473_r8, -3.6788234755107_r8, &
9736  -3.8913314105632_r8, -4.1063154302416_r8, -4.3253794153681_r8, &
9737  -4.5443038297605_r8, -4.7669146871769_r8, -4.9923246288862_r8, &
9738  -1.6053609651989_r8, -1.6072732900264_r8, -1.6148017702159_r8, &
9739  -1.6262122901838_r8, -1.6819857778641_r8, -1.7643113432122_r8, &
9740  -1.8194068409377_r8, -1.8679061648379_r8, -1.9145225447265_r8, &
9741  -1.9632812292378_r8, -1.9844970757281_r8, -1.9997038188053_r8, &
9742  -2.0318519992159_r8, -2.0689943072046_r8, -2.1050568889821_r8, &
9743  -2.1475874030287_r8, -2.2320470703563_r8, -2.3133571185537_r8, &
9744  -2.396718438051_r8, -2.4790843159133_r8, -2.5602485705024_r8, &
9745  -2.6408532801906_r8, -2.7232244169555_r8, -2.8055524021454_r8, &
9746  -2.8879681958469_r8, -2.9700132783018_r8, -3.0523880846359_r8, &
9747  -3.2593115971857_r8, -3.4681717549482_r8, -3.679152155709_r8, &
9748  -3.8906112094329_r8, -4.1055896315956_r8, -4.3237335657105_r8, &
9749  -4.5437020513942_r8, -4.7674940656_r8, -4.9921060369551_r8 &
9750  /) ) /
9751 
9752 type(gsw_result_ice) :: frazil_properties_w_ih_final
9753 
9754 data frazil_properties_w_ih_final / gsw_result_ice( &
9755  "frazil_properties_w_Ih_final", 7.0921e-12_r8, (/ &
9756  0.000326895691821_r8, 0.000471778523702_r8, 0.000288242151903_r8, &
9757  4.91899805953e-05_r8, 0.000603341155626_r8, 0.00220120883855_r8, &
9758  0.000224503091641_r8, 0.00128527706379_r8, 0.000312480397419_r8, &
9759  0.000517549740456_r8, 7.44972405921e-05_r8, 0.000971751658908_r8, &
9760  0.000391008791734_r8, 0.00490524044705_r8, 2.9440685256e-05_r8, &
9761  0.00573118774825_r8, 0.00411609755109_r8, 0.00389101287198_r8, &
9762  0.000554850786698_r8, 0.00317450178119_r8, 0.00152120264755_r8, &
9763  0.00501381528594_r8, 0.00223162284182_r8, 0.00467401953699_r8, &
9764  0.00144015619809_r8, 0.0016448070482_r8, 0.000553540787268_r8, &
9765  0.00126115677144_r8, 0.00360776692335_r8, 0.00285940605779_r8, &
9766  0.00355422225727_r8, 0.000873314101238_r8, 0.00894144659719_r8, &
9767  0.00500402209475_r8, 0.00194627975557_r8, 0.00414123854089_r8, &
9768  0.000307748778917_r8, 8.02160555578e-05_r8, 0.000180881709865_r8, &
9769  0.000290460902224_r8, 0.000520567631056_r8, 0.000541401833184_r8, &
9770  0.000457995080444_r8, 2.42053723604e-05_r8, 0.00104371872546_r8, &
9771  0.000396227697537_r8, 0.000224852885073_r8, 0.00032458534642_r8, &
9772  0.00118783250508_r8, 0.00534949903889_r8, 0.00213003262621_r8, &
9773  0.000488552230181_r8, 0.00714899745399_r8, 0.00163962005532_r8, &
9774  0.00195548639309_r8, 0.00174355218133_r8, 0.0004570583744_r8, &
9775  0.000494736114059_r8, 0.00404651612475_r8, 0.00357484925924_r8, &
9776  0.00209031851326_r8, 0.000337498472518_r8, 0.000966888096694_r8, &
9777  0.00259331951854_r8, 0.00982377763358_r8, 7.90158177598e-05_r8, &
9778  0.000263407240492_r8, 0.00111313185532_r8, 0.00344524240953_r8, &
9779  0.00517988476368_r8, 0.00475019965438_r8, 0.00283715484636_r8, &
9780  8.38494349672e-05_r8, 5.52127986226e-05_r8, 0.00024405047743_r8, &
9781  7.27434430008e-05_r8, 0.000298964218948_r8, 0.000351085490227_r8, &
9782  0.000329703076768_r8, 0.000736333111269_r8, 0.000522798070054_r8, &
9783  8.83237840169e-05_r8, 0.00217078661531_r8, 0.0027652256635_r8, &
9784  0.00421268847046_r8, 0.00202588340213_r8, 0.00488789864429_r8, &
9785  0.00292578631907_r8, 0.00263976222669_r8, 0.00449072896713_r8, &
9786  0.00322142444107_r8, 0.00303284923503_r8, 0.00257851367846_r8, &
9787  0.00272343356736_r8, 0.00348961400007_r8, 0.00251289488425_r8, &
9788  0.00116365203236_r8, 0.00429885850151_r8, 0.00357848192838_r8, &
9789  0.00305540762409_r8, 0.00379102615695_r8, 0.00270374831512_r8, &
9790  0.00213805244893_r8, 0.00310172815894_r8, 0.00500509229493_r8, &
9791  0.0018750992469_r8, 0.00537465203624_r8, 0.0012407742174_r8 &
9792  /) ) /
9793 
9794 type(gsw_result_ice) :: melting_seaice_sa_ct_ratio
9795 
9796 data melting_seaice_sa_ct_ratio / gsw_result_ice( &
9797  "melting_seaice_SA_CT_ratio", 3.6147e-11_r8, (/ &
9798  0.29520427930467_r8, 0.30391484541865_r8, 0.31529758880791_r8, &
9799  0.33148841493996_r8, 0.34640517850802_r8, 0.28560011901917_r8, &
9800  0.3734463993028_r8, 0.35560260360796_r8, 0.34337438382702_r8, &
9801  0.30262199640137_r8, 0.3936019706216_r8, 0.39382714333586_r8, &
9802  0.40400928920752_r8, 0.34515521608972_r8, 0.40372149693004_r8, &
9803  0.36864014525686_r8, 0.34584590226561_r8, 0.33805690980863_r8, &
9804  0.40645994672312_r8, 0.40024990536925_r8, 0.39776571070764_r8, &
9805  0.36616939251713_r8, 0.3842158155558_r8, 0.3465297308186_r8, &
9806  0.40979597866953_r8, 0.40025310484344_r8, 0.39640516857942_r8, &
9807  0.41354216793984_r8, 0.33448371236046_r8, 0.36459742035553_r8, &
9808  0.37450223042219_r8, 0.39929525442323_r8, 0.36998726834662_r8, &
9809  0.36965089426858_r8, 0.37649285567863_r8, 0.37330059815788_r8, &
9810  0.30991807537789_r8, 0.33321114261084_r8, 0.31844439067777_r8, &
9811  0.34789641483017_r8, 0.35636160541562_r8, 0.36466760399343_r8, &
9812  0.36256873480412_r8, 0.38061253494976_r8, 0.38421560276062_r8, &
9813  0.30968347655_r8, 0.3516782575858_r8, 0.35687702042368_r8, &
9814  0.40230250416159_r8, 0.36190881156415_r8, 0.38743441079784_r8, &
9815  0.39562891317397_r8, 0.3822695435074_r8, 0.37603290073725_r8, &
9816  0.40458493924064_r8, 0.37770525231405_r8, 0.40234949743851_r8, &
9817  0.39632060624886_r8, 0.33383647093867_r8, 0.32636489750009_r8, &
9818  0.36033626354386_r8, 0.4084245676108_r8, 0.3914383482045_r8, &
9819  0.39945142883991_r8, 0.40356379985606_r8, 0.40661194508561_r8, &
9820  0.40721076064874_r8, 0.39947593403055_r8, 0.35342271085904_r8, &
9821  0.35522421165147_r8, 0.36117801956123_r8, 0.37001093348512_r8, &
9822  0.30752571407503_r8, 0.3321346473196_r8, 0.32345916061384_r8, &
9823  0.3485058308645_r8, 0.30335898529396_r8, 0.38373776471559_r8, &
9824  0.36442855149715_r8, 0.37420098955965_r8, 0.3294406899827_r8, &
9825  0.39854446845702_r8, 0.34237225798597_r8, 0.35509779286107_r8, &
9826  0.40017491466453_r8, 0.3712979884952_r8, 0.40160938044803_r8, &
9827  0.40264006366479_r8, 0.37240988101465_r8, 0.3975565535598_r8, &
9828  0.33967879353742_r8, 0.34234083314024_r8, 0.35823323522291_r8, &
9829  0.40002368543962_r8, 0.34743768692393_r8, 0.37447213242564_r8, &
9830  0.3775118808678_r8, 0.33779012837345_r8, 0.33759944645797_r8, &
9831  0.37642259432303_r8, 0.37245281640892_r8, 0.36148571284822_r8, &
9832  0.40935645292888_r8, 0.4038359241186_r8, 0.39458225686148_r8, &
9833  0.39706605708896_r8, 0.33792875644904_r8, 0.39099525620137_r8 &
9834  /) ) /
9835 
9836 type(gsw_result_ice) :: melting_seaice_sa_ct_ratio_poly
9837 
9838 data melting_seaice_sa_ct_ratio_poly / gsw_result_ice( &
9839  "melting_seaice_SA_CT_ratio_poly", 3.6145e-11_r8, (/ &
9840  0.29520421795749_r8, 0.30391447349777_r8, 0.3152976431775_r8, &
9841  0.33148845968334_r8, 0.34640532367275_r8, 0.2856000291539_r8, &
9842  0.37344647093321_r8, 0.35560329960651_r8, 0.34337435390838_r8, &
9843  0.30262212314888_r8, 0.39360199567_r8, 0.3938278647108_r8, &
9844  0.40400939298952_r8, 0.34515553811677_r8, 0.40372147417414_r8, &
9845  0.36864104658878_r8, 0.34584572618003_r8, 0.33805687933335_r8, &
9846  0.40646004890229_r8, 0.40025145007081_r8, 0.39776585234065_r8, &
9847  0.36616969561884_r8, 0.38421570433842_r8, 0.34652951914304_r8, &
9848  0.40979682399062_r8, 0.40025316211543_r8, 0.39640538379318_r8, &
9849  0.41354301245507_r8, 0.33448705672446_r8, 0.36459858473387_r8, &
9850  0.37450195096535_r8, 0.39929524994921_r8, 0.3699845264477_r8, &
9851  0.36965023381031_r8, 0.37649514011489_r8, 0.37330058375825_r8, &
9852  0.30991821989283_r8, 0.33321114815287_r8, 0.31844449506992_r8, &
9853  0.34789641625134_r8, 0.35636158099783_r8, 0.36466774299251_r8, &
9854  0.36256901023928_r8, 0.3806125364842_r8, 0.38421653151035_r8, &
9855  0.30968342089617_r8, 0.35167826614997_r8, 0.35687693945981_r8, &
9856  0.40230319823458_r8, 0.36190983822216_r8, 0.38743464407019_r8, &
9857  0.39562886914596_r8, 0.38227182378111_r8, 0.37603287878639_r8, &
9858  0.40458586172708_r8, 0.37770521279275_r8, 0.40234943872333_r8, &
9859  0.39632066737164_r8, 0.33383691967153_r8, 0.32636668216618_r8, &
9860  0.36033744911994_r8, 0.40842450753919_r8, 0.39143852095551_r8, &
9861  0.39945155193115_r8, 0.40356896401061_r8, 0.40661190387039_r8, &
9862  0.40721065988994_r8, 0.39947574828575_r8, 0.35342600954461_r8, &
9863  0.35522491805063_r8, 0.3611786954567_r8, 0.37001303442693_r8, &
9864  0.30752561540597_r8, 0.33213470113542_r8, 0.3234591138353_r8, &
9865  0.34850590488522_r8, 0.30335887862368_r8, 0.38373762524392_r8, &
9866  0.36442865583332_r8, 0.37420150272729_r8, 0.32944078019163_r8, &
9867  0.39854444568783_r8, 0.34237235386869_r8, 0.35509792375133_r8, &
9868  0.40017608599464_r8, 0.3712978834661_r8, 0.40161103490556_r8, &
9869  0.4026411021152_r8, 0.37240979357692_r8, 0.3975586344434_r8, &
9870  0.33967915948268_r8, 0.34234130746798_r8, 0.35823341340486_r8, &
9871  0.40002481099603_r8, 0.34743785346123_r8, 0.37447199737149_r8, &
9872  0.37751286234609_r8, 0.33779052379805_r8, 0.33760089024356_r8, &
9873  0.3764223039194_r8, 0.37245236102598_r8, 0.36148755439463_r8, &
9874  0.40935640856272_r8, 0.40383522539265_r8, 0.39458065149826_r8, &
9875  0.39706552414606_r8, 0.33793222636922_r8, 0.39099590196662_r8 &
9876  /) ) /
9877 
9878 type(gsw_result_ice) :: melting_seaice_equilibrium_sa_ct_ratio
9879 
9880 data melting_seaice_equilibrium_sa_ct_ratio / gsw_result_ice( &
9881  "melting_seaice_equilibrium_SA_CT_ratio", 1.6376e-12_r8, (/ &
9882  0.33414334412702_r8, 0.33986838553319_r8, 0.34030594345545_r8, &
9883  0.3414284479325_r8, 0.36618238158968_r8, 0.38026225193919_r8, &
9884  0.38998972217873_r8, 0.39502432853306_r8, 0.3980275064054_r8, &
9885  0.40095820173457_r8, 0.40468101169401_r8, 0.41005306022004_r8, &
9886  0.41908167065177_r8, 0.42228896905614_r8, 0.42395097699308_r8, &
9887  0.42448069098754_r8, 0.42512347385849_r8, 0.42551502986933_r8, &
9888  0.42589857948608_r8, 0.42624721978477_r8, 0.42659796350778_r8, &
9889  0.42695730226314_r8, 0.42731704848123_r8, 0.42768970619346_r8, &
9890  0.42806960773745_r8, 0.42844055939174_r8, 0.42880616452742_r8, &
9891  0.42974138788071_r8, 0.43063440820838_r8, 0.43148559241997_r8, &
9892  0.43230975584646_r8, 0.43312922259166_r8, 0.43395072258414_r8, &
9893  0.43478038281294_r8, 0.43561749257443_r8, 0.43646806869177_r8, &
9894  0.34464228603668_r8, 0.3400415320731_r8, 0.34041946501382_r8, &
9895  0.36820072247108_r8, 0.38395120270228_r8, 0.38733063921174_r8, &
9896  0.39243389439405_r8, 0.39522734734797_r8, 0.39746344438498_r8, &
9897  0.39996071821325_r8, 0.40202059730138_r8, 0.40491834447371_r8, &
9898  0.41693224980679_r8, 0.42188777920574_r8, 0.42355155657738_r8, &
9899  0.42449882944438_r8, 0.42513736073437_r8, 0.42544603454398_r8, &
9900  0.42587627500288_r8, 0.42624749506018_r8, 0.42659929503759_r8, &
9901  0.42694868273172_r8, 0.42732185577497_r8, 0.42768594073799_r8, &
9902  0.42805563500754_r8, 0.42842919668895_r8, 0.42879372146257_r8, &
9903  0.42972265358693_r8, 0.43062288632185_r8, 0.43147887935582_r8, &
9904  0.43230799845564_r8, 0.43313354950927_r8, 0.43395266444436_r8, &
9905  0.43478377509266_r8, 0.43562134315655_r8, 0.43647199189681_r8, &
9906  0.36010168007726_r8, 0.35888834117673_r8, 0.35892635377665_r8, &
9907  0.35989869405081_r8, 0.37092332853148_r8, 0.38795651374652_r8, &
9908  0.39525222990091_r8, 0.40121048554727_r8, 0.40757743843127_r8, &
9909  0.41475983158254_r8, 0.41769769197627_r8, 0.41976476295687_r8, &
9910  0.42243772946506_r8, 0.42407362095144_r8, 0.4247467606191_r8, &
9911  0.42480765299462_r8, 0.42528126881158_r8, 0.42563789365876_r8, &
9912  0.42592862030609_r8, 0.42628144373555_r8, 0.42665102143654_r8, &
9913  0.42699953962202_r8, 0.42737031099592_r8, 0.42772556716471_r8, &
9914  0.42808836656464_r8, 0.4284857045989_r8, 0.42885082746987_r8, &
9915  0.42975425996488_r8, 0.43064426260056_r8, 0.43149243568032_r8, &
9916  0.43232396924991_r8, 0.43314863421959_r8, 0.43395810257978_r8, &
9917  0.4347868367356_r8, 0.4356215064151_r8, 0.43646972355485_r8 &
9918  /) ) /
9919 
9920 type(gsw_result_ice) :: melting_seaice_equilibrium_sa_ct_ratio_poly
9921 
9922 data melting_seaice_equilibrium_sa_ct_ratio_poly / gsw_result_ice( &
9923  "melting_seaice_equilibrium_SA_CT_ratio_poly", 1.6377e-12_r8, (/ &
9924  0.33414329019901_r8, 0.33986833703748_r8, 0.34030590325666_r8, &
9925  0.34142841561703_r8, 0.36618234802077_r8, 0.38026222358012_r8, &
9926  0.38998971464819_r8, 0.39502434147261_r8, 0.39802753953618_r8, &
9927  0.40095825461786_r8, 0.404681083948_r8, 0.41005315239992_r8, &
9928  0.41908180019161_r8, 0.42228913394613_r8, 0.42395117432264_r8, &
9929  0.42448091915166_r8, 0.42512375741251_r8, 0.42551536174075_r8, &
9930  0.42589895318183_r8, 0.42624762926899_r8, 0.42659840323164_r8, &
9931  0.4269577671394_r8, 0.42731753385742_r8, 0.42769020800228_r8, &
9932  0.42807012202073_r8, 0.42844108281486_r8, 0.42880669399371_r8, &
9933  0.42974192195254_r8, 0.43063493622789_r8, 0.43148610925356_r8, &
9934  0.43231026164218_r8, 0.43312972285343_r8, 0.43395122794905_r8, &
9935  0.43478090898665_r8, 0.43561806032078_r8, 0.43646870379768_r8, &
9936  0.34464222644075_r8, 0.34004148348706_r8, 0.34041942475775_r8, &
9937  0.36820067965358_r8, 0.38395116504947_r8, 0.38733060977373_r8, &
9938  0.39243388667239_r8, 0.39522736028036_r8, 0.39746347751792_r8, &
9939  0.3999607710691_r8, 0.40202066939651_r8, 0.40491843613229_r8, &
9940  0.41693237890635_r8, 0.42188794398974_r8, 0.42355175378387_r8, &
9941  0.42449905761484_r8, 0.42513764429448_r8, 0.42544636637805_r8, &
9942  0.42587664868381_r8, 0.42624790454462_r8, 0.42659973476274_r8, &
9943  0.42694914759809_r8, 0.42732234115763_r8, 0.4276864425409_r8, &
9944  0.42805614926553_r8, 0.42842972008849_r8, 0.42879425089952_r8, &
9945  0.42972318759943_r8, 0.43062341429394_r8, 0.43147939615447_r8, &
9946  0.43230850424003_r8, 0.43313404980498_r8, 0.43395316982754_r8, &
9947  0.43478430130414_r8, 0.43562191095311_r8, 0.43647262706207_r8, &
9948  0.36010161356825_r8, 0.35888828400165_r8, 0.35892630534801_r8, &
9949  0.35989865393581_r8, 0.37092329362713_r8, 0.38795648423284_r8, &
9950  0.39525222201894_r8, 0.40121049841548_r8, 0.40757747190176_r8, &
9951  0.41475988563642_r8, 0.41769776579418_r8, 0.41976485668366_r8, &
9952  0.42243785976911_r8, 0.42407378633008_r8, 0.42474695819826_r8, &
9953  0.42480788127348_r8, 0.42528155243479_r8, 0.42563822559684_r8, &
9954  0.42592899402182_r8, 0.42628185324736_r8, 0.42665146121171_r8, &
9955  0.42700000454672_r8, 0.42737079644387_r8, 0.42772606902982_r8, &
9956  0.42808888088189_r8, 0.42848622811575_r8, 0.42885135704155_r8, &
9957  0.42975479407749_r8, 0.43064479066062_r8, 0.43149295254953_r8, &
9958  0.43232447513727_r8, 0.43314913463365_r8, 0.43395860801411_r8, &
9959  0.43478736298117_r8, 0.43562207421379_r8, 0.4364703586858_r8 &
9960  /) ) /
9961 
9962 type(gsw_result_ice) :: melting_seaice_into_seawater_sa_final
9963 
9964 data melting_seaice_into_seawater_sa_final / gsw_result_ice( &
9965  "melting_seaice_into_seawater_SA_final", 9e90_r8, (/ &
9966  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9967  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9968  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9969  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9970  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9971  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9972  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9973  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9974  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9975  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9976  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9977  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9978  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9979  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
9980  /) ) /
9981 
9982 type(gsw_result_ice) :: melting_seaice_into_seawater_ct_final
9983 
9984 data melting_seaice_into_seawater_ct_final / gsw_result_ice( &
9985  "melting_seaice_into_seawater_CT_final", 9e90_r8, (/ &
9986  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9987  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9988  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9989  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9990  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9991  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9992  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9993  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9994  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9995  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9996  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9997  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9998  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, &
9999  9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 &
10000  /) ) /
10001 
10002 type(gsw_result_ice) :: seaice_fraction_to_freeze_seawater_sa_freeze
10003 
10004 data seaice_fraction_to_freeze_seawater_sa_freeze / gsw_result_ice( &
10005  "seaice_fraction_to_freeze_seawater_SA_freeze", 4.3858e-10_r8, (/ &
10006  27.628567831265_r8, 28.086993426582_r8, 28.108080585916_r8, &
10007  28.188232438451_r8, 29.916512316887_r8, 30.965442620278_r8, &
10008  31.967432241299_r8, 32.466815536561_r8, 32.740342958196_r8, &
10009  33.002437281796_r8, 33.241448264367_r8, 33.579164933819_r8, &
10010  33.948111977139_r8, 34.030875223379_r8, 33.827838996929_r8, &
10011  33.922945950632_r8, 34.019867734363_r8, 34.083284233891_r8, &
10012  33.926215414304_r8, 33.978082173882_r8, 34.00870457524_r8, &
10013  34.099105083628_r8, 34.063059896633_r8, 34.162590732728_r8, &
10014  34.00017272695_r8, 34.020785830705_r8, 34.023020266956_r8, &
10015  33.948325001844_r8, 34.117422397738_r8, 33.963379202092_r8, &
10016  33.856739000121_r8, 33.690059373151_r8, 33.711963535772_r8, &
10017  33.632768825902_r8, 33.521824498906_r8, 33.450984816137_r8, &
10018  28.416529039927_r8, 28.039875134523_r8, 28.06981369624_r8, &
10019  29.984346565695_r8, 31.118510850535_r8, 31.635074199184_r8, &
10020  32.257411470381_r8, 32.563404821214_r8, 32.735039184436_r8, &
10021  32.945983528265_r8, 33.082950880737_r8, 33.272458134037_r8, &
10022  33.94963362251_r8, 33.988130073902_r8, 33.889498631779_r8, &
10023  33.843798168669_r8, 33.907956323736_r8, 33.970886152092_r8, &
10024  33.916263238417_r8, 34.020286338772_r8, 33.98284960211_r8, &
10025  34.014505411198_r8, 34.180307150682_r8, 34.206898547446_r8, &
10026  34.122948376632_r8, 33.995411190518_r8, 34.032301432144_r8, &
10027  33.982019782291_r8, 33.915414313224_r8, 33.83301871813_r8, &
10028  33.74918138126_r8, 33.689726383452_r8, 33.774124453746_r8, &
10029  33.690140615001_r8, 33.586042352681_r8, 33.465775612854_r8, &
10030  29.771618732186_r8, 29.669414448861_r8, 29.668972682503_r8, &
10031  29.733410751922_r8, 30.591173380478_r8, 31.877418921344_r8, &
10032  32.497589116741_r8, 33.003235625508_r8, 33.498761123712_r8, &
10033  33.980210855083_r8, 34.0812472801_r8, 34.012948901922_r8, &
10034  33.836144081395_r8, 33.862634588825_r8, 33.7462113837_r8, &
10035  33.791851945864_r8, 33.959733143345_r8, 33.936639764907_r8, &
10036  34.129442694324_r8, 34.15773744447_r8, 34.131933090539_r8, &
10037  34.038916469067_r8, 34.175107904571_r8, 34.11070533622_r8, &
10038  34.099972067659_r8, 34.190449841925_r8, 34.183135543346_r8, &
10039  34.046193948537_r8, 34.006429893195_r8, 33.974025098384_r8, &
10040  33.743526698623_r8, 33.674258822846_r8, 33.620727694079_r8, &
10041  33.525053779096_r8, 33.683335870158_r8, 33.373521548156_r8 &
10042  /) ) /
10043 
10044 type(gsw_result_ice) :: seaice_fraction_to_freeze_seawater_ct_freeze
10045 
10046 data seaice_fraction_to_freeze_seawater_ct_freeze / gsw_result_ice( &
10047  "seaice_fraction_to_freeze_seawater_CT_freeze", 3.7364e-11_r8, (/ &
10048  -1.483944798547_r8, -1.517483805989_r8, -1.5262921282243_r8, &
10049  -1.5384507074382_r8, -1.6443485803816_r8, -1.7119803227179_r8, &
10050  -1.7894433605082_r8, -1.837401174955_r8, -1.8723992566111_r8, &
10051  -1.9067860259633_r8, -1.9398836250367_r8, -1.9795259955232_r8, &
10052  -2.0396164764133_r8, -2.0839640804242_r8, -2.1109989930522_r8, &
10053  -2.1562607098117_r8, -2.2408777549702_r8, -2.3239379574004_r8, &
10054  -2.3945096499064_r8, -2.4776653492258_r8, -2.5599671683504_r8, &
10055  -2.6461560742709_r8, -2.7253223311797_r8, -2.8136305332704_r8, &
10056  -2.8861400049548_r8, -2.9705846852728_r8, -3.0535136569909_r8, &
10057  -3.2590002164791_r8, -3.4812055361384_r8, -3.6867074631475_r8, &
10058  -3.8981792818848_r8, -4.1084260722032_r8, -4.3329992890617_r8, &
10059  -4.5530284820183_r8, -4.7743571695476_r8, -5.0003441706096_r8, &
10060  -1.5285421715064_r8, -1.5148162414023_r8, -1.5241252087464_r8, &
10061  -1.6405860950817_r8, -1.7131121128498_r8, -1.7504174514824_r8, &
10062  -1.8061495295739_r8, -1.8429767049668_r8, -1.8720927355767_r8, &
10063  -1.9035193140282_r8, -1.9307025555821_r8, -1.9617354383351_r8, &
10064  -2.0397049779373_r8, -2.0814760913358_r8, -2.1145873298652_r8, &
10065  -2.1516519529715_r8, -2.2343529405679_r8, -2.317377150004_r8, &
10066  -2.393928478564_r8, -2.4801328014608_r8, -2.5584543494449_r8, &
10067  -2.6412008417982_r8, -2.7321968918842_r8, -2.8162310338484_r8, &
10068  -2.8933474446007_r8, -2.9690943769754_r8, -3.0540591628375_r8, &
10069  -3.2609832192856_r8, -3.4692981455496_r8, -3.6790174748144_r8, &
10070  -3.8918299620485_r8, -4.1084064056424_r8, -4.336674007649_r8, &
10071  -4.5564210635376_r8, -4.778154759845_r8, -5.0012187857771_r8, &
10072  -1.6055753821779_r8, -1.6073706585022_r8, -1.6149697034603_r8, &
10073  -1.6262713417202_r8, -1.6829021133715_r8, -1.7643546745011_r8, &
10074  -1.8200019594113_r8, -1.8683942209636_r8, -1.9163011264564_r8, &
10075  -1.9634887850993_r8, -1.988632159351_r8, -2.0047270255466_r8, &
10076  -2.0331057896462_r8, -2.0741741928631_r8, -2.106250031787_r8, &
10077  -2.1486279679446_r8, -2.2373713251811_r8, -2.3153787585364_r8, &
10078  -2.4063826390584_r8, -2.4881718154217_r8, -2.5671796903511_r8, &
10079  -2.6426304876358_r8, -2.7318919747569_r8, -2.8105858857958_r8, &
10080  -2.8919983684275_r8, -2.9805533269143_r8, -3.0629273603641_r8, &
10081  -3.2647607206391_r8, -3.4746619136662_r8, -3.6873356356849_r8, &
10082  -3.8914962268889_r8, -4.1074929093166_r8, -4.3276072668164_r8, &
10083  -4.5466608004786_r8, -4.783909923726_r8, -4.9957642956297_r8 &
10084  /) ) /
10085 
10086 type(gsw_result_ice) :: seaice_fraction_to_freeze_seawater_w_ih
10087 
10088 data seaice_fraction_to_freeze_seawater_w_ih / gsw_result_ice( &
10089  "seaice_fraction_to_freeze_seawater_w_Ih", 1.1472e-11_r8, (/ &
10090  0.00198165098038_r8, 0.00246001600695_r8, 0.00270372932439_r8, &
10091  0.00270784190064_r8, 0.013310303111_r8, 0.0212621836904_r8, &
10092  0.00856187144409_r8, 0.0069819318337_r8, 0.00499001722768_r8, &
10093  0.00473265830395_r8, 0.00519597175101_r8, 0.00900775010985_r8, &
10094  0.0185667902156_r8, 0.0313483593408_r8, 0.0320334014621_r8, &
10095  0.0387526970273_r8, 0.0368577094459_r8, 0.0355415523068_r8, &
10096  0.032246155073_r8, 0.0340486085618_r8, 0.0318242025642_r8, &
10097  0.0350820649081_r8, 0.0322566497071_r8, 0.0346498532034_r8, &
10098  0.0321697815669_r8, 0.0325493122931_r8, 0.0315218218732_r8, &
10099  0.0341208928542_r8, 0.037625792068_r8, 0.0394056510669_r8, &
10100  0.042732095914_r8, 0.0426085965619_r8, 0.0531665355467_r8, &
10101  0.0516840572537_r8, 0.0507608027251_r8, 0.0558659615182_r8, &
10102  0.00466865413377_r8, 0.00409366185499_r8, 0.00432723137293_r8, &
10103  0.0161472183229_r8, 0.0208936958786_r8, 0.0129229994396_r8, &
10104  0.00611191082987_r8, 0.00280529036889_r8, 0.00405085373912_r8, &
10105  0.00358613615622_r8, 0.00392011176617_r8, 0.00535333690131_r8, &
10106  0.0143572715377_r8, 0.0310264971881_r8, 0.0327910832015_r8, &
10107  0.0335371619798_r8, 0.0405090129008_r8, 0.033509189773_r8, &
10108  0.0340525943599_r8, 0.0327330558318_r8, 0.031059861086_r8, &
10109  0.0306211383087_r8, 0.0341230351149_r8, 0.0335188506903_r8, &
10110  0.0322609931777_r8, 0.0313334001111_r8, 0.0320679115062_r8, &
10111  0.0353538273857_r8, 0.0444298114607_r8, 0.0367594038237_r8, &
10112  0.0395855991505_r8, 0.042934764779_r8, 0.047214756815_r8, &
10113  0.051668419278_r8, 0.0537879915104_r8, 0.0542552704359_r8, &
10114  0.00109000156972_r8, 0.00103195548258_r8, 0.00132220777665_r8, &
10115  0.00153874098512_r8, 0.00361835788951_r8, 0.00633691192294_r8, &
10116  0.00562046111004_r8, 0.00517514343924_r8, 0.00613289888099_r8, &
10117  0.00772476210619_r8, 0.0155572106054_r8, 0.0231861935342_r8, &
10118  0.0336116206384_r8, 0.0360580879847_r8, 0.0413968457385_r8, &
10119  0.0379730382698_r8, 0.0354775402676_r8, 0.0365129365605_r8, &
10120  0.0335703356223_r8, 0.0324810850885_r8, 0.0319390852946_r8, &
10121  0.0323837317982_r8, 0.0328043345359_r8, 0.0320864417522_r8, &
10122  0.0307757168355_r8, 0.0346372177712_r8, 0.0343179851991_r8, &
10123  0.0356217515117_r8, 0.0382796677036_r8, 0.0391586184315_r8, &
10124  0.0417670576392_r8, 0.0452205818466_r8, 0.049505477746_r8, &
10125  0.0488148325977_r8, 0.0541045099485_r8, 0.0528418448232_r8 &
10126  /) ) /
10127 
10128 
10129 end module
10130 !--------------------------------------------------------------------------
gsw_mod_check_data::beta_const_t_exact
type(gsw_result) beta_const_t_exact
Definition: gsw_mod_check_data.f90:6677
gsw_mod_check_data::lat_cast
real(r8), dimension(cast_n) lat_cast
Definition: gsw_mod_check_data.f90:330
gsw_mod_check_data::cast_m
integer, parameter cast_m
Definition: gsw_mod_check_data.f90:16
gsw_mod_check_data::sk
real(r8), dimension(cast_m, cast_n) sk
Definition: gsw_mod_check_data.f90:168
gsw_mod_check_data::ct_sa
type(gsw_result) ct_sa
Definition: gsw_mod_check_data.f90:4425
gsw_mod_check_data::frazil_properties_potential_poly_sa_final
type(gsw_result_ice) frazil_properties_potential_poly_sa_final
Definition: gsw_mod_check_data.f90:9554
gsw_mod_check_data::eta_ct_ct
type(gsw_result) eta_ct_ct
Definition: gsw_mod_check_data.f90:4820
gsw_mod_check_data::p_deep
real(r8), dimension(cast_m, cast_n) p_deep
Definition: gsw_mod_check_data.f90:309
gsw_mod_check_data::n2min_dct
type(gsw_result_mpres) n2min_dct
Definition: gsw_mod_check_data.f90:7682
gsw_mod_check_data::p_mid_n2
type(gsw_result_mpres) p_mid_n2
Definition: gsw_mod_check_data.f90:7302
gsw_mod_check_data::v_vab
type(gsw_result) v_vab
Definition: gsw_mod_check_data.f90:1961
gsw_mod_check_data::melting_seaice_equilibrium_sa_ct_ratio_poly
type(gsw_result_ice) melting_seaice_equilibrium_sa_ct_ratio_poly
Definition: gsw_mod_check_data.f90:9920
gsw_mod_check_data::pot_enthalpy_ice_freezing_sa_poly
type(gsw_result) pot_enthalpy_ice_freezing_sa_poly
Definition: gsw_mod_check_data.f90:6011
gsw_mod_check_data::sp
real(r8), dimension(cast_m, cast_n) sp
Definition: gsw_mod_check_data.f90:196
gsw_mod_check_data::kappa_ice
type(gsw_result_ice) kappa_ice
Definition: gsw_mod_check_data.f90:8163
gsw_mod_check_data::p_mid_tursr
type(gsw_result_mpres) p_mid_tursr
Definition: gsw_mod_check_data.f90:7404
gsw_mod_check_data::pot_enthalpy_ice_freezing
type(gsw_result) pot_enthalpy_ice_freezing
Definition: gsw_mod_check_data.f90:5260
gsw_mod_check_data::z_from_p
type(gsw_result) z_from_p
Definition: gsw_mod_check_data.f90:1492
gsw_mod_check_data::h_sa_ct_exact
type(gsw_result) h_sa_ct_exact
Definition: gsw_mod_check_data.f90:6335
gsw_mod_check_data::p_mid_ipvfn2
type(gsw_result_mpres) p_mid_ipvfn2
Definition: gsw_mod_check_data.f90:7782
gsw_mod_check_data
Definition: gsw_mod_check_data.f90:7
gsw_mod_check_data::seaice_fraction_to_freeze_seawater_ct_freeze
type(gsw_result_ice) seaice_fraction_to_freeze_seawater_ct_freeze
Definition: gsw_mod_check_data.f90:10044
gsw_mod_check_data::ctfreezing_sa
type(gsw_result) ctfreezing_sa
Definition: gsw_mod_check_data.f90:5523
gsw_mod_check_data::pt_from_t_ice
type(gsw_result_ice) pt_from_t_ice
Definition: gsw_mod_check_data.f90:8581
gsw_mod_check_data::h_sa_ct
type(gsw_result) h_sa_ct
Definition: gsw_mod_check_data.f90:4339
gsw_mod_check_data::eta_ct
type(gsw_result) eta_ct
Definition: gsw_mod_check_data.f90:4689
gsw_mod_check_data::melting_ice_equilibrium_sa_ct_ratio
type(gsw_result_ice) melting_ice_equilibrium_sa_ct_ratio
Definition: gsw_mod_check_data.f90:8905
gsw_mod_check_data::rho_h
type(gsw_result) rho_h
Definition: gsw_mod_check_data.f90:3295
gsw_mod_check_data::ct_from_enthalpy
type(gsw_result) ct_from_enthalpy
Definition: gsw_mod_check_data.f90:4128
gsw_mod_check_data::specvol_ice
type(gsw_result_ice) specvol_ice
Definition: gsw_mod_check_data.f90:8037
gsw_mod_check_data::geo_strf_dyn_height
type(gsw_result) geo_strf_dyn_height
Definition: gsw_mod_check_data.f90:7857
gsw_mod_check_data::dsa_dct_frazil_poly
type(gsw_result_ice) dsa_dct_frazil_poly
Definition: gsw_mod_check_data.f90:9316
gsw_mod_check_data::t_deriv_chem_potential_water_t_exact
type(gsw_result) t_deriv_chem_potential_water_t_exact
Definition: gsw_mod_check_data.f90:7087
gsw_mod_check_data::seaice_fraction_to_freeze_seawater_w_ih
type(gsw_result_ice) seaice_fraction_to_freeze_seawater_w_ih
Definition: gsw_mod_check_data.f90:10086
gsw_mod_check_data::cast_mpres_m
integer, parameter cast_mpres_m
Definition: gsw_mod_check_data.f90:14
gsw_mod_check_data::rho_ct_ct
type(gsw_result) rho_ct_ct
Definition: gsw_mod_check_data.f90:3119
gsw_mod_check_data::frazil_properties_potential_poly_w_ih_final
type(gsw_result_ice) frazil_properties_potential_poly_w_ih_final
Definition: gsw_mod_check_data.f90:9630
gsw_mod_check_data::entropy_from_t
type(gsw_result) entropy_from_t
Definition: gsw_mod_check_data.f90:1683
gsw_mod_check_data::tfreezing_sa_poly
type(gsw_result) tfreezing_sa_poly
Definition: gsw_mod_check_data.f90:5803
gsw_mod_check_data::geo_strf_dyn_height_pc
type(gsw_result) geo_strf_dyn_height_pc
Definition: gsw_mod_check_data.f90:7893
gsw_mod_check_data::cabbeling
type(gsw_result) cabbeling
Definition: gsw_mod_check_data.f90:3778
gsw_mod_check_data::seaice_fraction_to_freeze_seawater_sa_freeze
type(gsw_result_ice) seaice_fraction_to_freeze_seawater_sa_freeze
Definition: gsw_mod_check_data.f90:10002
gsw_mod_check_data::beta_vab
type(gsw_result) beta_vab
Definition: gsw_mod_check_data.f90:2063
gsw_mod_check_data::cast_mpres_n
integer, parameter cast_mpres_n
Definition: gsw_mod_check_data.f90:15
gsw_mod_check_data::ice_fraction_to_freeze_seawater_sa_freeze
type(gsw_result_ice) ice_fraction_to_freeze_seawater_sa_freeze
Definition: gsw_mod_check_data.f90:9064
gsw_mod_check_data::rho_ct_p
type(gsw_result) rho_ct_p
Definition: gsw_mod_check_data.f90:3207
gsw_mod_check_data::pot_enthalpy_from_pt_ice
type(gsw_result_ice) pot_enthalpy_from_pt_ice
Definition: gsw_mod_check_data.f90:8647
gsw_mod_check_data::frazil_properties_sa_final
type(gsw_result_ice) frazil_properties_sa_final
Definition: gsw_mod_check_data.f90:9668
gsw_mod_check_data::h_sa
type(gsw_result) h_sa
Definition: gsw_mod_check_data.f90:4215
gsw_mod_check_data::pressure_freezing_ct
type(gsw_result_ice) pressure_freezing_ct
Definition: gsw_mod_check_data.f90:8797
gsw_mod_check_data::melting_ice_sa_ct_ratio_poly
type(gsw_result_ice) melting_ice_sa_ct_ratio_poly
Definition: gsw_mod_check_data.f90:8863
gsw_mod_check_data::long_cast
real(r8), dimension(cast_n) long_cast
Definition: gsw_mod_check_data.f90:334
gsw_mod_check_data::rho_t_exact
type(gsw_result) rho_t_exact
Definition: gsw_mod_check_data.f90:6545
gsw_mod_check_data::rho
type(gsw_result) rho
Definition: gsw_mod_check_data.f90:2723
gsw_mod_check_data::ice_fraction_to_freeze_seawater_ct_freeze
type(gsw_result_ice) ice_fraction_to_freeze_seawater_ct_freeze
Definition: gsw_mod_check_data.f90:9106
gsw_mod_check_data::h_sa_ct_ct_exact
type(gsw_result) h_sa_ct_ct_exact
Definition: gsw_mod_check_data.f90:6459
gsw_mod_check_data::sa_freezing_from_ct_poly
type(gsw_result) sa_freezing_from_ct_poly
Definition: gsw_mod_check_data.f90:5392
gsw_mod_check_data::sound_speed_t_exact
type(gsw_result) sound_speed_t_exact
Definition: gsw_mod_check_data.f90:6779
gsw_mod_check_data::pt_from_ct
type(gsw_result) pt_from_ct
Definition: gsw_mod_check_data.f90:1293
gsw_mod_check_data::frazil_properties_potential_poly_ct_final
type(gsw_result_ice) frazil_properties_potential_poly_ct_final
Definition: gsw_mod_check_data.f90:9592
gsw_mod_check_data::ct_freezing_poly
type(gsw_result) ct_freezing_poly
Definition: gsw_mod_check_data.f90:5128
gsw_mod_check_data::ct_from_pt
type(gsw_result) ct_from_pt
Definition: gsw_mod_check_data.f90:1362
gsw_mod_check_data::pt_from_pot_enthalpy_ice
type(gsw_result_ice) pt_from_pot_enthalpy_ice
Definition: gsw_mod_check_data.f90:8689
gsw_mod_check_data::sp_from_c
type(gsw_result) sp_from_c
Definition: gsw_mod_check_data.f90:820
gsw_mod_check_data::enthalpy_ice
type(gsw_result_ice) enthalpy_ice
Definition: gsw_mod_check_data.f90:8305
gsw_mod_check_data::deltasa_atlas
type(gsw_result) deltasa_atlas
Definition: gsw_mod_check_data.f90:7175
gsw_mod_check_data::alpha_wrt_t_ice
type(gsw_result_ice) alpha_wrt_t_ice
Definition: gsw_mod_check_data.f90:7995
gsw_mod_check_data::eta_sa
type(gsw_result) eta_sa
Definition: gsw_mod_check_data.f90:4645
gsw_mod_check_data::ct_sa_pt
type(gsw_result) ct_sa_pt
Definition: gsw_mod_check_data.f90:4557
gsw_mod_check_data::gsw_result_ice
Definition: gsw_mod_check_data.f90:27
gsw_mod_check_data::tfreezing_p_poly
type(gsw_result) tfreezing_p_poly
Definition: gsw_mod_check_data.f90:5847
gsw_mod_check_data::pot_enthalpy_ice_freezing_p_poly
type(gsw_result) pot_enthalpy_ice_freezing_p_poly
Definition: gsw_mod_check_data.f90:6055
gsw_mod_check_data::enthalpy_ct_exact
type(gsw_result) enthalpy_ct_exact
Definition: gsw_mod_check_data.f90:6291
gsw_mod_check_data::melting_seaice_sa_ct_ratio
type(gsw_result_ice) melting_seaice_sa_ct_ratio
Definition: gsw_mod_check_data.f90:9794
gsw_mod_check_data::rho_sa_wrt_h
type(gsw_result) rho_sa_wrt_h
Definition: gsw_mod_check_data.f90:3251
gsw_mod_check_data::frazil_properties_potential_w_ih_final
type(gsw_result_ice) frazil_properties_potential_w_ih_final
Definition: gsw_mod_check_data.f90:9517
gsw_mod_check_data::melting_seaice_sa_ct_ratio_poly
type(gsw_result_ice) melting_seaice_sa_ct_ratio_poly
Definition: gsw_mod_check_data.f90:9836
gsw_mod_check_data::sa_from_rho
type(gsw_result) sa_from_rho
Definition: gsw_mod_check_data.f90:3866
gsw_mod_check_data::dsa_dp_frazil_poly
type(gsw_result_ice) dsa_dp_frazil_poly
Definition: gsw_mod_check_data.f90:9358
gsw_mod_check_data::pt_ct
type(gsw_result) pt_ct
Definition: gsw_mod_check_data.f90:4908
gsw_mod_check_data::n2min_pmid
type(gsw_result_mpres) n2min_pmid
Definition: gsw_mod_check_data.f90:7471
gsw_mod_check_data::pt_sa_sa
type(gsw_result) pt_sa_sa
Definition: gsw_mod_check_data.f90:4952
gsw_mod_check_data::v_sa_sa_wrt_h
type(gsw_result) v_sa_sa_wrt_h
Definition: gsw_mod_check_data.f90:2547
gsw_mod_check_data::frazil_properties_w_ih_final
type(gsw_result_ice) frazil_properties_w_ih_final
Definition: gsw_mod_check_data.f90:9752
gsw_mod_check_data::dct_dp_frazil_poly
type(gsw_result_ice) dct_dp_frazil_poly
Definition: gsw_mod_check_data.f90:9400
gsw_mod_check_data::p
real(r8), dimension(cast_m, cast_n) p
Definition: gsw_mod_check_data.f90:247
gsw_mod_check_data::p_from_z
type(gsw_result) p_from_z
Definition: gsw_mod_check_data.f90:1528
gsw_mod_check_data::entropy_ice
type(gsw_result_ice) entropy_ice
Definition: gsw_mod_check_data.f90:8347
gsw_mod_check_data::entropy_from_pt
type(gsw_result) entropy_from_pt
Definition: gsw_mod_check_data.f90:1552
gsw_mod_check_data::gsw_result_cast
Definition: gsw_mod_check_data.f90:39
gsw_mod_check_data::deltasa_from_sp
type(gsw_result) deltasa_from_sp
Definition: gsw_mod_check_data.f90:1025
gsw_mod_check_data::pressure_coefficient_ice
type(gsw_result_ice) pressure_coefficient_ice
Definition: gsw_mod_check_data.f90:8079
gsw_mod_check_data::h_sa_sa
type(gsw_result) h_sa_sa
Definition: gsw_mod_check_data.f90:4296
gsw_mod_check_data::chem_potential_water_t_exact
type(gsw_result) chem_potential_water_t_exact
Definition: gsw_mod_check_data.f90:7043
gsw_mod_check_data::pt_from_entropy
type(gsw_result) pt_from_entropy
Definition: gsw_mod_check_data.f90:1596
gsw_mod_check_data::v_sa_ct
type(gsw_result) v_sa_ct
Definition: gsw_mod_check_data.f90:2283
gsw_mod_check_data::sa_arctic
real(r8), dimension(cast_ice_m, cast_ice_n) sa_arctic
Definition: gsw_mod_check_data.f90:377
gsw_mod_check_data::melting_ice_equilibrium_sa_ct_ratio_poly
type(gsw_result_ice) melting_ice_equilibrium_sa_ct_ratio_poly
Definition: gsw_mod_check_data.f90:8947
gsw_mod_check_data::eta_sa_ct
type(gsw_result) eta_sa_ct
Definition: gsw_mod_check_data.f90:4776
gsw_mod_check_data::melting_seaice_into_seawater_sa_final
type(gsw_result_ice) melting_seaice_into_seawater_sa_final
Definition: gsw_mod_check_data.f90:9962
gsw_mod_check_data::gsw_result
Definition: gsw_mod_check_data.f90:21
gsw_mod_check_data::dilution_coefficient_t_exact
type(gsw_result) dilution_coefficient_t_exact
Definition: gsw_mod_check_data.f90:7131
gsw_mod_check_data::rho_p
type(gsw_result) rho_p
Definition: gsw_mod_check_data.f90:2987
gsw_mod_check_data::geo_strf_dyn_height_pc_p_mid
type(gsw_result) geo_strf_dyn_height_pc_p_mid
Definition: gsw_mod_check_data.f90:7929
gsw_mod_check_data::h_bulk
real(r8), dimension(cast_ice_m, cast_ice_n) h_bulk
Definition: gsw_mod_check_data.f90:735
gsw_mod_check_data::rt
real(r8), dimension(cast_m, cast_n) rt
Definition: gsw_mod_check_data.f90:86
gsw_mod_check_data::tfreezing_sa
type(gsw_result) tfreezing_sa
Definition: gsw_mod_check_data.f90:5699
gsw_mod_check_data::ctfreezing_sa_poly
type(gsw_result) ctfreezing_sa_poly
Definition: gsw_mod_check_data.f90:5611
gsw_mod_check_data::ct_from_t
type(gsw_result) ct_from_t
Definition: gsw_mod_check_data.f90:981
gsw_mod_check_data::v_sa
type(gsw_result) v_sa
Definition: gsw_mod_check_data.f90:2107
gsw_mod_check_data::alpha_vab
type(gsw_result) alpha_vab
Definition: gsw_mod_check_data.f90:2019
gsw_mod_check_data::rho_ice
type(gsw_result_ice) rho_ice
Definition: gsw_mod_check_data.f90:7953
gsw_mod_check_data::w_seaice
real(r8), dimension(cast_ice_m, cast_ice_n) w_seaice
Definition: gsw_mod_check_data.f90:532
gsw_mod_check_data::v_p
type(gsw_result) v_p
Definition: gsw_mod_check_data.f90:2195
gsw_mod_check_data::pot_enthalpy_from_pt_ice_poly
type(gsw_result_ice) pot_enthalpy_from_pt_ice_poly
Definition: gsw_mod_check_data.f90:8722
gsw_mod_check_data::cast_n
integer, parameter cast_n
Definition: gsw_mod_check_data.f90:17
gsw_mod_check_data::sound_speed_ice
type(gsw_result_ice) sound_speed_ice
Definition: gsw_mod_check_data.f90:8121
gsw_mod_check_data::frazil_properties_potential_sa_final
type(gsw_result_ice) frazil_properties_potential_sa_final
Definition: gsw_mod_check_data.f90:9442
gsw_mod_check_data::t_from_ct
type(gsw_result) t_from_ct
Definition: gsw_mod_check_data.f90:1336
gsw_mod_check_data::t_freezing
type(gsw_result) t_freezing
Definition: gsw_mod_check_data.f90:5172
gsw_mod_check_data::adiabatic_lapse_rate_ice
type(gsw_result_ice) adiabatic_lapse_rate_ice
Definition: gsw_mod_check_data.f90:8506
gsw_mod_check_data::ct_p_wrt_t
type(gsw_result) ct_p_wrt_t
Definition: gsw_mod_check_data.f90:6999
gsw_mod_check_data::latentheat_melting
type(gsw_result) latentheat_melting
Definition: gsw_mod_check_data.f90:6115
gsw_mod_check_data::sstar_from_sa
type(gsw_result) sstar_from_sa
Definition: gsw_mod_check_data.f90:1175
gsw_mod_check_data::alpha_rab
type(gsw_result) alpha_rab
Definition: gsw_mod_check_data.f90:2811
gsw_mod_check_data::dynamic_enthalpy
type(gsw_result) dynamic_enthalpy
Definition: gsw_mod_check_data.f90:4172
gsw_mod_check_data::rho_rab
type(gsw_result) rho_rab
Definition: gsw_mod_check_data.f90:2767
gsw_mod_check_data::pref
real(r8) pref
Definition: gsw_mod_check_data.f90:774
gsw_mod_check_data::sr_from_sp
type(gsw_result) sr_from_sp
Definition: gsw_mod_check_data.f90:1069
gsw_mod_check_data::rho_sa_ct
type(gsw_result) rho_sa_ct
Definition: gsw_mod_check_data.f90:3075
gsw_mod_check_data::pt_sa
type(gsw_result) pt_sa
Definition: gsw_mod_check_data.f90:4864
gsw_mod_check_data::helmholtz_energy_ice
type(gsw_result_ice) helmholtz_energy_ice
Definition: gsw_mod_check_data.f90:8473
gsw_mod_check_data::melting_seaice_equilibrium_sa_ct_ratio
type(gsw_result_ice) melting_seaice_equilibrium_sa_ct_ratio
Definition: gsw_mod_check_data.f90:9878
gsw_mod_check_data::sp_from_sstar
type(gsw_result) sp_from_sstar
Definition: gsw_mod_check_data.f90:1262
gsw_mod_check_data::ct_pt_pt
type(gsw_result) ct_pt_pt
Definition: gsw_mod_check_data.f90:4601
gsw_mod_check_data::pt0_from_t_ice
type(gsw_result_ice) pt0_from_t_ice
Definition: gsw_mod_check_data.f90:8548
gsw_mod_check_data::internal_energy_ice
type(gsw_result_ice) internal_energy_ice
Definition: gsw_mod_check_data.f90:8263
gsw_mod_check_data::sigma0
type(gsw_result) sigma0
Definition: gsw_mod_check_data.f90:3471
gsw_mod_check_data::v_sa_wrt_h
type(gsw_result) v_sa_wrt_h
Definition: gsw_mod_check_data.f90:2459
gsw_mod_check_data::pt_from_t
type(gsw_result) pt_from_t
Definition: gsw_mod_check_data.f90:1449
gsw_mod_check_data::rho_sa_h
type(gsw_result) rho_sa_h
Definition: gsw_mod_check_data.f90:3383
gsw_mod_check_data::p_arctic
real(r8), dimension(cast_ice_m, cast_ice_n) p_arctic
Definition: gsw_mod_check_data.f90:437
gsw_mod_check_data::ctfreezing_p_poly
type(gsw_result) ctfreezing_p_poly
Definition: gsw_mod_check_data.f90:5655
gsw_mod_check_data::latentheat_evap_t
type(gsw_result) latentheat_evap_t
Definition: gsw_mod_check_data.f90:6203
gsw_mod_kinds
Definition: gsw_mod_kinds.f90:2
gsw_mod_check_data::sp_from_sk
type(gsw_result) sp_from_sk
Definition: gsw_mod_check_data.f90:850
gsw_mod_check_data::sp_from_sa
type(gsw_result) sp_from_sa
Definition: gsw_mod_check_data.f90:1144
gsw_mod_check_data::enthalpy
type(gsw_result) enthalpy
Definition: gsw_mod_check_data.f90:4040
gsw_mod_check_data::pot_enthalpy_ice_freezing_poly
type(gsw_result) pot_enthalpy_ice_freezing_poly
Definition: gsw_mod_check_data.f90:5304
gsw_mod_check_data::p_shallow
real(r8), dimension(cast_m, cast_n) p_shallow
Definition: gsw_mod_check_data.f90:288
gsw_mod_check_data::t_seaice
real(r8), dimension(cast_ice_m, cast_ice_n) t_seaice
Definition: gsw_mod_check_data.f90:493
gsw_mod_check_data::v_sa_h
type(gsw_result) v_sa_h
Definition: gsw_mod_check_data.f90:2591
gsw_mod_check_data::melting_seaice_into_seawater_ct_final
type(gsw_result_ice) melting_seaice_into_seawater_ct_final
Definition: gsw_mod_check_data.f90:9982
gsw_mod_check_data::rho_sa_p
type(gsw_result) rho_sa_p
Definition: gsw_mod_check_data.f90:3163
gsw_mod_check_data::ct
real(r8), dimension(cast_m, cast_n) ct
Definition: gsw_mod_check_data.f90:45
gsw_mod_check_data::h_pot_bulk
real(r8), dimension(cast_ice_m, cast_ice_n) h_pot_bulk
Definition: gsw_mod_check_data.f90:696
gsw_mod_check_data::sa_from_sstar
type(gsw_result) sa_from_sstar
Definition: gsw_mod_check_data.f90:1219
gsw_mod_check_data::enthalpy_t_exact
type(gsw_result) enthalpy_t_exact
Definition: gsw_mod_check_data.f90:6867
gsw_mod_check_data::frazil_properties_ct_final
type(gsw_result_ice) frazil_properties_ct_final
Definition: gsw_mod_check_data.f90:9710
gsw_mod_check_data::sa_freezing_from_t_poly
type(gsw_result) sa_freezing_from_t_poly
Definition: gsw_mod_check_data.f90:5480
gsw_mod_check_data::n2
type(gsw_result_mpres) n2
Definition: gsw_mod_check_data.f90:7259
gsw_mod_check_data::specvol_t_exact
type(gsw_result) specvol_t_exact
Definition: gsw_mod_check_data.f90:6721
gsw_mod_check_data::w_ice
real(r8), dimension(cast_ice_m, cast_ice_n) w_ice
Definition: gsw_mod_check_data.f90:614
gsw_mod_check_data::eta_sa_sa
type(gsw_result) eta_sa_sa
Definition: gsw_mod_check_data.f90:4732
gsw_mod_check_data::tfreezing_p
type(gsw_result) tfreezing_p
Definition: gsw_mod_check_data.f90:5743
gsw_mod_check_data::sigma3
type(gsw_result) sigma3
Definition: gsw_mod_check_data.f90:3603
gsw_mod_check_data::chem_potential_water_ice
type(gsw_result_ice) chem_potential_water_ice
Definition: gsw_mod_check_data.f90:8431
gsw_mod_check_data::n2min_dsa
type(gsw_result_mpres) n2min_dsa
Definition: gsw_mod_check_data.f90:7638
gsw_mod_check_data::gsw_result_mpres
Definition: gsw_mod_check_data.f90:33
constants_mod::grav
real, parameter, public grav
Acceleration due to gravity [m/s^2].
Definition: constants.F90:76
gsw_mod_check_data::dct_dp_frazil
type(gsw_result_ice) dct_dp_frazil
Definition: gsw_mod_check_data.f90:9274
gsw_mod_check_data::pt_from_pot_enthalpy_ice_poly
type(gsw_result_ice) pt_from_pot_enthalpy_ice_poly
Definition: gsw_mod_check_data.f90:8764
gsw_mod_check_data::pt_ct_ct
type(gsw_result) pt_ct_ct
Definition: gsw_mod_check_data.f90:5040
gsw_mod_check_data::ipvfn2
type(gsw_result_mpres) ipvfn2
Definition: gsw_mod_check_data.f90:7747
gsw_mod_check_data::delta_p
real(r8), dimension(cast_m, cast_n) delta_p
Definition: gsw_mod_check_data.f90:268
gsw_mod_check_data::sa_freezing_from_t
type(gsw_result) sa_freezing_from_t
Definition: gsw_mod_check_data.f90:5436
gsw_mod_check_data::ice_fraction_to_freeze_seawater_w_ih
type(gsw_result_ice) ice_fraction_to_freeze_seawater_w_ih
Definition: gsw_mod_check_data.f90:9148
gsw_mod_check_data::ct_maxdensity
type(gsw_result) ct_maxdensity
Definition: gsw_mod_check_data.f90:3952
gsw_mod_check_data::n2min_dp
type(gsw_result_mpres) n2min_dp
Definition: gsw_mod_check_data.f90:7725
gsw_mod_check_data::t_freezing_poly
type(gsw_result) t_freezing_poly
Definition: gsw_mod_check_data.f90:5216
gsw_mod_check_data::h_ct_ct_ct_exact
type(gsw_result) h_ct_ct_ct_exact
Definition: gsw_mod_check_data.f90:6502
gsw_mod_check_data::v_sa_p
type(gsw_result) v_sa_p
Definition: gsw_mod_check_data.f90:2371
gsw_mod_check_data::specvol_anom_standard
type(gsw_result) specvol_anom_standard
Definition: gsw_mod_check_data.f90:2679
gsw_mod_check_data::latentheat_evap_ct
type(gsw_result) latentheat_evap_ct
Definition: gsw_mod_check_data.f90:6159
gsw_mod_check_data::kappa_t_exact
type(gsw_result) kappa_t_exact
Definition: gsw_mod_check_data.f90:6823
gsw_mod_check_data::rho_sa_sa
type(gsw_result) rho_sa_sa
Definition: gsw_mod_check_data.f90:3031
gsw_mod_check_data::beta
type(gsw_result) beta
Definition: gsw_mod_check_data.f90:1873
gsw_mod_check_data::sound_speed
type(gsw_result) sound_speed
Definition: gsw_mod_check_data.f90:3690
gsw_mod_check_data::cp_ice
type(gsw_result_ice) cp_ice
Definition: gsw_mod_check_data.f90:8389
gsw_mod_check_data::sa_seaice
real(r8), dimension(cast_ice_m, cast_ice_n) sa_seaice
Definition: gsw_mod_check_data.f90:454
gsw_mod_check_data::alpha
type(gsw_result) alpha
Definition: gsw_mod_check_data.f90:1829
gsw_mod_check_data::pot_rho_t_exact
type(gsw_result) pot_rho_t_exact
Definition: gsw_mod_check_data.f90:6589
gsw_mod_check_data::n2_lowerlimit
type(gsw_result) n2_lowerlimit
Definition: gsw_mod_check_data.f90:7806
gsw_mod_check_data::alpha_wrt_t_exact
type(gsw_result) alpha_wrt_t_exact
Definition: gsw_mod_check_data.f90:6633
gsw_mod_check_data::v_ct_p
type(gsw_result) v_ct_p
Definition: gsw_mod_check_data.f90:2415
gsw_mod_check_data::rsubrho
type(gsw_result_mpres) rsubrho
Definition: gsw_mod_check_data.f90:7361
gsw_mod_check_data::fdelta
type(gsw_result) fdelta
Definition: gsw_mod_check_data.f90:7217
gsw_mod_check_data::sp_from_sr
type(gsw_result) sp_from_sr
Definition: gsw_mod_check_data.f90:1113
gsw_mod_check_data::v_h_h
type(gsw_result) v_h_h
Definition: gsw_mod_check_data.f90:2635
gsw_mod_check_data::pot_enthalpy_ice_freezing_p
type(gsw_result) pot_enthalpy_ice_freezing_p
Definition: gsw_mod_check_data.f90:5951
gsw_mod_check_data::t
real(r8), dimension(cast_m, cast_n) t
Definition: gsw_mod_check_data.f90:224
gsw_mod_check_data::melting_ice_into_seawater_sa_final
type(gsw_result_ice) melting_ice_into_seawater_sa_final
Definition: gsw_mod_check_data.f90:8989
gsw_mod_check_data::ct_sa_sa
type(gsw_result) ct_sa_sa
Definition: gsw_mod_check_data.f90:4513
gsw_mod_check_data::thermobaric
type(gsw_result) thermobaric
Definition: gsw_mod_check_data.f90:3822
gsw_mod_check_data::enthalpy_diff
type(gsw_result) enthalpy_diff
Definition: gsw_mod_check_data.f90:4084
gsw_mod_check_data::melting_ice_into_seawater_ct_final
type(gsw_result_ice) melting_ice_into_seawater_ct_final
Definition: gsw_mod_check_data.f90:9031
gsw_mod_check_data::pt_sa_ct
type(gsw_result) pt_sa_ct
Definition: gsw_mod_check_data.f90:4996
gsw_mod_check_data::internal_energy
type(gsw_result) internal_energy
Definition: gsw_mod_check_data.f90:3996
gsw_mod_check_data::sigma1
type(gsw_result) sigma1
Definition: gsw_mod_check_data.f90:3515
gsw_mod_check_data::sa_bulk
real(r8), dimension(cast_ice_m, cast_ice_n) sa_bulk
Definition: gsw_mod_check_data.f90:657
gsw_mod_check_data::mlp
type(gsw_result_cast) mlp
Definition: gsw_mod_check_data.f90:7850
gsw_mod_check_data::c_from_sp
type(gsw_result) c_from_sp
Definition: gsw_mod_check_data.f90:778
gsw_mod_check_data::tu
type(gsw_result_mpres) tu
Definition: gsw_mod_check_data.f90:7326
gsw_mod_check_data::alpha_on_beta
type(gsw_result) alpha_on_beta
Definition: gsw_mod_check_data.f90:1917
gsw_mod_check_data::ct_from_entropy
type(gsw_result) ct_from_entropy
Definition: gsw_mod_check_data.f90:1639
gsw_mod_check_data::n2min_beta
type(gsw_result_mpres) n2min_beta
Definition: gsw_mod_check_data.f90:7595
gsw_mod_check_data::ctfreezing_p
type(gsw_result) ctfreezing_p
Definition: gsw_mod_check_data.f90:5567
gsw_mod_check_data::adiabatic_lapse_rate_from_ct
type(gsw_result) adiabatic_lapse_rate_from_ct
Definition: gsw_mod_check_data.f90:1727
gsw_mod_check_data::ct_pt
type(gsw_result) ct_pt
Definition: gsw_mod_check_data.f90:4469
gsw_mod_check_data::rho_ct
type(gsw_result) rho_ct
Definition: gsw_mod_check_data.f90:2943
gsw_mod_check_data::t_arctic
real(r8), dimension(cast_ice_m, cast_ice_n) t_arctic
Definition: gsw_mod_check_data.f90:416
gsw_mod_check_data::v_ct
type(gsw_result) v_ct
Definition: gsw_mod_check_data.f90:2151
gsw_mod_check_data::kappa_const_t_ice
type(gsw_result_ice) kappa_const_t_ice
Definition: gsw_mod_check_data.f90:8221
gsw_mod_check_data::t_from_pt0_ice
type(gsw_result_ice) t_from_pt0_ice
Definition: gsw_mod_check_data.f90:8614
gsw_mod_check_data::h_ct_ct
type(gsw_result) h_ct_ct
Definition: gsw_mod_check_data.f90:4382
gsw_mod_check_data::h_ct
type(gsw_result) h_ct
Definition: gsw_mod_check_data.f90:4252
gsw_mod_check_data::n2min_specvol
type(gsw_result_mpres) n2min_specvol
Definition: gsw_mod_check_data.f90:7495
gsw_mod_check_data::frazil_properties_potential_ct_final
type(gsw_result_ice) frazil_properties_potential_ct_final
Definition: gsw_mod_check_data.f90:9484
gsw_mod_check_data::ct_from_rho
type(gsw_result) ct_from_rho
Definition: gsw_mod_check_data.f90:3909
gsw_mod_check_data::sa_freezing_from_ct
type(gsw_result) sa_freezing_from_ct
Definition: gsw_mod_check_data.f90:5348
gsw_mod_check_data::ct_t_wrt_t
type(gsw_result) ct_t_wrt_t
Definition: gsw_mod_check_data.f90:6955
gsw_mod_check_data::cast_ice_m
integer, parameter cast_ice_m
Definition: gsw_mod_check_data.f90:18
gsw_mod_check_data::beta_rab
type(gsw_result) beta_rab
Definition: gsw_mod_check_data.f90:2855
gsw_mod_check_data::specvol
type(gsw_result) specvol
Definition: gsw_mod_check_data.f90:1771
gsw_mod_check_data::h_sa_sa_ct_exact
type(gsw_result) h_sa_sa_ct_exact
Definition: gsw_mod_check_data.f90:6416
gsw_mod_check_data::sa_from_sp
type(gsw_result) sa_from_sp
Definition: gsw_mod_check_data.f90:894
gsw_mod_check_data::v_ct_ct
type(gsw_result) v_ct_ct
Definition: gsw_mod_check_data.f90:2327
gsw_mod_check_data::sigma4
type(gsw_result) sigma4
Definition: gsw_mod_check_data.f90:3646
constants_mod::kappa
real, parameter, public kappa
RDGAS / CP_AIR [dimensionless].
Definition: constants.F90:82
gsw_mod_check_data::rho_sa_sa_wrt_h
type(gsw_result) rho_sa_sa_wrt_h
Definition: gsw_mod_check_data.f90:3339
gsw_mod_check_data::cast_ice_n
integer, parameter cast_ice_n
Definition: gsw_mod_check_data.f90:19
gsw_mod_check_data::rho_sa
type(gsw_result) rho_sa
Definition: gsw_mod_check_data.f90:2899
gsw_mod_check_data::pot_enthalpy_ice_freezing_sa
type(gsw_result) pot_enthalpy_ice_freezing_sa
Definition: gsw_mod_check_data.f90:5907
gsw_mod_check_data::sstar_from_sp
type(gsw_result) sstar_from_sp
Definition: gsw_mod_check_data.f90:937
gsw_mod_check_data::ct_sa_wrt_t
type(gsw_result) ct_sa_wrt_t
Definition: gsw_mod_check_data.f90:6911
gsw_mod_check_data::rho_h_h
type(gsw_result) rho_h_h
Definition: gsw_mod_check_data.f90:3427
gsw_mod_check_data::melting_ice_sa_ct_ratio
type(gsw_result_ice) melting_ice_sa_ct_ratio
Definition: gsw_mod_check_data.f90:8821
gsw_mod_check_data::sa
real(r8), dimension(cast_m, cast_n) sa
Definition: gsw_mod_check_data.f90:127
gsw_mod_check_data::dsa_dct_frazil
type(gsw_result_ice) dsa_dct_frazil
Definition: gsw_mod_check_data.f90:9190
gsw_mod_check_data::ct_freezing
type(gsw_result) ct_freezing
Definition: gsw_mod_check_data.f90:5084
gsw_mod_check_data::sigma2
type(gsw_result) sigma2
Definition: gsw_mod_check_data.f90:3559
gsw_mod_check_data::v_h
type(gsw_result) v_h
Definition: gsw_mod_check_data.f90:2503
gsw_mod_check_data::dsa_dp_frazil
type(gsw_result_ice) dsa_dp_frazil
Definition: gsw_mod_check_data.f90:9232
gsw_mod_check_data::v_sa_sa
type(gsw_result) v_sa_sa
Definition: gsw_mod_check_data.f90:2239
gsw_mod_check_data::n2min_alpha
type(gsw_result_mpres) n2min_alpha
Definition: gsw_mod_check_data.f90:7552
gsw_mod_check_data::ct_arctic
real(r8), dimension(cast_ice_m, cast_ice_n) ct_arctic
Definition: gsw_mod_check_data.f90:338
gsw_mod_check_data::t_ice
real(r8), dimension(cast_ice_m, cast_ice_n) t_ice
Definition: gsw_mod_check_data.f90:575
gsw_mod_check_data::pt0_from_t
type(gsw_result) pt0_from_t
Definition: gsw_mod_check_data.f90:1406
gsw_mod_check_data::h_ct_ct_exact
type(gsw_result) h_ct_ct_exact
Definition: gsw_mod_check_data.f90:6372
gsw_mod_check_data::n2min
type(gsw_result_mpres) n2min
Definition: gsw_mod_check_data.f90:7428