source: LMDZ6/trunk/libf/phylmd/perturb_radlwsw.F90 @ 3817

Last change on this file since 3817 was 2330, checked in by Laurent Fairhead, 9 years ago

That one as well grrrrrr

File size: 649 bytes
Line 
1      SUBROUTINE perturb_radlwsw(zxtsol,iflag_radia)
2!
3!Case-specific radiative setup
4!
5      use dimphy
6      IMPLICIT none
7      INCLUDE "flux_arp.h"     
8!
9! Arguments :
10!------------
11      REAL,DIMENSION(klon), INTENT(INOUT) :: zxtsol
12      INTEGER, INTENT(IN)                 :: iflag_radia
13!
14!======================================================================
15!
16      IF (iflag_radia == 2) THEN
17!
18! Iflag_radia = 2 : DICE case :
19!               on force zxtsol=tg pour le rayonnement (MPL 20130806)
20!Sonia : Cas dice lmdz1d force en flux : on impose Tg pour imposer le LWUP
21!
22        zxtsol(:) =  tg
23      ENDIF
24!
25      RETURN
26      END
27
Note: See TracBrowser for help on using the repository browser.