Skip to content

Commit 72c3a32

Browse files
authored
Added refraction_angle_atmos_wvle5cm_z0eq90_f536_r4
1 parent 9b4b429 commit 72c3a32

File tree

1 file changed

+21
-5
lines changed

1 file changed

+21
-5
lines changed

Radiolocation/GMS_emw_refraction.f90

+21-5
Original file line numberDiff line numberDiff line change
@@ -4060,7 +4060,7 @@ elemental function refraction_angle_atmos_wvle5cm_f535_r4(delnA,beta,R0,thtc,z0,
40604060
real(kind=sp), intent(in) :: Rc ! (a+Hc) distance of emmiter from the earth center.
40614061
real(kind=sp), intent(in) :: nc ! refractive index at emmiter vicinity
40624062
real(kind=sp), intent(in) :: na
4063-
real(kind=sp) :: angle
4063+
real(kind=sp) :: alpha
40644064
real(kind=sp), automatic :: p1, ctgz0, sctgz0
40654065
real(kind=sp), automatic :: sp1, rat, sqr
40664066
real(kind=sp), automatic :: t0, t1, exp1
@@ -4076,7 +4076,7 @@ elemental function refraction_angle_atmos_wvle5cm_f535_r4(delnA,beta,R0,thtc,z0,
40764076
t0 = 1.0_sp+(p1*0.5_sp)*sqrt(sp1+rat-1.0_sp)
40774077
t1 = 0.5_sp*(rat-1.0_sp)
40784078
trm2 = t0+t1
4079-
angle = trm1*trm2
4079+
alpha = trm1*trm2
40804080
end function refraction_angle_atmos_wvle5cm_f535_r4
40814081

40824082
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,
40954095
real(kind=dp), intent(in) :: Rc ! (a+Hc) distance of emmiter from the earth center.
40964096
real(kind=dp), intent(in) :: nc ! refractive index at emmiter vicinity
40974097
real(kind=dp), intent(in) :: na
4098-
real(kind=dp) :: angle
4098+
real(kind=dp) :: alpha
40994099
real(kind=dp), automatic :: p1, ctgz0, sctgz0
41004100
real(kind=dp), automatic :: sp1, rat, sqr
41014101
real(kind=dp), automatic :: t0, t1, exp1
@@ -4111,9 +4111,25 @@ elemental function refraction_angle_atmos_wvle5cm_f535_r8(delnA,beta,R0,thtc,z0,
41114111
t0 = 1.0_dp+(p1*0.5_dp)*sqrt(sp1+rat-1.0_dp)
41124112
t1 = 0.5_dp*(rat-1.0_dp)
41134113
trm2 = t0+t1
4114-
angle = trm1*trm2
4114+
alpha = trm1*trm2
41154115
end function refraction_angle_atmos_wvle5cm_f535_r8
41164116

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
41184134

41194135
end module emw_refraction

0 commit comments

Comments
 (0)