diff --git a/src/OCE/TRA/traqsr.F90 b/src/OCE/TRA/traqsr.F90
index 2d5c474ef468f8a555d2e2ea29ff9ee92a71af09..6db9892b78688d49b8350055519543e536756893 100644
--- a/src/OCE/TRA/traqsr.F90
+++ b/src/OCE/TRA/traqsr.F90
@@ -156,7 +156,7 @@ CONTAINS
          END_3D
       ENDIF
 #endif
-      
+
       !                       !----------------------------!
       SELECT CASE( nqsr )     !  qsr induced heat content  !
       !                       !----------------------------!
@@ -882,6 +882,8 @@ CONTAINS
       CASE( np_2BD )                   !==  2 bands light attenuation (IR+ visible light) ==!
          !
          !
+         IF( lk_top ) CALL trc_oce_rgb( rkrgb )      ! tabulated attenuation coef.
+         !
          r1_si1 = 1._wp / rn_si1                     ! inverse of visible light attenuation
          zVlp =  ( 1._wp - rn_abs )                  ! visible light partition
          nkV  = qsr_ext_lev( rn_si1, zVlp )          ! level of visible light extinction