source: LMDZ6/branches/Amaury_dev/libf/phylmd/perturb_radlwsw.F90 @ 5099

Last change on this file since 5099 was 5099, checked in by abarral, 2 months ago

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line
File size: 641 bytes
RevLine 
[2328]1      SUBROUTINE perturb_radlwsw(zxtsol,iflag_radia)
[5099]2
[2328]3!Case-specific radiative setup
[5099]4
[2328]5      use dimphy
6      IMPLICIT none
7      INCLUDE "flux_arp.h"     
[5099]8
[2328]9! Arguments :
10!------------
11      REAL,DIMENSION(klon), INTENT(INOUT) :: zxtsol
12      INTEGER, INTENT(IN)                 :: iflag_radia
[5099]13
[2328]14!======================================================================
[5099]15
[2328]16      IF (iflag_radia == 2) THEN
[5099]17
[2328]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
[5099]21
[2328]22        zxtsol(:) =  tg
23      ENDIF
[5099]24
[2328]25      RETURN
26      END
27
Note: See TracBrowser for help on using the repository browser.