@@ -4060,7 +4060,7 @@ elemental function refraction_angle_atmos_wvle5cm_f535_r4(delnA,beta,R0,thtc,z0,
4060
4060
real (kind= sp), intent (in ) :: Rc ! (a+Hc) distance of emmiter from the earth center.
4061
4061
real (kind= sp), intent (in ) :: nc ! refractive index at emmiter vicinity
4062
4062
real (kind= sp), intent (in ) :: na
4063
- real (kind= sp) :: angle
4063
+ real (kind= sp) :: alpha
4064
4064
real (kind= sp), automatic :: p1, ctgz0, sctgz0
4065
4065
real (kind= sp), automatic :: sp1, rat, sqr
4066
4066
real (kind= sp), automatic :: t0, t1, exp1
@@ -4076,7 +4076,7 @@ elemental function refraction_angle_atmos_wvle5cm_f535_r4(delnA,beta,R0,thtc,z0,
4076
4076
t0 = 1.0_sp + (p1* 0.5_sp )* sqrt (sp1+ rat-1.0_sp )
4077
4077
t1 = 0.5_sp * (rat-1.0_sp )
4078
4078
trm2 = t0+ t1
4079
- angle = trm1* trm2
4079
+ alpha = trm1* trm2
4080
4080
end function refraction_angle_atmos_wvle5cm_f535_r4
4081
4081
4082
4082
elemental function refraction_angle_atmos_wvle5cm_f535_r8 (delnA ,beta ,R0 ,thtc ,z0 , &
@@ -4095,7 +4095,7 @@ elemental function refraction_angle_atmos_wvle5cm_f535_r8(delnA,beta,R0,thtc,z0,
4095
4095
real (kind= dp), intent (in ) :: Rc ! (a+Hc) distance of emmiter from the earth center.
4096
4096
real (kind= dp), intent (in ) :: nc ! refractive index at emmiter vicinity
4097
4097
real (kind= dp), intent (in ) :: na
4098
- real (kind= dp) :: angle
4098
+ real (kind= dp) :: alpha
4099
4099
real (kind= dp), automatic :: p1, ctgz0, sctgz0
4100
4100
real (kind= dp), automatic :: sp1, rat, sqr
4101
4101
real (kind= dp), automatic :: t0, t1, exp1
@@ -4111,9 +4111,25 @@ elemental function refraction_angle_atmos_wvle5cm_f535_r8(delnA,beta,R0,thtc,z0,
4111
4111
t0 = 1.0_dp + (p1* 0.5_dp )* sqrt (sp1+ rat-1.0_dp )
4112
4112
t1 = 0.5_dp * (rat-1.0_dp )
4113
4113
trm2 = t0+ t1
4114
- angle = trm1* trm2
4114
+ alpha = trm1* trm2
4115
4115
end function refraction_angle_atmos_wvle5cm_f535_r8
4116
4116
4117
-
4117
+ ! При одинаковых высотах излучателя и приемника и
4118
+ ! ри z0 = 90°
4119
+ ! !Formula: 5.36, page: 101
4120
+ elemental function refraction_angle_atmos_wvle5cm_f536_r4 (delnA ,beta ,R0 ,thtc ) result(alpha)
4121
+ if defined(__INTEL_COMPILER) && ! defined(__GNUC__)
4122
+ ! dir$ optimize:3
4123
+ ! dir$ attributes code_align : 32 :: refraction_angle_atmos_wvle5cm_f536_r4
4124
+ ! dir$ attributes forceinline :: refraction_angle_atmos_wvle5cm_f536_r4
4125
+ #endif
4126
+ ! $omp declare simd(refraction_angle_atmos_wvle5cm_f536_r4)
4127
+ real (kind= sp), intent (in ) :: delnA
4128
+ real (kind= sp), intent (in ) :: beta
4129
+ real (kind= sp), intent (in ) :: R0
4130
+ real (kind= sp), intent (in ) :: thtc
4131
+ real (kind= sp) :: alpha
4132
+ alpha = delnA* beta* R0* thtc
4133
+ end function refraction_angle_atmos_wvle5cm_f536_r4
4118
4134
4119
4135
end module emw_refraction
0 commit comments