SUBROUTINE perturb_radlwsw(zxtsol,iflag_radia)
!
!Case-specific radiative setup
!
USE flux_arp_mod_h
            use dimphy
      IMPLICIT none
!
! Arguments :
!------------
      REAL,DIMENSION(klon), INTENT(INOUT) :: zxtsol
      INTEGER, INTENT(IN)                 :: iflag_radia
!
!======================================================================
!
      IF (iflag_radia == 2) THEN
!
! Iflag_radia = 2 : DICE case : 
!               on force zxtsol=tg pour le rayonnement (MPL 20130806)
!Sonia : Cas dice lmdz1d force en flux : on impose Tg pour imposer le LWUP
!
        zxtsol(:) =  tg
      ENDIF
!
      RETURN
      END SUBROUTINE perturb_radlwsw