Changeset 3525 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/rrtm/recmwf_aero.F90

Timestamp:

May 28, 2019, 2:52:20 PM (5 years ago)

Author:

Laurent Fairhead

Message:

Modifs necessaires à la version 6.0.10
OB

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/rrtm/recmwf_aero.F90 (modified) (5 diffs)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/rrtm/recmwf_aero.F90

@@ -37 +37 @@
  & PLWADAERO,& !--NL
 !..end
- & ok_ade, ok_aie, ok_volcan, flag_aerosol,flag_aerosol_strat)
+ & ok_ade, ok_aie, ok_volcan, flag_aerosol,flag_aerosol_strat,flag_aer_feedback)
 !--fin
 
@@ -87 +87 @@
 ! flag_aerosol-input-I- aerosol flag from 0 to 7
 ! flag_aerosol_strat-input-I- use stratospheric aerosols flag (T/F)
+! flag_aer_feedback-input-I- use aerosols radiative effect flag (T/F)
 ! PPIZA_NAT  : (KPROMA,KLEV,NSW); Single scattering albedo of natural aerosol
 ! PCGA_NAT   : (KPROMA,KLEV,NSW); Assymetry factor for natural aerosol
@@ -218 +219 @@
 INTEGER, INTENT(in)  :: flag_aerosol           ! takes value 0 (no aerosol) or 1 to 6 (aerosols)
 LOGICAL, INTENT(in)  :: flag_aerosol_strat     ! use stratospheric aerosols
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOPSWADAERO(KPROMA), PSOLSWADAERO(KPROMA)       ! Aerosol direct forcing at TOA and surface
+LOGICAL, INTENT(in)  :: flag_aer_feedback      ! use aerosols radiative feedback
+REAL(KIND=JPRB)   ,INTENT(out)   :: PTOPSWADAERO(KPROMA), PSOLSWADAERO(KPROMA)       ! Aerosol direct forcing at TOA and surface
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOPSWAD0AERO(KPROMA), PSOLSWAD0AERO(KPROMA)     ! Aerosol direct forcing at TOA and surface
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOPSWAIAERO(KPROMA), PSOLSWAIAERO(KPROMA)       ! ditto, indirect
@@ -305 +307 @@
 ! FALSE: fluxes use no aerosols (case 1) 
 ! to be used only for maintaining bit reproducibility with aerosol diagnostics activated
-LOGICAL :: AEROSOLFEEDBACK_ACTIVE = .TRUE.
+ LOGICAL :: AEROSOLFEEDBACK_ACTIVE ! now externalized from .def files
 
 !OB - Fluxes including aerosol effects
@@ -342 +344 @@
 IBEG=KST
 IEND=KEND
+
+AEROSOLFEEDBACK_ACTIVE = flag_aer_feedback !NL: externalize aer feedback
+
 
 !*       1.    PREPARATORY WORK