Skip to content

Commit dbfb524

Browse files
authored
Added refraction_angle_atmos_wvle5cm_f537_r4
1 parent 5340175 commit dbfb524

File tree

1 file changed

+39
-5
lines changed

1 file changed

+39
-5
lines changed

Radiolocation/GMS_emw_refraction.f90

+39-5
Original file line numberDiff line numberDiff line change
@@ -4117,19 +4117,53 @@ end function refraction_angle_atmos_wvle5cm_f535_r8
41174117
!При одинаковых высотах излучателя и приемника и
41184118
!ри z0 = 90°
41194119
!!Formula: 5.36, page: 101
4120-
elemental function refraction_angle_atmos_wvle5cm_f536_r4(delnA,beta,R0,thtc) result(alpha)
4120+
elemental function refraction_angle_atmos_wvle5cm_z0eq90_f536_r4(delnA,beta,R0,thtc) result(alpha)
41214121
if defined(__INTEL_COMPILER) && !defined(__GNUC__)
41224122
!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
4123+
!dir$ attributes code_align : 32 :: refraction_angle_atmos_wvle5cm_z0eq90_f536_r4
4124+
!dir$ attributes forceinline :: refraction_angle_atmos_wvle5cm_z0eq90_f536_r4
41254125
#endif
4126-
!$omp declare simd(refraction_angle_atmos_wvle5cm_f536_r4)
4126+
!$omp declare simd(refraction_angle_atmos_wvle5cm_z0eq90_f536_r4)
41274127
real(kind=sp), intent(in) :: delnA
41284128
real(kind=sp), intent(in) :: beta
41294129
real(kind=sp), intent(in) :: R0
41304130
real(kind=sp), intent(in) :: thtc
41314131
real(kind=sp) :: alpha
41324132
alpha = delnA*beta*R0*thtc
4133-
end function refraction_angle_atmos_wvle5cm_f536_r4
4133+
end function refraction_angle_atmos_wvle5cm_z0eq90_f536_r4
4134+
4135+
elemental function refraction_angle_atmos_wvle5cm_z0eq90_f536_r8(delnA,beta,R0,thtc) result(alpha)
4136+
if defined(__INTEL_COMPILER) && !defined(__GNUC__)
4137+
!dir$ optimize:3
4138+
!dir$ attributes code_align : 32 :: refraction_angle_atmos_wvle5cm_z0eq90_f536_r8
4139+
!dir$ attributes forceinline :: refraction_angle_atmos_wvle5cm_z0eq90_f536_r8
4140+
#endif
4141+
!$omp declare simd(refraction_angle_atmos_wvle5cm_z0eq90_f536_r8)
4142+
real(kind=dp), intent(in) :: delnA
4143+
real(kind=dp), intent(in) :: beta
4144+
real(kind=dp), intent(in) :: R0
4145+
real(kind=dp), intent(in) :: thtc
4146+
real(kind=dp) :: alpha
4147+
alpha = delnA*beta*R0*thtc
4148+
end function refraction_angle_atmos_wvle5cm_z0eq90_f536_r8
4149+
4150+
!Высоты излучателя и лриемнйка значительно
4151+
!отличаются друг от друга, т. е. выполняется условие
4152+
!u2 > 1 и и u1 > 1.
4153+
!Formula: 5.37, page: 101
4154+
elemental function refraction_angle_atmos_wvle5cm_f537_r4(delnA,z0) result(alpha)
4155+
if defined(__INTEL_COMPILER) && !defined(__GNUC__)
4156+
!dir$ optimize:3
4157+
!dir$ attributes code_align : 32 :: refraction_angle_atmos_wvle5cm_f537_r4
4158+
!dir$ attributes forceinline :: refraction_angle_atmos_wvle5cm_f537_r4
4159+
#endif
4160+
!$omp declare simd(refraction_angle_atmos_wvle5cm_f537_r4)
4161+
real(kind=sp), intent(in) :: delnA
4162+
real(kind=sp), intent(in) :: z0
4163+
real(kind=sp) :: alpha
4164+
real(kind=sp), automatic :: tgz0
4165+
tgz0 = tan(z0)
4166+
alpha = delNa*tgz0
4167+
end function refraction_angle_atmos_wvle5cm_f537_r4
41344168

41354169
end module emw_refraction

0 commit comments

Comments
 (0)