25 real (r8),
intent(in) :: sp,
long, lat
29 real (r8) :: xx_left, xx_right
38 if(xx_left.le.
long .and.
long.le.xx_right)
then real(r8), dimension(3) xb_left
integer, parameter, public long
real(r8), parameter gsw_sso
elemental real(r8) function gsw_sa_from_sp_baltic(sp, long, lat)
real(r8), dimension(3) yb_left
real(r8), dimension(2) yb_right
real(r8), dimension(2) xb_right