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