38 use gsw_mod_toolbox,
only : gsw_ct_from_pt
39 use gsw_mod_toolbox,
only : gsw_sa_from_sp
40 use gsw_mod_toolbox,
only : gsw_t_from_ct
49 real(kind_real),
INTENT(IN) :: pt_in, sp_in, p_in, lon_in, lat_in
50 real(kind_real) :: pt, sp, p, lon, lat
51 real(kind_real) :: sa, ct, t
73 sa = gsw_sa_from_sp(sp,p,lon,lat)
76 ct = gsw_ct_from_pt(sa,pt)
95 real(kind_real),
INTENT(IN) :: dpth
96 real(kind_real),
INTENT(IN) :: xlat
97 real(kind_real),
PARAMETER :: pi=3.141592654
98 real(kind_real) :: plat, d, c1
100 plat=abs(xlat*pi/180.)
102 c1=5.92e-3+d**2*5.25e-3
103 p_from_z=((1-c1)-sqrt(((1-c1)**2)-(8.84e-6*dpth)))/4.42e-6
122 real(kind_real),
INTENT(IN) :: sp, long, lat, p
123 real(kind_real) :: gsw_sa_from_sp
144 real(kind_real),
INTENT(IN) :: sa, t, p, p_ref
145 real(kind_real) :: gsw_pt_from_t
real(kind_real) function, public t_from_pt(pt_in, sp_in, p_in, lon_in, lat_in)
real(kind_real) function, public sa_from_sp(sp, p, long, lat)
pure real(kind_real) function, public p_from_z(dpth, xlat)
real(kind_real) function, public pt_from_t(sa, t, p, p_ref)