perturb_radlwsw.F90

Go to the documentation of this file.

      SUBROUTINE perturb_radlwsw(zxtsol,iflag_radia)
!
!Case-specific radiative setup
!
      use dimphy
      IMPLICIT none
      include "flux_arp.h"     
!
! 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