Resolve "Floating invalid in p4zopt.f90 without RGB traqsr"

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