FV3 Bundle
Data Types | Modules | Functions/Subroutines | Variables
Guillou.f90 File Reference

Go to the source code of this file.

Data Types

type  guillou::ivar_type
 

Modules

module  guillou
 

Functions/Subroutines

subroutine, public guillou::guillou_ocean_permittivity (Temperature, Salinity, Frequency, Permittivity, iVar)
 
subroutine, public guillou::guillou_ocean_permittivity_tl (Temperature_TL, Salinity_TL, Frequency, Permittivity_TL, iVar)
 
subroutine, public guillou::guillou_ocean_permittivity_ad (Permittivity_AD, Frequency, Temperature_AD, Salinity_AD, iVar)
 

Variables

character(*), parameter guillou::module_version_id = '$Id: Guillou.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $'
 
real(fp), parameter guillou::zero = 0.0_fp
 
real(fp), parameter guillou::point5 = 0.5_fp
 
real(fp), parameter guillou::one = 1.0_fp
 
real(fp), parameter guillou::two = 2.0_fp
 
real(fp), parameter guillou::three = 3.0_fp
 
real(fp), parameter guillou::four = 4.0_fp
 
real(fp), parameter guillou::five = 5.0_fp
 
real(fp), parameter guillou::twopi = TWO*PI
 
real(fp), parameter guillou::ps_to_s = 1.0e-12_fp
 
real(fp), parameter guillou::ghz_to_hz = 1.0e+09_fp
 
real(fp), parameter guillou::scale_factor = PS_TO_S * GHZ_TO_HZ
 
real(fp), dimension(0:2), parameter guillou::d1_coeff = (/ 0.086374_fp, 0.030606_fp, -0.0004121_fp /)
 
real(fp), dimension(0:2), parameter guillou::d2_coeff = (/ 0.077454_fp, 0.001687_fp, 0.00001937_fp /)
 
real(fp), dimension(0:5), parameter guillou::a1_coeff = (/ 81.820_fp, -6.0503E-02_fp, -3.1661E-02_fp, 3.1097E-03_fp, -1.1791E-04_fp, 1.4838E-06_fp /)
 
real(fp), dimension(0:5), parameter guillou::a2_coeff = (/ 0.12544_fp, 9.4037E-03_fp, -9.5551E-04_fp, 9.0888E-05_fp, -3.6011E-06_fp, 4.7130E-08_fp /)
 
real(fp), dimension(0:5), parameter guillou::b1_coeff = (/ 6.4587_fp , -0.04203_fp , -0.0065881_fp , 0.00064924_fp, -1.2328E-05_fp, 5.0433E-08_fp /)
 
real(fp), dimension(0:5), parameter guillou::c1_coeff = (/ 17.303_fp , -0.66651_fp , 5.1482E-03_fp, 1.2145E-03_fp, -5.0325E-05_fp, 5.8272E-07_fp /)
 
real(fp), dimension(0:5), parameter guillou::c2_coeff = (/-6.272E-03_fp , 2.357E-04_fp , 5.075E-04_fp , -6.3983E-05_fp, 2.463E-06_fp , -3.0676E-08_fp /)