|
character(*), parameter | module_version_id = '$Id: Liu.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' |
|
real(fp), parameter | zero = 0.0_fp |
|
real(fp), parameter | one = 1.0_fp |
|
real(fp), parameter | two = 2.0_fp |
|
real(fp), parameter | three = 3.0_fp |
|
real(fp), parameter | four = 4.0_fp |
|
real(fp), parameter | ghz_to_hz = 1.0e+09_fp |
|
real(fp), parameter | tau0 = TWO*PI*E0*GHZ_TO_HZ |
|
real(fp), dimension(0:1), parameter | einf_coeff = (/ 3.8_fp, 2.48033e-02_fp /) |
|
real(fp), dimension(0:3), parameter | es_t_coeff = (/ 87.9181727_fp , -4.031592248e-01_fp, 9.493088010e-04_fp, -1.930858348E-06_fp /) |
|
real(fp), dimension(0:2), parameter | es_s_coeff = (/-2.697e-03_fp, -7.3E-06_fp , -8.9E-06_fp /) |
|
real(fp), dimension(0:2), parameter | e1_t_coeff = (/ 5.723_fp , 2.2379e-02_fp, -7.1237e-04_fp /) |
|
real(fp), dimension(0:2), parameter | e1_s_coeff = (/-6.28908E-03_fp, 1.76032E-04_fp, -9.22144E-05_fp /) |
|
real(fp), dimension(0:3), parameter | tau1_t_coeff = (/ 1.124465e-01_fp , -3.9815727e-03_fp, 8.113381e-05_fp , -7.1824242e-07_fp /) |
|
real(fp), dimension(0:2), parameter | tau1_s_coeff = (/-2.39357E-03_fp, 3.1353E-05_fp , -2.52477E-07_fp /) |
|
real(fp), dimension(0:3), parameter | tau2_t_coeff = (/ 3.049979018e-03_fp, -3.010041629E-05_fp, 4.811910733E-06_fp, -4.259775841E-08_fp /) |
|
real(fp), dimension(0:2), parameter | tau2_s_coeff = (/ 1.49e-01_fp, -8.8E-04_fp , -1.05E-04_fp /) |
|
real(fp), parameter | alpha_coeff = -4.259775841E-08_fp |
|
real(fp), dimension(0:5), parameter | beta_coeff = (/ 2.033E-02_fp, 1.266E-04_fp, 2.464E-06_fp, -1.849E-05_fp, 2.551E-07_fp, -2.551E-08_fp /) |
|
real(fp), dimension(0:3), parameter | alpha25_coeff = (/ 1.82521e-01_fp, -1.46192E-03_fp, 2.09324E-05_fp, -1.28205E-07_fp /) |
|