FV3 Bundle
gsw_specvol_ice.f90
Go to the documentation of this file.
1 !==========================================================================
2 elemental function gsw_specvol_ice (t, p)
3 !==========================================================================
4 !
5 ! Calculates the specific volume of ice.
6 !
7 ! t = in-situ temperature (ITS-90) [ deg C ]
8 ! p = sea pressure [ dbar ]
9 ! ( i.e. absolute pressure - 10.1325 dbar )
10 !
11 ! specvol_ice = specific volume [ m^3/kg ]
12 !--------------------------------------------------------------------------
13 
15 
16 use gsw_mod_kinds
17 
18 implicit none
19 
20 real (r8), intent(in) :: t, p
21 
22 real (r8) :: gsw_specvol_ice
23 
25 
26 return
27 end function
28 
29 !--------------------------------------------------------------------------
elemental real(r8) function gsw_specvol_ice(t, p)