diff --git a/Source/radi.f90 b/Source/radi.f90
index a342e288794..52010cf4ef0 100644
--- a/Source/radi.f90
+++ b/Source/radi.f90
@@ -3292,9 +3292,9 @@ SUBROUTINE INIT_RADIATION
                   END SELECT
                   CALL SUB_RADCAL(AMEAN,AP0,RADIANCE,TRANSMISSIVITY)
                   IF (PATH_LENGTH > 0.0_EB) THEN
-                     RADCAL_SPECIES2KAPPA(NS,J,K,1) = MIN(AMEAN,AP0)/BBF
+                     RADCAL_SPECIES2KAPPA(NS,J,K,IBND) = MIN(AMEAN,AP0)/BBF
                   ELSE ! zero path length
-                     RADCAL_SPECIES2KAPPA(NS,J,K,1) = AP0/BBF
+                     RADCAL_SPECIES2KAPPA(NS,J,K,IBND) = AP0/BBF
                   ENDIF
                END DO RADCAL_SPECIES_LOOP
             ENDDO Y_LOOP_Z