FDS: fix wide band indexing error

Author: shostikk

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