From 9a698faf64816e29c547e8f5f2aa1393ef4e4954 Mon Sep 17 00:00:00 2001 From: Chandan Paul Date: Thu, 2 Jul 2026 12:12:40 -0400 Subject: [PATCH] FDS Source: Minor fix --- Source/radi.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Source/radi.f90 b/Source/radi.f90 index d2803e3b3e..c379b154b5 100644 --- a/Source/radi.f90 +++ b/Source/radi.f90 @@ -4807,8 +4807,8 @@ SUBROUTINE RADIATION_FVM IN => INITIALIZATION(LP%INIT_INDEX) IF (ANY(IN%ORIENTATION_RAMP_INDEX > 0)) THEN IS_PARTICLE_ORIENTATION_RAMP = .TRUE. + CALL CALC_PARTICLE_TEMP_ORIENTATION(T,IN%ORIENTATION_RAMP_INDEX(1:3),TEMP_ORIENTATION) DO N=1,NRA - CALL CALC_PARTICLE_TEMP_ORIENTATION(T,IN%ORIENTATION_RAMP_INDEX(1:3),TEMP_ORIENTATION) COS_DLO_ARR(N) = DOT_PRODUCT(TEMP_ORIENTATION(1:3),DLANG(1:3,N)) ENDDO ENDIF