Added analytic_sol_del221_whole_atmos_f569_r4

Author: bgin

Radiolocation/GMS_emw_refraction.f90

@@ -5227,4 +5227,68 @@ elemental function analytic_sol_del1_whole_atmos_f555_r4(fc,Nmf,delnA,z0,H10,Hc0
             del1   = del11+del12 
        end function analytic_sol_del1_whole_atmos_f555_r4
 
+       elemental function analytic_sol_del1_whole_atmos_f555_r8(fc,Nmf,delnA,z0,H10,Hc0,beta,d) result(del1)
+if defined(__INTEL_COMPILER) && !defined(__GNUC__)           
+            !dir$ optimize:3
+            !dir$ attributes code_align : 32 :: analytic_sol_del1_whole_atmos_f555_r8
+            !dir$ attributes forceinline :: analytic_sol_del1_whole_atmos_f555_r8
+#endif 
+
+            real(kind=dp),   intent(in) :: fc 
+            real(kind=dp),   intent(in) :: Nmf 
+            real(kind=dp),   intent(in) :: delnA 
+            real(kind=dp),   intent(in) :: z0 
+            real(kind=dp),   intent(in) :: H10 
+            real(kind=dp),   intent(in) :: Hc0 
+            real(kind=dp),   intent(in) :: beta 
+            real(kind=dp),   intent(in) :: d 
+            real(kind=dp)               :: del1 
+            real(kind=dp),   automatic  :: del11, del12 
+            del11  = analytic_sol_del11_whole_atmos_f559_r8(delnA,z0,H10,Hc0,beta)
+            del12  = analytic_sol_del12_whole_atmos_f560_r8(fc,Nmf,z0,H10,Hc0,beta,d)
+            del1   = del11+del12 
+       end function analytic_sol_del1_whole_atmos_f555_r8
+
+       !Formula: 5.69, page: 108
+       elemental function analytic_sol_del221_whole_atmos_f569_r4(fc,Nmf,z0,H10,Hc0,beta,d) result(del221)
+if defined(__INTEL_COMPILER) && !defined(__GNUC__)           
+            !dir$ optimize:3
+            !dir$ attributes code_align : 32 :: analytic_sol_del221_whole_atmos_f569_r4
+            !dir$ attributes forceinline :: analytic_sol_del221_whole_atmos_f569_r4
+#endif 
+!$omp declare simd(analytic_sol_del221_whole_atmos_f569_r4) 
+            real(kind=sp),   intent(in) :: fc 
+            real(kind=sp),   intent(in) :: Nmf 
+            real(kind=sp),   intent(in) :: z0 
+            real(kind=sp),   intent(in) :: H10 
+            real(kind=sp),   intent(in) :: Hc0 
+            real(kind=sp),   intent(in) :: beta 
+            real(kind=sp),   intent(in) :: d 
+            real(kind=sp)               :: del12 
+            real(kind=sp),   automatic  :: delnM, HHc0
+            real(kind=sp),   automatic  :: HH10, ctgz0, scosz0 
+            real(kind=sp),   automatic  :: rat1, rat2 
+            real(kind=sp),   automatic  :: rat3, rat4 
+            real(kind=sp),   automatic  :: t0, t1 
+            real(kind=sp),   automatic  :: trm1, trm2 
+            real(kind=sp),   automatic  :: trm3, trm4  
+            HH10  = H10*H10 
+            delnM = compute_delnM_f414_r4(fc,Nmf)
+            ctgz0 = 1.0_sp/tan(z0)
+            t0    = cos(z0)
+            scosz0= t0*t0 
+            rat1  = (Hc0-H10)/d 
+            HHc0  = Hc0*Hc0 
+            rat2  = 1.0_sp+(H10/d)
+            rat3  = 1.0_sp+(H10/Hc0)
+            t0    = HHc0+Hc0*H10+HH10 
+            rat4  = 1.0_sp+((Hc0+H10)/d)
+            t1    = 2.0_sp/(3.0_sp*Hc0*d)
+            trm1  = -delnM*(ctgz0/scosz0)*rat1
+            trm2  = 2.0_sp*rat1 
+            trm3  = rat3*rat4 
+            trm4  = t1*t0 
+            del12 = trm1*trm2-trm3+trm4 
+       end function analytic_sol_del221_whole_atmos_f569_r4
+
 end module emw_refraction