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