diff --git a/modules/gsw_mod_check_data.F90 b/modules/gsw_mod_check_data.F90 index 9f9fafc..9f7d871 100644 --- a/modules/gsw_mod_check_data.F90 +++ b/modules/gsw_mod_check_data.F90 @@ -80,12 +80,12 @@ module gsw_mod_check_data 0.84408786867688412_r8, 0.84286638656010171_r8, 0.83823534122093035_r8, & 10.50276773530223_r8, 9.5454546799605353_r8, 7.3853472726034788_r8, & 5.1971595673275859_r8, 3.9369185696308904_r8, 3.2887461722779783_r8, & - 4.0054812867257672_r8, 4.6113979927987803_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 / + 4.0054812867257672_r8, 4.6113979927987803_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 / real (r8), dimension(cast_m,cast_n) :: rt data rt / & @@ -121,12 +121,12 @@ module gsw_mod_check_data 0.99232403214778198_r8, 0.99233525104034248_r8, 0.99238583299978855_r8, & 0.21554079457255351_r8, 0.21854645673755352_r8, 0.22239705506380522_r8, & 0.22877877458372836_r8, 0.23541530620083984_r8, 0.24189575141112912_r8, & - 0.2891917533834788_r8, 0.32528563718265163_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 / + 0.2891917533834788_r8, 0.32528563718265163_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 / real (r8), dimension(cast_m,cast_n) :: sa data sa / & @@ -162,12 +162,12 @@ module gsw_mod_check_data 34.88108664328702_r8, 34.881476814694921_r8, 34.883401613801887_r8, & 6.669904340924572_r8, 6.7737814418914271_r8, 6.9129530644765707_r8, & 7.1375206720971418_r8, 7.3661052164125715_r8, 7.5862209196422841_r8, & - 9.1676241523679991_r8, 10.389468455026284_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 / + 9.1676241523679991_r8, 10.389468455026284_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 / real (r8), dimension(cast_m,cast_n) :: sk data sk / & @@ -190,12 +190,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 / + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 / real (r8), dimension(cast_m,cast_n) :: sp data sp / & @@ -218,12 +218,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 / + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 / real (r8), dimension(cast_m,cast_n) :: t data t / & @@ -241,12 +241,12 @@ module gsw_mod_check_data 2.6237_r8, 2.1957_r8, 2.036_r8, 1.8655_r8, 1.7597_r8, 1.6633_r8, 1.5843_r8, & 1.5116_r8, 1.436_r8, 1.3714_r8, 1.318_r8, 1.3016_r8, 1.2959_r8, 1.2974_r8, & 1.3189_r8, 1.3508_r8, 1.3845_r8, 1.4157_r8, 10.046_r8, 9.1279_r8, & - 7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 / + 7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 / real (r8), dimension(cast_m,cast_n) :: p data p / & @@ -262,12 +262,12 @@ module gsw_mod_check_data 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, 3045._r8, & 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, 4840._r8, & 5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, 20._r8, & - 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 / + 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 / real (r8), dimension(cast_m,cast_n) :: delta_p data delta_p / & @@ -282,12 +282,12 @@ module gsw_mod_check_data 102._r8, 101._r8, 102._r8, 101._r8, 254._r8, 254._r8, 254._r8, 255._r8, & 255._r8, 256._r8, 255._r8, 256._r8, 256._r8, 257._r8, 256._r8, 258._r8, & 257._r8, 258._r8, 257._r8, 259._r8, 258._r8, 259._r8, 0._r8, 10._r8, & - 10._r8, 10._r8, 10._r8, 10._r8, 26._r8, 25._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 / + 10._r8, 10._r8, 10._r8, 10._r8, 26._r8, 25._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 / real (r8), dimension(cast_m,cast_n) :: p_shallow data p_shallow / & @@ -303,12 +303,12 @@ module gsw_mod_check_data 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, 3045._r8, & 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, 4840._r8, & 5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, 20._r8, & - 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 / + 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 / real (r8), dimension(cast_m,cast_n) :: p_deep data p_deep / & @@ -324,12 +324,12 @@ module gsw_mod_check_data 1527._r8, 1781._r8, 2035._r8, 2289._r8, 2544._r8, 2799._r8, 3055._r8, & 3310._r8, 3566._r8, 3822._r8, 4079._r8, 4335._r8, 4593._r8, 4850._r8, & 5108._r8, 5365._r8, 5624._r8, 5882._r8, 6141._r8, 10._r8, 20._r8, 30._r8, & - 40._r8, 50._r8, 60._r8, 86._r8, 111._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 / + 40._r8, 50._r8, 60._r8, 86._r8, 111._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 / real (r8), dimension(cast_n) :: lat_cast data lat_cast / & @@ -814,13 +814,13 @@ module gsw_mod_check_data 31.554369106483_r8, 31.583816389345_r8, 31.620355157012_r8, & 31.664884715345_r8, 31.739500073043_r8, 31.819944669152_r8, & 31.904674437351_r8, 32.004069372941_r8, 32.111082511682_r8, & - 32.217703873867_r8, 32.322004256229_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9.3795452512822_r8, 10.727362956121_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 32.217703873867_r8, 32.322004256229_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9.3795452512822_r8, 10.727362956121_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sp_from_c @@ -845,12 +845,12 @@ module gsw_mod_check_data 34.656967_r8, 34.664131_r8, 34.67181_r8, 34.677475_r8, 34.682167_r8, & 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9.060422_r8, & - 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9.060422_r8, & + 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sp_from_sk @@ -889,12 +889,12 @@ module gsw_mod_check_data 34.70279661723_r8, 34.703219980471_r8, 34.705167651551_r8, & 6.5438735714404_r8, 6.6476085749307_r8, 6.7865898193075_r8, & 7.0108502322715_r8, 7.2391220870083_r8, 7.4589366855125_r8, & - 9.0381766560111_r8, 10.258349550914_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.0381766560111_r8, 10.258349550914_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sa_from_sp @@ -933,11 +933,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, & 7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sstar_from_sp @@ -976,12 +976,12 @@ module gsw_mod_check_data 34.861612863812_r8, 34.862050046565_r8, 34.86401585478_r8, & 6.6699043409246_r8, 6.7737814418914_r8, 6.9129530644766_r8, & 7.1375206720971_r8, 7.3661052164126_r8, 7.5862209196423_r8, & - 9.167624152368_r8, 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.167624152368_r8, 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_from_t @@ -1020,12 +1020,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: deltasa_from_sp @@ -1064,12 +1064,12 @@ module gsw_mod_check_data 0.01442502183329_r8, 0.014390198614905_r8, 0.014359821497862_r8, & 0.070673184771425_r8, 0.070415550428567_r8, 0.070070379171424_r8, & 0.069513410142853_r8, 0.068946478371425_r8, 0.068400550885709_r8, & - 0.064478379599993_r8, 0.061447980685708_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.064478379599993_r8, 0.061447980685708_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sr_from_sp @@ -1108,12 +1108,12 @@ module gsw_mod_check_data 34.866661621454_r8, 34.86708661608_r8, 34.869041792304_r8, & 6.5992311561531_r8, 6.7033658914629_r8, 6.8428826853051_r8, & 7.0680072619543_r8, 7.2971587380411_r8, 7.5178203687566_r8, & - 9.103145772768_r8, 10.328020474341_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.103145772768_r8, 10.328020474341_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sp_from_sr @@ -1139,12 +1139,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sp_from_sa @@ -1170,12 +1170,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sstar_from_sa @@ -1214,12 +1214,12 @@ module gsw_mod_check_data 34.861612863812_r8, 34.862050046565_r8, 34.86401585478_r8, & 6.6699043409246_r8, 6.7737814418914_r8, 6.9129530644766_r8, & 7.1375206720971_r8, 7.3661052164126_r8, 7.5862209196423_r8, & - 9.167624152368_r8, 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.167624152368_r8, 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sa_from_sstar @@ -1258,11 +1258,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, & 7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sp_from_sstar @@ -1288,12 +1288,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pt_from_ct @@ -1331,12 +1331,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: t_from_ct @@ -1357,12 +1357,12 @@ module gsw_mod_check_data 2.6237_r8, 2.1957_r8, 2.036_r8, 1.8655_r8, 1.7597_r8, 1.6633_r8, 1.5843_r8, & 1.5116_r8, 1.436_r8, 1.3714_r8, 1.318_r8, 1.3016_r8, 1.2959_r8, 1.2974_r8, & 1.3189_r8, 1.3508_r8, 1.3845_r8, 1.4157_r8, 10.046_r8, 9.1279_r8, & - 7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_from_pt @@ -1401,12 +1401,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pt0_from_t @@ -1444,12 +1444,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pt_from_t @@ -1487,12 +1487,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: z_from_p @@ -1523,12 +1523,12 @@ module gsw_mod_check_data -4758.8729434_r8, -5009.67913593_r8, -5259.24009694_r8, -5510.46955908_r8, & -5760.45808542_r8, -6011.14570526_r8, -0._r8, -9.90629019928_r8, & -19.8120994414_r8, -29.7174278749_r8, -39.6222756481_r8, -49.5266429093_r8, & - -75.2757500563_r8, -100.031447035_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + -75.2757500563_r8, -100.031447035_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: p_from_z @@ -1547,12 +1547,12 @@ module gsw_mod_check_data 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, 3045._r8, & 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, 4840._r8, & 5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, 20._r8, & - 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: entropy_from_pt @@ -1591,12 +1591,12 @@ module gsw_mod_check_data 12.382918086768_r8, 12.365031338104_r8, 12.297112424952_r8, & 153.12120882735_r8, 139.62236456703_r8, 108.9846170621_r8, & 77.728754443394_r8, 59.634169426745_r8, 50.310647945221_r8, & - 60.836929033964_r8, 69.656461797752_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 60.836929033964_r8, 69.656461797752_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pt_from_entropy @@ -1634,12 +1634,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_from_entropy @@ -1678,12 +1678,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: entropy_from_t @@ -1722,12 +1722,12 @@ module gsw_mod_check_data 12.382918086768_r8, 12.365031338104_r8, 12.297112424952_r8, & 153.12120882735_r8, 139.62236456703_r8, 108.9846170621_r8, & 77.728754443394_r8, 59.634169426745_r8, 50.310647945221_r8, & - 60.836929033964_r8, 69.656461797752_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 60.836929033964_r8, 69.656461797752_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: adiabatic_lapse_rate_from_ct @@ -1766,12 +1766,12 @@ module gsw_mod_check_data 1.337730956009e-08_r8, 1.37267693902e-08_r8, 1.406957983991e-08_r8, & 7.1241832681602e-09_r8, 6.3404880424123e-09_r8, 4.4909112043667e-09_r8, & 2.5662556926025e-09_r8, 1.4540926270446e-09_r8, 9.0501768846576e-10_r8, & - 1.9732983751198e-09_r8, 2.8345992356971e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.9732983751198e-09_r8, 2.8345992356971e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: specvol @@ -1825,11 +1825,11 @@ module gsw_mod_check_data 0.0009949245452751476_r8, 0.0009946040926904509_r8, & 0.0009942717261025088_r8, 0.0009940088745524498_r8, & 0.0009937773244990007_r8, 0.0009924332606871787_r8, & - 0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009913873184543118_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: alpha @@ -1868,12 +1868,12 @@ module gsw_mod_check_data 0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, & 0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & - 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: beta @@ -1912,12 +1912,12 @@ module gsw_mod_check_data 0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, & 0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & - 0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078356549344703_r8, 0.00078036996563038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: alpha_on_beta @@ -1956,12 +1956,12 @@ module gsw_mod_check_data 0.28612115151677_r8, 0.29493268742375_r8, 0.30367099733368_r8, & 0.13127162222478_r8, 0.11689502215091_r8, 0.082845413121359_r8, & 0.04737499243998_r8, 0.026876948001361_r8, 0.016759514034294_r8, & - 0.036612739499438_r8, 0.052718031460717_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.036612739499438_r8, 0.052718031460717_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_vab @@ -2015,11 +2015,11 @@ module gsw_mod_check_data 0.0009949245452751476_r8, 0.0009946040926904509_r8, & 0.0009942717261025088_r8, 0.0009940088745524498_r8, & 0.0009937773244990007_r8, 0.0009924332606871787_r8, & - 0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009913873184543118_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: alpha_vab @@ -2058,12 +2058,12 @@ module gsw_mod_check_data 0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, & 0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & - 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: beta_vab @@ -2102,12 +2102,12 @@ module gsw_mod_check_data 0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, & 0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & - 0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078356549344703_r8, 0.00078036996563038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_sa @@ -2146,12 +2146,12 @@ module gsw_mod_check_data -6.8105324603527e-07_r8, -6.7799333531989e-07_r8, -6.7496394957095e-07_r8, & -7.6485141602067e-07_r8, -7.6696360617989e-07_r8, -7.7235047136574e-07_r8, & -7.7807640038489e-07_r8, -7.8133521349824e-07_r8, -7.8281451817097e-07_r8, & - -7.776364576236e-07_r8, -7.7364888762859e-07_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -7.776364576236e-07_r8, -7.7364888762859e-07_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_ct @@ -2190,12 +2190,12 @@ module gsw_mod_check_data 1.9486373899984e-07_r8, 1.9996239644129e-07_r8, 2.0496697573049e-07_r8, & 1.0040328614196e-07_r8, 8.965422773334e-08_r8, 6.3985693874771e-08_r8, & 3.6861363585961e-08_r8, 2.0999905904825e-08_r8, 1.3119590903535e-08_r8, & - 2.8471401048238e-08_r8, 4.0785246397553e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8471401048238e-08_r8, 4.0785246397553e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_p @@ -2234,12 +2234,12 @@ module gsw_mod_check_data -3.7571835120402e-13_r8, -3.7270081162309e-13_r8, -3.6970724335569e-13_r8, & -4.6735391264304e-13_r8, -4.6928905029227e-13_r8, -4.7427904182679e-13_r8, & -4.7963775309581e-13_r8, -4.8270645282362e-13_r8, -4.8410132496399e-13_r8, & - -4.7902381646743e-13_r8, -4.7496631693763e-13_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -4.7902381646743e-13_r8, -4.7496631693763e-13_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_sa_sa @@ -2278,12 +2278,12 @@ module gsw_mod_check_data 7.420285376761e-10_r8, 7.2079357928311e-10_r8, 6.9911247017641e-10_r8, & 1.686821846146e-09_r8, 1.6867968404629e-09_r8, 1.7070701802637e-09_r8, & 1.7239021288267e-09_r8, 1.7241895206509e-09_r8, 1.7118557676937e-09_r8, & - 1.5146606457245e-09_r8, 1.4037400755554e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.5146606457245e-09_r8, 1.4037400755554e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_sa_ct @@ -2322,12 +2322,12 @@ module gsw_mod_check_data 1.902283526759e-09_r8, 1.8640926783939e-09_r8, 1.8262648049443e-09_r8, & 2.5142108146884e-09_r8, 2.5867895047185e-09_r8, 2.7671787284743e-09_r8, & 2.9674767526691e-09_r8, 3.0883351095872e-09_r8, 3.1489295313378e-09_r8, & - 3.0275277133432e-09_r8, 2.9364515491552e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 3.0275277133432e-09_r8, 2.9364515491552e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_ct_ct @@ -2366,12 +2366,12 @@ module gsw_mod_check_data 7.2611295715005e-09_r8, 7.0619802695647e-09_r8, 6.8660792976399e-09_r8, & 1.1630101520498e-08_r8, 1.187168068355e-08_r8, 1.2479500593431e-08_r8, & 1.3157950203856e-08_r8, 1.356938661512e-08_r8, 1.3775071602593e-08_r8, & - 1.3322230766315e-08_r8, 1.2968669305784e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.3322230766315e-08_r8, 1.2968669305784e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_sa_p @@ -2410,12 +2410,12 @@ module gsw_mod_check_data 1.4452353965864e-15_r8, 1.4278184830854e-15_r8, 1.4104641044674e-15_r8, & 1.3391645162533e-15_r8, 1.3531626095461e-15_r8, 1.3852941375402e-15_r8, & 1.4210390224972e-15_r8, 1.4439297547637e-15_r8, 1.4573546239402e-15_r8, & - 1.4684828267782e-15_r8, 1.475384005764e-15_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.4684828267782e-15_r8, 1.475384005764e-15_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_ct_p @@ -2454,12 +2454,12 @@ module gsw_mod_check_data 1.9973576346871e-15_r8, 1.9613072729104e-15_r8, 1.9254031915233e-15_r8, & 2.3045989638505e-15_r8, 2.3848235601127e-15_r8, 2.5786818124037e-15_r8, & 2.7893685394813e-15_r8, 2.9161890405511e-15_r8, 2.9812079621756e-15_r8, & - 2.8718142771833e-15_r8, 2.7837754490956e-15_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8718142771833e-15_r8, 2.7837754490956e-15_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_sa_wrt_h @@ -2498,12 +2498,12 @@ module gsw_mod_check_data -6.7909031244219e-07_r8, -6.7589164328594e-07_r8, -6.7272013791523e-07_r8, & -7.6485141602067e-07_r8, -7.6696188346989e-07_r8, -7.7234799486436e-07_r8, & -7.7807424426583e-07_r8, -7.8133356867422e-07_r8, -7.8281323110614e-07_r8, & - -7.7763223906705e-07_r8, -7.7364089590621e-07_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.7763223906705e-07_r8, -7.7364089590621e-07_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_h @@ -2542,12 +2542,12 @@ module gsw_mod_check_data 4.8725019813184e-11_r8, 4.9993562505336e-11_r8, 5.1238094268393e-11_r8, & 2.5151955731122e-11_r8, 2.2459166387345e-11_r8, 1.6028959440587e-11_r8, & 9.2340886590299e-12_r8, 5.2606607154873e-12_r8, 3.2865742832167e-12_r8, & - 7.1323132289915e-12_r8, 1.0216981246258e-11_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 7.1323132289915e-12_r8, 1.0216981246258e-11_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_sa_sa_wrt_h @@ -2586,12 +2586,12 @@ module gsw_mod_check_data 7.834147507376e-10_r8, 7.6321849689896e-10_r8, 7.4251701884123e-10_r8, & 1.686821846146e-09_r8, 1.686900044746e-09_r8, 1.7072898758573e-09_r8, & 1.7242541041201e-09_r8, 1.7246770251147e-09_r8, 1.7124765525043e-09_r8, & - 1.515566330676e-09_r8, 1.4049058698229e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.515566330676e-09_r8, 1.4049058698229e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_sa_h @@ -2630,12 +2630,12 @@ module gsw_mod_check_data 4.92270849647e-13_r8, 4.8282023629188e-13_r8, 4.734242897083e-13_r8, & 6.2983316124078e-13_r8, 6.4806903256871e-13_r8, 6.9332053313919e-13_r8, & 7.4356919333127e-13_r8, 7.7391966374215e-13_r8, 7.8917210371931e-13_r8, & - 7.589102211215e-13_r8, 7.3623001646769e-13_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 7.589102211215e-13_r8, 7.3623001646769e-13_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: v_h_h @@ -2674,12 +2674,12 @@ module gsw_mod_check_data 4.5232948672668e-16_r8, 4.3966511473454e-16_r8, 4.2720650884596e-16_r8, & 7.2984589754873e-16_r8, 7.4500115876955e-16_r8, 7.8314234083822e-16_r8, & 8.2571908104756e-16_r8, 8.5154026747761e-16_r8, 8.6444918491475e-16_r8, & - 8.3602204373094e-16_r8, 8.138229413294e-16_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 8.3602204373094e-16_r8, 8.138229413294e-16_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: specvol_anom_standard @@ -2718,12 +2718,12 @@ module gsw_mod_check_data 3.5569404936743e-07_r8, 3.5868967571088e-07_r8, 3.5988460949968e-07_r8, & 2.2480540455874e-05_r8, 2.2308211792809e-05_r8, 2.2032796952698e-05_r8, & 2.1745453855873e-05_r8, 2.1527611547459e-05_r8, 2.1341056490181e-05_r8, & - 2.0113913028269e-05_r8, 1.9180303484793e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.0113913028269e-05_r8, 1.9180303484793e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho @@ -2762,12 +2762,12 @@ module gsw_mod_check_data 1052.801283141887_r8, 1053.87303446012_r8, 1054.944400483299_r8, & 1004.88179015787_r8, 1005.101346377427_r8, 1005.425181083815_r8, & 1005.761276064789_r8, 1006.027235370758_r8, 1006.261639652662_r8, & - 1007.624431397616_r8, 1008.687504253248_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.624431397616_r8, 1008.687504253248_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_rab @@ -2806,12 +2806,12 @@ module gsw_mod_check_data 1052.801283141887_r8, 1053.87303446012_r8, 1054.944400483299_r8, & 1004.88179015787_r8, 1005.101346377427_r8, 1005.425181083815_r8, & 1005.761276064789_r8, 1006.027235370758_r8, 1006.261639652662_r8, & - 1007.624431397616_r8, 1008.687504253248_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.624431397616_r8, 1008.687504253248_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: alpha_rab @@ -2850,12 +2850,12 @@ module gsw_mod_check_data 0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, & 0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & - 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: beta_rab @@ -2894,12 +2894,12 @@ module gsw_mod_check_data 0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, & 0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & - 0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078356549344703_r8, 0.00078036996563038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_sa @@ -2938,12 +2938,12 @@ module gsw_mod_check_data 0.7548729763576_r8, 0.75301219461664_r8, 0.75117256867532_r8, & 0.77233733209404_r8, 0.77480865946544_r8, 0.780753485975_r8, & 0.7870676524159_r8, 0.79078217997537_r8, 0.79264861572057_r8, & - 0.78953973479736_r8, 0.78714943302591_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.78953973479736_r8, 0.78714943302591_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_ct @@ -2982,12 +2982,12 @@ module gsw_mod_check_data -0.215985125244_r8, -0.222087910221_r8, -0.228109323099_r8, & -0.101385974489_r8, -0.0905712754109_r8, -0.0646818450915_r8, & -0.037287324083_r8, -0.0212538115316_r8, -0.0132844055994_r8, & - -0.0289072126346_r8, -0.0414969685745_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0289072126346_r8, -0.0414969685745_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_p @@ -3026,12 +3026,12 @@ module gsw_mod_check_data 4.1644266684966e-07_r8, 4.1393954995633e-07_r8, 4.114500334809e-07_r8, & 4.719280980251e-07_r8, 4.7408927493944e-07_r8, 4.7943910045961e-07_r8, & 4.8518032439027e-07_r8, 4.8854275918655e-07_r8, 4.9018284177683e-07_r8, & - 4.8635623151091e-07_r8, 4.8325470773939e-07_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 4.8635623151091e-07_r8, 4.8325470773939e-07_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_sa_sa @@ -3070,12 +3070,12 @@ module gsw_mod_check_data 0.00026005116599746_r8, 0.00027553466445755_r8, 0.00029169636951351_r8, & -0.00051611728824693_r8, -0.00050948756937966_r8, -0.00051306917298877_r8, & -0.00051196917284635_r8, -0.00050185637436778_r8, -0.00048459659059207_r8, & - -0.0003005333644906_r8, -0.00019970046341223_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0003005333644906_r8, -0.00019970046341223_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_sa_ct @@ -3114,12 +3114,12 @@ module gsw_mod_check_data -0.002418201669973_r8, -0.0023877235157389_r8, -0.0023573143730946_r8, & -0.0026946659634197_r8, -0.0027528875139381_r8, -0.0028977412243115_r8, & -0.0030601272261746_r8, -0.003159088430022_r8, -0.0032094166025569_r8, & - -0.0031191714528193_r8, -0.0030524600176966_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0031191714528193_r8, -0.0030524600176966_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_ct_ct @@ -3158,12 +3158,12 @@ module gsw_mod_check_data -0.007959547435718_r8, -0.0077497735133368_r8, -0.0075426648438477_r8, & -0.011723471759667_r8, -0.011976789697152_r8, -0.012606952666552_r8, & -0.013307235353128_r8, -0.01373255329551_r8, -0.013947770011972_r8, & - -0.013524495474763_r8, -0.013191564491415_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.013524495474763_r8, -0.013191564491415_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_sa_p @@ -3202,12 +3202,12 @@ module gsw_mod_check_data -1.0046950233572e-09_r8, -9.9426901630348e-10_r8, -9.8377081452797e-10_r8, & -6.2683751139342e-10_r8, -6.3607549317202e-10_r8, -6.5575798794887e-10_r8, & -6.7809561735118e-10_r8, -6.9335531582729e-10_r8, -7.0341267204049e-10_r8, & - -7.2877696462748e-10_r8, -7.4689524733485e-10_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.2877696462748e-10_r8, -7.4689524733485e-10_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_ct_p @@ -3246,12 +3246,12 @@ module gsw_mod_check_data -2.3847210645202e-09_r8, -2.3527858146502e-09_r8, -2.3207306783839e-09_r8, & -2.4223839165869e-09_r8, -2.4946591161827e-09_r8, -2.668424687497e-09_r8, & -2.8575766601604e-09_r8, -2.9720904690727e-09_r8, -3.0316018836386e-09_r8, & - -2.943678764598e-09_r8, -2.8721154505435e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -2.943678764598e-09_r8, -2.8721154505435e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_sa_wrt_h @@ -3290,12 +3290,12 @@ module gsw_mod_check_data 0.75269727932888_r8, 0.75067795377909_r8, 0.748675413433_r8, & 0.77233733209404_r8, 0.77480691913432_r8, 0.78075098252979_r8, & 0.78706547138128_r8, 0.79078051526412_r8, 0.792647312487_r8, & - 0.78953545166739_r8, 0.78714130184412_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.78953545166739_r8, 0.78714130184412_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_h @@ -3334,12 +3334,12 @@ module gsw_mod_check_data -5.40063511092e-05_r8, -5.55252688451e-05_r8, -5.70232690355e-05_r8, & -2.53981282893e-05_r8, -2.26888948329e-05_r8, -1.62033512295e-05_r8, & -9.34079542763e-06_r8, -5.32426630316e-06_r8, -3.32786183136e-06_r8, & - -7.24148751014e-06_r8, -1.03952724858e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -7.24148751014e-06_r8, -1.03952724858e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_sa_sa_wrt_h @@ -3378,12 +3378,12 @@ module gsw_mod_check_data 0.0002079480528003_r8, 0.00022175440231739_r8, 0.00023629054366168_r8, & -0.00051611728824693_r8, -0.0005095971956231_r8, -0.00051329903492039_r8, & -0.00051233204262096_r8, -0.00050235500729276_r8, -0.00048522928031363_r8, & - -0.00030146633717192_r8, -0.00020091198253976_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.00030146633717192_r8, -0.00020091198253976_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_sa_h @@ -3422,12 +3422,12 @@ module gsw_mod_check_data -6.2285172760952e-07_r8, -6.1534524942743e-07_r8, -6.0781434605688e-07_r8, & -6.7503885207767e-07_r8, -6.896785243351e-07_r8, -7.2602875812786e-07_r8, & -7.6678109755996e-07_r8, -7.9164717322099e-07_r8, -8.0432888122645e-07_r8, & - -7.8187515379671e-07_r8, -7.6530173382511e-07_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.8187515379671e-07_r8, -7.6530173382511e-07_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_h_h @@ -3466,12 +3466,12 @@ module gsw_mod_check_data -4.9581691481792e-10_r8, -4.8246243928389e-10_r8, -4.6927681173461e-10_r8, & -7.3570533788899e-10_r8, -7.5159721805519e-10_r8, -7.9114050496597e-10_r8, & -8.3508737839095e-10_r8, -8.6177971314986e-10_r8, -8.7528680543905e-10_r8, & - -8.4871494406859e-10_r8, -8.2781028131876e-10_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -8.4871494406859e-10_r8, -8.2781028131876e-10_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sigma0 @@ -3510,12 +3510,12 @@ module gsw_mod_check_data 27.829116059983_r8, 27.829507336673_r8, 27.831347087126_r8, & 4.8817901578702_r8, 5.0539321223888_r8, 5.329271724986_r8, & 5.6156729478847_r8, 5.8317305346482_r8, 6.0164106949062_r8, & - 7.2544852839338_r8, 8.1988633845359_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.2544852839338_r8, 8.1988633845359_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sigma1 @@ -3554,12 +3554,12 @@ module gsw_mod_check_data 32.516252402249_r8, 32.516675871595_r8, 32.518633828671_r8, & 9.5483718759659_r8, 9.7429392960305_r8, 10.072249570888_r8, & 10.416511224384_r8, 10.666915979709_r8, 10.868912885939_r8, & - 12.071935501088_r8, 12.988292590885_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 12.071935501088_r8, 12.988292590885_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sigma2 @@ -3598,12 +3598,12 @@ module gsw_mod_check_data 37.098189155643_r8, 37.098643931165_r8, 37.100716850692_r8, & 14.110952552168_r8, 14.327381314662_r8, 14.709284518826_r8, & 15.109913441354_r8, 15.393774153684_r8, 15.612636537176_r8, & - 16.781494662657_r8, 17.670537805292_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16.781494662657_r8, 17.670537805292_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sigma3 @@ -3642,11 +3642,11 @@ module gsw_mod_check_data 41.576577984198_r8, 41.578762032582_r8, 18.57164596518_r8, & 18.809294969536_r8, 19.242225256335_r8, 19.697517350096_r8, & 20.013811662767_r8, 20.249017943248_r8, 21.384677057085_r8, & - 22.247178099159_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 22.247178099159_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sigma4 @@ -3685,12 +3685,12 @@ module gsw_mod_check_data 45.951407729273_r8, 45.951921858878_r8, 45.954212706413_r8, & 22.932589863519_r8, 23.190759914868_r8, 23.673005586895_r8, & 24.181088641893_r8, 24.528687878322_r8, 24.779659173866_r8, & - 25.883153186156_r8, 26.719940288727_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 25.883153186156_r8, 26.719940288727_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sound_speed @@ -3729,12 +3729,12 @@ module gsw_mod_check_data 1549.609929289_r8, 1554.2881589236_r8, 1558.9832497311_r8, & 1455.6671528759_r8, 1452.3454707756_r8, 1444.2197344025_r8, & 1435.6494527475_r8, 1430.7004361846_r8, 1428.3049699378_r8, & - 1433.9128531497_r8, 1438.5069127946_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 1433.9128531497_r8, 1438.5069127946_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: kappa @@ -3773,12 +3773,12 @@ module gsw_mod_check_data 3.9555676224754e-10_r8, 3.9277933529098e-10_r8, 3.9002058619621e-10_r8, & 4.6963543637402e-10_r8, 4.7168305628895e-10_r8, 4.7685209151296e-10_r8, & 4.8240107860249e-10_r8, 4.8561583822977e-10_r8, 4.8713259301629e-10_r8, & - 4.826761006939e-10_r8, 4.7909258883618e-10_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 4.826761006939e-10_r8, 4.7909258883618e-10_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: cabbeling @@ -3817,12 +3817,12 @@ module gsw_mod_check_data 8.8545252628613e-06_r8, 8.6673073307509e-06_r8, 8.4814533912726e-06_r8, & 1.2379398335815e-05_r8, 1.2563259717031e-05_r8, 1.3019967502548e-05_r8, & 1.3520436453062e-05_r8, 1.38194361383e-05_r8, 1.3968019943733e-05_r8, & - 1.3649233516677e-05_r8, 1.3397567439491e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.3649233516677e-05_r8, 1.3397567439491e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: thermobaric @@ -3861,12 +3861,12 @@ module gsw_mod_check_data 2.5381670827297e-12_r8, 2.5107656815664e-12_r8, 2.4830439799285e-12_r8, & 2.4925020217406e-12_r8, 2.5559742649892e-12_r8, 2.708059515658e-12_r8, & 2.8731484336049e-12_r8, 2.972807930732e-12_r8, 3.0244527052011e-12_r8, & - 2.9478853362429e-12_r8, 2.886414558933e-12_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.9478853362429e-12_r8, 2.886414558933e-12_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sa_from_rho @@ -3905,11 +3905,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720972_r8, & 7.3661052164124_r8, 7.5862209196424_r8, 9.1676241523683_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_from_rho @@ -3946,13 +3946,13 @@ module gsw_mod_check_data 1.0482212593721_r8, 0.96803553122243_r8, 0.9227069097898_r8, & 0.88704031144893_r8, 0.85738474530023_r8, 0.84629138894935_r8, & 0.84408786867765_r8, 0.84286638656_r8, 0.83823534122164_r8, & - 10.502767735302_r8, 9.5454546799622_r8, 7.3853472726033_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 10.502767735302_r8, 9.5454546799622_r8, 7.3853472726033_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_maxdensity @@ -3991,12 +3991,12 @@ module gsw_mod_check_data -18.241202529493_r8, -19.001088686437_r8, -19.773737146836_r8, & 2.6680438206626_r8, 2.6224733962175_r8, 2.5687611083654_r8, & 2.4953804672115_r8, 2.4210335398931_r8, 2.3485914149918_r8, & - 1.9278141139837_r8, 1.5914610539694_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 1.9278141139837_r8, 1.5914610539694_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: internal_energy @@ -4035,12 +4035,12 @@ module gsw_mod_check_data 3901.8584811951_r8, 3952.52840335_r8, 3991.8510287506_r8, & 41824.829227977_r8, 38003.386290217_r8, 29380.562357619_r8, & 20645.651752834_r8, 15614.979771763_r8, 13027.60652195_r8, & - 15888.932555832_r8, 18307.882082985_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 15888.932555832_r8, 18307.882082985_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: enthalpy @@ -4079,12 +4079,12 @@ module gsw_mod_check_data 57322.504808827_r8, 59766.960575564_r8, 62204.705632146_r8, & 41925.661983623_r8, 38203.689474294_r8, 29680.261435849_r8, & 21044.677853312_r8, 16113.301270798_r8, 13625.189671605_r8, & - 16743.740134094_r8, 19409.635594666_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16743.740134094_r8, 19409.635594666_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: enthalpy_diff @@ -4123,12 +4123,12 @@ module gsw_mod_check_data 94.9828082694677_r8, 94.88622731389871_r8, 94.78987712888562_r8, & 99.51185607270992_r8, 99.49010833180105_r8, 99.45803812673887_r8, & 99.42477467804514_r8, 99.39847418165967_r8, 99.37531220293501_r8, & - 99.24093120589134_r8, 99.13635726739815_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 99.24093120589134_r8, 99.13635726739815_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_from_enthalpy @@ -4167,12 +4167,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: dynamic_enthalpy @@ -4210,12 +4210,12 @@ module gsw_mod_check_data 51491.675716139_r8, 53953.017492863_r8, 56402.349254922_r8, & 58858.580833001_r8, 0._r8, 99.49480122235_r8, 198.93030614269_r8, & 298.30310845912_r8, 397.64218289951_r8, 496.94920738847_r8, & - 754.38773277069_r8, 1001.5437096866_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 754.38773277069_r8, 1001.5437096866_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: h_sa @@ -4248,11 +4248,11 @@ module gsw_mod_check_data -40.2859475605_r8, -42.0392532283_r8, -43.791863998_r8, -0._r8, & -0.0767040935152_r8, -0.154501693335_r8, -0.233495598853_r8, & -0.3126649116_r8, -0.391612882897_r8, -0.591471015429_r8, & - -0.782199965729_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + -0.782199965729_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: h_ct @@ -4291,12 +4291,12 @@ module gsw_mod_check_data 3999.25417674466_r8, 3999.762897871972_r8, 4000.284918030786_r8, & 3991.86795711963_r8, 3991.87691061669_r8, 3991.880702670805_r8, & 3991.878889955721_r8, 3991.876123659021_r8, 3991.874144008297_r8, & - 3991.888765135501_r8, 3991.907728370378_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 3991.888765135501_r8, 3991.907728370378_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: h_sa_sa @@ -4335,11 +4335,11 @@ module gsw_mod_check_data 0.049267207223353_r8, 0.050750544490417_r8, 0._r8, 0.00016872165100208_r8, & 0.00034158224568209_r8, 0.00051754767376502_r8, 0.00069033992218237_r8, & 0.00085695342982295_r8, 0.0011533076422249_r8, 0.0014213685309584_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: h_sa_ct @@ -4378,11 +4378,11 @@ module gsw_mod_check_data 0.13710967092246_r8, 0.14190158184137_r8, 0._r8, 0.00025875781916877_r8, & 0.00055376848326717_r8, 0.00089103643490681_r8, 0.0012367949700928_r8, & 0.0015767896412965_r8, 0.0023061612056031_r8, 0.002974885667951_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: h_ct_ct @@ -4420,12 +4420,12 @@ module gsw_mod_check_data 0.50631680377847_r8, 0.52592405386149_r8, 0.54502584438705_r8, & 0.56352002054041_r8, 0.58162527612039_r8, 0._r8, 0.0011876075123098_r8, & 0.0024977957365016_r8, 0.0039519979603911_r8, 0.0054363363578477_r8, & - 0.0069012555626452_r8, 0.010155490197901_r8, 0.013150834525106_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0069012555626452_r8, 0.010155490197901_r8, 0.013150834525106_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_sa @@ -4464,12 +4464,12 @@ module gsw_mod_check_data -0.0055685948385_r8, -0.00556687901076_r8, -0.00556047465796_r8, & -0.0144770495026_r8, -0.0130627683403_r8, -0.0098075468649_r8, & -0.00643919757634_r8, -0.0044753319083_r8, -0.00347118708921_r8, & - -0.00488688440307_r8, -0.00605812848642_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.00488688440307_r8, -0.00605812848642_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_pt @@ -4508,12 +4508,12 @@ module gsw_mod_check_data 0.9990744571061592_r8, 0.9990738576702139_r8, 0.9990709276616985_r8, & 1.040382360969603_r8, 1.040491660475071_r8, 1.040965859578698_r8, & 1.041437976452077_r8, 1.041608007209394_r8, 1.04154105138037_r8, & - 1.038593591712279_r8, 1.036360675014964_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.038593591712279_r8, 1.036360675014964_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_sa_sa @@ -4552,12 +4552,12 @@ module gsw_mod_check_data -0.000218686868061_r8, -0.000218697331949_r8, -0.000218736635434_r8, & -7.99325871881e-05_r8, -9.0193021802e-05_r8, -0.000112088469915_r8, & -0.000136021845315_r8, -0.000151270806493_r8, -0.00016030656921_r8, & - -0.000168288284046_r8, -0.000170939273636_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.000168288284046_r8, -0.000170939273636_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_sa_pt @@ -4596,12 +4596,12 @@ module gsw_mod_check_data -0.0014758153221466_r8, -0.0014758342947215_r8, -0.0014759022561398_r8, & -0.0015411553519167_r8, -0.0015569610393183_r8, -0.0015962252482844_r8, & -0.0016391335960339_r8, -0.0016646892700728_r8, -0.001677294410145_r8, & - -0.0016448838709999_r8, -0.0016197389041748_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0016448838709999_r8, -0.0016197389041748_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_pt_pt @@ -4640,12 +4640,12 @@ module gsw_mod_check_data 1.935693974e-05_r8, 1.93360895351e-05_r8, 1.92652522879e-05_r8, & -0.000282893001713_r8, -0.000305576148041_r8, -0.000364733365832_r8, & -0.000432552016716_r8, -0.000474055253352_r8, -0.000494285056329_r8, & - -0.00042901441677_r8, -0.000379558271901_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.00042901441677_r8, -0.000379558271901_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: eta_sa @@ -4684,12 +4684,12 @@ module gsw_mod_check_data -0.23244141802927_r8, -0.23244392198665_r8, -0.23245668835199_r8, & 0.16676070091548_r8, 0.16370277457661_r8, 0.16004516088679_r8, & 0.15328994467822_r8, 0.14611056856299_r8, 0.13921480533356_r8, & - 0.093856755817839_r8, 0.063757346664274_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.093856755817839_r8, 0.063757346664274_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: eta_ct @@ -4728,11 +4728,11 @@ module gsw_mod_check_data 14.569264314004_r8, 14.569510227885_r8, 14.095778037542_r8, & 14.141655835256_r8, 14.246332231953_r8, 14.353901586991_r8, & 14.416564644988_r8, 14.448993923533_r8, 14.412711637959_r8, & - 14.382050093657_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 14.382050093657_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: eta_sa_sa @@ -4771,12 +4771,12 @@ module gsw_mod_check_data -0.0073453313697612_r8, -0.0073452441183791_r8, -0.0073448311472955_r8, & -0.035806741490668_r8, -0.035253522320648_r8, -0.034531916551085_r8, & -0.033433036673362_r8, -0.032389312585892_r8, -0.031448139482989_r8, & - -0.026070906581364_r8, -0.02305413308642_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.026070906581364_r8, -0.02305413308642_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: eta_sa_ct @@ -4815,12 +4815,12 @@ module gsw_mod_check_data -0.00029637595964_r8, -0.000296287455808_r8, -0.000295957453847_r8, & -0.000692610412886_r8, -0.000628957038092_r8, -0.000479020251845_r8, & -0.000319125936217_r8, -0.000223701213603_r8, -0.000174301321355_r8, & - -0.000244850872211_r8, -0.000302895611935_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.000244850872211_r8, -0.000302895611935_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: eta_ct_ct @@ -4859,12 +4859,12 @@ module gsw_mod_check_data -0.053222755153866_r8, -0.053223261226806_r8, -0.053225214042378_r8, & -0.047841959285933_r8, -0.048148831986122_r8, -0.048842004880898_r8, & -0.049559891963857_r8, -0.049985390622801_r8, -0.050213750188489_r8, & - -0.050103675883415_r8, -0.049998215226643_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.050103675883415_r8, -0.049998215226643_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pt_sa @@ -4903,12 +4903,12 @@ module gsw_mod_check_data 0.0055737535865218_r8, 0.0055720395124174_r8, 0.0055656455452848_r8, & 0.013915123944579_r8, 0.012554419066044_r8, 0.0094215835943606_r8, & 0.0061829871023839_r8, 0.004296560584526_r8, 0.0033327415031916_r8, & - 0.0047052903484778_r8, 0.0058455792780188_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.0047052903484778_r8, 0.0058455792780188_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pt_ct @@ -4947,12 +4947,12 @@ module gsw_mod_check_data 1.000926400317071_r8, 1.000927000864526_r8, 1.000929936316409_r8, & 0.9611850772518216_r8, 0.961084108587105_r8, 0.9606462986257032_r8, & 0.9602108071829238_r8, 0.9600540636003104_r8, 0.9601157810099611_r8, & - 0.9628405258608884_r8, 0.9649150378902223_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.9628405258608884_r8, 0.9649150378902223_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pt_sa_sa @@ -4991,12 +4991,12 @@ module gsw_mod_check_data 0.00023535576028844_r8, 0.00023536152373805_r8, 0.00023538342438298_r8, & 0.00011810859512278_r8, 0.00012430149320688_r8, 0.00013660273635164_r8, & 0.00015008850128652_r8, 0.00015897000895168_r8, 0.00016465221065238_r8, & - 0.00017694803438694_r8, 0.00018322662388595_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00017694803438694_r8, 0.00018322662388595_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pt_sa_ct @@ -5035,12 +5035,12 @@ module gsw_mod_check_data 0.0014784428872693_r8, 0.0014784638187771_r8, 0.0014785410973985_r8, & 0.0014274744310446_r8, 0.0014416814687737_r8, 0.0014762338167654_r8, & 0.0015137548968642_r8, 0.0015362277615597_r8, 0.00154768594699_r8, & - 0.0015267805273288_r8, 0.0015101415485478_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.0015267805273288_r8, 0.0015101415485478_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pt_ct_ct @@ -5079,12 +5079,12 @@ module gsw_mod_check_data -1.94107862783e-05_r8, -1.93899129641e-05_r8, -1.93190485165e-05_r8, & 0.00025121366366_r8, 0.000271271166824_r8, 0.000323344910896_r8, & 0.000382946499744_r8, 0.000419484606323_r8, 0.00043747002289_r8, & - 0.000382943731625_r8, 0.000340993169223_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.000382943731625_r8, 0.000340993169223_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_freezing @@ -5123,12 +5123,12 @@ module gsw_mod_check_data -6.7694438620997_r8, -7.0193468650423_r8, -7.2724965542372_r8, & -0.34435926378422_r8, -0.3573186152802_r8, -0.37215500955514_r8, & -0.39152606605777_r8, -0.41111860875015_r8, -0.43027090960747_r8, & - -0.53372193526402_r8, -0.61754439555328_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.53372193526402_r8, -0.61754439555328_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_freezing_poly @@ -5167,12 +5167,12 @@ module gsw_mod_check_data -6.7694086776269_r8, -7.0193321189572_r8, -7.2725060322355_r8, & -0.34436067697949_r8, -0.35732308452908_r8, -0.37216307421288_r8, & -0.39153899577668_r8, -0.4111364360127_r8, -0.43029348368924_r8, & - -0.53376844166695_r8, -0.61760714190764_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.53376844166695_r8, -0.61760714190764_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: t_freezing @@ -5211,12 +5211,12 @@ module gsw_mod_check_data -6.5973716576996_r8, -6.836374707733_r8, -7.0784279680514_r8, & -0.35965035812233_r8, -0.37262215964933_r8, -0.38747828670447_r8, & -0.40688908217896_r8, -0.4265177878358_r8, -0.4456992862519_r8, & - -0.54941912387446_r8, -0.63333279383543_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.54941912387446_r8, -0.63333279383543_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: t_freezing_poly @@ -5255,12 +5255,12 @@ module gsw_mod_check_data -6.5973347712821_r8, -6.8363592185427_r8, -7.078437942861_r8, & -0.35965171025197_r8, -0.372626436965_r8, -0.38748600761827_r8, & -0.40690146670374_r8, -0.42653487165802_r8, -0.44572092909025_r8, & - -0.54946384049902_r8, -0.63339326223743_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.54946384049902_r8, -0.63339326223743_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pot_enthalpy_ice_freezing @@ -5299,12 +5299,12 @@ module gsw_mod_check_data -349489.6681382116_r8, -350083.0649962297_r8, -350681.8699356489_r8, & -334111.3419690022_r8, -334143.2567784233_r8, -334179.1147826227_r8, & -334224.5065956119_r8, -334270.3499821011_r8, -334315.2523822773_r8, & - -334544.6745763633_r8, -334732.08961088_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -334544.6745763633_r8, -334732.08961088_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pot_enthalpy_ice_freezing_poly @@ -5343,12 +5343,12 @@ module gsw_mod_check_data -349490.2853720206_r8, -350083.8744791881_r8, -350682.8848710884_r8, & -334111.368591349_r8, -334143.286937236_r8, -334179.1468142975_r8, & -334224.5366951195_r8, -334270.3782708608_r8, -334315.2795182845_r8, & - -334544.6668354722_r8, -334732.070891422_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -334544.6668354722_r8, -334732.070891422_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sa_freezing_from_ct @@ -5387,12 +5387,12 @@ module gsw_mod_check_data 34.881086643284_r8, 34.881476814695_r8, 34.883401613802_r8, & 6.669904340924_r8, 6.7737814418926_r8, 6.9129530644763_r8, & 7.1375206720999_r8, 7.3661052164131_r8, 7.5862209196448_r8, & - 9.1676241523674_r8, 10.389468455025_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.1676241523674_r8, 10.389468455025_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sa_freezing_from_ct_poly @@ -5431,12 +5431,12 @@ module gsw_mod_check_data 34.881086643283_r8, 34.881476814693_r8, 34.883401613801_r8, & 6.6699043409305_r8, 6.7737814418975_r8, 6.9129530644828_r8, & 7.1375206721037_r8, 7.3661052164194_r8, 7.5862209196494_r8, & - 9.167624152377_r8, 10.389468455037_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.167624152377_r8, 10.389468455037_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sa_freezing_from_t @@ -5475,12 +5475,12 @@ module gsw_mod_check_data 34.881086643285_r8, 34.881476814694_r8, 34.883401613803_r8, & 6.6699043409241_r8, 6.7737814418901_r8, 6.9129530644795_r8, & 7.1375206720995_r8, 7.366105216414_r8, 7.5862209196443_r8, & - 9.1676241523664_r8, 10.389468455024_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.1676241523664_r8, 10.389468455024_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sa_freezing_from_t_poly @@ -5519,11 +5519,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, & 7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ctfreezing_sa @@ -5562,12 +5562,12 @@ module gsw_mod_check_data -0.05918008599653621_r8, -0.05910387488585715_r8, -0.05901650759560111_r8, & -0.0530013208250531_r8, -0.05300868058120169_r8, -0.05301648782767866_r8, & -0.05302585759226835_r8, -0.05303763334873637_r8, -0.05305140995942938_r8, & - -0.05316382330146954_r8, -0.05330256692258663_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05316382330146954_r8, -0.05330256692258663_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ctfreezing_p @@ -5606,12 +5606,12 @@ module gsw_mod_check_data -9.6429767600759e-08_r8, -9.7275573331652e-08_r8, -9.811901943903e-08_r8, & -7.4508663833748e-08_r8, -7.4559317771882e-08_r8, -7.4612922079419e-08_r8, & -7.4673681992147e-08_r8, -7.4734647757879e-08_r8, -7.4794770309749e-08_r8, & - -7.5033133741101e-08_r8, -7.523464380045e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -7.5033133741101e-08_r8, -7.523464380045e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ctfreezing_sa_poly @@ -5650,12 +5650,12 @@ module gsw_mod_check_data -0.05917471845970226_r8, -0.05909983683966646_r8, -0.05901388460027225_r8, & -0.05301578087812731_r8, -0.05302319516586801_r8, -0.05303095076059756_r8, & -0.05304001404371655_r8, -0.05305145476308031_r8, -0.05306490732203371_r8, & - -0.05317340686483132_r8, -0.05330941332221949_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05317340686483132_r8, -0.05330941332221949_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ctfreezing_p_poly @@ -5694,12 +5694,12 @@ module gsw_mod_check_data -9.6436423416394e-08_r8, -9.7283810317375e-08_r8, -9.8128508629192e-08_r8, & -7.4523336070684e-08_r8, -7.4574037788968e-08_r8, -7.4627805308599e-08_r8, & -7.4689007291807e-08_r8, -7.4750417572581e-08_r8, -7.4810945632147e-08_r8, & - -7.5053434072496e-08_r8, -7.5257631194106e-08_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.5053434072496e-08_r8, -7.5257631194106e-08_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: tfreezing_sa @@ -5738,12 +5738,12 @@ module gsw_mod_check_data -0.05838729589410799_r8, -0.05846589353901376_r8, -0.05854612103247572_r8, & -0.05329571534278817_r8, -0.05329554567939729_r8, -0.05329562519036385_r8, & -0.05329660126634706_r8, -0.05329929376510896_r8, -0.05330345110175239_r8, & - -0.05336469388817219_r8, -0.05344564200252166_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05336469388817219_r8, -0.05344564200252166_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: tfreezing_p @@ -5798,12 +5798,12 @@ module gsw_mod_check_data -7.434016238386904e-08_r8, -7.437296853650948e-08_r8, & -7.440612109683406e-08_r8, -7.444012331884646e-08_r8, & -7.44741921779601e-08_r8, -7.450820230415053e-08_r8, & - -7.460755605334024e-08_r8, -7.470082142144461e-08_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.460755605334024e-08_r8, -7.470082142144461e-08_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: tfreezing_sa_poly @@ -5842,12 +5842,12 @@ module gsw_mod_check_data -0.05838359345146146_r8, -0.05846256787956657_r8, -0.05854326890811165_r8, & -0.05328313052667945_r8, -0.05328327595499649_r8, -0.05328377491250316_r8, & -0.05328542100107363_r8, -0.05328879709176362_r8, -0.05329361262604533_r8, & - -0.05335925772583553_r8, -0.05344317961274174_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05335925772583553_r8, -0.05344317961274174_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: tfreezing_p_poly @@ -5902,12 +5902,12 @@ module gsw_mod_check_data -7.437794913764851e-08_r8, -7.441028173277502e-08_r8, & -7.444297042643836e-08_r8, -7.447652904016719e-08_r8, & -7.451016050159252e-08_r8, -7.454373661765283e-08_r8, & - -7.464226441645901e-08_r8, -7.473474154207217e-08_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.464226441645901e-08_r8, -7.473474154207217e-08_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pot_enthalpy_ice_freezing_sa @@ -5946,12 +5946,12 @@ module gsw_mod_check_data -118.5718702504829_r8, -118.5833497933198_r8, -118.5964258085308_r8, & -111.6185555792632_r8, -111.6113679321992_r8, -111.6039619657437_r8, & -111.5966438055147_r8, -111.5928332056843_r8, -111.5922639668351_r8, & - -111.6751435909979_r8, -111.8071141844643_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -111.6751435909979_r8, -111.8071141844643_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pot_enthalpy_ice_freezing_p @@ -6006,12 +6006,12 @@ module gsw_mod_check_data -0.0002031814332884368_r8, -0.0002032301319067567_r8, & -0.0002032779018859639_r8, -0.0002033234610010417_r8, & -0.0002033689592190151_r8, -0.0002034147156986458_r8, & - -0.0002035093752924112_r8, -0.0002036093733581402_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.0002035093752924112_r8, -0.0002036093733581402_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pot_enthalpy_ice_freezing_sa_poly @@ -6050,12 +6050,12 @@ module gsw_mod_check_data -118.5921751086301_r8, -118.6067982250461_r8, -118.6230673860459_r8, & -111.5700765594952_r8, -111.5637032121096_r8, -111.5573803074221_r8, & -111.5518097831558_r8, -111.549791076265_r8, -111.5509512746412_r8, & - -111.646217238763_r8, -111.7869466979063_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -111.646217238763_r8, -111.7869466979063_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pot_enthalpy_ice_freezing_p_poly @@ -6110,12 +6110,12 @@ module gsw_mod_check_data -0.000203267229694165_r8, -0.0002033149358290789_r8, & -0.000203361719128917_r8, -0.0002034062929562954_r8, & -0.0002034507832465749_r8, -0.0002034955116930291_r8, & - -0.0002035868068629447_r8, -0.0002036831985411069_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.0002035868068629447_r8, -0.0002036831985411069_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: latentheat_melting @@ -6154,12 +6154,12 @@ module gsw_mod_check_data 317340.4381456572_r8, 316649.1736884361_r8, 315945.6174279523_r8, & 332669.6437188723_r8, 332640.2572422285_r8, 332607.0564168283_r8, & 332564.65820149_r8, 332521.8726991066_r8, 332480.0412048035_r8, & - 332264.3938576001_r8, 332090.4995257973_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 332264.3938576001_r8, 332090.4995257973_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: latentheat_evap_ct @@ -6198,12 +6198,12 @@ module gsw_mod_check_data 2496511.788918582_r8, 2496514.679703501_r8, 2496525.620648657_r8, & 2474951.236445722_r8, 2477150.708018741_r8, 2482116.299355683_r8, & 2487144.960734571_r8, 2490040.730189713_r8, 2491529.576826381_r8, & - 2489855.680475559_r8, 2488434.428739395_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2489855.680475559_r8, 2488434.428739395_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: latentheat_evap_t @@ -6242,12 +6242,12 @@ module gsw_mod_check_data 2495305.858746646_r8, 2495225.724194544_r8, 2495151.490367209_r8, & 2474951.236445722_r8, 2477149.192049776_r8, 2482114.157329434_r8, & 2487143.137323316_r8, 2490039.374968516_r8, 2491528.553854507_r8, & - 2489852.225141957_r8, 2488427.808798687_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2489852.225141957_r8, 2488427.808798687_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: grav @@ -6286,12 +6286,12 @@ module gsw_mod_check_data 9.793915508772173_r8, 9.794468151359965_r8, 9.795022339414075_r8, & 9.818385590850475_r8, 9.818407572464066_r8, 9.818429553010436_r8, & 9.81845153248991_r8, 9.818473510902823_r8, 9.818495488249502_r8, & - 9.818552624363246_r8, 9.818607556144389_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 9.818552624363246_r8, 9.818607556144389_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: enthalpy_ct_exact @@ -6330,12 +6330,12 @@ module gsw_mod_check_data 57322.501483125_r8, 59766.957096513_r8, 62204.701996098_r8, & 41925.661983623_r8, 38203.689480714_r8, 29680.261445303_r8, & 21044.677871075_r8, 16113.301299732_r8, 13625.18970737_r8, & - 16743.740011372_r8, 19409.635279461_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16743.740011372_r8, 19409.635279461_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: h_sa_ct_exact @@ -6368,11 +6368,11 @@ module gsw_mod_check_data -40.2864421028_r8, -42.039759396_r8, -43.7923727633_r8, 0._r8, & -0.0767124462575_r8, -0.154521128555_r8, -0.233529183568_r8, & -0.312713363967_r8, -0.391676442514_r8, -0.591567978773_r8, & - -0.782297536806_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + -0.782297536806_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: h_ct_ct_exact @@ -6411,12 +6411,12 @@ module gsw_mod_check_data 3999.256895784855_r8, 3999.765693812938_r8, 4000.287774376506_r8, & 3991.86795711963_r8, 3991.876911698921_r8, 3991.880701355361_r8, & 3991.878882338572_r8, 3991.876109030451_r8, 3991.874122733088_r8, & - 3991.888742365541_r8, 3991.90771168561_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 3991.888742365541_r8, 3991.90771168561_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: h_sa_sa_ct_exact @@ -6455,11 +6455,11 @@ module gsw_mod_check_data 0.055225066900172_r8, 0.057096096792184_r8, 0._r8, 0.00016487595354669_r8, & 0.00033463077136397_r8, 0.00050846449695568_r8, 0.00067996552457185_r8, & 0.000846306657985_r8, 0.0011641486228366_r8, 0.0014506369945591_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: h_sa_ct_ct_exact @@ -6498,11 +6498,11 @@ module gsw_mod_check_data 0.13676955839746_r8, 0.14156160239403_r8, 0._r8, 0.00025914571458517_r8, & 0.00055454300863473_r8, 0.00089187707309008_r8, 0.0012374586051721_r8, & 0.0015773436097115_r8, 0.0023100057295601_r8, 0.0029814007789332_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: h_ct_ct_ct_exact @@ -6540,12 +6540,12 @@ module gsw_mod_check_data 0.52574850794365_r8, 0.54484001484201_r8, 0.56332750212384_r8, & 0.58143198106786_r8, 0._r8, 0.0011883837407528_r8, 0.0024995343269944_r8, & 0.0039547266160598_r8, 0.0054400879379148_r8, 0.0069061436514812_r8, & - 0.010163914501159_r8, 0.01316138782273_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.010163914501159_r8, 0.01316138782273_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: rho_t_exact @@ -6584,12 +6584,12 @@ module gsw_mod_check_data 1052.801348924726_r8, 1053.873097410109_r8, 1054.94446014967_r8, & 1004.881703725263_r8, 1005.101280969829_r8, 1005.425131980654_r8, & 1005.761213793721_r8, 1006.02715857045_r8, 1006.261562376281_r8, & - 1007.624587752987_r8, 1008.687812318329_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.624587752987_r8, 1008.687812318329_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: pot_rho_t_exact @@ -6628,12 +6628,12 @@ module gsw_mod_check_data 1027.829219438152_r8, 1027.829610807735_r8, 1027.831450910974_r8, & 1004.881703725263_r8, 1005.053867831101_r8, 1005.329225275224_r8, & 1005.615615468646_r8, 1005.831660997495_r8, 1006.016343242448_r8, & - 1007.254656852288_r8, 1008.199190243294_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.254656852288_r8, 1008.199190243294_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: alpha_wrt_t_exact @@ -6672,12 +6672,12 @@ module gsw_mod_check_data 0.00019726232414476_r8, 0.00020235067750112_r8, 0.00020734462231256_r8, & 0.00010498616088217_r8, 9.3763203248887e-05_r8, 6.6948840745084e-05_r8, & 3.8572021505753e-05_r8, 2.1958178856618e-05_r8, 1.3698251429773e-05_r8, & - 2.974148308407e-05_r8, 4.2575930715782e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.974148308407e-05_r8, 4.2575930715782e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: beta_const_t_exact @@ -6716,12 +6716,12 @@ module gsw_mod_check_data 0.00071990763462134_r8, 0.00071755187225658_r8, 0.00071522116568008_r8, & 0.00077012209995467_r8, 0.00077213899873602_r8, 0.00077727164691835_r8, & 0.00078291232214769_r8, 0.00078626212253045_r8, 0.00078789067779263_r8, & - 0.00078383856977939_r8, 0.00078072535810303_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078383856977939_r8, 0.00078072535810303_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: specvol_t_exact @@ -6774,12 +6774,12 @@ module gsw_mod_check_data 0.000995142011535123_r8, 0.0009949246100204876_r8, & 0.0009946041412651316_r8, 0.0009942717876622131_r8, & 0.0009940089504352802_r8, 0.0009937774008166485_r8, & - 0.0009924331066890799_r8, 0.0009913870156730046_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009924331066890799_r8, 0.0009913870156730046_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: sound_speed_t_exact @@ -6818,12 +6818,12 @@ module gsw_mod_check_data 1549.6117936248_r8, 1554.290449102_r8, 1558.9859082367_r8, & 1455.6831811918_r8, 1452.3625840726_r8, 1444.239631824_r8, & 1435.6727625022_r8, 1430.7264379745_r8, 1428.3327658191_r8, & - 1433.9414737382_r8, 1438.5338278577_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 1433.9414737382_r8, 1438.5338278577_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: kappa_t_exact @@ -6862,12 +6862,12 @@ module gsw_mod_check_data 3.9555578574473e-10_r8, 3.9277815434433e-10_r8, 3.9001923395066e-10_r8, & 4.6962513464964e-10_r8, 4.7167197129523e-10_r8, 4.7683897562167e-10_r8, & 4.8238544395298e-10_r8, 4.8559822445408e-10_r8, 4.8711367104981e-10_r8, & - 4.8265675815594e-10_r8, 4.790745149808e-10_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 4.8265675815594e-10_r8, 4.790745149808e-10_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: enthalpy_t_exact @@ -6906,12 +6906,12 @@ module gsw_mod_check_data 57322.501483125_r8, 59766.957096513_r8, 62204.701996098_r8, & 41925.661983623_r8, 38203.689480714_r8, 29680.261445303_r8, & 21044.677871075_r8, 16113.301299732_r8, 13625.18970737_r8, & - 16743.740011372_r8, 19409.635279461_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16743.740011372_r8, 19409.635279461_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_sa_wrt_t @@ -6950,12 +6950,12 @@ module gsw_mod_check_data -0.014072628686_r8, -0.0143730755344_r8, -0.0146638828542_r8, & -0.0144770495026_r8, -0.0130806915645_r8, -0.00984626835963_r8, & -0.00650204131652_r8, -0.00456294560753_r8, -0.00358310437893_r8, & - -0.00504964627847_r8, -0.00626702045744_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.00504964627847_r8, -0.00626702045744_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_t_wrt_t @@ -6994,12 +6994,12 @@ module gsw_mod_check_data 0.9613759379365453_r8, 0.9600865478409804_r8, 0.9588200326463092_r8, & 1.040382360969603_r8, 1.040398357380179_r8, 1.040772451657793_r8, & 1.041136391013527_r8, 1.041196638004305_r8, 1.041021199857103_r8, & - 1.037828060508981_r8, 1.035368419878411_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.037828060508981_r8, 1.035368419878411_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: ct_p_wrt_t @@ -7038,12 +7038,12 @@ module gsw_mod_check_data -1.28606235254e-08_r8, -1.31788866368e-08_r8, -1.34901950014e-08_r8, & -7.41187460851e-09_r8, -6.59663334431e-09_r8, -4.67401666435e-09_r8, & -2.67182219021e-09_r8, -1.51399635463e-09_r8, -9.42142599939e-10_r8, & - -2.04794442546e-09_r8, -2.93485453165e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -2.04794442546e-09_r8, -2.93485453165e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: chem_potential_water_t_exact @@ -7082,12 +7082,12 @@ module gsw_mod_check_data 53.103015316397_r8, 55.612816060606_r8, 58.129543323637_r8, & -1.1226592127859_r8, -0.89508450708121_r8, -0.54659337008948_r8, & -0.26606408987197_r8, -0.09879179535595_r8, 0.020438641668798_r8, & - 0.13747607525642_r8, 0.26764832484136_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.13747607525642_r8, 0.26764832484136_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: t_deriv_chem_potential_water_t_exact @@ -7126,12 +7126,12 @@ module gsw_mod_check_data -0.0276422895662_r8, -0.0277773790261_r8, -0.0278586774043_r8, & -0.153370026777_r8, -0.139766509712_r8, -0.108847934496_r8, & -0.0773007866804_r8, -0.0590424607412_r8, -0.0496472894285_r8, & - -0.0606436969679_r8, -0.0699304866827_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0606436969679_r8, -0.0699304866827_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: dilution_coefficient_t_exact @@ -7170,12 +7170,12 @@ module gsw_mod_check_data 72.085515733992_r8, 72.156278733013_r8, 72.224944994649_r8, & 67.616064342506_r8, 67.393227954882_r8, 66.882766763945_r8, & 66.363169629683_r8, 66.065372183713_r8, 65.916337307894_r8, & - 66.205547430761_r8, 66.491057841081_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 66.205547430761_r8, 66.491057841081_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: deltasa_atlas @@ -7212,12 +7212,12 @@ module gsw_mod_check_data 0.015980441165909_r8, 0.015427993081175_r8, 0.015031765070164_r8, & 0.014752503347485_r8, 0.014571537959061_r8, 0.014479362618144_r8, & 0.014425096269633_r8, 0.01439026764316_r8, 0.014359769181164_r8, 0._r8, & - 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: fdelta @@ -7254,12 +7254,12 @@ module gsw_mod_check_data 0.00061906246610478_r8, 0.00059757938871502_r8, 0.00058216858248275_r8, & 0.00057132159369387_r8, 0.00056429229571656_r8, 0.00056071080342301_r8, & 0.00055860236733881_r8, 0.00055724686598179_r8, 0.00055603918673276_r8, & - 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result_mpres) :: n2 @@ -7297,12 +7297,12 @@ module gsw_mod_check_data 9.9982620909999e-08_r8, 2.4654934937997e-08_r8, 2.0885423177912e-08_r8, & 9.223702816207e-08_r8, 0.0001660648551066_r8, 0.00026633634883617_r8, & 0.00027763586396894_r8, 0.00020948149219376_r8, 0.00017879921415107_r8, & - 0.00045821505037643_r8, 0.0003631969327651_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00045821505037643_r8, 0.0003631969327651_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: p_mid_n2 @@ -7321,12 +7321,12 @@ module gsw_mod_check_data 1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, & 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, & 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, & - 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: tu @@ -7356,12 +7356,12 @@ module gsw_mod_check_data 33.5909391428_r8, 29.7048355369_r8, 35.2075098131_r8, 37.2062343408_r8, & 35.4422070149_r8, 22.2582946063_r8, -2.71157620588_r8, -9.2408573343_r8, & 3.83688900053_r8, 12.213034823_r8, -12.5408613299_r8, -33.415215626_r8, & - -41.3216504414_r8, -45.694408063_r8, -46.2699201995_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -41.3216504414_r8, -45.694408063_r8, -46.2699201995_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: rsubrho @@ -7399,12 +7399,12 @@ module gsw_mod_check_data -5.9389578850225_r8, -2.3856977176447_r8, -0.90956072716382_r8, & -0.7201392832697_r8, -1.143775818143_r8, -1.5524718006901_r8, & -0.63606810722336_r8, -0.20499378284572_r8, -0.064287656743285_r8, & - 0.012120300497005_r8, 0.022167918876923_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.012120300497005_r8, 0.022167918876923_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: p_mid_tursr @@ -7423,12 +7423,12 @@ module gsw_mod_check_data 1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, & 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, & 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, & - 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: n2min @@ -7466,12 +7466,12 @@ module gsw_mod_check_data 9.8716189054048e-08_r8, 2.4408839243381e-08_r8, 2.0758737456709e-08_r8, & 9.1779374620329e-08_r8, 0.0001611729885002_r8, 0.00023944070948783_r8, & 0.00024904640983871_r8, 0.00020007889751824_r8, 0.00017649915736858_r8, & - 0.0004552721778721_r8, 0.00036118359668038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.0004552721778721_r8, 0.00036118359668038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: n2min_pmid @@ -7490,12 +7490,12 @@ module gsw_mod_check_data 1517._r8, 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, & 3045._r8, 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, & 4840._r8, 5098._r8, 5355._r8, 5614._r8, 5872._r8, 10._r8, 20._r8, 30._r8, & - 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 40._r8, 50._r8, 76._r8, 101._r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: n2min_specvol @@ -7548,11 +7548,11 @@ module gsw_mod_check_data 0.0009946040926904509_r8, 0.0009942717261025088_r8, & 0.0009940088745524498_r8, 0.0009937773244990007_r8, & 0.0009924332606871787_r8, 0.0009913873184543118_r8, & - 0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009913873184543118_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: n2min_alpha @@ -7591,11 +7591,11 @@ module gsw_mod_check_data 0.0002107349775155_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 4.1139568399101e-05_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: n2min_beta @@ -7634,11 +7634,11 @@ module gsw_mod_check_data 0.00071451889363731_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & 0.00078356549344703_r8, 0.00078036996563038_r8, 0.00078036996563038_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: n2min_dsa @@ -7677,12 +7677,12 @@ module gsw_mod_check_data 0.001071921709083767_r8, 0.000509604108586359_r8, 0.0002601674146944788_r8, & 0.0003901714079006524_r8, 0.001924799106966191_r8, 0.1038771009668551_r8, & 0.1391716225851436_r8, 0.2245676076205712_r8, 0.2285845443154297_r8, & - 0.2201157032297125_r8, 1.581403232725715_r8, 1.221844302658285_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.2201157032297125_r8, 1.581403232725715_r8, 1.221844302658285_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: n2min_dct @@ -7720,12 +7720,12 @@ module gsw_mod_check_data -0.011093356350105_r8, -0.0022035202723656_r8, -0.0012214821167824_r8, & -0.0046310453391714_r8, -0.95731305534169_r8, -2.1601074073571_r8, & -2.1881877052759_r8, -1.2602409976967_r8, -0.64817239735291_r8, & - 0.71673511444779_r8, 0.60591670607301_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.71673511444779_r8, 0.60591670607301_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: n2min_dp @@ -7743,11 +7743,11 @@ module gsw_mod_check_data 102._r8, 101._r8, 254._r8, 254._r8, 254._r8, 255._r8, 255._r8, 256._r8, & 255._r8, 256._r8, 256._r8, 257._r8, 256._r8, 258._r8, 257._r8, 258._r8, & 257._r8, 259._r8, 258._r8, 259._r8, 10._r8, 10._r8, 10._r8, 10._r8, 10._r8, & - 26._r8, 25._r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 26._r8, 25._r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: ipvfn2 @@ -7777,12 +7777,12 @@ module gsw_mod_check_data 0.489471768125_r8, 0.510287776481_r8, 0.451275078269_r8, 0.421444778721_r8, & 0.43039269445_r8, 0.539652744147_r8, 0.713846676418_r8, 0.757928068915_r8, & 0.99936536978_r8, 0.997108372389_r8, 0.995041407996_r8, 0.994575061931_r8, & - 0.995970426837_r8, 1.00211308856_r8, 1.00308855992_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 0.995970426837_r8, 1.00211308856_r8, 1.00308855992_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result_mpres) :: p_mid_ipvfn2 @@ -7801,12 +7801,12 @@ module gsw_mod_check_data 1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, & 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, & 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, & - 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_mpres_m,cast_mpres_n ] ) ) / type(gsw_result) :: n2_lowerlimit @@ -7845,19 +7845,19 @@ module gsw_mod_check_data 2.5273484074738e-08_r8, 2.52112924922e-08_r8, 2.5163080410076e-08_r8, & 1e-07_r8, 9.9253737531188e-08_r8, 9.8514900498007e-08_r8, & 9.7783415016138e-08_r8, 9.7059207936424e-08_r8, 9.6342206837554e-08_r8, & - 9.4511215491954e-08_r8, 9.279497746644e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 9.4511215491954e-08_r8, 9.279497746644e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result_cast) :: mlp data mlp / gsw_result_cast( & "mlp", 2.3e-08_r8, reshape( [ & - 50._r8, 50._r8, 9e90_r8 & + 50._r8, 50._r8, 9e1_r8 & ], shape = [ cast_n ] ) ) / type(gsw_result) :: geo_strf_dyn_height @@ -7888,12 +7888,12 @@ module gsw_mod_check_data -34.6196050521_r8, -35.528763007_r8, -36.4329605749_r8, -37.3502339552_r8, & -38.2718413368_r8, -39.2027260967_r8, 0._r8, -2.24045354272_r8, & -4.45755336701_r8, -6.64607367518_r8, -8.80938788479_r8, -10.9527107504_r8, & - -16.3381819771_r8, -21.247093529_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + -16.3381819771_r8, -21.247093529_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: geo_strf_dyn_height_pc @@ -7924,12 +7924,12 @@ module gsw_mod_check_data -32.7229663545_r8, -33.6259672453_r8, -34.5278590095_r8, -35.437066302_r8, & -36.3558675938_r8, -37.2801867992_r8, 0._r8, -1.11548125131_r8, & -3.33264515219_r8, -5.5216982052_r8, -7.68551090876_r8, -9.82911352409_r8, & - -13.5117663277_r8, -18.5249676298_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + -13.5117663277_r8, -18.5249676298_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result) :: geo_strf_dyn_height_pc_p_mid @@ -7949,11 +7949,11 @@ module gsw_mod_check_data 2152._r8, 2406.5_r8, 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, & 3940.5_r8, 4197._r8, 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, & 5743._r8, 6001.5_r8, 0._r8, 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, & - 88.5_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 88.5_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_m,cast_n ] ) ) / type(gsw_result_ice) :: rho_ice @@ -8805,23 +8805,23 @@ module gsw_mod_check_data data pressure_freezing_ct / gsw_result_ice( & "pressure_freezing_CT", 7.8061e-07_r8, reshape( [ & 1096.2576803_r8, 1070.15780265_r8, 1034.10979826_r8, 1016.50879419_r8, & - 9e90_r8, 9e90_r8, 437.916027373_r8, 755.449491706_r8, 881.374551326_r8, & - 954.261417834_r8, 887.895489475_r8, 600.592848315_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 802.377377456_r8, & - 853.652282077_r8, 845.860234122_r8, 9e90_r8, 9e90_r8, 9e90_r8, & + 9e1_r8, 9e1_r8, 437.916027373_r8, 755.449491706_r8, 881.374551326_r8, & + 954.261417834_r8, 887.895489475_r8, 600.592848315_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 802.377377456_r8, & + 853.652282077_r8, 845.860234122_r8, 9e1_r8, 9e1_r8, 9e1_r8, & 734.087015732_r8, 1063.88226444_r8, 1069.83800462_r8, 1066.97994243_r8, & - 1036.44481588_r8, 917.648895914_r8, 78.4226170927_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 1161.78021795_r8, & + 1036.44481588_r8, 917.648895914_r8, 78.4226170927_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 1161.78021795_r8, & 1175.15379759_r8, 1174.68820878_r8, 1143.24330131_r8, 948.567161058_r8, & 678.700648579_r8, 771.864647788_r8, 891.763117349_r8, 776.657764279_r8, & - 582.676250797_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 582.676250797_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_ice_m,cast_ice_n ] ) ) / type(gsw_result_ice) :: melting_ice_sa_ct_ratio @@ -9561,28 +9561,28 @@ module gsw_mod_check_data data frazil_properties_potential_poly_sa_final / gsw_result_ice( & "frazil_properties_potential_poly_SA_final", 3.6578e-10_r8, reshape( [ & - 27.619462009144_r8, 28.077395240092_r8, 28.099518740265_r8, 9e90_r8, & + 27.619462009144_r8, 28.077395240092_r8, 28.099518740265_r8, 9e1_r8, & 29.898283690558_r8, 30.833138422429_r8, 31.958029861582_r8, & 32.447864928944_r8, 32.721248702259_r8, 32.97016250481_r8, & 33.237918493123_r8, 33.569673037364_r8, 33.9386294611_r8, & - 33.889620551202_r8, 9e90_r8, 33.807059234246_r8, 33.847529321824_r8, & + 33.889620551202_r8, 9e1_r8, 33.807059234246_r8, 33.847529321824_r8, & 33.894615740874_r8, 33.906644166593_r8, 33.935064268119_r8, & 33.963417505071_r8, 33.969243390678_r8, 33.981943113224_r8, & - 33.98336654852_r8, 33.970247817386_r8, 33.968583289137_r8, 9e90_r8, & + 33.98336654852_r8, 33.970247817386_r8, 33.968583289137_r8, 9e1_r8, & 33.91571968155_r8, 33.873474659656_r8, 33.785757272285_r8, & - 33.684236446719_r8, 9e90_r8, 33.460701558507_r8, 33.382581211615_r8, & - 9e90_r8, 33.182206929451_r8, 28.401595974588_r8, 9e90_r8, & + 33.684236446719_r8, 9e1_r8, 33.460701558507_r8, 33.382581211615_r8, & + 9e1_r8, 33.182206929451_r8, 28.401595974588_r8, 9e1_r8, & 28.059579730041_r8, 29.966930557237_r8, 31.090659801979_r8, & - 31.616908402516_r8, 32.243633054773_r8, 9e90_r8, 32.730203175942_r8, & + 31.616908402516_r8, 32.243633054773_r8, 9e1_r8, 32.730203175942_r8, & 32.923082322458_r8, 33.069247479255_r8, 33.25516179739_r8, & 33.938835722367_r8, 33.884082889677_r8, 33.834093430906_r8, & 33.816140803161_r8, 33.821214185726_r8, 33.885470171844_r8, & 33.887741021164_r8, 33.933992362797_r8, 33.955112377298_r8, & 33.976595880254_r8, 33.976356816568_r8, 33.987037608102_r8, & - 33.987908331074_r8, 9e90_r8, 33.967319395492_r8, 33.913735382299_r8, & - 33.828377186532_r8, 9e90_r8, 9e90_r8, 9e90_r8, 33.506197542375_r8, & - 33.389277003262_r8, 33.288353107427_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 29.662622604441_r8, 9e90_r8, 30.571737196243_r8, 31.87361855776_r8, & + 33.987908331074_r8, 9e1_r8, 33.967319395492_r8, 33.913735382299_r8, & + 33.828377186532_r8, 9e1_r8, 9e1_r8, 9e1_r8, 33.506197542375_r8, & + 33.389277003262_r8, 33.288353107427_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 29.662622604441_r8, 9e1_r8, 30.571737196243_r8, 31.87361855776_r8, & 32.484765271401_r8, 32.992746418169_r8, 33.466353267655_r8, & 33.975293057089_r8, 34.007996831074_r8, 33.923518054566_r8, & 33.809621851607_r8, 33.767925339862_r8, 33.717489115504_r8, & @@ -9591,36 +9591,36 @@ module gsw_mod_check_data 33.992200721395_r8, 34.008808725628_r8, 34.005925519296_r8, & 34.012970101682_r8, 33.98561451966_r8, 33.977605574524_r8, & 33.921947620388_r8, 33.856059908809_r8, 33.790313145771_r8, & - 33.674342511332_r8, 33.574923909669_r8, 33.470709584706_r8, 9e90_r8, & - 33.296698299423_r8, 9e90_r8 & + 33.674342511332_r8, 33.574923909669_r8, 33.470709584706_r8, 9e1_r8, & + 33.296698299423_r8, 9e1_r8 & ], shape = [ cast_ice_m,cast_ice_n ] ) ) / type(gsw_result_ice) :: frazil_properties_potential_poly_ct_final data frazil_properties_potential_poly_ct_final / gsw_result_ice( & "frazil_properties_potential_poly_CT_final", 3.3237e-11_r8, reshape( [ & - -1.4834027127773_r8, -1.5169161924119_r8, -1.5257874983377_r8, 9e90_r8, & + -1.4834027127773_r8, -1.5169161924119_r8, -1.5257874983377_r8, 9e1_r8, & -1.6432937054344_r8, -1.7043869362712_r8, -1.7888995253979_r8, & -1.8363140441232_r8, -1.8713110314647_r8, -1.9049419808812_r8, & -1.9397107112703_r8, -1.9790145069022_r8, -2.0391187131171_r8, & - -2.0758119733136_r8, 9e90_r8, -2.1496064359662_r8, -2.230945667147_r8, & + -2.0758119733136_r8, 9e1_r8, -2.1496064359662_r8, -2.230945667147_r8, & -2.3130592343749_r8, -2.3935138314256_r8, -2.4753094410413_r8, & -2.557484964559_r8, -2.6387243769701_r8, -2.7207461026847_r8, & - -2.8032962616757_r8, -2.8845638508944_r8, -2.9676970624302_r8, 9e90_r8, & + -2.8032962616757_r8, -2.8845638508944_r8, -2.9676970624302_r8, 9e1_r8, & -3.257241960811_r8, -3.4669662396459_r8, -3.6763439596778_r8, & - -3.8880825049006_r8, 9e90_r8, -4.3181803425367_r8, -4.5382403343366_r8, & - 9e90_r8, -4.9844092632503_r8, -1.5276662366953_r8, 9e90_r8, & + -3.8880825049006_r8, 9e1_r8, -4.3181803425367_r8, -4.5382403343366_r8, & + 9e1_r8, -4.9844092632503_r8, -1.5276662366953_r8, 9e1_r8, & -1.5235260778831_r8, -1.6395731015876_r8, -1.7114988570637_r8, & - -1.7493608966498_r8, -1.8053526021754_r8, 9e90_r8, -1.8718285034298_r8, & + -1.7493608966498_r8, -1.8053526021754_r8, 9e1_r8, -1.8718285034298_r8, & -1.9022180398996_r8, -1.9299408946819_r8, -1.9607727381913_r8, & -2.0391307087401_r8, -2.0754898324663_r8, -2.1114439018909_r8, & -2.1501350633777_r8, -2.2294123502127_r8, -2.312525748803_r8, & -2.3924101786441_r8, -2.4752467963548_r8, -2.5569991511628_r8, & -2.6391548261204_r8, -2.720418798658_r8, -2.8035115152502_r8, & - -2.8856000858269_r8, 9e90_r8, -3.0504149488495_r8, -3.2571252254802_r8, & - -3.4643101743347_r8, 9e90_r8, 9e90_r8, 9e90_r8, -4.3208668583143_r8, & - -4.5386358189678_r8, -4.760530490996_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - -1.6145849366953_r8, 9e90_r8, -1.6817743489142_r8, -1.7641234564172_r8, & + -2.8856000858269_r8, 9e1_r8, -3.0504149488495_r8, -3.2571252254802_r8, & + -3.4643101743347_r8, 9e1_r8, 9e1_r8, 9e1_r8, -4.3208668583143_r8, & + -4.5386358189678_r8, -4.760530490996_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + -1.6145849366953_r8, 9e1_r8, -1.6817743489142_r8, -1.7641234564172_r8, & -1.8192591892992_r8, -1.8677936871773_r8, -1.9144370045146_r8, & -1.9632257911131_r8, -1.9844040196908_r8, -1.9995666517687_r8, & -2.0316180116333_r8, -2.0687343646064_r8, -2.1046607147382_r8, & @@ -9629,36 +9629,36 @@ module gsw_mod_check_data -2.6400684494478_r8, -2.7223202768743_r8, -2.8046190636588_r8, & -2.8870707179455_r8, -2.9686970533908_r8, -3.0510192879771_r8, & -3.2576083532515_r8, -3.4659405236976_r8, -3.6766125464238_r8, & - -3.88749883286_r8, -4.1016831600569_r8, -4.3187712737818_r8, 9e90_r8, & - -4.7610234582053_r8, 9e90_r8 & + -3.88749883286_r8, -4.1016831600569_r8, -4.3187712737818_r8, 9e1_r8, & + -4.7610234582053_r8, 9e1_r8 & ], shape = [ cast_ice_m,cast_ice_n ] ) ) / type(gsw_result_ice) :: frazil_properties_potential_poly_w_ih_final data frazil_properties_potential_poly_w_ih_final / gsw_result_ice( & "frazil_properties_potential_poly_w_Ih_final", 7.1663e-12_r8, reshape( [ & - 0.000176270314407_r8, 0.000325533684252_r8, 0.000139493955038_r8, 9e90_r8, & + 0.000176270314407_r8, 0.000325533684252_r8, 0.000139493955038_r8, 9e1_r8, & 0.000419583105568_r8, 0.00201757112615_r8, 0.000123429844205_r8, & 0.00120447121825_r8, 0.000246987287503_r8, 0.000460982348892_r8, & 2.51613352381e-05_r8, 0.000915538374681_r8, 0.00031332897557_r8, & - 0.0047410038326_r8, 9e90_r8, 0.00546663801282_r8, 0.00381872234438_r8, & + 0.0047410038326_r8, 9e1_r8, 0.00546663801282_r8, 0.00381872234438_r8, & 0.00355299956965_r8, 0.000235066825627_r8, 0.00275440585078_r8, & 0.00111130687955_r8, 0.00445126061551_r8, 0.001717955549_r8, & - 0.00402206807423_r8, 0.000851030671989_r8, 0.00100077963282_r8, 9e90_r8, & + 0.00402206807423_r8, 0.000851030671989_r8, 0.00100077963282_r8, 9e1_r8, & 0.000417347820148_r8, 0.00246405955914_r8, 0.00151378181133_r8, & - 0.00186456980105_r8, 9e90_r8, 0.00605774046811_r8, 0.00214688359831_r8, & - 9e90_r8, 0.000551179493386_r8, 0.000144810164904_r8, 9e90_r8, & + 0.00186456980105_r8, 9e1_r8, 0.00605774046811_r8, 0.00214688359831_r8, & + 9e1_r8, 0.000551179493386_r8, 0.000144810164904_r8, 9e1_r8, & 1.51380272089e-05_r8, 9.27683296179e-05_r8, 0.000349534212591_r8, & - 0.000415867118907_r8, 0.000373547351226_r8, 9e90_r8, 0.000982271052213_r8, & + 0.000415867118907_r8, 0.000373547351226_r8, 9e1_r8, 0.000982271052213_r8, & 0.000343544650167_r8, 0.000176954782895_r8, 0.000276993642702_r8, & 0.00112071790189_r8, 0.00518287240335_r8, 0.0019510510916_r8, & 0.00029406026277_r8, 0.0067937819085_r8, 0.00134284853804_r8, & 0.00159713428555_r8, 0.00136272061447_r8, 7.45348395273e-05_r8, & 8.26828066367e-05_r8, 0.00346883375573_r8, 0.00297072214399_r8, & - 0.00149618645963_r8, 9e90_r8, 0.00031265390097_r8, 0.00167836192043_r8, & - 0.00822825691488_r8, 9e90_r8, 9e90_r8, 9e90_r8, 0.00116028388827_r8, & - 0.00232269928647_r8, 0.00153389669623_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 0.00012933547693_r8, 9e90_r8, 0.000187038141609_r8, 0.000255513752244_r8, & + 0.00149618645963_r8, 9e1_r8, 0.00031265390097_r8, 0.00167836192043_r8, & + 0.00822825691488_r8, 9e1_r8, 9e1_r8, 9e1_r8, 0.00116028388827_r8, & + 0.00232269928647_r8, 0.00153389669623_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 0.00012933547693_r8, 9e1_r8, 0.000187038141609_r8, 0.000255513752244_r8, & 0.000252446656721_r8, 0.000674200438757_r8, 0.000471147537491_r8, & 4.87072973125e-05_r8, 0.0021082801099_r8, 0.0026761509475_r8, & 0.00406677870392_r8, 0.00185908365405_r8, 0.00464560944716_r8, & @@ -9667,8 +9667,8 @@ module gsw_mod_check_data 0.00224317162854_r8, 0.00294871959469_r8, 0.00195622705652_r8, & 0.00062475533561_r8, 0.00355344848183_r8, 0.0028082898716_r8, & 0.0021246876417_r8, 0.00260705731618_r8, 0.00137592403026_r8, & - 0.000532309230885_r8, 0.0011092548861_r8, 0.0024944858522_r8, 9e90_r8, & - 0.00211763846635_r8, 9e90_r8 & + 0.000532309230885_r8, 0.0011092548861_r8, 0.0024944858522_r8, 9e1_r8, & + 0.00211763846635_r8, 9e1_r8 & ], shape = [ cast_ice_m,cast_ice_n ] ) ) / type(gsw_result_ice) :: frazil_properties_sa_final @@ -9968,41 +9968,41 @@ module gsw_mod_check_data type(gsw_result_ice) :: melting_seaice_into_seawater_sa_final data melting_seaice_into_seawater_sa_final / gsw_result_ice( & - "melting_seaice_into_seawater_SA_final", 9e90_r8, reshape( [ & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + "melting_seaice_into_seawater_SA_final", 9e1_r8, reshape( [ & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_ice_m,cast_ice_n ] ) ) / type(gsw_result_ice) :: melting_seaice_into_seawater_ct_final data melting_seaice_into_seawater_ct_final / gsw_result_ice( & - "melting_seaice_into_seawater_CT_final", 9e90_r8, reshape( [ & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + "melting_seaice_into_seawater_CT_final", 9e1_r8, reshape( [ & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & ], shape = [ cast_ice_m,cast_ice_n ] ) ) / type(gsw_result_ice) :: seaice_fraction_to_freeze_seawater_sa_freeze @@ -10166,13 +10166,13 @@ module gsw_mod_check_data 31.554369106483_r8, 31.583816389345_r8, 31.620355157012_r8, & 31.664884715345_r8, 31.739500073043_r8, 31.819944669152_r8, & 31.904674437351_r8, 32.004069372941_r8, 32.111082511682_r8, & - 32.217703873867_r8, 32.322004256229_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9.3795452512822_r8, 10.727362956121_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 32.217703873867_r8, 32.322004256229_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9.3795452512822_r8, 10.727362956121_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sp_from_c = gsw_result( & @@ -10197,12 +10197,12 @@ module gsw_mod_check_data 34.656967_r8, 34.664131_r8, 34.67181_r8, 34.677475_r8, 34.682167_r8, & 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9.060422_r8, & - 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9.060422_r8, & + 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sp_from_sk = gsw_result( & @@ -10241,12 +10241,12 @@ module gsw_mod_check_data 34.70279661723_r8, 34.703219980471_r8, 34.705167651551_r8, & 6.5438735714404_r8, 6.6476085749307_r8, 6.7865898193075_r8, & 7.0108502322715_r8, 7.2391220870083_r8, 7.4589366855125_r8, & - 9.0381766560111_r8, 10.258349550914_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.0381766560111_r8, 10.258349550914_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sa_from_sp = gsw_result( & @@ -10285,11 +10285,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, & 7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sstar_from_sp = gsw_result( & @@ -10328,12 +10328,12 @@ module gsw_mod_check_data 34.861612863812_r8, 34.862050046565_r8, 34.86401585478_r8, & 6.6699043409246_r8, 6.7737814418914_r8, 6.9129530644766_r8, & 7.1375206720971_r8, 7.3661052164126_r8, 7.5862209196423_r8, & - 9.167624152368_r8, 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.167624152368_r8, 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: ct_from_t = gsw_result( & @@ -10372,12 +10372,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: deltasa_from_sp = gsw_result( & @@ -10416,12 +10416,12 @@ module gsw_mod_check_data 0.01442502183329_r8, 0.014390198614905_r8, 0.014359821497862_r8, & 0.070673184771425_r8, 0.070415550428567_r8, 0.070070379171424_r8, & 0.069513410142853_r8, 0.068946478371425_r8, 0.068400550885709_r8, & - 0.064478379599993_r8, 0.061447980685708_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.064478379599993_r8, 0.061447980685708_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sr_from_sp = gsw_result( & @@ -10460,12 +10460,12 @@ module gsw_mod_check_data 34.866661621454_r8, 34.86708661608_r8, 34.869041792304_r8, & 6.5992311561531_r8, 6.7033658914629_r8, 6.8428826853051_r8, & 7.0680072619543_r8, 7.2971587380411_r8, 7.5178203687566_r8, & - 9.103145772768_r8, 10.328020474341_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.103145772768_r8, 10.328020474341_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sp_from_sr = gsw_result( & @@ -10491,12 +10491,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sp_from_sa = gsw_result( & @@ -10522,12 +10522,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sstar_from_sa = gsw_result( & @@ -10566,12 +10566,12 @@ module gsw_mod_check_data 34.861612863812_r8, 34.862050046565_r8, 34.86401585478_r8, & 6.6699043409246_r8, 6.7737814418914_r8, 6.9129530644766_r8, & 7.1375206720971_r8, 7.3661052164126_r8, 7.5862209196423_r8, & - 9.167624152368_r8, 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.167624152368_r8, 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sa_from_sstar = gsw_result( & @@ -10610,11 +10610,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, & 7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sp_from_sstar = gsw_result( & @@ -10640,12 +10640,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: pt_from_ct = gsw_result( & @@ -10683,12 +10683,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: t_from_ct = gsw_result( & @@ -10709,12 +10709,12 @@ module gsw_mod_check_data 2.6237_r8, 2.1957_r8, 2.036_r8, 1.8655_r8, 1.7597_r8, 1.6633_r8, 1.5843_r8, & 1.5116_r8, 1.436_r8, 1.3714_r8, 1.318_r8, 1.3016_r8, 1.2959_r8, 1.2974_r8, & 1.3189_r8, 1.3508_r8, 1.3845_r8, 1.4157_r8, 10.046_r8, 9.1279_r8, & - 7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_from_pt = gsw_result( & @@ -10753,12 +10753,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: pt0_from_t = gsw_result( & @@ -10796,12 +10796,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: pt_from_t = gsw_result( & @@ -10839,12 +10839,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: z_from_p = gsw_result( & @@ -10875,12 +10875,12 @@ module gsw_mod_check_data -4758.8729434_r8, -5009.67913593_r8, -5259.24009694_r8, -5510.46955908_r8, & -5760.45808542_r8, -6011.14570526_r8, -0._r8, -9.90629019928_r8, & -19.8120994414_r8, -29.7174278749_r8, -39.6222756481_r8, -49.5266429093_r8, & - -75.2757500563_r8, -100.031447035_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + -75.2757500563_r8, -100.031447035_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: p_from_z = gsw_result( & @@ -10899,12 +10899,12 @@ module gsw_mod_check_data 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, 3045._r8, & 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, 4840._r8, & 5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, 20._r8, & - 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: entropy_from_pt = gsw_result( & @@ -10943,12 +10943,12 @@ module gsw_mod_check_data 12.382918086768_r8, 12.365031338104_r8, 12.297112424952_r8, & 153.12120882735_r8, 139.62236456703_r8, 108.9846170621_r8, & 77.728754443394_r8, 59.634169426745_r8, 50.310647945221_r8, & - 60.836929033964_r8, 69.656461797752_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 60.836929033964_r8, 69.656461797752_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: pt_from_entropy = gsw_result( & @@ -10986,12 +10986,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: ct_from_entropy = gsw_result( & @@ -11030,12 +11030,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: entropy_from_t = gsw_result( & @@ -11074,12 +11074,12 @@ module gsw_mod_check_data 12.382918086768_r8, 12.365031338104_r8, 12.297112424952_r8, & 153.12120882735_r8, 139.62236456703_r8, 108.9846170621_r8, & 77.728754443394_r8, 59.634169426745_r8, 50.310647945221_r8, & - 60.836929033964_r8, 69.656461797752_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 60.836929033964_r8, 69.656461797752_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: adiabatic_lapse_rate_from_ct = gsw_result( & @@ -11118,12 +11118,12 @@ module gsw_mod_check_data 1.337730956009e-08_r8, 1.37267693902e-08_r8, 1.406957983991e-08_r8, & 7.1241832681602e-09_r8, 6.3404880424123e-09_r8, 4.4909112043667e-09_r8, & 2.5662556926025e-09_r8, 1.4540926270446e-09_r8, 9.0501768846576e-10_r8, & - 1.9732983751198e-09_r8, 2.8345992356971e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.9732983751198e-09_r8, 2.8345992356971e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: specvol = gsw_result( & @@ -11177,11 +11177,11 @@ module gsw_mod_check_data 0.0009949245452751476_r8, 0.0009946040926904509_r8, & 0.0009942717261025088_r8, 0.0009940088745524498_r8, & 0.0009937773244990007_r8, 0.0009924332606871787_r8, & - 0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009913873184543118_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: alpha = gsw_result( & @@ -11220,12 +11220,12 @@ module gsw_mod_check_data 0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, & 0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & - 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: beta = gsw_result( & @@ -11264,12 +11264,12 @@ module gsw_mod_check_data 0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, & 0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & - 0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078356549344703_r8, 0.00078036996563038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: alpha_on_beta = gsw_result( & @@ -11308,12 +11308,12 @@ module gsw_mod_check_data 0.28612115151677_r8, 0.29493268742375_r8, 0.30367099733368_r8, & 0.13127162222478_r8, 0.11689502215091_r8, 0.082845413121359_r8, & 0.04737499243998_r8, 0.026876948001361_r8, 0.016759514034294_r8, & - 0.036612739499438_r8, 0.052718031460717_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.036612739499438_r8, 0.052718031460717_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_vab = gsw_result( & @@ -11367,11 +11367,11 @@ module gsw_mod_check_data 0.0009949245452751476_r8, 0.0009946040926904509_r8, & 0.0009942717261025088_r8, 0.0009940088745524498_r8, & 0.0009937773244990007_r8, 0.0009924332606871787_r8, & - 0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009913873184543118_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: alpha_vab = gsw_result( & @@ -11410,12 +11410,12 @@ module gsw_mod_check_data 0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, & 0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & - 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: beta_vab = gsw_result( & @@ -11454,12 +11454,12 @@ module gsw_mod_check_data 0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, & 0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & - 0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078356549344703_r8, 0.00078036996563038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa = gsw_result( & @@ -11498,12 +11498,12 @@ module gsw_mod_check_data -6.8105324603527e-07_r8, -6.7799333531989e-07_r8, -6.7496394957095e-07_r8, & -7.6485141602067e-07_r8, -7.6696360617989e-07_r8, -7.7235047136574e-07_r8, & -7.7807640038489e-07_r8, -7.8133521349824e-07_r8, -7.8281451817097e-07_r8, & - -7.776364576236e-07_r8, -7.7364888762859e-07_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -7.776364576236e-07_r8, -7.7364888762859e-07_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_ct = gsw_result( & @@ -11542,12 +11542,12 @@ module gsw_mod_check_data 1.9486373899984e-07_r8, 1.9996239644129e-07_r8, 2.0496697573049e-07_r8, & 1.0040328614196e-07_r8, 8.965422773334e-08_r8, 6.3985693874771e-08_r8, & 3.6861363585961e-08_r8, 2.0999905904825e-08_r8, 1.3119590903535e-08_r8, & - 2.8471401048238e-08_r8, 4.0785246397553e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8471401048238e-08_r8, 4.0785246397553e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_p = gsw_result( & @@ -11586,12 +11586,12 @@ module gsw_mod_check_data -3.7571835120402e-13_r8, -3.7270081162309e-13_r8, -3.6970724335569e-13_r8, & -4.6735391264304e-13_r8, -4.6928905029227e-13_r8, -4.7427904182679e-13_r8, & -4.7963775309581e-13_r8, -4.8270645282362e-13_r8, -4.8410132496399e-13_r8, & - -4.7902381646743e-13_r8, -4.7496631693763e-13_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -4.7902381646743e-13_r8, -4.7496631693763e-13_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_sa = gsw_result( & @@ -11630,12 +11630,12 @@ module gsw_mod_check_data 7.420285376761e-10_r8, 7.2079357928311e-10_r8, 6.9911247017641e-10_r8, & 1.686821846146e-09_r8, 1.6867968404629e-09_r8, 1.7070701802637e-09_r8, & 1.7239021288267e-09_r8, 1.7241895206509e-09_r8, 1.7118557676937e-09_r8, & - 1.5146606457245e-09_r8, 1.4037400755554e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.5146606457245e-09_r8, 1.4037400755554e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_ct = gsw_result( & @@ -11674,12 +11674,12 @@ module gsw_mod_check_data 1.902283526759e-09_r8, 1.8640926783939e-09_r8, 1.8262648049443e-09_r8, & 2.5142108146884e-09_r8, 2.5867895047185e-09_r8, 2.7671787284743e-09_r8, & 2.9674767526691e-09_r8, 3.0883351095872e-09_r8, 3.1489295313378e-09_r8, & - 3.0275277133432e-09_r8, 2.9364515491552e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 3.0275277133432e-09_r8, 2.9364515491552e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_ct_ct = gsw_result( & @@ -11718,12 +11718,12 @@ module gsw_mod_check_data 7.2611295715005e-09_r8, 7.0619802695647e-09_r8, 6.8660792976399e-09_r8, & 1.1630101520498e-08_r8, 1.187168068355e-08_r8, 1.2479500593431e-08_r8, & 1.3157950203856e-08_r8, 1.356938661512e-08_r8, 1.3775071602593e-08_r8, & - 1.3322230766315e-08_r8, 1.2968669305784e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.3322230766315e-08_r8, 1.2968669305784e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_p = gsw_result( & @@ -11762,12 +11762,12 @@ module gsw_mod_check_data 1.4452353965864e-15_r8, 1.4278184830854e-15_r8, 1.4104641044674e-15_r8, & 1.3391645162533e-15_r8, 1.3531626095461e-15_r8, 1.3852941375402e-15_r8, & 1.4210390224972e-15_r8, 1.4439297547637e-15_r8, 1.4573546239402e-15_r8, & - 1.4684828267782e-15_r8, 1.475384005764e-15_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.4684828267782e-15_r8, 1.475384005764e-15_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_ct_p = gsw_result( & @@ -11806,12 +11806,12 @@ module gsw_mod_check_data 1.9973576346871e-15_r8, 1.9613072729104e-15_r8, 1.9254031915233e-15_r8, & 2.3045989638505e-15_r8, 2.3848235601127e-15_r8, 2.5786818124037e-15_r8, & 2.7893685394813e-15_r8, 2.9161890405511e-15_r8, 2.9812079621756e-15_r8, & - 2.8718142771833e-15_r8, 2.7837754490956e-15_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8718142771833e-15_r8, 2.7837754490956e-15_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_wrt_h = gsw_result( & @@ -11850,12 +11850,12 @@ module gsw_mod_check_data -6.7909031244219e-07_r8, -6.7589164328594e-07_r8, -6.7272013791523e-07_r8, & -7.6485141602067e-07_r8, -7.6696188346989e-07_r8, -7.7234799486436e-07_r8, & -7.7807424426583e-07_r8, -7.8133356867422e-07_r8, -7.8281323110614e-07_r8, & - -7.7763223906705e-07_r8, -7.7364089590621e-07_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.7763223906705e-07_r8, -7.7364089590621e-07_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_h = gsw_result( & @@ -11894,12 +11894,12 @@ module gsw_mod_check_data 4.8725019813184e-11_r8, 4.9993562505336e-11_r8, 5.1238094268393e-11_r8, & 2.5151955731122e-11_r8, 2.2459166387345e-11_r8, 1.6028959440587e-11_r8, & 9.2340886590299e-12_r8, 5.2606607154873e-12_r8, 3.2865742832167e-12_r8, & - 7.1323132289915e-12_r8, 1.0216981246258e-11_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 7.1323132289915e-12_r8, 1.0216981246258e-11_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_sa_wrt_h = gsw_result( & @@ -11938,12 +11938,12 @@ module gsw_mod_check_data 7.834147507376e-10_r8, 7.6321849689896e-10_r8, 7.4251701884123e-10_r8, & 1.686821846146e-09_r8, 1.686900044746e-09_r8, 1.7072898758573e-09_r8, & 1.7242541041201e-09_r8, 1.7246770251147e-09_r8, 1.7124765525043e-09_r8, & - 1.515566330676e-09_r8, 1.4049058698229e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.515566330676e-09_r8, 1.4049058698229e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_h = gsw_result( & @@ -11982,12 +11982,12 @@ module gsw_mod_check_data 4.92270849647e-13_r8, 4.8282023629188e-13_r8, 4.734242897083e-13_r8, & 6.2983316124078e-13_r8, 6.4806903256871e-13_r8, 6.9332053313919e-13_r8, & 7.4356919333127e-13_r8, 7.7391966374215e-13_r8, 7.8917210371931e-13_r8, & - 7.589102211215e-13_r8, 7.3623001646769e-13_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 7.589102211215e-13_r8, 7.3623001646769e-13_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_h_h = gsw_result( & @@ -12026,12 +12026,12 @@ module gsw_mod_check_data 4.5232948672668e-16_r8, 4.3966511473454e-16_r8, 4.2720650884596e-16_r8, & 7.2984589754873e-16_r8, 7.4500115876955e-16_r8, 7.8314234083822e-16_r8, & 8.2571908104756e-16_r8, 8.5154026747761e-16_r8, 8.6444918491475e-16_r8, & - 8.3602204373094e-16_r8, 8.138229413294e-16_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 8.3602204373094e-16_r8, 8.138229413294e-16_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: specvol_anom_standard = gsw_result( & @@ -12070,12 +12070,12 @@ module gsw_mod_check_data 3.5569404936743e-07_r8, 3.5868967571088e-07_r8, 3.5988460949968e-07_r8, & 2.2480540455874e-05_r8, 2.2308211792809e-05_r8, 2.2032796952698e-05_r8, & 2.1745453855873e-05_r8, 2.1527611547459e-05_r8, 2.1341056490181e-05_r8, & - 2.0113913028269e-05_r8, 1.9180303484793e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.0113913028269e-05_r8, 1.9180303484793e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho = gsw_result( & @@ -12114,12 +12114,12 @@ module gsw_mod_check_data 1052.801283141887_r8, 1053.87303446012_r8, 1054.944400483299_r8, & 1004.88179015787_r8, 1005.101346377427_r8, 1005.425181083815_r8, & 1005.761276064789_r8, 1006.027235370758_r8, 1006.261639652662_r8, & - 1007.624431397616_r8, 1008.687504253248_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.624431397616_r8, 1008.687504253248_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_rab = gsw_result( & @@ -12158,12 +12158,12 @@ module gsw_mod_check_data 1052.801283141887_r8, 1053.87303446012_r8, 1054.944400483299_r8, & 1004.88179015787_r8, 1005.101346377427_r8, 1005.425181083815_r8, & 1005.761276064789_r8, 1006.027235370758_r8, 1006.261639652662_r8, & - 1007.624431397616_r8, 1008.687504253248_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.624431397616_r8, 1008.687504253248_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: alpha_rab = gsw_result( & @@ -12202,12 +12202,12 @@ module gsw_mod_check_data 0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, & 0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & - 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: beta_rab = gsw_result( & @@ -12246,12 +12246,12 @@ module gsw_mod_check_data 0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, & 0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & - 0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078356549344703_r8, 0.00078036996563038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa = gsw_result( & @@ -12290,12 +12290,12 @@ module gsw_mod_check_data 0.7548729763576_r8, 0.75301219461664_r8, 0.75117256867532_r8, & 0.77233733209404_r8, 0.77480865946544_r8, 0.780753485975_r8, & 0.7870676524159_r8, 0.79078217997537_r8, 0.79264861572057_r8, & - 0.78953973479736_r8, 0.78714943302591_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.78953973479736_r8, 0.78714943302591_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_ct = gsw_result( & @@ -12334,12 +12334,12 @@ module gsw_mod_check_data -0.215985125244_r8, -0.222087910221_r8, -0.228109323099_r8, & -0.101385974489_r8, -0.0905712754109_r8, -0.0646818450915_r8, & -0.037287324083_r8, -0.0212538115316_r8, -0.0132844055994_r8, & - -0.0289072126346_r8, -0.0414969685745_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0289072126346_r8, -0.0414969685745_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_p = gsw_result( & @@ -12378,12 +12378,12 @@ module gsw_mod_check_data 4.1644266684966e-07_r8, 4.1393954995633e-07_r8, 4.114500334809e-07_r8, & 4.719280980251e-07_r8, 4.7408927493944e-07_r8, 4.7943910045961e-07_r8, & 4.8518032439027e-07_r8, 4.8854275918655e-07_r8, 4.9018284177683e-07_r8, & - 4.8635623151091e-07_r8, 4.8325470773939e-07_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 4.8635623151091e-07_r8, 4.8325470773939e-07_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_sa = gsw_result( & @@ -12422,12 +12422,12 @@ module gsw_mod_check_data 0.00026005116599746_r8, 0.00027553466445755_r8, 0.00029169636951351_r8, & -0.00051611728824693_r8, -0.00050948756937966_r8, -0.00051306917298877_r8, & -0.00051196917284635_r8, -0.00050185637436778_r8, -0.00048459659059207_r8, & - -0.0003005333644906_r8, -0.00019970046341223_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0003005333644906_r8, -0.00019970046341223_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_ct = gsw_result( & @@ -12466,12 +12466,12 @@ module gsw_mod_check_data -0.002418201669973_r8, -0.0023877235157389_r8, -0.0023573143730946_r8, & -0.0026946659634197_r8, -0.0027528875139381_r8, -0.0028977412243115_r8, & -0.0030601272261746_r8, -0.003159088430022_r8, -0.0032094166025569_r8, & - -0.0031191714528193_r8, -0.0030524600176966_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0031191714528193_r8, -0.0030524600176966_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_ct_ct = gsw_result( & @@ -12510,12 +12510,12 @@ module gsw_mod_check_data -0.007959547435718_r8, -0.0077497735133368_r8, -0.0075426648438477_r8, & -0.011723471759667_r8, -0.011976789697152_r8, -0.012606952666552_r8, & -0.013307235353128_r8, -0.01373255329551_r8, -0.013947770011972_r8, & - -0.013524495474763_r8, -0.013191564491415_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.013524495474763_r8, -0.013191564491415_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_p = gsw_result( & @@ -12554,12 +12554,12 @@ module gsw_mod_check_data -1.0046950233572e-09_r8, -9.9426901630348e-10_r8, -9.8377081452797e-10_r8, & -6.2683751139342e-10_r8, -6.3607549317202e-10_r8, -6.5575798794887e-10_r8, & -6.7809561735118e-10_r8, -6.9335531582729e-10_r8, -7.0341267204049e-10_r8, & - -7.2877696462748e-10_r8, -7.4689524733485e-10_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.2877696462748e-10_r8, -7.4689524733485e-10_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_ct_p = gsw_result( & @@ -12598,12 +12598,12 @@ module gsw_mod_check_data -2.3847210645202e-09_r8, -2.3527858146502e-09_r8, -2.3207306783839e-09_r8, & -2.4223839165869e-09_r8, -2.4946591161827e-09_r8, -2.668424687497e-09_r8, & -2.8575766601604e-09_r8, -2.9720904690727e-09_r8, -3.0316018836386e-09_r8, & - -2.943678764598e-09_r8, -2.8721154505435e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -2.943678764598e-09_r8, -2.8721154505435e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_wrt_h = gsw_result( & @@ -12642,12 +12642,12 @@ module gsw_mod_check_data 0.75269727932888_r8, 0.75067795377909_r8, 0.748675413433_r8, & 0.77233733209404_r8, 0.77480691913432_r8, 0.78075098252979_r8, & 0.78706547138128_r8, 0.79078051526412_r8, 0.792647312487_r8, & - 0.78953545166739_r8, 0.78714130184412_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.78953545166739_r8, 0.78714130184412_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_h = gsw_result( & @@ -12686,12 +12686,12 @@ module gsw_mod_check_data -5.40063511092e-05_r8, -5.55252688451e-05_r8, -5.70232690355e-05_r8, & -2.53981282893e-05_r8, -2.26888948329e-05_r8, -1.62033512295e-05_r8, & -9.34079542763e-06_r8, -5.32426630316e-06_r8, -3.32786183136e-06_r8, & - -7.24148751014e-06_r8, -1.03952724858e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -7.24148751014e-06_r8, -1.03952724858e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_sa_wrt_h = gsw_result( & @@ -12730,12 +12730,12 @@ module gsw_mod_check_data 0.0002079480528003_r8, 0.00022175440231739_r8, 0.00023629054366168_r8, & -0.00051611728824693_r8, -0.0005095971956231_r8, -0.00051329903492039_r8, & -0.00051233204262096_r8, -0.00050235500729276_r8, -0.00048522928031363_r8, & - -0.00030146633717192_r8, -0.00020091198253976_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.00030146633717192_r8, -0.00020091198253976_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_h = gsw_result( & @@ -12774,12 +12774,12 @@ module gsw_mod_check_data -6.2285172760952e-07_r8, -6.1534524942743e-07_r8, -6.0781434605688e-07_r8, & -6.7503885207767e-07_r8, -6.896785243351e-07_r8, -7.2602875812786e-07_r8, & -7.6678109755996e-07_r8, -7.9164717322099e-07_r8, -8.0432888122645e-07_r8, & - -7.8187515379671e-07_r8, -7.6530173382511e-07_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.8187515379671e-07_r8, -7.6530173382511e-07_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_h_h = gsw_result( & @@ -12818,12 +12818,12 @@ module gsw_mod_check_data -4.9581691481792e-10_r8, -4.8246243928389e-10_r8, -4.6927681173461e-10_r8, & -7.3570533788899e-10_r8, -7.5159721805519e-10_r8, -7.9114050496597e-10_r8, & -8.3508737839095e-10_r8, -8.6177971314986e-10_r8, -8.7528680543905e-10_r8, & - -8.4871494406859e-10_r8, -8.2781028131876e-10_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -8.4871494406859e-10_r8, -8.2781028131876e-10_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sigma0 = gsw_result( & @@ -12862,12 +12862,12 @@ module gsw_mod_check_data 27.829116059983_r8, 27.829507336673_r8, 27.831347087126_r8, & 4.8817901578702_r8, 5.0539321223888_r8, 5.329271724986_r8, & 5.6156729478847_r8, 5.8317305346482_r8, 6.0164106949062_r8, & - 7.2544852839338_r8, 8.1988633845359_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.2544852839338_r8, 8.1988633845359_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sigma1 = gsw_result( & @@ -12906,12 +12906,12 @@ module gsw_mod_check_data 32.516252402249_r8, 32.516675871595_r8, 32.518633828671_r8, & 9.5483718759659_r8, 9.7429392960305_r8, 10.072249570888_r8, & 10.416511224384_r8, 10.666915979709_r8, 10.868912885939_r8, & - 12.071935501088_r8, 12.988292590885_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 12.071935501088_r8, 12.988292590885_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sigma2 = gsw_result( & @@ -12950,12 +12950,12 @@ module gsw_mod_check_data 37.098189155643_r8, 37.098643931165_r8, 37.100716850692_r8, & 14.110952552168_r8, 14.327381314662_r8, 14.709284518826_r8, & 15.109913441354_r8, 15.393774153684_r8, 15.612636537176_r8, & - 16.781494662657_r8, 17.670537805292_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16.781494662657_r8, 17.670537805292_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sigma3 = gsw_result( & @@ -12994,11 +12994,11 @@ module gsw_mod_check_data 41.576577984198_r8, 41.578762032582_r8, 18.57164596518_r8, & 18.809294969536_r8, 19.242225256335_r8, 19.697517350096_r8, & 20.013811662767_r8, 20.249017943248_r8, 21.384677057085_r8, & - 22.247178099159_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 22.247178099159_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sigma4 = gsw_result( & @@ -13037,12 +13037,12 @@ module gsw_mod_check_data 45.951407729273_r8, 45.951921858878_r8, 45.954212706413_r8, & 22.932589863519_r8, 23.190759914868_r8, 23.673005586895_r8, & 24.181088641893_r8, 24.528687878322_r8, 24.779659173866_r8, & - 25.883153186156_r8, 26.719940288727_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 25.883153186156_r8, 26.719940288727_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sound_speed = gsw_result( & @@ -13081,12 +13081,12 @@ module gsw_mod_check_data 1549.609929289_r8, 1554.2881589236_r8, 1558.9832497311_r8, & 1455.6671528759_r8, 1452.3454707756_r8, 1444.2197344025_r8, & 1435.6494527475_r8, 1430.7004361846_r8, 1428.3049699378_r8, & - 1433.9128531497_r8, 1438.5069127946_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 1433.9128531497_r8, 1438.5069127946_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: kappa = gsw_result( & @@ -13125,12 +13125,12 @@ module gsw_mod_check_data 3.9555676224754e-10_r8, 3.9277933529098e-10_r8, 3.9002058619621e-10_r8, & 4.6963543637402e-10_r8, 4.7168305628895e-10_r8, 4.7685209151296e-10_r8, & 4.8240107860249e-10_r8, 4.8561583822977e-10_r8, 4.8713259301629e-10_r8, & - 4.826761006939e-10_r8, 4.7909258883618e-10_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 4.826761006939e-10_r8, 4.7909258883618e-10_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: cabbeling = gsw_result( & @@ -13169,12 +13169,12 @@ module gsw_mod_check_data 8.8545252628613e-06_r8, 8.6673073307509e-06_r8, 8.4814533912726e-06_r8, & 1.2379398335815e-05_r8, 1.2563259717031e-05_r8, 1.3019967502548e-05_r8, & 1.3520436453062e-05_r8, 1.38194361383e-05_r8, 1.3968019943733e-05_r8, & - 1.3649233516677e-05_r8, 1.3397567439491e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.3649233516677e-05_r8, 1.3397567439491e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: thermobaric = gsw_result( & @@ -13213,12 +13213,12 @@ module gsw_mod_check_data 2.5381670827297e-12_r8, 2.5107656815664e-12_r8, 2.4830439799285e-12_r8, & 2.4925020217406e-12_r8, 2.5559742649892e-12_r8, 2.708059515658e-12_r8, & 2.8731484336049e-12_r8, 2.972807930732e-12_r8, 3.0244527052011e-12_r8, & - 2.9478853362429e-12_r8, 2.886414558933e-12_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.9478853362429e-12_r8, 2.886414558933e-12_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sa_from_rho = gsw_result( & @@ -13257,11 +13257,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720972_r8, & 7.3661052164124_r8, 7.5862209196424_r8, 9.1676241523683_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_from_rho = gsw_result( & @@ -13298,13 +13298,13 @@ module gsw_mod_check_data 1.0482212593721_r8, 0.96803553122243_r8, 0.9227069097898_r8, & 0.88704031144893_r8, 0.85738474530023_r8, 0.84629138894935_r8, & 0.84408786867765_r8, 0.84286638656_r8, 0.83823534122164_r8, & - 10.502767735302_r8, 9.5454546799622_r8, 7.3853472726033_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 10.502767735302_r8, 9.5454546799622_r8, 7.3853472726033_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: ct_maxdensity = gsw_result( & @@ -13343,12 +13343,12 @@ module gsw_mod_check_data -18.241202529493_r8, -19.001088686437_r8, -19.773737146836_r8, & 2.6680438206626_r8, 2.6224733962175_r8, 2.5687611083654_r8, & 2.4953804672115_r8, 2.4210335398931_r8, 2.3485914149918_r8, & - 1.9278141139837_r8, 1.5914610539694_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 1.9278141139837_r8, 1.5914610539694_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: internal_energy = gsw_result( & @@ -13387,12 +13387,12 @@ module gsw_mod_check_data 3901.8584811951_r8, 3952.52840335_r8, 3991.8510287506_r8, & 41824.829227977_r8, 38003.386290217_r8, 29380.562357619_r8, & 20645.651752834_r8, 15614.979771763_r8, 13027.60652195_r8, & - 15888.932555832_r8, 18307.882082985_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 15888.932555832_r8, 18307.882082985_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: enthalpy = gsw_result( & @@ -13431,12 +13431,12 @@ module gsw_mod_check_data 57322.504808827_r8, 59766.960575564_r8, 62204.705632146_r8, & 41925.661983623_r8, 38203.689474294_r8, 29680.261435849_r8, & 21044.677853312_r8, 16113.301270798_r8, 13625.189671605_r8, & - 16743.740134094_r8, 19409.635594666_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16743.740134094_r8, 19409.635594666_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: enthalpy_diff = gsw_result( & @@ -13475,12 +13475,12 @@ module gsw_mod_check_data 94.9828082694677_r8, 94.88622731389871_r8, 94.78987712888562_r8, & 99.51185607270992_r8, 99.49010833180105_r8, 99.45803812673887_r8, & 99.42477467804514_r8, 99.39847418165967_r8, 99.37531220293501_r8, & - 99.24093120589134_r8, 99.13635726739815_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 99.24093120589134_r8, 99.13635726739815_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_from_enthalpy = gsw_result( & @@ -13519,12 +13519,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: dynamic_enthalpy = gsw_result( & @@ -13562,12 +13562,12 @@ module gsw_mod_check_data 51491.675716139_r8, 53953.017492863_r8, 56402.349254922_r8, & 58858.580833001_r8, 0._r8, 99.49480122235_r8, 198.93030614269_r8, & 298.30310845912_r8, 397.64218289951_r8, 496.94920738847_r8, & - 754.38773277069_r8, 1001.5437096866_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 754.38773277069_r8, 1001.5437096866_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: h_sa = gsw_result( & @@ -13600,11 +13600,11 @@ module gsw_mod_check_data -40.2859475605_r8, -42.0392532283_r8, -43.791863998_r8, -0._r8, & -0.0767040935152_r8, -0.154501693335_r8, -0.233495598853_r8, & -0.3126649116_r8, -0.391612882897_r8, -0.591471015429_r8, & - -0.782199965729_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + -0.782199965729_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_ct = gsw_result( & @@ -13643,12 +13643,12 @@ module gsw_mod_check_data 3999.25417674466_r8, 3999.762897871972_r8, 4000.284918030786_r8, & 3991.86795711963_r8, 3991.87691061669_r8, 3991.880702670805_r8, & 3991.878889955721_r8, 3991.876123659021_r8, 3991.874144008297_r8, & - 3991.888765135501_r8, 3991.907728370378_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 3991.888765135501_r8, 3991.907728370378_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_sa_sa = gsw_result( & @@ -13687,11 +13687,11 @@ module gsw_mod_check_data 0.049267207223353_r8, 0.050750544490417_r8, 0._r8, 0.00016872165100208_r8, & 0.00034158224568209_r8, 0.00051754767376502_r8, 0.00069033992218237_r8, & 0.00085695342982295_r8, 0.0011533076422249_r8, 0.0014213685309584_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_sa_ct = gsw_result( & @@ -13730,11 +13730,11 @@ module gsw_mod_check_data 0.13710967092246_r8, 0.14190158184137_r8, 0._r8, 0.00025875781916877_r8, & 0.00055376848326717_r8, 0.00089103643490681_r8, 0.0012367949700928_r8, & 0.0015767896412965_r8, 0.0023061612056031_r8, 0.002974885667951_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_ct_ct = gsw_result( & @@ -13772,12 +13772,12 @@ module gsw_mod_check_data 0.50631680377847_r8, 0.52592405386149_r8, 0.54502584438705_r8, & 0.56352002054041_r8, 0.58162527612039_r8, 0._r8, 0.0011876075123098_r8, & 0.0024977957365016_r8, 0.0039519979603911_r8, 0.0054363363578477_r8, & - 0.0069012555626452_r8, 0.010155490197901_r8, 0.013150834525106_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0069012555626452_r8, 0.010155490197901_r8, 0.013150834525106_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_sa = gsw_result( & @@ -13816,12 +13816,12 @@ module gsw_mod_check_data -0.0055685948385_r8, -0.00556687901076_r8, -0.00556047465796_r8, & -0.0144770495026_r8, -0.0130627683403_r8, -0.0098075468649_r8, & -0.00643919757634_r8, -0.0044753319083_r8, -0.00347118708921_r8, & - -0.00488688440307_r8, -0.00605812848642_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.00488688440307_r8, -0.00605812848642_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_pt = gsw_result( & @@ -13860,12 +13860,12 @@ module gsw_mod_check_data 0.9990744571061592_r8, 0.9990738576702139_r8, 0.9990709276616985_r8, & 1.040382360969603_r8, 1.040491660475071_r8, 1.040965859578698_r8, & 1.041437976452077_r8, 1.041608007209394_r8, 1.04154105138037_r8, & - 1.038593591712279_r8, 1.036360675014964_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.038593591712279_r8, 1.036360675014964_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_sa_sa = gsw_result( & @@ -13904,12 +13904,12 @@ module gsw_mod_check_data -0.000218686868061_r8, -0.000218697331949_r8, -0.000218736635434_r8, & -7.99325871881e-05_r8, -9.0193021802e-05_r8, -0.000112088469915_r8, & -0.000136021845315_r8, -0.000151270806493_r8, -0.00016030656921_r8, & - -0.000168288284046_r8, -0.000170939273636_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.000168288284046_r8, -0.000170939273636_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_sa_pt = gsw_result( & @@ -13948,12 +13948,12 @@ module gsw_mod_check_data -0.0014758153221466_r8, -0.0014758342947215_r8, -0.0014759022561398_r8, & -0.0015411553519167_r8, -0.0015569610393183_r8, -0.0015962252482844_r8, & -0.0016391335960339_r8, -0.0016646892700728_r8, -0.001677294410145_r8, & - -0.0016448838709999_r8, -0.0016197389041748_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0016448838709999_r8, -0.0016197389041748_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_pt_pt = gsw_result( & @@ -13992,12 +13992,12 @@ module gsw_mod_check_data 1.935693974e-05_r8, 1.93360895351e-05_r8, 1.92652522879e-05_r8, & -0.000282893001713_r8, -0.000305576148041_r8, -0.000364733365832_r8, & -0.000432552016716_r8, -0.000474055253352_r8, -0.000494285056329_r8, & - -0.00042901441677_r8, -0.000379558271901_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.00042901441677_r8, -0.000379558271901_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: eta_sa = gsw_result( & @@ -14036,12 +14036,12 @@ module gsw_mod_check_data -0.23244141802927_r8, -0.23244392198665_r8, -0.23245668835199_r8, & 0.16676070091548_r8, 0.16370277457661_r8, 0.16004516088679_r8, & 0.15328994467822_r8, 0.14611056856299_r8, 0.13921480533356_r8, & - 0.093856755817839_r8, 0.063757346664274_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.093856755817839_r8, 0.063757346664274_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: eta_ct = gsw_result( & @@ -14080,11 +14080,11 @@ module gsw_mod_check_data 14.569264314004_r8, 14.569510227885_r8, 14.095778037542_r8, & 14.141655835256_r8, 14.246332231953_r8, 14.353901586991_r8, & 14.416564644988_r8, 14.448993923533_r8, 14.412711637959_r8, & - 14.382050093657_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 14.382050093657_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: eta_sa_sa = gsw_result( & @@ -14123,12 +14123,12 @@ module gsw_mod_check_data -0.0073453313697612_r8, -0.0073452441183791_r8, -0.0073448311472955_r8, & -0.035806741490668_r8, -0.035253522320648_r8, -0.034531916551085_r8, & -0.033433036673362_r8, -0.032389312585892_r8, -0.031448139482989_r8, & - -0.026070906581364_r8, -0.02305413308642_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.026070906581364_r8, -0.02305413308642_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: eta_sa_ct = gsw_result( & @@ -14167,12 +14167,12 @@ module gsw_mod_check_data -0.00029637595964_r8, -0.000296287455808_r8, -0.000295957453847_r8, & -0.000692610412886_r8, -0.000628957038092_r8, -0.000479020251845_r8, & -0.000319125936217_r8, -0.000223701213603_r8, -0.000174301321355_r8, & - -0.000244850872211_r8, -0.000302895611935_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.000244850872211_r8, -0.000302895611935_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: eta_ct_ct = gsw_result( & @@ -14211,12 +14211,12 @@ module gsw_mod_check_data -0.053222755153866_r8, -0.053223261226806_r8, -0.053225214042378_r8, & -0.047841959285933_r8, -0.048148831986122_r8, -0.048842004880898_r8, & -0.049559891963857_r8, -0.049985390622801_r8, -0.050213750188489_r8, & - -0.050103675883415_r8, -0.049998215226643_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.050103675883415_r8, -0.049998215226643_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pt_sa = gsw_result( & @@ -14255,12 +14255,12 @@ module gsw_mod_check_data 0.0055737535865218_r8, 0.0055720395124174_r8, 0.0055656455452848_r8, & 0.013915123944579_r8, 0.012554419066044_r8, 0.0094215835943606_r8, & 0.0061829871023839_r8, 0.004296560584526_r8, 0.0033327415031916_r8, & - 0.0047052903484778_r8, 0.0058455792780188_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.0047052903484778_r8, 0.0058455792780188_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pt_ct = gsw_result( & @@ -14299,12 +14299,12 @@ module gsw_mod_check_data 1.000926400317071_r8, 1.000927000864526_r8, 1.000929936316409_r8, & 0.9611850772518216_r8, 0.961084108587105_r8, 0.9606462986257032_r8, & 0.9602108071829238_r8, 0.9600540636003104_r8, 0.9601157810099611_r8, & - 0.9628405258608884_r8, 0.9649150378902223_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.9628405258608884_r8, 0.9649150378902223_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pt_sa_sa = gsw_result( & @@ -14343,12 +14343,12 @@ module gsw_mod_check_data 0.00023535576028844_r8, 0.00023536152373805_r8, 0.00023538342438298_r8, & 0.00011810859512278_r8, 0.00012430149320688_r8, 0.00013660273635164_r8, & 0.00015008850128652_r8, 0.00015897000895168_r8, 0.00016465221065238_r8, & - 0.00017694803438694_r8, 0.00018322662388595_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00017694803438694_r8, 0.00018322662388595_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pt_sa_ct = gsw_result( & @@ -14387,12 +14387,12 @@ module gsw_mod_check_data 0.0014784428872693_r8, 0.0014784638187771_r8, 0.0014785410973985_r8, & 0.0014274744310446_r8, 0.0014416814687737_r8, 0.0014762338167654_r8, & 0.0015137548968642_r8, 0.0015362277615597_r8, 0.00154768594699_r8, & - 0.0015267805273288_r8, 0.0015101415485478_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.0015267805273288_r8, 0.0015101415485478_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pt_ct_ct = gsw_result( & @@ -14431,12 +14431,12 @@ module gsw_mod_check_data -1.94107862783e-05_r8, -1.93899129641e-05_r8, -1.93190485165e-05_r8, & 0.00025121366366_r8, 0.000271271166824_r8, 0.000323344910896_r8, & 0.000382946499744_r8, 0.000419484606323_r8, 0.00043747002289_r8, & - 0.000382943731625_r8, 0.000340993169223_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.000382943731625_r8, 0.000340993169223_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_freezing = gsw_result( & @@ -14475,12 +14475,12 @@ module gsw_mod_check_data -6.7694438620997_r8, -7.0193468650423_r8, -7.2724965542372_r8, & -0.34435926378422_r8, -0.3573186152802_r8, -0.37215500955514_r8, & -0.39152606605777_r8, -0.41111860875015_r8, -0.43027090960747_r8, & - -0.53372193526402_r8, -0.61754439555328_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.53372193526402_r8, -0.61754439555328_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_freezing_poly = gsw_result( & @@ -14519,12 +14519,12 @@ module gsw_mod_check_data -6.7694086776269_r8, -7.0193321189572_r8, -7.2725060322355_r8, & -0.34436067697949_r8, -0.35732308452908_r8, -0.37216307421288_r8, & -0.39153899577668_r8, -0.4111364360127_r8, -0.43029348368924_r8, & - -0.53376844166695_r8, -0.61760714190764_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.53376844166695_r8, -0.61760714190764_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: t_freezing = gsw_result( & @@ -14563,12 +14563,12 @@ module gsw_mod_check_data -6.5973716576996_r8, -6.836374707733_r8, -7.0784279680514_r8, & -0.35965035812233_r8, -0.37262215964933_r8, -0.38747828670447_r8, & -0.40688908217896_r8, -0.4265177878358_r8, -0.4456992862519_r8, & - -0.54941912387446_r8, -0.63333279383543_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.54941912387446_r8, -0.63333279383543_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: t_freezing_poly = gsw_result( & @@ -14607,12 +14607,12 @@ module gsw_mod_check_data -6.5973347712821_r8, -6.8363592185427_r8, -7.078437942861_r8, & -0.35965171025197_r8, -0.372626436965_r8, -0.38748600761827_r8, & -0.40690146670374_r8, -0.42653487165802_r8, -0.44572092909025_r8, & - -0.54946384049902_r8, -0.63339326223743_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.54946384049902_r8, -0.63339326223743_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing = gsw_result( & @@ -14651,12 +14651,12 @@ module gsw_mod_check_data -349489.6681382116_r8, -350083.0649962297_r8, -350681.8699356489_r8, & -334111.3419690022_r8, -334143.2567784233_r8, -334179.1147826227_r8, & -334224.5065956119_r8, -334270.3499821011_r8, -334315.2523822773_r8, & - -334544.6745763633_r8, -334732.08961088_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -334544.6745763633_r8, -334732.08961088_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing_poly = gsw_result( & @@ -14695,12 +14695,12 @@ module gsw_mod_check_data -349490.2853720206_r8, -350083.8744791881_r8, -350682.8848710884_r8, & -334111.368591349_r8, -334143.286937236_r8, -334179.1468142975_r8, & -334224.5366951195_r8, -334270.3782708608_r8, -334315.2795182845_r8, & - -334544.6668354722_r8, -334732.070891422_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -334544.6668354722_r8, -334732.070891422_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sa_freezing_from_ct = gsw_result( & @@ -14739,12 +14739,12 @@ module gsw_mod_check_data 34.881086643284_r8, 34.881476814695_r8, 34.883401613802_r8, & 6.669904340924_r8, 6.7737814418926_r8, 6.9129530644763_r8, & 7.1375206720999_r8, 7.3661052164131_r8, 7.5862209196448_r8, & - 9.1676241523674_r8, 10.389468455025_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.1676241523674_r8, 10.389468455025_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sa_freezing_from_ct_poly = gsw_result( & @@ -14783,12 +14783,12 @@ module gsw_mod_check_data 34.881086643283_r8, 34.881476814693_r8, 34.883401613801_r8, & 6.6699043409305_r8, 6.7737814418975_r8, 6.9129530644828_r8, & 7.1375206721037_r8, 7.3661052164194_r8, 7.5862209196494_r8, & - 9.167624152377_r8, 10.389468455037_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.167624152377_r8, 10.389468455037_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sa_freezing_from_t = gsw_result( & @@ -14827,12 +14827,12 @@ module gsw_mod_check_data 34.881086643285_r8, 34.881476814694_r8, 34.883401613803_r8, & 6.6699043409241_r8, 6.7737814418901_r8, 6.9129530644795_r8, & 7.1375206720995_r8, 7.366105216414_r8, 7.5862209196443_r8, & - 9.1676241523664_r8, 10.389468455024_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.1676241523664_r8, 10.389468455024_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sa_freezing_from_t_poly = gsw_result( & @@ -14871,11 +14871,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, & 7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ctfreezing_sa = gsw_result( & @@ -14914,12 +14914,12 @@ module gsw_mod_check_data -0.05918008599653621_r8, -0.05910387488585715_r8, -0.05901650759560111_r8, & -0.0530013208250531_r8, -0.05300868058120169_r8, -0.05301648782767866_r8, & -0.05302585759226835_r8, -0.05303763334873637_r8, -0.05305140995942938_r8, & - -0.05316382330146954_r8, -0.05330256692258663_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05316382330146954_r8, -0.05330256692258663_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ctfreezing_p = gsw_result( & @@ -14958,12 +14958,12 @@ module gsw_mod_check_data -9.6429767600759e-08_r8, -9.7275573331652e-08_r8, -9.811901943903e-08_r8, & -7.4508663833748e-08_r8, -7.4559317771882e-08_r8, -7.4612922079419e-08_r8, & -7.4673681992147e-08_r8, -7.4734647757879e-08_r8, -7.4794770309749e-08_r8, & - -7.5033133741101e-08_r8, -7.523464380045e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -7.5033133741101e-08_r8, -7.523464380045e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ctfreezing_sa_poly = gsw_result( & @@ -15002,12 +15002,12 @@ module gsw_mod_check_data -0.05917471845970226_r8, -0.05909983683966646_r8, -0.05901388460027225_r8, & -0.05301578087812731_r8, -0.05302319516586801_r8, -0.05303095076059756_r8, & -0.05304001404371655_r8, -0.05305145476308031_r8, -0.05306490732203371_r8, & - -0.05317340686483132_r8, -0.05330941332221949_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05317340686483132_r8, -0.05330941332221949_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ctfreezing_p_poly = gsw_result( & @@ -15046,12 +15046,12 @@ module gsw_mod_check_data -9.6436423416394e-08_r8, -9.7283810317375e-08_r8, -9.8128508629192e-08_r8, & -7.4523336070684e-08_r8, -7.4574037788968e-08_r8, -7.4627805308599e-08_r8, & -7.4689007291807e-08_r8, -7.4750417572581e-08_r8, -7.4810945632147e-08_r8, & - -7.5053434072496e-08_r8, -7.5257631194106e-08_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.5053434072496e-08_r8, -7.5257631194106e-08_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: tfreezing_sa = gsw_result( & @@ -15090,12 +15090,12 @@ module gsw_mod_check_data -0.05838729589410799_r8, -0.05846589353901376_r8, -0.05854612103247572_r8, & -0.05329571534278817_r8, -0.05329554567939729_r8, -0.05329562519036385_r8, & -0.05329660126634706_r8, -0.05329929376510896_r8, -0.05330345110175239_r8, & - -0.05336469388817219_r8, -0.05344564200252166_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05336469388817219_r8, -0.05344564200252166_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: tfreezing_p = gsw_result( & @@ -15150,12 +15150,12 @@ module gsw_mod_check_data -7.434016238386904e-08_r8, -7.437296853650948e-08_r8, & -7.440612109683406e-08_r8, -7.444012331884646e-08_r8, & -7.44741921779601e-08_r8, -7.450820230415053e-08_r8, & - -7.460755605334024e-08_r8, -7.470082142144461e-08_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.460755605334024e-08_r8, -7.470082142144461e-08_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: tfreezing_sa_poly = gsw_result( & @@ -15194,12 +15194,12 @@ module gsw_mod_check_data -0.05838359345146146_r8, -0.05846256787956657_r8, -0.05854326890811165_r8, & -0.05328313052667945_r8, -0.05328327595499649_r8, -0.05328377491250316_r8, & -0.05328542100107363_r8, -0.05328879709176362_r8, -0.05329361262604533_r8, & - -0.05335925772583553_r8, -0.05344317961274174_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05335925772583553_r8, -0.05344317961274174_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: tfreezing_p_poly = gsw_result( & @@ -15254,12 +15254,12 @@ module gsw_mod_check_data -7.437794913764851e-08_r8, -7.441028173277502e-08_r8, & -7.444297042643836e-08_r8, -7.447652904016719e-08_r8, & -7.451016050159252e-08_r8, -7.454373661765283e-08_r8, & - -7.464226441645901e-08_r8, -7.473474154207217e-08_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.464226441645901e-08_r8, -7.473474154207217e-08_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing_sa = gsw_result( & @@ -15298,12 +15298,12 @@ module gsw_mod_check_data -118.5718702504829_r8, -118.5833497933198_r8, -118.5964258085308_r8, & -111.6185555792632_r8, -111.6113679321992_r8, -111.6039619657437_r8, & -111.5966438055147_r8, -111.5928332056843_r8, -111.5922639668351_r8, & - -111.6751435909979_r8, -111.8071141844643_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -111.6751435909979_r8, -111.8071141844643_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing_p = gsw_result( & @@ -15358,12 +15358,12 @@ module gsw_mod_check_data -0.0002031814332884368_r8, -0.0002032301319067567_r8, & -0.0002032779018859639_r8, -0.0002033234610010417_r8, & -0.0002033689592190151_r8, -0.0002034147156986458_r8, & - -0.0002035093752924112_r8, -0.0002036093733581402_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.0002035093752924112_r8, -0.0002036093733581402_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing_sa_poly = gsw_result( & @@ -15402,12 +15402,12 @@ module gsw_mod_check_data -118.5921751086301_r8, -118.6067982250461_r8, -118.6230673860459_r8, & -111.5700765594952_r8, -111.5637032121096_r8, -111.5573803074221_r8, & -111.5518097831558_r8, -111.549791076265_r8, -111.5509512746412_r8, & - -111.646217238763_r8, -111.7869466979063_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -111.646217238763_r8, -111.7869466979063_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing_p_poly = gsw_result( & @@ -15462,12 +15462,12 @@ module gsw_mod_check_data -0.000203267229694165_r8, -0.0002033149358290789_r8, & -0.000203361719128917_r8, -0.0002034062929562954_r8, & -0.0002034507832465749_r8, -0.0002034955116930291_r8, & - -0.0002035868068629447_r8, -0.0002036831985411069_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.0002035868068629447_r8, -0.0002036831985411069_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: latentheat_melting = gsw_result( & @@ -15506,12 +15506,12 @@ module gsw_mod_check_data 317340.4381456572_r8, 316649.1736884361_r8, 315945.6174279523_r8, & 332669.6437188723_r8, 332640.2572422285_r8, 332607.0564168283_r8, & 332564.65820149_r8, 332521.8726991066_r8, 332480.0412048035_r8, & - 332264.3938576001_r8, 332090.4995257973_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 332264.3938576001_r8, 332090.4995257973_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: latentheat_evap_ct = gsw_result( & @@ -15550,12 +15550,12 @@ module gsw_mod_check_data 2496511.788918582_r8, 2496514.679703501_r8, 2496525.620648657_r8, & 2474951.236445722_r8, 2477150.708018741_r8, 2482116.299355683_r8, & 2487144.960734571_r8, 2490040.730189713_r8, 2491529.576826381_r8, & - 2489855.680475559_r8, 2488434.428739395_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2489855.680475559_r8, 2488434.428739395_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: latentheat_evap_t = gsw_result( & @@ -15594,12 +15594,12 @@ module gsw_mod_check_data 2495305.858746646_r8, 2495225.724194544_r8, 2495151.490367209_r8, & 2474951.236445722_r8, 2477149.192049776_r8, 2482114.157329434_r8, & 2487143.137323316_r8, 2490039.374968516_r8, 2491528.553854507_r8, & - 2489852.225141957_r8, 2488427.808798687_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2489852.225141957_r8, 2488427.808798687_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: grav = gsw_result( & @@ -15638,12 +15638,12 @@ module gsw_mod_check_data 9.793915508772173_r8, 9.794468151359965_r8, 9.795022339414075_r8, & 9.818385590850475_r8, 9.818407572464066_r8, 9.818429553010436_r8, & 9.81845153248991_r8, 9.818473510902823_r8, 9.818495488249502_r8, & - 9.818552624363246_r8, 9.818607556144389_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 9.818552624363246_r8, 9.818607556144389_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: enthalpy_ct_exact = gsw_result( & @@ -15682,12 +15682,12 @@ module gsw_mod_check_data 57322.501483125_r8, 59766.957096513_r8, 62204.701996098_r8, & 41925.661983623_r8, 38203.689480714_r8, 29680.261445303_r8, & 21044.677871075_r8, 16113.301299732_r8, 13625.18970737_r8, & - 16743.740011372_r8, 19409.635279461_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16743.740011372_r8, 19409.635279461_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: h_sa_ct_exact = gsw_result( & @@ -15720,11 +15720,11 @@ module gsw_mod_check_data -40.2864421028_r8, -42.039759396_r8, -43.7923727633_r8, 0._r8, & -0.0767124462575_r8, -0.154521128555_r8, -0.233529183568_r8, & -0.312713363967_r8, -0.391676442514_r8, -0.591567978773_r8, & - -0.782297536806_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + -0.782297536806_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_ct_ct_exact = gsw_result( & @@ -15763,12 +15763,12 @@ module gsw_mod_check_data 3999.256895784855_r8, 3999.765693812938_r8, 4000.287774376506_r8, & 3991.86795711963_r8, 3991.876911698921_r8, 3991.880701355361_r8, & 3991.878882338572_r8, 3991.876109030451_r8, 3991.874122733088_r8, & - 3991.888742365541_r8, 3991.90771168561_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 3991.888742365541_r8, 3991.90771168561_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_sa_sa_ct_exact = gsw_result( & @@ -15807,11 +15807,11 @@ module gsw_mod_check_data 0.055225066900172_r8, 0.057096096792184_r8, 0._r8, 0.00016487595354669_r8, & 0.00033463077136397_r8, 0.00050846449695568_r8, 0.00067996552457185_r8, & 0.000846306657985_r8, 0.0011641486228366_r8, 0.0014506369945591_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_sa_ct_ct_exact = gsw_result( & @@ -15850,11 +15850,11 @@ module gsw_mod_check_data 0.13676955839746_r8, 0.14156160239403_r8, 0._r8, 0.00025914571458517_r8, & 0.00055454300863473_r8, 0.00089187707309008_r8, 0.0012374586051721_r8, & 0.0015773436097115_r8, 0.0023100057295601_r8, 0.0029814007789332_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_ct_ct_ct_exact = gsw_result( & @@ -15892,12 +15892,12 @@ module gsw_mod_check_data 0.52574850794365_r8, 0.54484001484201_r8, 0.56332750212384_r8, & 0.58143198106786_r8, 0._r8, 0.0011883837407528_r8, 0.0024995343269944_r8, & 0.0039547266160598_r8, 0.0054400879379148_r8, 0.0069061436514812_r8, & - 0.010163914501159_r8, 0.01316138782273_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.010163914501159_r8, 0.01316138782273_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_t_exact = gsw_result( & @@ -15936,12 +15936,12 @@ module gsw_mod_check_data 1052.801348924726_r8, 1053.873097410109_r8, 1054.94446014967_r8, & 1004.881703725263_r8, 1005.101280969829_r8, 1005.425131980654_r8, & 1005.761213793721_r8, 1006.02715857045_r8, 1006.261562376281_r8, & - 1007.624587752987_r8, 1008.687812318329_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.624587752987_r8, 1008.687812318329_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_rho_t_exact = gsw_result( & @@ -15980,12 +15980,12 @@ module gsw_mod_check_data 1027.829219438152_r8, 1027.829610807735_r8, 1027.831450910974_r8, & 1004.881703725263_r8, 1005.053867831101_r8, 1005.329225275224_r8, & 1005.615615468646_r8, 1005.831660997495_r8, 1006.016343242448_r8, & - 1007.254656852288_r8, 1008.199190243294_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.254656852288_r8, 1008.199190243294_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: alpha_wrt_t_exact = gsw_result( & @@ -16024,12 +16024,12 @@ module gsw_mod_check_data 0.00019726232414476_r8, 0.00020235067750112_r8, 0.00020734462231256_r8, & 0.00010498616088217_r8, 9.3763203248887e-05_r8, 6.6948840745084e-05_r8, & 3.8572021505753e-05_r8, 2.1958178856618e-05_r8, 1.3698251429773e-05_r8, & - 2.974148308407e-05_r8, 4.2575930715782e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.974148308407e-05_r8, 4.2575930715782e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: beta_const_t_exact = gsw_result( & @@ -16068,12 +16068,12 @@ module gsw_mod_check_data 0.00071990763462134_r8, 0.00071755187225658_r8, 0.00071522116568008_r8, & 0.00077012209995467_r8, 0.00077213899873602_r8, 0.00077727164691835_r8, & 0.00078291232214769_r8, 0.00078626212253045_r8, 0.00078789067779263_r8, & - 0.00078383856977939_r8, 0.00078072535810303_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078383856977939_r8, 0.00078072535810303_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: specvol_t_exact = gsw_result( & @@ -16126,12 +16126,12 @@ module gsw_mod_check_data 0.000995142011535123_r8, 0.0009949246100204876_r8, & 0.0009946041412651316_r8, 0.0009942717876622131_r8, & 0.0009940089504352802_r8, 0.0009937774008166485_r8, & - 0.0009924331066890799_r8, 0.0009913870156730046_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009924331066890799_r8, 0.0009913870156730046_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sound_speed_t_exact = gsw_result( & @@ -16170,12 +16170,12 @@ module gsw_mod_check_data 1549.6117936248_r8, 1554.290449102_r8, 1558.9859082367_r8, & 1455.6831811918_r8, 1452.3625840726_r8, 1444.239631824_r8, & 1435.6727625022_r8, 1430.7264379745_r8, 1428.3327658191_r8, & - 1433.9414737382_r8, 1438.5338278577_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 1433.9414737382_r8, 1438.5338278577_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: kappa_t_exact = gsw_result( & @@ -16214,12 +16214,12 @@ module gsw_mod_check_data 3.9555578574473e-10_r8, 3.9277815434433e-10_r8, 3.9001923395066e-10_r8, & 4.6962513464964e-10_r8, 4.7167197129523e-10_r8, 4.7683897562167e-10_r8, & 4.8238544395298e-10_r8, 4.8559822445408e-10_r8, 4.8711367104981e-10_r8, & - 4.8265675815594e-10_r8, 4.790745149808e-10_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 4.8265675815594e-10_r8, 4.790745149808e-10_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: enthalpy_t_exact = gsw_result( & @@ -16258,12 +16258,12 @@ module gsw_mod_check_data 57322.501483125_r8, 59766.957096513_r8, 62204.701996098_r8, & 41925.661983623_r8, 38203.689480714_r8, 29680.261445303_r8, & 21044.677871075_r8, 16113.301299732_r8, 13625.18970737_r8, & - 16743.740011372_r8, 19409.635279461_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16743.740011372_r8, 19409.635279461_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: ct_sa_wrt_t = gsw_result( & @@ -16302,12 +16302,12 @@ module gsw_mod_check_data -0.014072628686_r8, -0.0143730755344_r8, -0.0146638828542_r8, & -0.0144770495026_r8, -0.0130806915645_r8, -0.00984626835963_r8, & -0.00650204131652_r8, -0.00456294560753_r8, -0.00358310437893_r8, & - -0.00504964627847_r8, -0.00626702045744_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.00504964627847_r8, -0.00626702045744_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_t_wrt_t = gsw_result( & @@ -16346,12 +16346,12 @@ module gsw_mod_check_data 0.9613759379365453_r8, 0.9600865478409804_r8, 0.9588200326463092_r8, & 1.040382360969603_r8, 1.040398357380179_r8, 1.040772451657793_r8, & 1.041136391013527_r8, 1.041196638004305_r8, 1.041021199857103_r8, & - 1.037828060508981_r8, 1.035368419878411_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.037828060508981_r8, 1.035368419878411_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_p_wrt_t = gsw_result( & @@ -16390,12 +16390,12 @@ module gsw_mod_check_data -1.28606235254e-08_r8, -1.31788866368e-08_r8, -1.34901950014e-08_r8, & -7.41187460851e-09_r8, -6.59663334431e-09_r8, -4.67401666435e-09_r8, & -2.67182219021e-09_r8, -1.51399635463e-09_r8, -9.42142599939e-10_r8, & - -2.04794442546e-09_r8, -2.93485453165e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -2.04794442546e-09_r8, -2.93485453165e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: chem_potential_water_t_exact = gsw_result( & @@ -16434,12 +16434,12 @@ module gsw_mod_check_data 53.103015316397_r8, 55.612816060606_r8, 58.129543323637_r8, & -1.1226592127859_r8, -0.89508450708121_r8, -0.54659337008948_r8, & -0.26606408987197_r8, -0.09879179535595_r8, 0.020438641668798_r8, & - 0.13747607525642_r8, 0.26764832484136_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.13747607525642_r8, 0.26764832484136_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: t_deriv_chem_potential_water_t_exact = gsw_result( & @@ -16478,12 +16478,12 @@ module gsw_mod_check_data -0.0276422895662_r8, -0.0277773790261_r8, -0.0278586774043_r8, & -0.153370026777_r8, -0.139766509712_r8, -0.108847934496_r8, & -0.0773007866804_r8, -0.0590424607412_r8, -0.0496472894285_r8, & - -0.0606436969679_r8, -0.0699304866827_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0606436969679_r8, -0.0699304866827_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: dilution_coefficient_t_exact = gsw_result( & @@ -16522,12 +16522,12 @@ module gsw_mod_check_data 72.085515733992_r8, 72.156278733013_r8, 72.224944994649_r8, & 67.616064342506_r8, 67.393227954882_r8, 66.882766763945_r8, & 66.363169629683_r8, 66.065372183713_r8, 65.916337307894_r8, & - 66.205547430761_r8, 66.491057841081_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 66.205547430761_r8, 66.491057841081_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: deltasa_atlas = gsw_result( & @@ -16564,12 +16564,12 @@ module gsw_mod_check_data 0.015980441165909_r8, 0.015427993081175_r8, 0.015031765070164_r8, & 0.014752503347485_r8, 0.014571537959061_r8, 0.014479362618144_r8, & 0.014425096269633_r8, 0.01439026764316_r8, 0.014359769181164_r8, 0._r8, & - 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: fdelta = gsw_result( & @@ -16606,12 +16606,12 @@ module gsw_mod_check_data 0.00061906246610478_r8, 0.00059757938871502_r8, 0.00058216858248275_r8, & 0.00057132159369387_r8, 0.00056429229571656_r8, 0.00056071080342301_r8, & 0.00055860236733881_r8, 0.00055724686598179_r8, 0.00055603918673276_r8, & - 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2 = gsw_result_mpres( & @@ -16649,12 +16649,12 @@ module gsw_mod_check_data 9.9982620909999e-08_r8, 2.4654934937997e-08_r8, 2.0885423177912e-08_r8, & 9.223702816207e-08_r8, 0.0001660648551066_r8, 0.00026633634883617_r8, & 0.00027763586396894_r8, 0.00020948149219376_r8, 0.00017879921415107_r8, & - 0.00045821505037643_r8, 0.0003631969327651_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00045821505037643_r8, 0.0003631969327651_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: p_mid_n2 = gsw_result_mpres( & @@ -16673,12 +16673,12 @@ module gsw_mod_check_data 1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, & 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, & 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, & - 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: tu = gsw_result_mpres( & @@ -16708,12 +16708,12 @@ module gsw_mod_check_data 33.5909391428_r8, 29.7048355369_r8, 35.2075098131_r8, 37.2062343408_r8, & 35.4422070149_r8, 22.2582946063_r8, -2.71157620588_r8, -9.2408573343_r8, & 3.83688900053_r8, 12.213034823_r8, -12.5408613299_r8, -33.415215626_r8, & - -41.3216504414_r8, -45.694408063_r8, -46.2699201995_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -41.3216504414_r8, -45.694408063_r8, -46.2699201995_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: rsubrho = gsw_result_mpres( & @@ -16751,12 +16751,12 @@ module gsw_mod_check_data -5.9389578850225_r8, -2.3856977176447_r8, -0.90956072716382_r8, & -0.7201392832697_r8, -1.143775818143_r8, -1.5524718006901_r8, & -0.63606810722336_r8, -0.20499378284572_r8, -0.064287656743285_r8, & - 0.012120300497005_r8, 0.022167918876923_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.012120300497005_r8, 0.022167918876923_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: p_mid_tursr = gsw_result_mpres( & @@ -16775,12 +16775,12 @@ module gsw_mod_check_data 1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, & 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, & 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, & - 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min = gsw_result_mpres( & @@ -16818,12 +16818,12 @@ module gsw_mod_check_data 9.8716189054048e-08_r8, 2.4408839243381e-08_r8, 2.0758737456709e-08_r8, & 9.1779374620329e-08_r8, 0.0001611729885002_r8, 0.00023944070948783_r8, & 0.00024904640983871_r8, 0.00020007889751824_r8, 0.00017649915736858_r8, & - 0.0004552721778721_r8, 0.00036118359668038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.0004552721778721_r8, 0.00036118359668038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_pmid = gsw_result_mpres( & @@ -16842,12 +16842,12 @@ module gsw_mod_check_data 1517._r8, 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, & 3045._r8, 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, & 4840._r8, 5098._r8, 5355._r8, 5614._r8, 5872._r8, 10._r8, 20._r8, 30._r8, & - 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 40._r8, 50._r8, 76._r8, 101._r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_specvol = gsw_result_mpres( & @@ -16900,11 +16900,11 @@ module gsw_mod_check_data 0.0009946040926904509_r8, 0.0009942717261025088_r8, & 0.0009940088745524498_r8, 0.0009937773244990007_r8, & 0.0009924332606871787_r8, 0.0009913873184543118_r8, & - 0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009913873184543118_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_alpha = gsw_result_mpres( & @@ -16943,11 +16943,11 @@ module gsw_mod_check_data 0.0002107349775155_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 4.1139568399101e-05_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_beta = gsw_result_mpres( & @@ -16986,11 +16986,11 @@ module gsw_mod_check_data 0.00071451889363731_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & 0.00078356549344703_r8, 0.00078036996563038_r8, 0.00078036996563038_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_dsa = gsw_result_mpres( & @@ -17029,12 +17029,12 @@ module gsw_mod_check_data 0.001071921709083767_r8, 0.000509604108586359_r8, 0.0002601674146944788_r8, & 0.0003901714079006524_r8, 0.001924799106966191_r8, 0.1038771009668551_r8, & 0.1391716225851436_r8, 0.2245676076205712_r8, 0.2285845443154297_r8, & - 0.2201157032297125_r8, 1.581403232725715_r8, 1.221844302658285_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.2201157032297125_r8, 1.581403232725715_r8, 1.221844302658285_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_dct = gsw_result_mpres( & @@ -17072,12 +17072,12 @@ module gsw_mod_check_data -0.011093356350105_r8, -0.0022035202723656_r8, -0.0012214821167824_r8, & -0.0046310453391714_r8, -0.95731305534169_r8, -2.1601074073571_r8, & -2.1881877052759_r8, -1.2602409976967_r8, -0.64817239735291_r8, & - 0.71673511444779_r8, 0.60591670607301_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.71673511444779_r8, 0.60591670607301_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_dp = gsw_result_mpres( & @@ -17095,11 +17095,11 @@ module gsw_mod_check_data 102._r8, 101._r8, 254._r8, 254._r8, 254._r8, 255._r8, 255._r8, 256._r8, & 255._r8, 256._r8, 256._r8, 257._r8, 256._r8, 258._r8, 257._r8, 258._r8, & 257._r8, 259._r8, 258._r8, 259._r8, 10._r8, 10._r8, 10._r8, 10._r8, 10._r8, & - 26._r8, 25._r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 26._r8, 25._r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: ipvfn2 = gsw_result_mpres( & @@ -17129,12 +17129,12 @@ module gsw_mod_check_data 0.489471768125_r8, 0.510287776481_r8, 0.451275078269_r8, 0.421444778721_r8, & 0.43039269445_r8, 0.539652744147_r8, 0.713846676418_r8, 0.757928068915_r8, & 0.99936536978_r8, 0.997108372389_r8, 0.995041407996_r8, 0.994575061931_r8, & - 0.995970426837_r8, 1.00211308856_r8, 1.00308855992_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 0.995970426837_r8, 1.00211308856_r8, 1.00308855992_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: p_mid_ipvfn2 = gsw_result_mpres( & @@ -17153,12 +17153,12 @@ module gsw_mod_check_data 1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, & 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, & 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, & - 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: n2_lowerlimit = gsw_result( & @@ -17197,19 +17197,19 @@ module gsw_mod_check_data 2.5273484074738e-08_r8, 2.52112924922e-08_r8, 2.5163080410076e-08_r8, & 1e-07_r8, 9.9253737531188e-08_r8, 9.8514900498007e-08_r8, & 9.7783415016138e-08_r8, 9.7059207936424e-08_r8, 9.6342206837554e-08_r8, & - 9.4511215491954e-08_r8, 9.279497746644e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 9.4511215491954e-08_r8, 9.279497746644e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result_cast) :: mlp = gsw_result_cast( & variable_name = "mlp", & computation_accuracy = 2.3e-08_r8, & values = (/ & - 50._r8, 50._r8, 9e90_r8 & + 50._r8, 50._r8, 9e1_r8 & /) ) type(gsw_result) :: geo_strf_dyn_height = gsw_result( & @@ -17240,12 +17240,12 @@ module gsw_mod_check_data -34.6196050521_r8, -35.528763007_r8, -36.4329605749_r8, -37.3502339552_r8, & -38.2718413368_r8, -39.2027260967_r8, 0._r8, -2.24045354272_r8, & -4.45755336701_r8, -6.64607367518_r8, -8.80938788479_r8, -10.9527107504_r8, & - -16.3381819771_r8, -21.247093529_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + -16.3381819771_r8, -21.247093529_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: geo_strf_dyn_height_pc = gsw_result( & @@ -17276,12 +17276,12 @@ module gsw_mod_check_data -32.7229663545_r8, -33.6259672453_r8, -34.5278590095_r8, -35.437066302_r8, & -36.3558675938_r8, -37.2801867992_r8, 0._r8, -1.11548125131_r8, & -3.33264515219_r8, -5.5216982052_r8, -7.68551090876_r8, -9.82911352409_r8, & - -13.5117663277_r8, -18.5249676298_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + -13.5117663277_r8, -18.5249676298_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: geo_strf_dyn_height_pc_p_mid = gsw_result( & @@ -17301,11 +17301,11 @@ module gsw_mod_check_data 2152._r8, 2406.5_r8, 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, & 3940.5_r8, 4197._r8, 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, & 5743._r8, 6001.5_r8, 0._r8, 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, & - 88.5_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 88.5_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: rho_ice = gsw_result_ice( & @@ -18157,23 +18157,23 @@ module gsw_mod_check_data computation_accuracy = 7.8061e-07_r8, & values = (/ & 1096.2576803_r8, 1070.15780265_r8, 1034.10979826_r8, 1016.50879419_r8, & - 9e90_r8, 9e90_r8, 437.916027373_r8, 755.449491706_r8, 881.374551326_r8, & - 954.261417834_r8, 887.895489475_r8, 600.592848315_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 802.377377456_r8, & - 853.652282077_r8, 845.860234122_r8, 9e90_r8, 9e90_r8, 9e90_r8, & + 9e1_r8, 9e1_r8, 437.916027373_r8, 755.449491706_r8, 881.374551326_r8, & + 954.261417834_r8, 887.895489475_r8, 600.592848315_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 802.377377456_r8, & + 853.652282077_r8, 845.860234122_r8, 9e1_r8, 9e1_r8, 9e1_r8, & 734.087015732_r8, 1063.88226444_r8, 1069.83800462_r8, 1066.97994243_r8, & - 1036.44481588_r8, 917.648895914_r8, 78.4226170927_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 1161.78021795_r8, & + 1036.44481588_r8, 917.648895914_r8, 78.4226170927_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 1161.78021795_r8, & 1175.15379759_r8, 1174.68820878_r8, 1143.24330131_r8, 948.567161058_r8, & 678.700648579_r8, 771.864647788_r8, 891.763117349_r8, 776.657764279_r8, & - 582.676250797_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 582.676250797_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: melting_ice_sa_ct_ratio = gsw_result_ice( & @@ -18913,28 +18913,28 @@ module gsw_mod_check_data variable_name = "frazil_properties_potential_poly_SA_final", & computation_accuracy = 3.6578e-10_r8, & values = (/ & - 27.619462009144_r8, 28.077395240092_r8, 28.099518740265_r8, 9e90_r8, & + 27.619462009144_r8, 28.077395240092_r8, 28.099518740265_r8, 9e1_r8, & 29.898283690558_r8, 30.833138422429_r8, 31.958029861582_r8, & 32.447864928944_r8, 32.721248702259_r8, 32.97016250481_r8, & 33.237918493123_r8, 33.569673037364_r8, 33.9386294611_r8, & - 33.889620551202_r8, 9e90_r8, 33.807059234246_r8, 33.847529321824_r8, & + 33.889620551202_r8, 9e1_r8, 33.807059234246_r8, 33.847529321824_r8, & 33.894615740874_r8, 33.906644166593_r8, 33.935064268119_r8, & 33.963417505071_r8, 33.969243390678_r8, 33.981943113224_r8, & - 33.98336654852_r8, 33.970247817386_r8, 33.968583289137_r8, 9e90_r8, & + 33.98336654852_r8, 33.970247817386_r8, 33.968583289137_r8, 9e1_r8, & 33.91571968155_r8, 33.873474659656_r8, 33.785757272285_r8, & - 33.684236446719_r8, 9e90_r8, 33.460701558507_r8, 33.382581211615_r8, & - 9e90_r8, 33.182206929451_r8, 28.401595974588_r8, 9e90_r8, & + 33.684236446719_r8, 9e1_r8, 33.460701558507_r8, 33.382581211615_r8, & + 9e1_r8, 33.182206929451_r8, 28.401595974588_r8, 9e1_r8, & 28.059579730041_r8, 29.966930557237_r8, 31.090659801979_r8, & - 31.616908402516_r8, 32.243633054773_r8, 9e90_r8, 32.730203175942_r8, & + 31.616908402516_r8, 32.243633054773_r8, 9e1_r8, 32.730203175942_r8, & 32.923082322458_r8, 33.069247479255_r8, 33.25516179739_r8, & 33.938835722367_r8, 33.884082889677_r8, 33.834093430906_r8, & 33.816140803161_r8, 33.821214185726_r8, 33.885470171844_r8, & 33.887741021164_r8, 33.933992362797_r8, 33.955112377298_r8, & 33.976595880254_r8, 33.976356816568_r8, 33.987037608102_r8, & - 33.987908331074_r8, 9e90_r8, 33.967319395492_r8, 33.913735382299_r8, & - 33.828377186532_r8, 9e90_r8, 9e90_r8, 9e90_r8, 33.506197542375_r8, & - 33.389277003262_r8, 33.288353107427_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 29.662622604441_r8, 9e90_r8, 30.571737196243_r8, 31.87361855776_r8, & + 33.987908331074_r8, 9e1_r8, 33.967319395492_r8, 33.913735382299_r8, & + 33.828377186532_r8, 9e1_r8, 9e1_r8, 9e1_r8, 33.506197542375_r8, & + 33.389277003262_r8, 33.288353107427_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 29.662622604441_r8, 9e1_r8, 30.571737196243_r8, 31.87361855776_r8, & 32.484765271401_r8, 32.992746418169_r8, 33.466353267655_r8, & 33.975293057089_r8, 34.007996831074_r8, 33.923518054566_r8, & 33.809621851607_r8, 33.767925339862_r8, 33.717489115504_r8, & @@ -18943,36 +18943,36 @@ module gsw_mod_check_data 33.992200721395_r8, 34.008808725628_r8, 34.005925519296_r8, & 34.012970101682_r8, 33.98561451966_r8, 33.977605574524_r8, & 33.921947620388_r8, 33.856059908809_r8, 33.790313145771_r8, & - 33.674342511332_r8, 33.574923909669_r8, 33.470709584706_r8, 9e90_r8, & - 33.296698299423_r8, 9e90_r8 & + 33.674342511332_r8, 33.574923909669_r8, 33.470709584706_r8, 9e1_r8, & + 33.296698299423_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: frazil_properties_potential_poly_ct_final = gsw_result_ice( & variable_name = "frazil_properties_potential_poly_CT_final", & computation_accuracy = 3.3237e-11_r8, & values = (/ & - -1.4834027127773_r8, -1.5169161924119_r8, -1.5257874983377_r8, 9e90_r8, & + -1.4834027127773_r8, -1.5169161924119_r8, -1.5257874983377_r8, 9e1_r8, & -1.6432937054344_r8, -1.7043869362712_r8, -1.7888995253979_r8, & -1.8363140441232_r8, -1.8713110314647_r8, -1.9049419808812_r8, & -1.9397107112703_r8, -1.9790145069022_r8, -2.0391187131171_r8, & - -2.0758119733136_r8, 9e90_r8, -2.1496064359662_r8, -2.230945667147_r8, & + -2.0758119733136_r8, 9e1_r8, -2.1496064359662_r8, -2.230945667147_r8, & -2.3130592343749_r8, -2.3935138314256_r8, -2.4753094410413_r8, & -2.557484964559_r8, -2.6387243769701_r8, -2.7207461026847_r8, & - -2.8032962616757_r8, -2.8845638508944_r8, -2.9676970624302_r8, 9e90_r8, & + -2.8032962616757_r8, -2.8845638508944_r8, -2.9676970624302_r8, 9e1_r8, & -3.257241960811_r8, -3.4669662396459_r8, -3.6763439596778_r8, & - -3.8880825049006_r8, 9e90_r8, -4.3181803425367_r8, -4.5382403343366_r8, & - 9e90_r8, -4.9844092632503_r8, -1.5276662366953_r8, 9e90_r8, & + -3.8880825049006_r8, 9e1_r8, -4.3181803425367_r8, -4.5382403343366_r8, & + 9e1_r8, -4.9844092632503_r8, -1.5276662366953_r8, 9e1_r8, & -1.5235260778831_r8, -1.6395731015876_r8, -1.7114988570637_r8, & - -1.7493608966498_r8, -1.8053526021754_r8, 9e90_r8, -1.8718285034298_r8, & + -1.7493608966498_r8, -1.8053526021754_r8, 9e1_r8, -1.8718285034298_r8, & -1.9022180398996_r8, -1.9299408946819_r8, -1.9607727381913_r8, & -2.0391307087401_r8, -2.0754898324663_r8, -2.1114439018909_r8, & -2.1501350633777_r8, -2.2294123502127_r8, -2.312525748803_r8, & -2.3924101786441_r8, -2.4752467963548_r8, -2.5569991511628_r8, & -2.6391548261204_r8, -2.720418798658_r8, -2.8035115152502_r8, & - -2.8856000858269_r8, 9e90_r8, -3.0504149488495_r8, -3.2571252254802_r8, & - -3.4643101743347_r8, 9e90_r8, 9e90_r8, 9e90_r8, -4.3208668583143_r8, & - -4.5386358189678_r8, -4.760530490996_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - -1.6145849366953_r8, 9e90_r8, -1.6817743489142_r8, -1.7641234564172_r8, & + -2.8856000858269_r8, 9e1_r8, -3.0504149488495_r8, -3.2571252254802_r8, & + -3.4643101743347_r8, 9e1_r8, 9e1_r8, 9e1_r8, -4.3208668583143_r8, & + -4.5386358189678_r8, -4.760530490996_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + -1.6145849366953_r8, 9e1_r8, -1.6817743489142_r8, -1.7641234564172_r8, & -1.8192591892992_r8, -1.8677936871773_r8, -1.9144370045146_r8, & -1.9632257911131_r8, -1.9844040196908_r8, -1.9995666517687_r8, & -2.0316180116333_r8, -2.0687343646064_r8, -2.1046607147382_r8, & @@ -18981,36 +18981,36 @@ module gsw_mod_check_data -2.6400684494478_r8, -2.7223202768743_r8, -2.8046190636588_r8, & -2.8870707179455_r8, -2.9686970533908_r8, -3.0510192879771_r8, & -3.2576083532515_r8, -3.4659405236976_r8, -3.6766125464238_r8, & - -3.88749883286_r8, -4.1016831600569_r8, -4.3187712737818_r8, 9e90_r8, & - -4.7610234582053_r8, 9e90_r8 & + -3.88749883286_r8, -4.1016831600569_r8, -4.3187712737818_r8, 9e1_r8, & + -4.7610234582053_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: frazil_properties_potential_poly_w_ih_final = gsw_result_ice( & variable_name = "frazil_properties_potential_poly_w_Ih_final", & computation_accuracy = 7.1663e-12_r8, & values = (/ & - 0.000176270314407_r8, 0.000325533684252_r8, 0.000139493955038_r8, 9e90_r8, & + 0.000176270314407_r8, 0.000325533684252_r8, 0.000139493955038_r8, 9e1_r8, & 0.000419583105568_r8, 0.00201757112615_r8, 0.000123429844205_r8, & 0.00120447121825_r8, 0.000246987287503_r8, 0.000460982348892_r8, & 2.51613352381e-05_r8, 0.000915538374681_r8, 0.00031332897557_r8, & - 0.0047410038326_r8, 9e90_r8, 0.00546663801282_r8, 0.00381872234438_r8, & + 0.0047410038326_r8, 9e1_r8, 0.00546663801282_r8, 0.00381872234438_r8, & 0.00355299956965_r8, 0.000235066825627_r8, 0.00275440585078_r8, & 0.00111130687955_r8, 0.00445126061551_r8, 0.001717955549_r8, & - 0.00402206807423_r8, 0.000851030671989_r8, 0.00100077963282_r8, 9e90_r8, & + 0.00402206807423_r8, 0.000851030671989_r8, 0.00100077963282_r8, 9e1_r8, & 0.000417347820148_r8, 0.00246405955914_r8, 0.00151378181133_r8, & - 0.00186456980105_r8, 9e90_r8, 0.00605774046811_r8, 0.00214688359831_r8, & - 9e90_r8, 0.000551179493386_r8, 0.000144810164904_r8, 9e90_r8, & + 0.00186456980105_r8, 9e1_r8, 0.00605774046811_r8, 0.00214688359831_r8, & + 9e1_r8, 0.000551179493386_r8, 0.000144810164904_r8, 9e1_r8, & 1.51380272089e-05_r8, 9.27683296179e-05_r8, 0.000349534212591_r8, & - 0.000415867118907_r8, 0.000373547351226_r8, 9e90_r8, 0.000982271052213_r8, & + 0.000415867118907_r8, 0.000373547351226_r8, 9e1_r8, 0.000982271052213_r8, & 0.000343544650167_r8, 0.000176954782895_r8, 0.000276993642702_r8, & 0.00112071790189_r8, 0.00518287240335_r8, 0.0019510510916_r8, & 0.00029406026277_r8, 0.0067937819085_r8, 0.00134284853804_r8, & 0.00159713428555_r8, 0.00136272061447_r8, 7.45348395273e-05_r8, & 8.26828066367e-05_r8, 0.00346883375573_r8, 0.00297072214399_r8, & - 0.00149618645963_r8, 9e90_r8, 0.00031265390097_r8, 0.00167836192043_r8, & - 0.00822825691488_r8, 9e90_r8, 9e90_r8, 9e90_r8, 0.00116028388827_r8, & - 0.00232269928647_r8, 0.00153389669623_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 0.00012933547693_r8, 9e90_r8, 0.000187038141609_r8, 0.000255513752244_r8, & + 0.00149618645963_r8, 9e1_r8, 0.00031265390097_r8, 0.00167836192043_r8, & + 0.00822825691488_r8, 9e1_r8, 9e1_r8, 9e1_r8, 0.00116028388827_r8, & + 0.00232269928647_r8, 0.00153389669623_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 0.00012933547693_r8, 9e1_r8, 0.000187038141609_r8, 0.000255513752244_r8, & 0.000252446656721_r8, 0.000674200438757_r8, 0.000471147537491_r8, & 4.87072973125e-05_r8, 0.0021082801099_r8, 0.0026761509475_r8, & 0.00406677870392_r8, 0.00185908365405_r8, 0.00464560944716_r8, & @@ -19019,8 +19019,8 @@ module gsw_mod_check_data 0.00224317162854_r8, 0.00294871959469_r8, 0.00195622705652_r8, & 0.00062475533561_r8, 0.00355344848183_r8, 0.0028082898716_r8, & 0.0021246876417_r8, 0.00260705731618_r8, 0.00137592403026_r8, & - 0.000532309230885_r8, 0.0011092548861_r8, 0.0024944858522_r8, 9e90_r8, & - 0.00211763846635_r8, 9e90_r8 & + 0.000532309230885_r8, 0.0011092548861_r8, 0.0024944858522_r8, 9e1_r8, & + 0.00211763846635_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: frazil_properties_sa_final = gsw_result_ice( & @@ -19319,42 +19319,42 @@ module gsw_mod_check_data type(gsw_result_ice) :: melting_seaice_into_seawater_sa_final = gsw_result_ice( & variable_name = "melting_seaice_into_seawater_SA_final", & - computation_accuracy = 9e90_r8, & - values = (/ & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + computation_accuracy = 9e1_r8, & + values = (/ & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: melting_seaice_into_seawater_ct_final = gsw_result_ice( & variable_name = "melting_seaice_into_seawater_CT_final", & - computation_accuracy = 9e90_r8, & - values = (/ & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + computation_accuracy = 9e1_r8, & + values = (/ & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: seaice_fraction_to_freeze_seawater_sa_freeze = gsw_result_ice( & @@ -19520,12 +19520,12 @@ module gsw_mod_check_data 0.84408786867688412_r8, 0.84286638656010171_r8, 0.83823534122093035_r8, & 10.50276773530223_r8, 9.5454546799605353_r8, 7.3853472726034788_r8, & 5.1971595673275859_r8, 3.9369185696308904_r8, 3.2887461722779783_r8, & - 4.0054812867257672_r8, 4.6113979927987803_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 /) + 4.0054812867257672_r8, 4.6113979927987803_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 /) real (r8), dimension(cast_m,cast_n) :: rt = (/ & 0.98337377909524537_r8, 0.98336175487016408_r8, 0.98323033377489477_r8, & @@ -19560,12 +19560,12 @@ module gsw_mod_check_data 0.99232403214778198_r8, 0.99233525104034248_r8, 0.99238583299978855_r8, & 0.21554079457255351_r8, 0.21854645673755352_r8, 0.22239705506380522_r8, & 0.22877877458372836_r8, 0.23541530620083984_r8, 0.24189575141112912_r8, & - 0.2891917533834788_r8, 0.32528563718265163_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 /) + 0.2891917533834788_r8, 0.32528563718265163_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 /) real (r8), dimension(cast_m,cast_n) :: sa = (/ & 34.507499465692057_r8, 34.507024988454411_r8, 34.501848858511124_r8, & @@ -19600,12 +19600,12 @@ module gsw_mod_check_data 34.88108664328702_r8, 34.881476814694921_r8, 34.883401613801887_r8, & 6.669904340924572_r8, 6.7737814418914271_r8, 6.9129530644765707_r8, & 7.1375206720971418_r8, 7.3661052164125715_r8, 7.5862209196422841_r8, & - 9.1676241523679991_r8, 10.389468455026284_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 /) + 9.1676241523679991_r8, 10.389468455026284_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 /) real (r8), dimension(cast_m,cast_n) :: sk = (/ & 34.345367_r8, 34.344894_r8, 34.339741_r8, 34.342312_r8, 34.368393_r8, & @@ -19627,12 +19627,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 /) + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 /) real (r8), dimension(cast_m,cast_n) :: sp = (/ & 34.345367_r8, 34.344894_r8, 34.339741_r8, 34.342312_r8, 34.368393_r8, & @@ -19654,12 +19654,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 /) + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 /) real (r8), dimension(cast_m,cast_n) :: t = (/ & 27.962_r8, 27.963_r8, 27.916_r8, 27.924_r8, 27.862_r8, 27.774_r8, & @@ -19676,12 +19676,12 @@ module gsw_mod_check_data 2.6237_r8, 2.1957_r8, 2.036_r8, 1.8655_r8, 1.7597_r8, 1.6633_r8, 1.5843_r8, & 1.5116_r8, 1.436_r8, 1.3714_r8, 1.318_r8, 1.3016_r8, 1.2959_r8, 1.2974_r8, & 1.3189_r8, 1.3508_r8, 1.3845_r8, 1.4157_r8, 10.046_r8, 9.1279_r8, & - 7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 /) + 7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 /) real (r8), dimension(cast_m,cast_n) :: p = (/ & 0._r8, 10._r8, 20._r8, 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 126._r8, & @@ -19696,12 +19696,12 @@ module gsw_mod_check_data 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, 3045._r8, & 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, 4840._r8, & 5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, 20._r8, & - 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 /) + 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 /) real (r8), dimension(cast_m,cast_n) :: delta_p = (/ & 0._r8, 10._r8, 10._r8, 10._r8, 10._r8, 10._r8, 26._r8, 25._r8, 25._r8, & @@ -19715,12 +19715,12 @@ module gsw_mod_check_data 102._r8, 101._r8, 102._r8, 101._r8, 254._r8, 254._r8, 254._r8, 255._r8, & 255._r8, 256._r8, 255._r8, 256._r8, 256._r8, 257._r8, 256._r8, 258._r8, & 257._r8, 258._r8, 257._r8, 259._r8, 258._r8, 259._r8, 0._r8, 10._r8, & - 10._r8, 10._r8, 10._r8, 10._r8, 26._r8, 25._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 /) + 10._r8, 10._r8, 10._r8, 10._r8, 26._r8, 25._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 /) real (r8), dimension(cast_m,cast_n) :: p_shallow = (/ & 0._r8, 10._r8, 20._r8, 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 126._r8, & @@ -19735,12 +19735,12 @@ module gsw_mod_check_data 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, 3045._r8, & 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, 4840._r8, & 5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, 20._r8, & - 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 /) + 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 /) real (r8), dimension(cast_m,cast_n) :: p_deep = (/ & 10._r8, 20._r8, 30._r8, 40._r8, 50._r8, 60._r8, 86._r8, 111._r8, 136._r8, & @@ -19755,12 +19755,12 @@ module gsw_mod_check_data 1527._r8, 1781._r8, 2035._r8, 2289._r8, 2544._r8, 2799._r8, 3055._r8, & 3310._r8, 3566._r8, 3822._r8, 4079._r8, 4335._r8, 4593._r8, 4850._r8, & 5108._r8, 5365._r8, 5624._r8, 5882._r8, 6141._r8, 10._r8, 20._r8, 30._r8, & - 40._r8, 50._r8, 60._r8, 86._r8, 111._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 /) + 40._r8, 50._r8, 60._r8, 86._r8, 111._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 /) real (r8), dimension(cast_n) :: lat_cast = (/ & 11._r8, 9.5_r8, 59._r8 /) @@ -20227,13 +20227,13 @@ module gsw_mod_check_data 31.554369106483_r8, 31.583816389345_r8, 31.620355157012_r8, & 31.664884715345_r8, 31.739500073043_r8, 31.819944669152_r8, & 31.904674437351_r8, 32.004069372941_r8, 32.111082511682_r8, & - 32.217703873867_r8, 32.322004256229_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9.3795452512822_r8, 10.727362956121_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 32.217703873867_r8, 32.322004256229_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9.3795452512822_r8, 10.727362956121_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sp_from_c = gsw_result( & @@ -20258,12 +20258,12 @@ module gsw_mod_check_data 34.656967_r8, 34.664131_r8, 34.67181_r8, 34.677475_r8, 34.682167_r8, & 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9.060422_r8, & - 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9.060422_r8, & + 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sp_from_sk = gsw_result( & @@ -20302,12 +20302,12 @@ module gsw_mod_check_data 34.70279661723_r8, 34.703219980471_r8, 34.705167651551_r8, & 6.5438735714404_r8, 6.6476085749307_r8, 6.7865898193075_r8, & 7.0108502322715_r8, 7.2391220870083_r8, 7.4589366855125_r8, & - 9.0381766560111_r8, 10.258349550914_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.0381766560111_r8, 10.258349550914_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sa_from_sp = gsw_result( & @@ -20346,11 +20346,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, & 7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sstar_from_sp = gsw_result( & @@ -20389,12 +20389,12 @@ module gsw_mod_check_data 34.861612863812_r8, 34.862050046565_r8, 34.86401585478_r8, & 6.6699043409246_r8, 6.7737814418914_r8, 6.9129530644766_r8, & 7.1375206720971_r8, 7.3661052164126_r8, 7.5862209196423_r8, & - 9.167624152368_r8, 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.167624152368_r8, 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: ct_from_t = gsw_result( & @@ -20433,12 +20433,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: deltasa_from_sp = gsw_result( & @@ -20477,12 +20477,12 @@ module gsw_mod_check_data 0.01442502183329_r8, 0.014390198614905_r8, 0.014359821497862_r8, & 0.070673184771425_r8, 0.070415550428567_r8, 0.070070379171424_r8, & 0.069513410142853_r8, 0.068946478371425_r8, 0.068400550885709_r8, & - 0.064478379599993_r8, 0.061447980685708_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.064478379599993_r8, 0.061447980685708_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sr_from_sp = gsw_result( & @@ -20521,12 +20521,12 @@ module gsw_mod_check_data 34.866661621454_r8, 34.86708661608_r8, 34.869041792304_r8, & 6.5992311561531_r8, 6.7033658914629_r8, 6.8428826853051_r8, & 7.0680072619543_r8, 7.2971587380411_r8, 7.5178203687566_r8, & - 9.103145772768_r8, 10.328020474341_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.103145772768_r8, 10.328020474341_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sp_from_sr = gsw_result( & @@ -20552,12 +20552,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sp_from_sa = gsw_result( & @@ -20583,12 +20583,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sstar_from_sa = gsw_result( & @@ -20627,12 +20627,12 @@ module gsw_mod_check_data 34.861612863812_r8, 34.862050046565_r8, 34.86401585478_r8, & 6.6699043409246_r8, 6.7737814418914_r8, 6.9129530644766_r8, & 7.1375206720971_r8, 7.3661052164126_r8, 7.5862209196423_r8, & - 9.167624152368_r8, 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.167624152368_r8, 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sa_from_sstar = gsw_result( & @@ -20671,11 +20671,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, & 7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sp_from_sstar = gsw_result( & @@ -20701,12 +20701,12 @@ module gsw_mod_check_data 34.687302_r8, 34.691189_r8, 34.69558_r8, 34.69902_r8, 34.700863_r8, & 34.70211_r8, 34.702709_r8, 34.703022_r8, 34.703445_r8, 34.705391_r8, & 6.568259_r8, 6.671905_r8, 6.810767_r8, 7.034835_r8, 7.262911_r8, & - 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.482537_r8, 9.060422_r8, 10.279548_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: pt_from_ct = gsw_result( & @@ -20744,12 +20744,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: t_from_ct = gsw_result( & @@ -20770,12 +20770,12 @@ module gsw_mod_check_data 2.6237_r8, 2.1957_r8, 2.036_r8, 1.8655_r8, 1.7597_r8, 1.6633_r8, 1.5843_r8, & 1.5116_r8, 1.436_r8, 1.3714_r8, 1.318_r8, 1.3016_r8, 1.2959_r8, 1.2974_r8, & 1.3189_r8, 1.3508_r8, 1.3845_r8, 1.4157_r8, 10.046_r8, 9.1279_r8, & - 7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 7.0541_r8, 4.9541_r8, 3.7451_r8, 3.1235_r8, 3.82_r8, 4.4118_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_from_pt = gsw_result( & @@ -20814,12 +20814,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: pt0_from_t = gsw_result( & @@ -20857,12 +20857,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: pt_from_t = gsw_result( & @@ -20900,12 +20900,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: z_from_p = gsw_result( & @@ -20936,12 +20936,12 @@ module gsw_mod_check_data -4758.8729434_r8, -5009.67913593_r8, -5259.24009694_r8, -5510.46955908_r8, & -5760.45808542_r8, -6011.14570526_r8, -0._r8, -9.90629019928_r8, & -19.8120994414_r8, -29.7174278749_r8, -39.6222756481_r8, -49.5266429093_r8, & - -75.2757500563_r8, -100.031447035_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + -75.2757500563_r8, -100.031447035_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: p_from_z = gsw_result( & @@ -20960,12 +20960,12 @@ module gsw_mod_check_data 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, 3045._r8, & 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, 4840._r8, & 5098._r8, 5355._r8, 5614._r8, 5872._r8, 6131._r8, 0._r8, 10._r8, 20._r8, & - 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 30._r8, 40._r8, 50._r8, 76._r8, 101._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: entropy_from_pt = gsw_result( & @@ -21004,12 +21004,12 @@ module gsw_mod_check_data 12.382918086768_r8, 12.365031338104_r8, 12.297112424952_r8, & 153.12120882735_r8, 139.62236456703_r8, 108.9846170621_r8, & 77.728754443394_r8, 59.634169426745_r8, 50.310647945221_r8, & - 60.836929033964_r8, 69.656461797752_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 60.836929033964_r8, 69.656461797752_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: pt_from_entropy = gsw_result( & @@ -21047,12 +21047,12 @@ module gsw_mod_check_data 0.84584249844664_r8, 0.84363838782821_r8, 0.84241794814812_r8, & 0.83779332193192_r8, 10.046_r8, 9.1272667941438_r8, 7.053205437419_r8, & 4.9533388676433_r8, 3.7445345455369_r8, 3.1230732842375_r8, & - 3.8185578532039_r8, 4.4090358206431_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 3.8185578532039_r8, 4.4090358206431_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: ct_from_entropy = gsw_result( & @@ -21091,12 +21091,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: entropy_from_t = gsw_result( & @@ -21135,12 +21135,12 @@ module gsw_mod_check_data 12.382918086768_r8, 12.365031338104_r8, 12.297112424952_r8, & 153.12120882735_r8, 139.62236456703_r8, 108.9846170621_r8, & 77.728754443394_r8, 59.634169426745_r8, 50.310647945221_r8, & - 60.836929033964_r8, 69.656461797752_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 60.836929033964_r8, 69.656461797752_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: adiabatic_lapse_rate_from_ct = gsw_result( & @@ -21179,12 +21179,12 @@ module gsw_mod_check_data 1.337730956009e-08_r8, 1.37267693902e-08_r8, 1.406957983991e-08_r8, & 7.1241832681602e-09_r8, 6.3404880424123e-09_r8, 4.4909112043667e-09_r8, & 2.5662556926025e-09_r8, 1.4540926270446e-09_r8, 9.0501768846576e-10_r8, & - 1.9732983751198e-09_r8, 2.8345992356971e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.9732983751198e-09_r8, 2.8345992356971e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: specvol = gsw_result( & @@ -21238,11 +21238,11 @@ module gsw_mod_check_data 0.0009949245452751476_r8, 0.0009946040926904509_r8, & 0.0009942717261025088_r8, 0.0009940088745524498_r8, & 0.0009937773244990007_r8, 0.0009924332606871787_r8, & - 0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009913873184543118_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: alpha = gsw_result( & @@ -21281,12 +21281,12 @@ module gsw_mod_check_data 0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, & 0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & - 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: beta = gsw_result( & @@ -21325,12 +21325,12 @@ module gsw_mod_check_data 0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, & 0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & - 0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078356549344703_r8, 0.00078036996563038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: alpha_on_beta = gsw_result( & @@ -21369,12 +21369,12 @@ module gsw_mod_check_data 0.28612115151677_r8, 0.29493268742375_r8, 0.30367099733368_r8, & 0.13127162222478_r8, 0.11689502215091_r8, 0.082845413121359_r8, & 0.04737499243998_r8, 0.026876948001361_r8, 0.016759514034294_r8, & - 0.036612739499438_r8, 0.052718031460717_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.036612739499438_r8, 0.052718031460717_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_vab = gsw_result( & @@ -21428,11 +21428,11 @@ module gsw_mod_check_data 0.0009949245452751476_r8, 0.0009946040926904509_r8, & 0.0009942717261025088_r8, 0.0009940088745524498_r8, & 0.0009937773244990007_r8, 0.0009924332606871787_r8, & - 0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009913873184543118_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: alpha_vab = gsw_result( & @@ -21471,12 +21471,12 @@ module gsw_mod_check_data 0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, & 0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & - 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: beta_vab = gsw_result( & @@ -21515,12 +21515,12 @@ module gsw_mod_check_data 0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, & 0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & - 0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078356549344703_r8, 0.00078036996563038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa = gsw_result( & @@ -21559,12 +21559,12 @@ module gsw_mod_check_data -6.8105324603527e-07_r8, -6.7799333531989e-07_r8, -6.7496394957095e-07_r8, & -7.6485141602067e-07_r8, -7.6696360617989e-07_r8, -7.7235047136574e-07_r8, & -7.7807640038489e-07_r8, -7.8133521349824e-07_r8, -7.8281451817097e-07_r8, & - -7.776364576236e-07_r8, -7.7364888762859e-07_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -7.776364576236e-07_r8, -7.7364888762859e-07_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_ct = gsw_result( & @@ -21603,12 +21603,12 @@ module gsw_mod_check_data 1.9486373899984e-07_r8, 1.9996239644129e-07_r8, 2.0496697573049e-07_r8, & 1.0040328614196e-07_r8, 8.965422773334e-08_r8, 6.3985693874771e-08_r8, & 3.6861363585961e-08_r8, 2.0999905904825e-08_r8, 1.3119590903535e-08_r8, & - 2.8471401048238e-08_r8, 4.0785246397553e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8471401048238e-08_r8, 4.0785246397553e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_p = gsw_result( & @@ -21647,12 +21647,12 @@ module gsw_mod_check_data -3.7571835120402e-13_r8, -3.7270081162309e-13_r8, -3.6970724335569e-13_r8, & -4.6735391264304e-13_r8, -4.6928905029227e-13_r8, -4.7427904182679e-13_r8, & -4.7963775309581e-13_r8, -4.8270645282362e-13_r8, -4.8410132496399e-13_r8, & - -4.7902381646743e-13_r8, -4.7496631693763e-13_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -4.7902381646743e-13_r8, -4.7496631693763e-13_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_sa = gsw_result( & @@ -21691,12 +21691,12 @@ module gsw_mod_check_data 7.420285376761e-10_r8, 7.2079357928311e-10_r8, 6.9911247017641e-10_r8, & 1.686821846146e-09_r8, 1.6867968404629e-09_r8, 1.7070701802637e-09_r8, & 1.7239021288267e-09_r8, 1.7241895206509e-09_r8, 1.7118557676937e-09_r8, & - 1.5146606457245e-09_r8, 1.4037400755554e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.5146606457245e-09_r8, 1.4037400755554e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_ct = gsw_result( & @@ -21735,12 +21735,12 @@ module gsw_mod_check_data 1.902283526759e-09_r8, 1.8640926783939e-09_r8, 1.8262648049443e-09_r8, & 2.5142108146884e-09_r8, 2.5867895047185e-09_r8, 2.7671787284743e-09_r8, & 2.9674767526691e-09_r8, 3.0883351095872e-09_r8, 3.1489295313378e-09_r8, & - 3.0275277133432e-09_r8, 2.9364515491552e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 3.0275277133432e-09_r8, 2.9364515491552e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_ct_ct = gsw_result( & @@ -21779,12 +21779,12 @@ module gsw_mod_check_data 7.2611295715005e-09_r8, 7.0619802695647e-09_r8, 6.8660792976399e-09_r8, & 1.1630101520498e-08_r8, 1.187168068355e-08_r8, 1.2479500593431e-08_r8, & 1.3157950203856e-08_r8, 1.356938661512e-08_r8, 1.3775071602593e-08_r8, & - 1.3322230766315e-08_r8, 1.2968669305784e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.3322230766315e-08_r8, 1.2968669305784e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_p = gsw_result( & @@ -21823,12 +21823,12 @@ module gsw_mod_check_data 1.4452353965864e-15_r8, 1.4278184830854e-15_r8, 1.4104641044674e-15_r8, & 1.3391645162533e-15_r8, 1.3531626095461e-15_r8, 1.3852941375402e-15_r8, & 1.4210390224972e-15_r8, 1.4439297547637e-15_r8, 1.4573546239402e-15_r8, & - 1.4684828267782e-15_r8, 1.475384005764e-15_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.4684828267782e-15_r8, 1.475384005764e-15_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_ct_p = gsw_result( & @@ -21867,12 +21867,12 @@ module gsw_mod_check_data 1.9973576346871e-15_r8, 1.9613072729104e-15_r8, 1.9254031915233e-15_r8, & 2.3045989638505e-15_r8, 2.3848235601127e-15_r8, 2.5786818124037e-15_r8, & 2.7893685394813e-15_r8, 2.9161890405511e-15_r8, 2.9812079621756e-15_r8, & - 2.8718142771833e-15_r8, 2.7837754490956e-15_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8718142771833e-15_r8, 2.7837754490956e-15_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_wrt_h = gsw_result( & @@ -21911,12 +21911,12 @@ module gsw_mod_check_data -6.7909031244219e-07_r8, -6.7589164328594e-07_r8, -6.7272013791523e-07_r8, & -7.6485141602067e-07_r8, -7.6696188346989e-07_r8, -7.7234799486436e-07_r8, & -7.7807424426583e-07_r8, -7.8133356867422e-07_r8, -7.8281323110614e-07_r8, & - -7.7763223906705e-07_r8, -7.7364089590621e-07_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.7763223906705e-07_r8, -7.7364089590621e-07_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_h = gsw_result( & @@ -21955,12 +21955,12 @@ module gsw_mod_check_data 4.8725019813184e-11_r8, 4.9993562505336e-11_r8, 5.1238094268393e-11_r8, & 2.5151955731122e-11_r8, 2.2459166387345e-11_r8, 1.6028959440587e-11_r8, & 9.2340886590299e-12_r8, 5.2606607154873e-12_r8, 3.2865742832167e-12_r8, & - 7.1323132289915e-12_r8, 1.0216981246258e-11_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 7.1323132289915e-12_r8, 1.0216981246258e-11_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_sa_wrt_h = gsw_result( & @@ -21999,12 +21999,12 @@ module gsw_mod_check_data 7.834147507376e-10_r8, 7.6321849689896e-10_r8, 7.4251701884123e-10_r8, & 1.686821846146e-09_r8, 1.686900044746e-09_r8, 1.7072898758573e-09_r8, & 1.7242541041201e-09_r8, 1.7246770251147e-09_r8, 1.7124765525043e-09_r8, & - 1.515566330676e-09_r8, 1.4049058698229e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.515566330676e-09_r8, 1.4049058698229e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_sa_h = gsw_result( & @@ -22043,12 +22043,12 @@ module gsw_mod_check_data 4.92270849647e-13_r8, 4.8282023629188e-13_r8, 4.734242897083e-13_r8, & 6.2983316124078e-13_r8, 6.4806903256871e-13_r8, 6.9332053313919e-13_r8, & 7.4356919333127e-13_r8, 7.7391966374215e-13_r8, 7.8917210371931e-13_r8, & - 7.589102211215e-13_r8, 7.3623001646769e-13_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 7.589102211215e-13_r8, 7.3623001646769e-13_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: v_h_h = gsw_result( & @@ -22087,12 +22087,12 @@ module gsw_mod_check_data 4.5232948672668e-16_r8, 4.3966511473454e-16_r8, 4.2720650884596e-16_r8, & 7.2984589754873e-16_r8, 7.4500115876955e-16_r8, 7.8314234083822e-16_r8, & 8.2571908104756e-16_r8, 8.5154026747761e-16_r8, 8.6444918491475e-16_r8, & - 8.3602204373094e-16_r8, 8.138229413294e-16_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 8.3602204373094e-16_r8, 8.138229413294e-16_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: specvol_anom_standard = gsw_result( & @@ -22131,12 +22131,12 @@ module gsw_mod_check_data 3.5569404936743e-07_r8, 3.5868967571088e-07_r8, 3.5988460949968e-07_r8, & 2.2480540455874e-05_r8, 2.2308211792809e-05_r8, 2.2032796952698e-05_r8, & 2.1745453855873e-05_r8, 2.1527611547459e-05_r8, 2.1341056490181e-05_r8, & - 2.0113913028269e-05_r8, 1.9180303484793e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.0113913028269e-05_r8, 1.9180303484793e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho = gsw_result( & @@ -22175,12 +22175,12 @@ module gsw_mod_check_data 1052.801283141887_r8, 1053.87303446012_r8, 1054.944400483299_r8, & 1004.88179015787_r8, 1005.101346377427_r8, 1005.425181083815_r8, & 1005.761276064789_r8, 1006.027235370758_r8, 1006.261639652662_r8, & - 1007.624431397616_r8, 1008.687504253248_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.624431397616_r8, 1008.687504253248_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_rab = gsw_result( & @@ -22219,12 +22219,12 @@ module gsw_mod_check_data 1052.801283141887_r8, 1053.87303446012_r8, 1054.944400483299_r8, & 1004.88179015787_r8, 1005.101346377427_r8, 1005.425181083815_r8, & 1005.761276064789_r8, 1006.027235370758_r8, 1006.261639652662_r8, & - 1007.624431397616_r8, 1008.687504253248_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.624431397616_r8, 1008.687504253248_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: alpha_rab = gsw_result( & @@ -22263,12 +22263,12 @@ module gsw_mod_check_data 0.00020515279445686_r8, 0.0002107349775155_r8, 0.00021622876333088_r8, & 0.00010089343391606_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & - 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: beta_rab = gsw_result( & @@ -22307,12 +22307,12 @@ module gsw_mod_check_data 0.00071701373131388_r8, 0.00071451889363731_r8, 0.00071204943912797_r8, & 0.00076858526013563_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & - 0.00078356549344703_r8, 0.00078036996563038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078356549344703_r8, 0.00078036996563038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa = gsw_result( & @@ -22351,12 +22351,12 @@ module gsw_mod_check_data 0.7548729763576_r8, 0.75301219461664_r8, 0.75117256867532_r8, & 0.77233733209404_r8, 0.77480865946544_r8, 0.780753485975_r8, & 0.7870676524159_r8, 0.79078217997537_r8, 0.79264861572057_r8, & - 0.78953973479736_r8, 0.78714943302591_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.78953973479736_r8, 0.78714943302591_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_ct = gsw_result( & @@ -22395,12 +22395,12 @@ module gsw_mod_check_data -0.215985125244_r8, -0.222087910221_r8, -0.228109323099_r8, & -0.101385974489_r8, -0.0905712754109_r8, -0.0646818450915_r8, & -0.037287324083_r8, -0.0212538115316_r8, -0.0132844055994_r8, & - -0.0289072126346_r8, -0.0414969685745_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0289072126346_r8, -0.0414969685745_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_p = gsw_result( & @@ -22439,12 +22439,12 @@ module gsw_mod_check_data 4.1644266684966e-07_r8, 4.1393954995633e-07_r8, 4.114500334809e-07_r8, & 4.719280980251e-07_r8, 4.7408927493944e-07_r8, 4.7943910045961e-07_r8, & 4.8518032439027e-07_r8, 4.8854275918655e-07_r8, 4.9018284177683e-07_r8, & - 4.8635623151091e-07_r8, 4.8325470773939e-07_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 4.8635623151091e-07_r8, 4.8325470773939e-07_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_sa = gsw_result( & @@ -22483,12 +22483,12 @@ module gsw_mod_check_data 0.00026005116599746_r8, 0.00027553466445755_r8, 0.00029169636951351_r8, & -0.00051611728824693_r8, -0.00050948756937966_r8, -0.00051306917298877_r8, & -0.00051196917284635_r8, -0.00050185637436778_r8, -0.00048459659059207_r8, & - -0.0003005333644906_r8, -0.00019970046341223_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0003005333644906_r8, -0.00019970046341223_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_ct = gsw_result( & @@ -22527,12 +22527,12 @@ module gsw_mod_check_data -0.002418201669973_r8, -0.0023877235157389_r8, -0.0023573143730946_r8, & -0.0026946659634197_r8, -0.0027528875139381_r8, -0.0028977412243115_r8, & -0.0030601272261746_r8, -0.003159088430022_r8, -0.0032094166025569_r8, & - -0.0031191714528193_r8, -0.0030524600176966_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0031191714528193_r8, -0.0030524600176966_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_ct_ct = gsw_result( & @@ -22571,12 +22571,12 @@ module gsw_mod_check_data -0.007959547435718_r8, -0.0077497735133368_r8, -0.0075426648438477_r8, & -0.011723471759667_r8, -0.011976789697152_r8, -0.012606952666552_r8, & -0.013307235353128_r8, -0.01373255329551_r8, -0.013947770011972_r8, & - -0.013524495474763_r8, -0.013191564491415_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.013524495474763_r8, -0.013191564491415_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_p = gsw_result( & @@ -22615,12 +22615,12 @@ module gsw_mod_check_data -1.0046950233572e-09_r8, -9.9426901630348e-10_r8, -9.8377081452797e-10_r8, & -6.2683751139342e-10_r8, -6.3607549317202e-10_r8, -6.5575798794887e-10_r8, & -6.7809561735118e-10_r8, -6.9335531582729e-10_r8, -7.0341267204049e-10_r8, & - -7.2877696462748e-10_r8, -7.4689524733485e-10_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.2877696462748e-10_r8, -7.4689524733485e-10_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_ct_p = gsw_result( & @@ -22659,12 +22659,12 @@ module gsw_mod_check_data -2.3847210645202e-09_r8, -2.3527858146502e-09_r8, -2.3207306783839e-09_r8, & -2.4223839165869e-09_r8, -2.4946591161827e-09_r8, -2.668424687497e-09_r8, & -2.8575766601604e-09_r8, -2.9720904690727e-09_r8, -3.0316018836386e-09_r8, & - -2.943678764598e-09_r8, -2.8721154505435e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -2.943678764598e-09_r8, -2.8721154505435e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_wrt_h = gsw_result( & @@ -22703,12 +22703,12 @@ module gsw_mod_check_data 0.75269727932888_r8, 0.75067795377909_r8, 0.748675413433_r8, & 0.77233733209404_r8, 0.77480691913432_r8, 0.78075098252979_r8, & 0.78706547138128_r8, 0.79078051526412_r8, 0.792647312487_r8, & - 0.78953545166739_r8, 0.78714130184412_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.78953545166739_r8, 0.78714130184412_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_h = gsw_result( & @@ -22747,12 +22747,12 @@ module gsw_mod_check_data -5.40063511092e-05_r8, -5.55252688451e-05_r8, -5.70232690355e-05_r8, & -2.53981282893e-05_r8, -2.26888948329e-05_r8, -1.62033512295e-05_r8, & -9.34079542763e-06_r8, -5.32426630316e-06_r8, -3.32786183136e-06_r8, & - -7.24148751014e-06_r8, -1.03952724858e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -7.24148751014e-06_r8, -1.03952724858e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_sa_wrt_h = gsw_result( & @@ -22791,12 +22791,12 @@ module gsw_mod_check_data 0.0002079480528003_r8, 0.00022175440231739_r8, 0.00023629054366168_r8, & -0.00051611728824693_r8, -0.0005095971956231_r8, -0.00051329903492039_r8, & -0.00051233204262096_r8, -0.00050235500729276_r8, -0.00048522928031363_r8, & - -0.00030146633717192_r8, -0.00020091198253976_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.00030146633717192_r8, -0.00020091198253976_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_sa_h = gsw_result( & @@ -22835,12 +22835,12 @@ module gsw_mod_check_data -6.2285172760952e-07_r8, -6.1534524942743e-07_r8, -6.0781434605688e-07_r8, & -6.7503885207767e-07_r8, -6.896785243351e-07_r8, -7.2602875812786e-07_r8, & -7.6678109755996e-07_r8, -7.9164717322099e-07_r8, -8.0432888122645e-07_r8, & - -7.8187515379671e-07_r8, -7.6530173382511e-07_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.8187515379671e-07_r8, -7.6530173382511e-07_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_h_h = gsw_result( & @@ -22879,12 +22879,12 @@ module gsw_mod_check_data -4.9581691481792e-10_r8, -4.8246243928389e-10_r8, -4.6927681173461e-10_r8, & -7.3570533788899e-10_r8, -7.5159721805519e-10_r8, -7.9114050496597e-10_r8, & -8.3508737839095e-10_r8, -8.6177971314986e-10_r8, -8.7528680543905e-10_r8, & - -8.4871494406859e-10_r8, -8.2781028131876e-10_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -8.4871494406859e-10_r8, -8.2781028131876e-10_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sigma0 = gsw_result( & @@ -22923,12 +22923,12 @@ module gsw_mod_check_data 27.829116059983_r8, 27.829507336673_r8, 27.831347087126_r8, & 4.8817901578702_r8, 5.0539321223888_r8, 5.329271724986_r8, & 5.6156729478847_r8, 5.8317305346482_r8, 6.0164106949062_r8, & - 7.2544852839338_r8, 8.1988633845359_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 7.2544852839338_r8, 8.1988633845359_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sigma1 = gsw_result( & @@ -22967,12 +22967,12 @@ module gsw_mod_check_data 32.516252402249_r8, 32.516675871595_r8, 32.518633828671_r8, & 9.5483718759659_r8, 9.7429392960305_r8, 10.072249570888_r8, & 10.416511224384_r8, 10.666915979709_r8, 10.868912885939_r8, & - 12.071935501088_r8, 12.988292590885_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 12.071935501088_r8, 12.988292590885_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sigma2 = gsw_result( & @@ -23011,12 +23011,12 @@ module gsw_mod_check_data 37.098189155643_r8, 37.098643931165_r8, 37.100716850692_r8, & 14.110952552168_r8, 14.327381314662_r8, 14.709284518826_r8, & 15.109913441354_r8, 15.393774153684_r8, 15.612636537176_r8, & - 16.781494662657_r8, 17.670537805292_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16.781494662657_r8, 17.670537805292_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sigma3 = gsw_result( & @@ -23055,11 +23055,11 @@ module gsw_mod_check_data 41.576577984198_r8, 41.578762032582_r8, 18.57164596518_r8, & 18.809294969536_r8, 19.242225256335_r8, 19.697517350096_r8, & 20.013811662767_r8, 20.249017943248_r8, 21.384677057085_r8, & - 22.247178099159_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 22.247178099159_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sigma4 = gsw_result( & @@ -23098,12 +23098,12 @@ module gsw_mod_check_data 45.951407729273_r8, 45.951921858878_r8, 45.954212706413_r8, & 22.932589863519_r8, 23.190759914868_r8, 23.673005586895_r8, & 24.181088641893_r8, 24.528687878322_r8, 24.779659173866_r8, & - 25.883153186156_r8, 26.719940288727_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 25.883153186156_r8, 26.719940288727_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sound_speed = gsw_result( & @@ -23142,12 +23142,12 @@ module gsw_mod_check_data 1549.609929289_r8, 1554.2881589236_r8, 1558.9832497311_r8, & 1455.6671528759_r8, 1452.3454707756_r8, 1444.2197344025_r8, & 1435.6494527475_r8, 1430.7004361846_r8, 1428.3049699378_r8, & - 1433.9128531497_r8, 1438.5069127946_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 1433.9128531497_r8, 1438.5069127946_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: kappa = gsw_result( & @@ -23186,12 +23186,12 @@ module gsw_mod_check_data 3.9555676224754e-10_r8, 3.9277933529098e-10_r8, 3.9002058619621e-10_r8, & 4.6963543637402e-10_r8, 4.7168305628895e-10_r8, 4.7685209151296e-10_r8, & 4.8240107860249e-10_r8, 4.8561583822977e-10_r8, 4.8713259301629e-10_r8, & - 4.826761006939e-10_r8, 4.7909258883618e-10_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 4.826761006939e-10_r8, 4.7909258883618e-10_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: cabbeling = gsw_result( & @@ -23230,12 +23230,12 @@ module gsw_mod_check_data 8.8545252628613e-06_r8, 8.6673073307509e-06_r8, 8.4814533912726e-06_r8, & 1.2379398335815e-05_r8, 1.2563259717031e-05_r8, 1.3019967502548e-05_r8, & 1.3520436453062e-05_r8, 1.38194361383e-05_r8, 1.3968019943733e-05_r8, & - 1.3649233516677e-05_r8, 1.3397567439491e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.3649233516677e-05_r8, 1.3397567439491e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: thermobaric = gsw_result( & @@ -23274,12 +23274,12 @@ module gsw_mod_check_data 2.5381670827297e-12_r8, 2.5107656815664e-12_r8, 2.4830439799285e-12_r8, & 2.4925020217406e-12_r8, 2.5559742649892e-12_r8, 2.708059515658e-12_r8, & 2.8731484336049e-12_r8, 2.972807930732e-12_r8, 3.0244527052011e-12_r8, & - 2.9478853362429e-12_r8, 2.886414558933e-12_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.9478853362429e-12_r8, 2.886414558933e-12_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sa_from_rho = gsw_result( & @@ -23318,11 +23318,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720972_r8, & 7.3661052164124_r8, 7.5862209196424_r8, 9.1676241523683_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_from_rho = gsw_result( & @@ -23359,13 +23359,13 @@ module gsw_mod_check_data 1.0482212593721_r8, 0.96803553122243_r8, 0.9227069097898_r8, & 0.88704031144893_r8, 0.85738474530023_r8, 0.84629138894935_r8, & 0.84408786867765_r8, 0.84286638656_r8, 0.83823534122164_r8, & - 10.502767735302_r8, 9.5454546799622_r8, 7.3853472726033_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 10.502767735302_r8, 9.5454546799622_r8, 7.3853472726033_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: ct_maxdensity = gsw_result( & @@ -23404,12 +23404,12 @@ module gsw_mod_check_data -18.241202529493_r8, -19.001088686437_r8, -19.773737146836_r8, & 2.6680438206626_r8, 2.6224733962175_r8, 2.5687611083654_r8, & 2.4953804672115_r8, 2.4210335398931_r8, 2.3485914149918_r8, & - 1.9278141139837_r8, 1.5914610539694_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 1.9278141139837_r8, 1.5914610539694_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: internal_energy = gsw_result( & @@ -23448,12 +23448,12 @@ module gsw_mod_check_data 3901.8584811951_r8, 3952.52840335_r8, 3991.8510287506_r8, & 41824.829227977_r8, 38003.386290217_r8, 29380.562357619_r8, & 20645.651752834_r8, 15614.979771763_r8, 13027.60652195_r8, & - 15888.932555832_r8, 18307.882082985_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 15888.932555832_r8, 18307.882082985_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: enthalpy = gsw_result( & @@ -23492,12 +23492,12 @@ module gsw_mod_check_data 57322.504808827_r8, 59766.960575564_r8, 62204.705632146_r8, & 41925.661983623_r8, 38203.689474294_r8, 29680.261435849_r8, & 21044.677853312_r8, 16113.301270798_r8, 13625.189671605_r8, & - 16743.740134094_r8, 19409.635594666_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16743.740134094_r8, 19409.635594666_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: enthalpy_diff = gsw_result( & @@ -23536,12 +23536,12 @@ module gsw_mod_check_data 94.9828082694677_r8, 94.88622731389871_r8, 94.78987712888562_r8, & 99.51185607270992_r8, 99.49010833180105_r8, 99.45803812673887_r8, & 99.42477467804514_r8, 99.39847418165967_r8, 99.37531220293501_r8, & - 99.24093120589134_r8, 99.13635726739815_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 99.24093120589134_r8, 99.13635726739815_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_from_enthalpy = gsw_result( & @@ -23580,12 +23580,12 @@ module gsw_mod_check_data 0.84408786867688_r8, 0.8428663865601_r8, 0.83823534122093_r8, & 10.502767735302_r8, 9.5454546799605_r8, 7.3853472726035_r8, & 5.1971595673276_r8, 3.9369185696309_r8, 3.288746172278_r8, & - 4.0054812867258_r8, 4.6113979927988_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 4.0054812867258_r8, 4.6113979927988_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: dynamic_enthalpy = gsw_result( & @@ -23623,12 +23623,12 @@ module gsw_mod_check_data 51491.675716139_r8, 53953.017492863_r8, 56402.349254922_r8, & 58858.580833001_r8, 0._r8, 99.49480122235_r8, 198.93030614269_r8, & 298.30310845912_r8, 397.64218289951_r8, 496.94920738847_r8, & - 754.38773277069_r8, 1001.5437096866_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 754.38773277069_r8, 1001.5437096866_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: h_sa = gsw_result( & @@ -23661,11 +23661,11 @@ module gsw_mod_check_data -40.2859475605_r8, -42.0392532283_r8, -43.791863998_r8, -0._r8, & -0.0767040935152_r8, -0.154501693335_r8, -0.233495598853_r8, & -0.3126649116_r8, -0.391612882897_r8, -0.591471015429_r8, & - -0.782199965729_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + -0.782199965729_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_ct = gsw_result( & @@ -23704,12 +23704,12 @@ module gsw_mod_check_data 3999.25417674466_r8, 3999.762897871972_r8, 4000.284918030786_r8, & 3991.86795711963_r8, 3991.87691061669_r8, 3991.880702670805_r8, & 3991.878889955721_r8, 3991.876123659021_r8, 3991.874144008297_r8, & - 3991.888765135501_r8, 3991.907728370378_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 3991.888765135501_r8, 3991.907728370378_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_sa_sa = gsw_result( & @@ -23748,11 +23748,11 @@ module gsw_mod_check_data 0.049267207223353_r8, 0.050750544490417_r8, 0._r8, 0.00016872165100208_r8, & 0.00034158224568209_r8, 0.00051754767376502_r8, 0.00069033992218237_r8, & 0.00085695342982295_r8, 0.0011533076422249_r8, 0.0014213685309584_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_sa_ct = gsw_result( & @@ -23791,11 +23791,11 @@ module gsw_mod_check_data 0.13710967092246_r8, 0.14190158184137_r8, 0._r8, 0.00025875781916877_r8, & 0.00055376848326717_r8, 0.00089103643490681_r8, 0.0012367949700928_r8, & 0.0015767896412965_r8, 0.0023061612056031_r8, 0.002974885667951_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_ct_ct = gsw_result( & @@ -23833,12 +23833,12 @@ module gsw_mod_check_data 0.50631680377847_r8, 0.52592405386149_r8, 0.54502584438705_r8, & 0.56352002054041_r8, 0.58162527612039_r8, 0._r8, 0.0011876075123098_r8, & 0.0024977957365016_r8, 0.0039519979603911_r8, 0.0054363363578477_r8, & - 0.0069012555626452_r8, 0.010155490197901_r8, 0.013150834525106_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0069012555626452_r8, 0.010155490197901_r8, 0.013150834525106_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_sa = gsw_result( & @@ -23877,12 +23877,12 @@ module gsw_mod_check_data -0.0055685948385_r8, -0.00556687901076_r8, -0.00556047465796_r8, & -0.0144770495026_r8, -0.0130627683403_r8, -0.0098075468649_r8, & -0.00643919757634_r8, -0.0044753319083_r8, -0.00347118708921_r8, & - -0.00488688440307_r8, -0.00605812848642_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.00488688440307_r8, -0.00605812848642_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_pt = gsw_result( & @@ -23921,12 +23921,12 @@ module gsw_mod_check_data 0.9990744571061592_r8, 0.9990738576702139_r8, 0.9990709276616985_r8, & 1.040382360969603_r8, 1.040491660475071_r8, 1.040965859578698_r8, & 1.041437976452077_r8, 1.041608007209394_r8, 1.04154105138037_r8, & - 1.038593591712279_r8, 1.036360675014964_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.038593591712279_r8, 1.036360675014964_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_sa_sa = gsw_result( & @@ -23965,12 +23965,12 @@ module gsw_mod_check_data -0.000218686868061_r8, -0.000218697331949_r8, -0.000218736635434_r8, & -7.99325871881e-05_r8, -9.0193021802e-05_r8, -0.000112088469915_r8, & -0.000136021845315_r8, -0.000151270806493_r8, -0.00016030656921_r8, & - -0.000168288284046_r8, -0.000170939273636_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.000168288284046_r8, -0.000170939273636_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_sa_pt = gsw_result( & @@ -24009,12 +24009,12 @@ module gsw_mod_check_data -0.0014758153221466_r8, -0.0014758342947215_r8, -0.0014759022561398_r8, & -0.0015411553519167_r8, -0.0015569610393183_r8, -0.0015962252482844_r8, & -0.0016391335960339_r8, -0.0016646892700728_r8, -0.001677294410145_r8, & - -0.0016448838709999_r8, -0.0016197389041748_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0016448838709999_r8, -0.0016197389041748_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_pt_pt = gsw_result( & @@ -24053,12 +24053,12 @@ module gsw_mod_check_data 1.935693974e-05_r8, 1.93360895351e-05_r8, 1.92652522879e-05_r8, & -0.000282893001713_r8, -0.000305576148041_r8, -0.000364733365832_r8, & -0.000432552016716_r8, -0.000474055253352_r8, -0.000494285056329_r8, & - -0.00042901441677_r8, -0.000379558271901_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.00042901441677_r8, -0.000379558271901_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: eta_sa = gsw_result( & @@ -24097,12 +24097,12 @@ module gsw_mod_check_data -0.23244141802927_r8, -0.23244392198665_r8, -0.23245668835199_r8, & 0.16676070091548_r8, 0.16370277457661_r8, 0.16004516088679_r8, & 0.15328994467822_r8, 0.14611056856299_r8, 0.13921480533356_r8, & - 0.093856755817839_r8, 0.063757346664274_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.093856755817839_r8, 0.063757346664274_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: eta_ct = gsw_result( & @@ -24141,11 +24141,11 @@ module gsw_mod_check_data 14.569264314004_r8, 14.569510227885_r8, 14.095778037542_r8, & 14.141655835256_r8, 14.246332231953_r8, 14.353901586991_r8, & 14.416564644988_r8, 14.448993923533_r8, 14.412711637959_r8, & - 14.382050093657_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 14.382050093657_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: eta_sa_sa = gsw_result( & @@ -24184,12 +24184,12 @@ module gsw_mod_check_data -0.0073453313697612_r8, -0.0073452441183791_r8, -0.0073448311472955_r8, & -0.035806741490668_r8, -0.035253522320648_r8, -0.034531916551085_r8, & -0.033433036673362_r8, -0.032389312585892_r8, -0.031448139482989_r8, & - -0.026070906581364_r8, -0.02305413308642_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.026070906581364_r8, -0.02305413308642_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: eta_sa_ct = gsw_result( & @@ -24228,12 +24228,12 @@ module gsw_mod_check_data -0.00029637595964_r8, -0.000296287455808_r8, -0.000295957453847_r8, & -0.000692610412886_r8, -0.000628957038092_r8, -0.000479020251845_r8, & -0.000319125936217_r8, -0.000223701213603_r8, -0.000174301321355_r8, & - -0.000244850872211_r8, -0.000302895611935_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.000244850872211_r8, -0.000302895611935_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: eta_ct_ct = gsw_result( & @@ -24272,12 +24272,12 @@ module gsw_mod_check_data -0.053222755153866_r8, -0.053223261226806_r8, -0.053225214042378_r8, & -0.047841959285933_r8, -0.048148831986122_r8, -0.048842004880898_r8, & -0.049559891963857_r8, -0.049985390622801_r8, -0.050213750188489_r8, & - -0.050103675883415_r8, -0.049998215226643_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.050103675883415_r8, -0.049998215226643_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pt_sa = gsw_result( & @@ -24316,12 +24316,12 @@ module gsw_mod_check_data 0.0055737535865218_r8, 0.0055720395124174_r8, 0.0055656455452848_r8, & 0.013915123944579_r8, 0.012554419066044_r8, 0.0094215835943606_r8, & 0.0061829871023839_r8, 0.004296560584526_r8, 0.0033327415031916_r8, & - 0.0047052903484778_r8, 0.0058455792780188_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.0047052903484778_r8, 0.0058455792780188_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pt_ct = gsw_result( & @@ -24360,12 +24360,12 @@ module gsw_mod_check_data 1.000926400317071_r8, 1.000927000864526_r8, 1.000929936316409_r8, & 0.9611850772518216_r8, 0.961084108587105_r8, 0.9606462986257032_r8, & 0.9602108071829238_r8, 0.9600540636003104_r8, 0.9601157810099611_r8, & - 0.9628405258608884_r8, 0.9649150378902223_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.9628405258608884_r8, 0.9649150378902223_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pt_sa_sa = gsw_result( & @@ -24404,12 +24404,12 @@ module gsw_mod_check_data 0.00023535576028844_r8, 0.00023536152373805_r8, 0.00023538342438298_r8, & 0.00011810859512278_r8, 0.00012430149320688_r8, 0.00013660273635164_r8, & 0.00015008850128652_r8, 0.00015897000895168_r8, 0.00016465221065238_r8, & - 0.00017694803438694_r8, 0.00018322662388595_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00017694803438694_r8, 0.00018322662388595_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pt_sa_ct = gsw_result( & @@ -24448,12 +24448,12 @@ module gsw_mod_check_data 0.0014784428872693_r8, 0.0014784638187771_r8, 0.0014785410973985_r8, & 0.0014274744310446_r8, 0.0014416814687737_r8, 0.0014762338167654_r8, & 0.0015137548968642_r8, 0.0015362277615597_r8, 0.00154768594699_r8, & - 0.0015267805273288_r8, 0.0015101415485478_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.0015267805273288_r8, 0.0015101415485478_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pt_ct_ct = gsw_result( & @@ -24492,12 +24492,12 @@ module gsw_mod_check_data -1.94107862783e-05_r8, -1.93899129641e-05_r8, -1.93190485165e-05_r8, & 0.00025121366366_r8, 0.000271271166824_r8, 0.000323344910896_r8, & 0.000382946499744_r8, 0.000419484606323_r8, 0.00043747002289_r8, & - 0.000382943731625_r8, 0.000340993169223_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.000382943731625_r8, 0.000340993169223_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_freezing = gsw_result( & @@ -24536,12 +24536,12 @@ module gsw_mod_check_data -6.7694438620997_r8, -7.0193468650423_r8, -7.2724965542372_r8, & -0.34435926378422_r8, -0.3573186152802_r8, -0.37215500955514_r8, & -0.39152606605777_r8, -0.41111860875015_r8, -0.43027090960747_r8, & - -0.53372193526402_r8, -0.61754439555328_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.53372193526402_r8, -0.61754439555328_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_freezing_poly = gsw_result( & @@ -24580,12 +24580,12 @@ module gsw_mod_check_data -6.7694086776269_r8, -7.0193321189572_r8, -7.2725060322355_r8, & -0.34436067697949_r8, -0.35732308452908_r8, -0.37216307421288_r8, & -0.39153899577668_r8, -0.4111364360127_r8, -0.43029348368924_r8, & - -0.53376844166695_r8, -0.61760714190764_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.53376844166695_r8, -0.61760714190764_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: t_freezing = gsw_result( & @@ -24624,12 +24624,12 @@ module gsw_mod_check_data -6.5973716576996_r8, -6.836374707733_r8, -7.0784279680514_r8, & -0.35965035812233_r8, -0.37262215964933_r8, -0.38747828670447_r8, & -0.40688908217896_r8, -0.4265177878358_r8, -0.4456992862519_r8, & - -0.54941912387446_r8, -0.63333279383543_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.54941912387446_r8, -0.63333279383543_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: t_freezing_poly = gsw_result( & @@ -24668,12 +24668,12 @@ module gsw_mod_check_data -6.5973347712821_r8, -6.8363592185427_r8, -7.078437942861_r8, & -0.35965171025197_r8, -0.372626436965_r8, -0.38748600761827_r8, & -0.40690146670374_r8, -0.42653487165802_r8, -0.44572092909025_r8, & - -0.54946384049902_r8, -0.63339326223743_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.54946384049902_r8, -0.63339326223743_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing = gsw_result( & @@ -24712,12 +24712,12 @@ module gsw_mod_check_data -349489.6681382116_r8, -350083.0649962297_r8, -350681.8699356489_r8, & -334111.3419690022_r8, -334143.2567784233_r8, -334179.1147826227_r8, & -334224.5065956119_r8, -334270.3499821011_r8, -334315.2523822773_r8, & - -334544.6745763633_r8, -334732.08961088_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -334544.6745763633_r8, -334732.08961088_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing_poly = gsw_result( & @@ -24756,12 +24756,12 @@ module gsw_mod_check_data -349490.2853720206_r8, -350083.8744791881_r8, -350682.8848710884_r8, & -334111.368591349_r8, -334143.286937236_r8, -334179.1468142975_r8, & -334224.5366951195_r8, -334270.3782708608_r8, -334315.2795182845_r8, & - -334544.6668354722_r8, -334732.070891422_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -334544.6668354722_r8, -334732.070891422_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sa_freezing_from_ct = gsw_result( & @@ -24800,12 +24800,12 @@ module gsw_mod_check_data 34.881086643284_r8, 34.881476814695_r8, 34.883401613802_r8, & 6.669904340924_r8, 6.7737814418926_r8, 6.9129530644763_r8, & 7.1375206720999_r8, 7.3661052164131_r8, 7.5862209196448_r8, & - 9.1676241523674_r8, 10.389468455025_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.1676241523674_r8, 10.389468455025_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sa_freezing_from_ct_poly = gsw_result( & @@ -24844,12 +24844,12 @@ module gsw_mod_check_data 34.881086643283_r8, 34.881476814693_r8, 34.883401613801_r8, & 6.6699043409305_r8, 6.7737814418975_r8, 6.9129530644828_r8, & 7.1375206721037_r8, 7.3661052164194_r8, 7.5862209196494_r8, & - 9.167624152377_r8, 10.389468455037_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.167624152377_r8, 10.389468455037_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sa_freezing_from_t = gsw_result( & @@ -24888,12 +24888,12 @@ module gsw_mod_check_data 34.881086643285_r8, 34.881476814694_r8, 34.883401613803_r8, & 6.6699043409241_r8, 6.7737814418901_r8, 6.9129530644795_r8, & 7.1375206720995_r8, 7.366105216414_r8, 7.5862209196443_r8, & - 9.1676241523664_r8, 10.389468455024_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 9.1676241523664_r8, 10.389468455024_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: sa_freezing_from_t_poly = gsw_result( & @@ -24932,11 +24932,11 @@ module gsw_mod_check_data 34.881476814695_r8, 34.883401613802_r8, 6.6699043409246_r8, & 6.7737814418914_r8, 6.9129530644766_r8, 7.1375206720971_r8, & 7.3661052164126_r8, 7.5862209196423_r8, 9.167624152368_r8, & - 10.389468455026_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 10.389468455026_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ctfreezing_sa = gsw_result( & @@ -24975,12 +24975,12 @@ module gsw_mod_check_data -0.05918008599653621_r8, -0.05910387488585715_r8, -0.05901650759560111_r8, & -0.0530013208250531_r8, -0.05300868058120169_r8, -0.05301648782767866_r8, & -0.05302585759226835_r8, -0.05303763334873637_r8, -0.05305140995942938_r8, & - -0.05316382330146954_r8, -0.05330256692258663_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05316382330146954_r8, -0.05330256692258663_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ctfreezing_p = gsw_result( & @@ -25019,12 +25019,12 @@ module gsw_mod_check_data -9.6429767600759e-08_r8, -9.7275573331652e-08_r8, -9.811901943903e-08_r8, & -7.4508663833748e-08_r8, -7.4559317771882e-08_r8, -7.4612922079419e-08_r8, & -7.4673681992147e-08_r8, -7.4734647757879e-08_r8, -7.4794770309749e-08_r8, & - -7.5033133741101e-08_r8, -7.523464380045e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -7.5033133741101e-08_r8, -7.523464380045e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ctfreezing_sa_poly = gsw_result( & @@ -25063,12 +25063,12 @@ module gsw_mod_check_data -0.05917471845970226_r8, -0.05909983683966646_r8, -0.05901388460027225_r8, & -0.05301578087812731_r8, -0.05302319516586801_r8, -0.05303095076059756_r8, & -0.05304001404371655_r8, -0.05305145476308031_r8, -0.05306490732203371_r8, & - -0.05317340686483132_r8, -0.05330941332221949_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05317340686483132_r8, -0.05330941332221949_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ctfreezing_p_poly = gsw_result( & @@ -25107,12 +25107,12 @@ module gsw_mod_check_data -9.6436423416394e-08_r8, -9.7283810317375e-08_r8, -9.8128508629192e-08_r8, & -7.4523336070684e-08_r8, -7.4574037788968e-08_r8, -7.4627805308599e-08_r8, & -7.4689007291807e-08_r8, -7.4750417572581e-08_r8, -7.4810945632147e-08_r8, & - -7.5053434072496e-08_r8, -7.5257631194106e-08_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.5053434072496e-08_r8, -7.5257631194106e-08_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: tfreezing_sa = gsw_result( & @@ -25151,12 +25151,12 @@ module gsw_mod_check_data -0.05838729589410799_r8, -0.05846589353901376_r8, -0.05854612103247572_r8, & -0.05329571534278817_r8, -0.05329554567939729_r8, -0.05329562519036385_r8, & -0.05329660126634706_r8, -0.05329929376510896_r8, -0.05330345110175239_r8, & - -0.05336469388817219_r8, -0.05344564200252166_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05336469388817219_r8, -0.05344564200252166_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: tfreezing_p = gsw_result( & @@ -25211,12 +25211,12 @@ module gsw_mod_check_data -7.434016238386904e-08_r8, -7.437296853650948e-08_r8, & -7.440612109683406e-08_r8, -7.444012331884646e-08_r8, & -7.44741921779601e-08_r8, -7.450820230415053e-08_r8, & - -7.460755605334024e-08_r8, -7.470082142144461e-08_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.460755605334024e-08_r8, -7.470082142144461e-08_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: tfreezing_sa_poly = gsw_result( & @@ -25255,12 +25255,12 @@ module gsw_mod_check_data -0.05838359345146146_r8, -0.05846256787956657_r8, -0.05854326890811165_r8, & -0.05328313052667945_r8, -0.05328327595499649_r8, -0.05328377491250316_r8, & -0.05328542100107363_r8, -0.05328879709176362_r8, -0.05329361262604533_r8, & - -0.05335925772583553_r8, -0.05344317961274174_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.05335925772583553_r8, -0.05344317961274174_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: tfreezing_p_poly = gsw_result( & @@ -25315,12 +25315,12 @@ module gsw_mod_check_data -7.437794913764851e-08_r8, -7.441028173277502e-08_r8, & -7.444297042643836e-08_r8, -7.447652904016719e-08_r8, & -7.451016050159252e-08_r8, -7.454373661765283e-08_r8, & - -7.464226441645901e-08_r8, -7.473474154207217e-08_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -7.464226441645901e-08_r8, -7.473474154207217e-08_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing_sa = gsw_result( & @@ -25359,12 +25359,12 @@ module gsw_mod_check_data -118.5718702504829_r8, -118.5833497933198_r8, -118.5964258085308_r8, & -111.6185555792632_r8, -111.6113679321992_r8, -111.6039619657437_r8, & -111.5966438055147_r8, -111.5928332056843_r8, -111.5922639668351_r8, & - -111.6751435909979_r8, -111.8071141844643_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -111.6751435909979_r8, -111.8071141844643_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing_p = gsw_result( & @@ -25419,12 +25419,12 @@ module gsw_mod_check_data -0.0002031814332884368_r8, -0.0002032301319067567_r8, & -0.0002032779018859639_r8, -0.0002033234610010417_r8, & -0.0002033689592190151_r8, -0.0002034147156986458_r8, & - -0.0002035093752924112_r8, -0.0002036093733581402_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.0002035093752924112_r8, -0.0002036093733581402_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing_sa_poly = gsw_result( & @@ -25463,12 +25463,12 @@ module gsw_mod_check_data -118.5921751086301_r8, -118.6067982250461_r8, -118.6230673860459_r8, & -111.5700765594952_r8, -111.5637032121096_r8, -111.5573803074221_r8, & -111.5518097831558_r8, -111.549791076265_r8, -111.5509512746412_r8, & - -111.646217238763_r8, -111.7869466979063_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -111.646217238763_r8, -111.7869466979063_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_enthalpy_ice_freezing_p_poly = gsw_result( & @@ -25523,12 +25523,12 @@ module gsw_mod_check_data -0.000203267229694165_r8, -0.0002033149358290789_r8, & -0.000203361719128917_r8, -0.0002034062929562954_r8, & -0.0002034507832465749_r8, -0.0002034955116930291_r8, & - -0.0002035868068629447_r8, -0.0002036831985411069_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -0.0002035868068629447_r8, -0.0002036831985411069_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: latentheat_melting = gsw_result( & @@ -25567,12 +25567,12 @@ module gsw_mod_check_data 317340.4381456572_r8, 316649.1736884361_r8, 315945.6174279523_r8, & 332669.6437188723_r8, 332640.2572422285_r8, 332607.0564168283_r8, & 332564.65820149_r8, 332521.8726991066_r8, 332480.0412048035_r8, & - 332264.3938576001_r8, 332090.4995257973_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 332264.3938576001_r8, 332090.4995257973_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: latentheat_evap_ct = gsw_result( & @@ -25611,12 +25611,12 @@ module gsw_mod_check_data 2496511.788918582_r8, 2496514.679703501_r8, 2496525.620648657_r8, & 2474951.236445722_r8, 2477150.708018741_r8, 2482116.299355683_r8, & 2487144.960734571_r8, 2490040.730189713_r8, 2491529.576826381_r8, & - 2489855.680475559_r8, 2488434.428739395_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2489855.680475559_r8, 2488434.428739395_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: latentheat_evap_t = gsw_result( & @@ -25655,12 +25655,12 @@ module gsw_mod_check_data 2495305.858746646_r8, 2495225.724194544_r8, 2495151.490367209_r8, & 2474951.236445722_r8, 2477149.192049776_r8, 2482114.157329434_r8, & 2487143.137323316_r8, 2490039.374968516_r8, 2491528.553854507_r8, & - 2489852.225141957_r8, 2488427.808798687_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2489852.225141957_r8, 2488427.808798687_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: grav = gsw_result( & @@ -25699,12 +25699,12 @@ module gsw_mod_check_data 9.793915508772173_r8, 9.794468151359965_r8, 9.795022339414075_r8, & 9.818385590850475_r8, 9.818407572464066_r8, 9.818429553010436_r8, & 9.81845153248991_r8, 9.818473510902823_r8, 9.818495488249502_r8, & - 9.818552624363246_r8, 9.818607556144389_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 9.818552624363246_r8, 9.818607556144389_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: enthalpy_ct_exact = gsw_result( & @@ -25743,12 +25743,12 @@ module gsw_mod_check_data 57322.501483125_r8, 59766.957096513_r8, 62204.701996098_r8, & 41925.661983623_r8, 38203.689480714_r8, 29680.261445303_r8, & 21044.677871075_r8, 16113.301299732_r8, 13625.18970737_r8, & - 16743.740011372_r8, 19409.635279461_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16743.740011372_r8, 19409.635279461_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: h_sa_ct_exact = gsw_result( & @@ -25781,11 +25781,11 @@ module gsw_mod_check_data -40.2864421028_r8, -42.039759396_r8, -43.7923727633_r8, 0._r8, & -0.0767124462575_r8, -0.154521128555_r8, -0.233529183568_r8, & -0.312713363967_r8, -0.391676442514_r8, -0.591567978773_r8, & - -0.782297536806_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + -0.782297536806_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_ct_ct_exact = gsw_result( & @@ -25824,12 +25824,12 @@ module gsw_mod_check_data 3999.256895784855_r8, 3999.765693812938_r8, 4000.287774376506_r8, & 3991.86795711963_r8, 3991.876911698921_r8, 3991.880701355361_r8, & 3991.878882338572_r8, 3991.876109030451_r8, 3991.874122733088_r8, & - 3991.888742365541_r8, 3991.90771168561_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 3991.888742365541_r8, 3991.90771168561_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_sa_sa_ct_exact = gsw_result( & @@ -25868,11 +25868,11 @@ module gsw_mod_check_data 0.055225066900172_r8, 0.057096096792184_r8, 0._r8, 0.00016487595354669_r8, & 0.00033463077136397_r8, 0.00050846449695568_r8, 0.00067996552457185_r8, & 0.000846306657985_r8, 0.0011641486228366_r8, 0.0014506369945591_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_sa_ct_ct_exact = gsw_result( & @@ -25911,11 +25911,11 @@ module gsw_mod_check_data 0.13676955839746_r8, 0.14156160239403_r8, 0._r8, 0.00025914571458517_r8, & 0.00055454300863473_r8, 0.00089187707309008_r8, 0.0012374586051721_r8, & 0.0015773436097115_r8, 0.0023100057295601_r8, 0.0029814007789332_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: h_ct_ct_ct_exact = gsw_result( & @@ -25953,12 +25953,12 @@ module gsw_mod_check_data 0.52574850794365_r8, 0.54484001484201_r8, 0.56332750212384_r8, & 0.58143198106786_r8, 0._r8, 0.0011883837407528_r8, 0.0024995343269944_r8, & 0.0039547266160598_r8, 0.0054400879379148_r8, 0.0069061436514812_r8, & - 0.010163914501159_r8, 0.01316138782273_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.010163914501159_r8, 0.01316138782273_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: rho_t_exact = gsw_result( & @@ -25997,12 +25997,12 @@ module gsw_mod_check_data 1052.801348924726_r8, 1053.873097410109_r8, 1054.94446014967_r8, & 1004.881703725263_r8, 1005.101280969829_r8, 1005.425131980654_r8, & 1005.761213793721_r8, 1006.02715857045_r8, 1006.261562376281_r8, & - 1007.624587752987_r8, 1008.687812318329_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.624587752987_r8, 1008.687812318329_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: pot_rho_t_exact = gsw_result( & @@ -26041,12 +26041,12 @@ module gsw_mod_check_data 1027.829219438152_r8, 1027.829610807735_r8, 1027.831450910974_r8, & 1004.881703725263_r8, 1005.053867831101_r8, 1005.329225275224_r8, & 1005.615615468646_r8, 1005.831660997495_r8, 1006.016343242448_r8, & - 1007.254656852288_r8, 1008.199190243294_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1007.254656852288_r8, 1008.199190243294_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: alpha_wrt_t_exact = gsw_result( & @@ -26085,12 +26085,12 @@ module gsw_mod_check_data 0.00019726232414476_r8, 0.00020235067750112_r8, 0.00020734462231256_r8, & 0.00010498616088217_r8, 9.3763203248887e-05_r8, 6.6948840745084e-05_r8, & 3.8572021505753e-05_r8, 2.1958178856618e-05_r8, 1.3698251429773e-05_r8, & - 2.974148308407e-05_r8, 4.2575930715782e-05_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 2.974148308407e-05_r8, 4.2575930715782e-05_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: beta_const_t_exact = gsw_result( & @@ -26129,12 +26129,12 @@ module gsw_mod_check_data 0.00071990763462134_r8, 0.00071755187225658_r8, 0.00071522116568008_r8, & 0.00077012209995467_r8, 0.00077213899873602_r8, 0.00077727164691835_r8, & 0.00078291232214769_r8, 0.00078626212253045_r8, 0.00078789067779263_r8, & - 0.00078383856977939_r8, 0.00078072535810303_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00078383856977939_r8, 0.00078072535810303_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: specvol_t_exact = gsw_result( & @@ -26187,12 +26187,12 @@ module gsw_mod_check_data 0.000995142011535123_r8, 0.0009949246100204876_r8, & 0.0009946041412651316_r8, 0.0009942717876622131_r8, & 0.0009940089504352802_r8, 0.0009937774008166485_r8, & - 0.0009924331066890799_r8, 0.0009913870156730046_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009924331066890799_r8, 0.0009913870156730046_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: sound_speed_t_exact = gsw_result( & @@ -26231,12 +26231,12 @@ module gsw_mod_check_data 1549.6117936248_r8, 1554.290449102_r8, 1558.9859082367_r8, & 1455.6831811918_r8, 1452.3625840726_r8, 1444.239631824_r8, & 1435.6727625022_r8, 1430.7264379745_r8, 1428.3327658191_r8, & - 1433.9414737382_r8, 1438.5338278577_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 1433.9414737382_r8, 1438.5338278577_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: kappa_t_exact = gsw_result( & @@ -26275,12 +26275,12 @@ module gsw_mod_check_data 3.9555578574473e-10_r8, 3.9277815434433e-10_r8, 3.9001923395066e-10_r8, & 4.6962513464964e-10_r8, 4.7167197129523e-10_r8, 4.7683897562167e-10_r8, & 4.8238544395298e-10_r8, 4.8559822445408e-10_r8, 4.8711367104981e-10_r8, & - 4.8265675815594e-10_r8, 4.790745149808e-10_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 4.8265675815594e-10_r8, 4.790745149808e-10_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: enthalpy_t_exact = gsw_result( & @@ -26319,12 +26319,12 @@ module gsw_mod_check_data 57322.501483125_r8, 59766.957096513_r8, 62204.701996098_r8, & 41925.661983623_r8, 38203.689480714_r8, 29680.261445303_r8, & 21044.677871075_r8, 16113.301299732_r8, 13625.18970737_r8, & - 16743.740011372_r8, 19409.635279461_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 16743.740011372_r8, 19409.635279461_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: ct_sa_wrt_t = gsw_result( & @@ -26363,12 +26363,12 @@ module gsw_mod_check_data -0.014072628686_r8, -0.0143730755344_r8, -0.0146638828542_r8, & -0.0144770495026_r8, -0.0130806915645_r8, -0.00984626835963_r8, & -0.00650204131652_r8, -0.00456294560753_r8, -0.00358310437893_r8, & - -0.00504964627847_r8, -0.00626702045744_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.00504964627847_r8, -0.00626702045744_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_t_wrt_t = gsw_result( & @@ -26407,12 +26407,12 @@ module gsw_mod_check_data 0.9613759379365453_r8, 0.9600865478409804_r8, 0.9588200326463092_r8, & 1.040382360969603_r8, 1.040398357380179_r8, 1.040772451657793_r8, & 1.041136391013527_r8, 1.041196638004305_r8, 1.041021199857103_r8, & - 1.037828060508981_r8, 1.035368419878411_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 1.037828060508981_r8, 1.035368419878411_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: ct_p_wrt_t = gsw_result( & @@ -26451,12 +26451,12 @@ module gsw_mod_check_data -1.28606235254e-08_r8, -1.31788866368e-08_r8, -1.34901950014e-08_r8, & -7.41187460851e-09_r8, -6.59663334431e-09_r8, -4.67401666435e-09_r8, & -2.67182219021e-09_r8, -1.51399635463e-09_r8, -9.42142599939e-10_r8, & - -2.04794442546e-09_r8, -2.93485453165e-09_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -2.04794442546e-09_r8, -2.93485453165e-09_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: chem_potential_water_t_exact = gsw_result( & @@ -26495,12 +26495,12 @@ module gsw_mod_check_data 53.103015316397_r8, 55.612816060606_r8, 58.129543323637_r8, & -1.1226592127859_r8, -0.89508450708121_r8, -0.54659337008948_r8, & -0.26606408987197_r8, -0.09879179535595_r8, 0.020438641668798_r8, & - 0.13747607525642_r8, 0.26764832484136_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.13747607525642_r8, 0.26764832484136_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: t_deriv_chem_potential_water_t_exact = gsw_result( & @@ -26539,12 +26539,12 @@ module gsw_mod_check_data -0.0276422895662_r8, -0.0277773790261_r8, -0.0278586774043_r8, & -0.153370026777_r8, -0.139766509712_r8, -0.108847934496_r8, & -0.0773007866804_r8, -0.0590424607412_r8, -0.0496472894285_r8, & - -0.0606436969679_r8, -0.0699304866827_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + -0.0606436969679_r8, -0.0699304866827_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: dilution_coefficient_t_exact = gsw_result( & @@ -26583,12 +26583,12 @@ module gsw_mod_check_data 72.085515733992_r8, 72.156278733013_r8, 72.224944994649_r8, & 67.616064342506_r8, 67.393227954882_r8, 66.882766763945_r8, & 66.363169629683_r8, 66.065372183713_r8, 65.916337307894_r8, & - 66.205547430761_r8, 66.491057841081_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 66.205547430761_r8, 66.491057841081_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: deltasa_atlas = gsw_result( & @@ -26625,12 +26625,12 @@ module gsw_mod_check_data 0.015980441165909_r8, 0.015427993081175_r8, 0.015031765070164_r8, & 0.014752503347485_r8, 0.014571537959061_r8, 0.014479362618144_r8, & 0.014425096269633_r8, 0.01439026764316_r8, 0.014359769181164_r8, 0._r8, & - 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: fdelta = gsw_result( & @@ -26667,12 +26667,12 @@ module gsw_mod_check_data 0.00061906246610478_r8, 0.00059757938871502_r8, 0.00058216858248275_r8, & 0.00057132159369387_r8, 0.00056429229571656_r8, 0.00056071080342301_r8, & 0.00055860236733881_r8, 0.00055724686598179_r8, 0.00055603918673276_r8, & - 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 0._r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2 = gsw_result_mpres( & @@ -26710,12 +26710,12 @@ module gsw_mod_check_data 9.9982620909999e-08_r8, 2.4654934937997e-08_r8, 2.0885423177912e-08_r8, & 9.223702816207e-08_r8, 0.0001660648551066_r8, 0.00026633634883617_r8, & 0.00027763586396894_r8, 0.00020948149219376_r8, 0.00017879921415107_r8, & - 0.00045821505037643_r8, 0.0003631969327651_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.00045821505037643_r8, 0.0003631969327651_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: p_mid_n2 = gsw_result_mpres( & @@ -26734,12 +26734,12 @@ module gsw_mod_check_data 1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, & 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, & 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, & - 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: tu = gsw_result_mpres( & @@ -26769,12 +26769,12 @@ module gsw_mod_check_data 33.5909391428_r8, 29.7048355369_r8, 35.2075098131_r8, 37.2062343408_r8, & 35.4422070149_r8, 22.2582946063_r8, -2.71157620588_r8, -9.2408573343_r8, & 3.83688900053_r8, 12.213034823_r8, -12.5408613299_r8, -33.415215626_r8, & - -41.3216504414_r8, -45.694408063_r8, -46.2699201995_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + -41.3216504414_r8, -45.694408063_r8, -46.2699201995_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: rsubrho = gsw_result_mpres( & @@ -26812,12 +26812,12 @@ module gsw_mod_check_data -5.9389578850225_r8, -2.3856977176447_r8, -0.90956072716382_r8, & -0.7201392832697_r8, -1.143775818143_r8, -1.5524718006901_r8, & -0.63606810722336_r8, -0.20499378284572_r8, -0.064287656743285_r8, & - 0.012120300497005_r8, 0.022167918876923_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.012120300497005_r8, 0.022167918876923_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: p_mid_tursr = gsw_result_mpres( & @@ -26836,12 +26836,12 @@ module gsw_mod_check_data 1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, & 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, & 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, & - 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min = gsw_result_mpres( & @@ -26879,12 +26879,12 @@ module gsw_mod_check_data 9.8716189054048e-08_r8, 2.4408839243381e-08_r8, 2.0758737456709e-08_r8, & 9.1779374620329e-08_r8, 0.0001611729885002_r8, 0.00023944070948783_r8, & 0.00024904640983871_r8, 0.00020007889751824_r8, 0.00017649915736858_r8, & - 0.0004552721778721_r8, 0.00036118359668038_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.0004552721778721_r8, 0.00036118359668038_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_pmid = gsw_result_mpres( & @@ -26903,12 +26903,12 @@ module gsw_mod_check_data 1517._r8, 1517._r8, 1771._r8, 2025._r8, 2279._r8, 2534._r8, 2789._r8, & 3045._r8, 3300._r8, 3556._r8, 3812._r8, 4069._r8, 4325._r8, 4583._r8, & 4840._r8, 5098._r8, 5355._r8, 5614._r8, 5872._r8, 10._r8, 20._r8, 30._r8, & - 40._r8, 50._r8, 76._r8, 101._r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + 40._r8, 50._r8, 76._r8, 101._r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_specvol = gsw_result_mpres( & @@ -26961,11 +26961,11 @@ module gsw_mod_check_data 0.0009946040926904509_r8, 0.0009942717261025088_r8, & 0.0009940088745524498_r8, 0.0009937773244990007_r8, & 0.0009924332606871787_r8, 0.0009913873184543118_r8, & - 0.0009913873184543118_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.0009913873184543118_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_alpha = gsw_result_mpres( & @@ -27004,11 +27004,11 @@ module gsw_mod_check_data 0.0002107349775155_r8, 9.0111585003208e-05_r8, 6.4332827850816e-05_r8, & 3.7073732077704e-05_r8, 2.1126477280477e-05_r8, 1.3201741054163e-05_r8, & 2.8688479292325e-05_r8, 4.1139568399101e-05_r8, 4.1139568399101e-05_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_beta = gsw_result_mpres( & @@ -27047,11 +27047,11 @@ module gsw_mod_check_data 0.00071451889363731_r8, 0.0007708761531939_r8, 0.00077654061253307_r8, & 0.00078255911332701_r8, 0.00078604450473345_r8, 0.00078771622059862_r8, & 0.00078356549344703_r8, 0.00078036996563038_r8, 0.00078036996563038_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_dsa = gsw_result_mpres( & @@ -27090,12 +27090,12 @@ module gsw_mod_check_data 0.001071921709083767_r8, 0.000509604108586359_r8, 0.0002601674146944788_r8, & 0.0003901714079006524_r8, 0.001924799106966191_r8, 0.1038771009668551_r8, & 0.1391716225851436_r8, 0.2245676076205712_r8, 0.2285845443154297_r8, & - 0.2201157032297125_r8, 1.581403232725715_r8, 1.221844302658285_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 0.2201157032297125_r8, 1.581403232725715_r8, 1.221844302658285_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_dct = gsw_result_mpres( & @@ -27133,12 +27133,12 @@ module gsw_mod_check_data -0.011093356350105_r8, -0.0022035202723656_r8, -0.0012214821167824_r8, & -0.0046310453391714_r8, -0.95731305534169_r8, -2.1601074073571_r8, & -2.1881877052759_r8, -1.2602409976967_r8, -0.64817239735291_r8, & - 0.71673511444779_r8, 0.60591670607301_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 0.71673511444779_r8, 0.60591670607301_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: n2min_dp = gsw_result_mpres( & @@ -27156,11 +27156,11 @@ module gsw_mod_check_data 102._r8, 101._r8, 254._r8, 254._r8, 254._r8, 255._r8, 255._r8, 256._r8, & 255._r8, 256._r8, 256._r8, 257._r8, 256._r8, 258._r8, 257._r8, 258._r8, & 257._r8, 259._r8, 258._r8, 259._r8, 10._r8, 10._r8, 10._r8, 10._r8, 10._r8, & - 26._r8, 25._r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 26._r8, 25._r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: ipvfn2 = gsw_result_mpres( & @@ -27190,12 +27190,12 @@ module gsw_mod_check_data 0.489471768125_r8, 0.510287776481_r8, 0.451275078269_r8, 0.421444778721_r8, & 0.43039269445_r8, 0.539652744147_r8, 0.713846676418_r8, 0.757928068915_r8, & 0.99936536978_r8, 0.997108372389_r8, 0.995041407996_r8, 0.994575061931_r8, & - 0.995970426837_r8, 1.00211308856_r8, 1.00308855992_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 0.995970426837_r8, 1.00211308856_r8, 1.00308855992_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_mpres) :: p_mid_ipvfn2 = gsw_result_mpres( & @@ -27214,12 +27214,12 @@ module gsw_mod_check_data 1263.5_r8, 1365._r8, 1466.5_r8, 1644._r8, 1898._r8, 2152._r8, 2406.5_r8, & 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, 3940.5_r8, 4197._r8, & 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, 5743._r8, 6001.5_r8, & - 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8 & + 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, 88.5_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result) :: n2_lowerlimit = gsw_result( & @@ -27258,19 +27258,19 @@ module gsw_mod_check_data 2.5273484074738e-08_r8, 2.52112924922e-08_r8, 2.5163080410076e-08_r8, & 1e-07_r8, 9.9253737531188e-08_r8, 9.8514900498007e-08_r8, & 9.7783415016138e-08_r8, 9.7059207936424e-08_r8, 9.6342206837554e-08_r8, & - 9.4511215491954e-08_r8, 9.279497746644e-08_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8 & + 9.4511215491954e-08_r8, 9.279497746644e-08_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8 & /) ) type(gsw_result_cast) :: mlp = gsw_result_cast( & variable_name = "mlp", & computation_accuracy = 2.3e-08_r8, & values = (/ & - 50._r8, 50._r8, 9e90_r8 & + 50._r8, 50._r8, 9e1_r8 & /) ) type(gsw_result) :: geo_strf_dyn_height = gsw_result( & @@ -27301,12 +27301,12 @@ module gsw_mod_check_data -34.6196050521_r8, -35.528763007_r8, -36.4329605749_r8, -37.3502339552_r8, & -38.2718413368_r8, -39.2027260967_r8, 0._r8, -2.24045354272_r8, & -4.45755336701_r8, -6.64607367518_r8, -8.80938788479_r8, -10.9527107504_r8, & - -16.3381819771_r8, -21.247093529_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + -16.3381819771_r8, -21.247093529_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: geo_strf_dyn_height_pc = gsw_result( & @@ -27337,12 +27337,12 @@ module gsw_mod_check_data -32.7229663545_r8, -33.6259672453_r8, -34.5278590095_r8, -35.437066302_r8, & -36.3558675938_r8, -37.2801867992_r8, 0._r8, -1.11548125131_r8, & -3.33264515219_r8, -5.5216982052_r8, -7.68551090876_r8, -9.82911352409_r8, & - -13.5117663277_r8, -18.5249676298_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8 & + -13.5117663277_r8, -18.5249676298_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8 & /) ) type(gsw_result) :: geo_strf_dyn_height_pc_p_mid = gsw_result( & @@ -27362,11 +27362,11 @@ module gsw_mod_check_data 2152._r8, 2406.5_r8, 2661.5_r8, 2917._r8, 3172.5_r8, 3428._r8, 3684._r8, & 3940.5_r8, 4197._r8, 4454._r8, 4711.5_r8, 4969._r8, 5226.5_r8, 5484.5_r8, & 5743._r8, 6001.5_r8, 0._r8, 5._r8, 15._r8, 25._r8, 35._r8, 45._r8, 63._r8, & - 88.5_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 88.5_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: rho_ice = gsw_result_ice( & @@ -28218,23 +28218,23 @@ module gsw_mod_check_data computation_accuracy = 7.8061e-07_r8, & values = (/ & 1096.2576803_r8, 1070.15780265_r8, 1034.10979826_r8, 1016.50879419_r8, & - 9e90_r8, 9e90_r8, 437.916027373_r8, 755.449491706_r8, 881.374551326_r8, & - 954.261417834_r8, 887.895489475_r8, 600.592848315_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 802.377377456_r8, & - 853.652282077_r8, 845.860234122_r8, 9e90_r8, 9e90_r8, 9e90_r8, & + 9e1_r8, 9e1_r8, 437.916027373_r8, 755.449491706_r8, 881.374551326_r8, & + 954.261417834_r8, 887.895489475_r8, 600.592848315_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 802.377377456_r8, & + 853.652282077_r8, 845.860234122_r8, 9e1_r8, 9e1_r8, 9e1_r8, & 734.087015732_r8, 1063.88226444_r8, 1069.83800462_r8, 1066.97994243_r8, & - 1036.44481588_r8, 917.648895914_r8, 78.4226170927_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 1161.78021795_r8, & + 1036.44481588_r8, 917.648895914_r8, 78.4226170927_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 1161.78021795_r8, & 1175.15379759_r8, 1174.68820878_r8, 1143.24330131_r8, 948.567161058_r8, & 678.700648579_r8, 771.864647788_r8, 891.763117349_r8, 776.657764279_r8, & - 582.676250797_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + 582.676250797_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: melting_ice_sa_ct_ratio = gsw_result_ice( & @@ -28974,28 +28974,28 @@ module gsw_mod_check_data variable_name = "frazil_properties_potential_poly_SA_final", & computation_accuracy = 3.6578e-10_r8, & values = (/ & - 27.619462009144_r8, 28.077395240092_r8, 28.099518740265_r8, 9e90_r8, & + 27.619462009144_r8, 28.077395240092_r8, 28.099518740265_r8, 9e1_r8, & 29.898283690558_r8, 30.833138422429_r8, 31.958029861582_r8, & 32.447864928944_r8, 32.721248702259_r8, 32.97016250481_r8, & 33.237918493123_r8, 33.569673037364_r8, 33.9386294611_r8, & - 33.889620551202_r8, 9e90_r8, 33.807059234246_r8, 33.847529321824_r8, & + 33.889620551202_r8, 9e1_r8, 33.807059234246_r8, 33.847529321824_r8, & 33.894615740874_r8, 33.906644166593_r8, 33.935064268119_r8, & 33.963417505071_r8, 33.969243390678_r8, 33.981943113224_r8, & - 33.98336654852_r8, 33.970247817386_r8, 33.968583289137_r8, 9e90_r8, & + 33.98336654852_r8, 33.970247817386_r8, 33.968583289137_r8, 9e1_r8, & 33.91571968155_r8, 33.873474659656_r8, 33.785757272285_r8, & - 33.684236446719_r8, 9e90_r8, 33.460701558507_r8, 33.382581211615_r8, & - 9e90_r8, 33.182206929451_r8, 28.401595974588_r8, 9e90_r8, & + 33.684236446719_r8, 9e1_r8, 33.460701558507_r8, 33.382581211615_r8, & + 9e1_r8, 33.182206929451_r8, 28.401595974588_r8, 9e1_r8, & 28.059579730041_r8, 29.966930557237_r8, 31.090659801979_r8, & - 31.616908402516_r8, 32.243633054773_r8, 9e90_r8, 32.730203175942_r8, & + 31.616908402516_r8, 32.243633054773_r8, 9e1_r8, 32.730203175942_r8, & 32.923082322458_r8, 33.069247479255_r8, 33.25516179739_r8, & 33.938835722367_r8, 33.884082889677_r8, 33.834093430906_r8, & 33.816140803161_r8, 33.821214185726_r8, 33.885470171844_r8, & 33.887741021164_r8, 33.933992362797_r8, 33.955112377298_r8, & 33.976595880254_r8, 33.976356816568_r8, 33.987037608102_r8, & - 33.987908331074_r8, 9e90_r8, 33.967319395492_r8, 33.913735382299_r8, & - 33.828377186532_r8, 9e90_r8, 9e90_r8, 9e90_r8, 33.506197542375_r8, & - 33.389277003262_r8, 33.288353107427_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 29.662622604441_r8, 9e90_r8, 30.571737196243_r8, 31.87361855776_r8, & + 33.987908331074_r8, 9e1_r8, 33.967319395492_r8, 33.913735382299_r8, & + 33.828377186532_r8, 9e1_r8, 9e1_r8, 9e1_r8, 33.506197542375_r8, & + 33.389277003262_r8, 33.288353107427_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 29.662622604441_r8, 9e1_r8, 30.571737196243_r8, 31.87361855776_r8, & 32.484765271401_r8, 32.992746418169_r8, 33.466353267655_r8, & 33.975293057089_r8, 34.007996831074_r8, 33.923518054566_r8, & 33.809621851607_r8, 33.767925339862_r8, 33.717489115504_r8, & @@ -29004,36 +29004,36 @@ module gsw_mod_check_data 33.992200721395_r8, 34.008808725628_r8, 34.005925519296_r8, & 34.012970101682_r8, 33.98561451966_r8, 33.977605574524_r8, & 33.921947620388_r8, 33.856059908809_r8, 33.790313145771_r8, & - 33.674342511332_r8, 33.574923909669_r8, 33.470709584706_r8, 9e90_r8, & - 33.296698299423_r8, 9e90_r8 & + 33.674342511332_r8, 33.574923909669_r8, 33.470709584706_r8, 9e1_r8, & + 33.296698299423_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: frazil_properties_potential_poly_ct_final = gsw_result_ice( & variable_name = "frazil_properties_potential_poly_CT_final", & computation_accuracy = 3.3237e-11_r8, & values = (/ & - -1.4834027127773_r8, -1.5169161924119_r8, -1.5257874983377_r8, 9e90_r8, & + -1.4834027127773_r8, -1.5169161924119_r8, -1.5257874983377_r8, 9e1_r8, & -1.6432937054344_r8, -1.7043869362712_r8, -1.7888995253979_r8, & -1.8363140441232_r8, -1.8713110314647_r8, -1.9049419808812_r8, & -1.9397107112703_r8, -1.9790145069022_r8, -2.0391187131171_r8, & - -2.0758119733136_r8, 9e90_r8, -2.1496064359662_r8, -2.230945667147_r8, & + -2.0758119733136_r8, 9e1_r8, -2.1496064359662_r8, -2.230945667147_r8, & -2.3130592343749_r8, -2.3935138314256_r8, -2.4753094410413_r8, & -2.557484964559_r8, -2.6387243769701_r8, -2.7207461026847_r8, & - -2.8032962616757_r8, -2.8845638508944_r8, -2.9676970624302_r8, 9e90_r8, & + -2.8032962616757_r8, -2.8845638508944_r8, -2.9676970624302_r8, 9e1_r8, & -3.257241960811_r8, -3.4669662396459_r8, -3.6763439596778_r8, & - -3.8880825049006_r8, 9e90_r8, -4.3181803425367_r8, -4.5382403343366_r8, & - 9e90_r8, -4.9844092632503_r8, -1.5276662366953_r8, 9e90_r8, & + -3.8880825049006_r8, 9e1_r8, -4.3181803425367_r8, -4.5382403343366_r8, & + 9e1_r8, -4.9844092632503_r8, -1.5276662366953_r8, 9e1_r8, & -1.5235260778831_r8, -1.6395731015876_r8, -1.7114988570637_r8, & - -1.7493608966498_r8, -1.8053526021754_r8, 9e90_r8, -1.8718285034298_r8, & + -1.7493608966498_r8, -1.8053526021754_r8, 9e1_r8, -1.8718285034298_r8, & -1.9022180398996_r8, -1.9299408946819_r8, -1.9607727381913_r8, & -2.0391307087401_r8, -2.0754898324663_r8, -2.1114439018909_r8, & -2.1501350633777_r8, -2.2294123502127_r8, -2.312525748803_r8, & -2.3924101786441_r8, -2.4752467963548_r8, -2.5569991511628_r8, & -2.6391548261204_r8, -2.720418798658_r8, -2.8035115152502_r8, & - -2.8856000858269_r8, 9e90_r8, -3.0504149488495_r8, -3.2571252254802_r8, & - -3.4643101743347_r8, 9e90_r8, 9e90_r8, 9e90_r8, -4.3208668583143_r8, & - -4.5386358189678_r8, -4.760530490996_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - -1.6145849366953_r8, 9e90_r8, -1.6817743489142_r8, -1.7641234564172_r8, & + -2.8856000858269_r8, 9e1_r8, -3.0504149488495_r8, -3.2571252254802_r8, & + -3.4643101743347_r8, 9e1_r8, 9e1_r8, 9e1_r8, -4.3208668583143_r8, & + -4.5386358189678_r8, -4.760530490996_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + -1.6145849366953_r8, 9e1_r8, -1.6817743489142_r8, -1.7641234564172_r8, & -1.8192591892992_r8, -1.8677936871773_r8, -1.9144370045146_r8, & -1.9632257911131_r8, -1.9844040196908_r8, -1.9995666517687_r8, & -2.0316180116333_r8, -2.0687343646064_r8, -2.1046607147382_r8, & @@ -29042,36 +29042,36 @@ module gsw_mod_check_data -2.6400684494478_r8, -2.7223202768743_r8, -2.8046190636588_r8, & -2.8870707179455_r8, -2.9686970533908_r8, -3.0510192879771_r8, & -3.2576083532515_r8, -3.4659405236976_r8, -3.6766125464238_r8, & - -3.88749883286_r8, -4.1016831600569_r8, -4.3187712737818_r8, 9e90_r8, & - -4.7610234582053_r8, 9e90_r8 & + -3.88749883286_r8, -4.1016831600569_r8, -4.3187712737818_r8, 9e1_r8, & + -4.7610234582053_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: frazil_properties_potential_poly_w_ih_final = gsw_result_ice( & variable_name = "frazil_properties_potential_poly_w_Ih_final", & computation_accuracy = 7.1663e-12_r8, & values = (/ & - 0.000176270314407_r8, 0.000325533684252_r8, 0.000139493955038_r8, 9e90_r8, & + 0.000176270314407_r8, 0.000325533684252_r8, 0.000139493955038_r8, 9e1_r8, & 0.000419583105568_r8, 0.00201757112615_r8, 0.000123429844205_r8, & 0.00120447121825_r8, 0.000246987287503_r8, 0.000460982348892_r8, & 2.51613352381e-05_r8, 0.000915538374681_r8, 0.00031332897557_r8, & - 0.0047410038326_r8, 9e90_r8, 0.00546663801282_r8, 0.00381872234438_r8, & + 0.0047410038326_r8, 9e1_r8, 0.00546663801282_r8, 0.00381872234438_r8, & 0.00355299956965_r8, 0.000235066825627_r8, 0.00275440585078_r8, & 0.00111130687955_r8, 0.00445126061551_r8, 0.001717955549_r8, & - 0.00402206807423_r8, 0.000851030671989_r8, 0.00100077963282_r8, 9e90_r8, & + 0.00402206807423_r8, 0.000851030671989_r8, 0.00100077963282_r8, 9e1_r8, & 0.000417347820148_r8, 0.00246405955914_r8, 0.00151378181133_r8, & - 0.00186456980105_r8, 9e90_r8, 0.00605774046811_r8, 0.00214688359831_r8, & - 9e90_r8, 0.000551179493386_r8, 0.000144810164904_r8, 9e90_r8, & + 0.00186456980105_r8, 9e1_r8, 0.00605774046811_r8, 0.00214688359831_r8, & + 9e1_r8, 0.000551179493386_r8, 0.000144810164904_r8, 9e1_r8, & 1.51380272089e-05_r8, 9.27683296179e-05_r8, 0.000349534212591_r8, & - 0.000415867118907_r8, 0.000373547351226_r8, 9e90_r8, 0.000982271052213_r8, & + 0.000415867118907_r8, 0.000373547351226_r8, 9e1_r8, 0.000982271052213_r8, & 0.000343544650167_r8, 0.000176954782895_r8, 0.000276993642702_r8, & 0.00112071790189_r8, 0.00518287240335_r8, 0.0019510510916_r8, & 0.00029406026277_r8, 0.0067937819085_r8, 0.00134284853804_r8, & 0.00159713428555_r8, 0.00136272061447_r8, 7.45348395273e-05_r8, & 8.26828066367e-05_r8, 0.00346883375573_r8, 0.00297072214399_r8, & - 0.00149618645963_r8, 9e90_r8, 0.00031265390097_r8, 0.00167836192043_r8, & - 0.00822825691488_r8, 9e90_r8, 9e90_r8, 9e90_r8, 0.00116028388827_r8, & - 0.00232269928647_r8, 0.00153389669623_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 0.00012933547693_r8, 9e90_r8, 0.000187038141609_r8, 0.000255513752244_r8, & + 0.00149618645963_r8, 9e1_r8, 0.00031265390097_r8, 0.00167836192043_r8, & + 0.00822825691488_r8, 9e1_r8, 9e1_r8, 9e1_r8, 0.00116028388827_r8, & + 0.00232269928647_r8, 0.00153389669623_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 0.00012933547693_r8, 9e1_r8, 0.000187038141609_r8, 0.000255513752244_r8, & 0.000252446656721_r8, 0.000674200438757_r8, 0.000471147537491_r8, & 4.87072973125e-05_r8, 0.0021082801099_r8, 0.0026761509475_r8, & 0.00406677870392_r8, 0.00185908365405_r8, 0.00464560944716_r8, & @@ -29080,8 +29080,8 @@ module gsw_mod_check_data 0.00224317162854_r8, 0.00294871959469_r8, 0.00195622705652_r8, & 0.00062475533561_r8, 0.00355344848183_r8, 0.0028082898716_r8, & 0.0021246876417_r8, 0.00260705731618_r8, 0.00137592403026_r8, & - 0.000532309230885_r8, 0.0011092548861_r8, 0.0024944858522_r8, 9e90_r8, & - 0.00211763846635_r8, 9e90_r8 & + 0.000532309230885_r8, 0.0011092548861_r8, 0.0024944858522_r8, 9e1_r8, & + 0.00211763846635_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: frazil_properties_sa_final = gsw_result_ice( & @@ -29380,42 +29380,42 @@ module gsw_mod_check_data type(gsw_result_ice) :: melting_seaice_into_seawater_sa_final = gsw_result_ice( & variable_name = "melting_seaice_into_seawater_SA_final", & - computation_accuracy = 9e90_r8, & - values = (/ & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + computation_accuracy = 9e1_r8, & + values = (/ & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: melting_seaice_into_seawater_ct_final = gsw_result_ice( & variable_name = "melting_seaice_into_seawater_CT_final", & - computation_accuracy = 9e90_r8, & - values = (/ & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8, & - 9e90_r8, 9e90_r8, 9e90_r8, 9e90_r8 & + computation_accuracy = 9e1_r8, & + values = (/ & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8, & + 9e1_r8, 9e1_r8, 9e1_r8, 9e1_r8 & /) ) type(gsw_result_ice) :: seaice_fraction_to_freeze_seawater_sa_freeze = gsw_result_ice( &