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

Last change on this file since 5185 was 5139, checked in by abarral, 5 months ago

Put nuage.h, flux_arp.h, compbl.h into modules
Move unused phylmd/ini_hist* to obsolete

File size: 732 bytes
RevLine 
[2328]1      SUBROUTINE perturb_radlwsw(zxtsol,iflag_radia)
[5099]2
[2328]3!Case-specific radiative setup
[5099]4
[5117]5      USE dimphy
[5139]6      USE lmdz_flux_arp, ONLY: fsens, flat, betaevap, ust, tg, ok_flux_surf, ok_prescr_ust, ok_prescr_beta, ok_forc_tsurf
7
[5134]8      IMPLICIT NONE
[5099]9
[2328]10! Arguments :
11!------------
12      REAL,DIMENSION(klon), INTENT(INOUT) :: zxtsol
13      INTEGER, INTENT(IN)                 :: iflag_radia
[5099]14
[2328]15!======================================================================
[5099]16
[2328]17      IF (iflag_radia == 2) THEN
[5099]18
[2328]19! Iflag_radia = 2 : DICE case :
20!               on force zxtsol=tg pour le rayonnement (MPL 20130806)
21!Sonia : Cas dice lmdz1d force en flux : on impose Tg pour imposer le LWUP
[5099]22
[2328]23        zxtsol(:) =  tg
24      ENDIF
[5099]25
[2328]26      RETURN
27      END
28
Note: See TracBrowser for help on using the repository browser.