SUBROUTINE perturb_radlwsw(zxtsol,iflag_radia)

!Case-specific radiative setup

      USE dimphy
      USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf

      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