@@ -4117,19 +4117,53 @@ end function refraction_angle_atmos_wvle5cm_f535_r8
4117
4117
! При одинаковых высотах излучателя и приемника и
4118
4118
! ри z0 = 90°
4119
4119
! !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)
4121
4121
if defined(__INTEL_COMPILER) && ! defined(__GNUC__)
4122
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
4123
+ ! dir$ attributes code_align : 32 :: refraction_angle_atmos_wvle5cm_z0eq90_f536_r4
4124
+ ! dir$ attributes forceinline :: refraction_angle_atmos_wvle5cm_z0eq90_f536_r4
4125
4125
#endif
4126
- ! $omp declare simd(refraction_angle_atmos_wvle5cm_f536_r4 )
4126
+ ! $omp declare simd(refraction_angle_atmos_wvle5cm_z0eq90_f536_r4 )
4127
4127
real (kind= sp), intent (in ) :: delnA
4128
4128
real (kind= sp), intent (in ) :: beta
4129
4129
real (kind= sp), intent (in ) :: R0
4130
4130
real (kind= sp), intent (in ) :: thtc
4131
4131
real (kind= sp) :: alpha
4132
4132
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
4134
4168
4135
4169
end module emw_refraction
0 commit comments