Changeset 3412 for LMDZ6/trunk/libf/phylmd/rrtm

Timestamp:

Nov 8, 2018, 10:39:16 PM (6 years ago)

Author:

oboucher

Message:

Externalizing a controlling parameter for activating aerosol radiative feedback
Need to pass the info all the way to recmwf_aero. Default is True as before.

File:

• LMDZ6/trunk/libf/phylmd/rrtm/recmwf_aero.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmd/rrtm/recmwf_aero.F90

@@ -35 +35 @@
  & PTOPLWAIAERO,PSOLLWAIAERO,&
 !..end
- & ok_ade, ok_aie, flag_aerosol,flag_aerosol_strat)
+ & ok_ade, ok_aie, flag_aerosol,flag_aerosol_strat,flag_aer_feedback)
 !--fin
 
@@ -84 +84 @@
 ! 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
@@ -214 +215 @@
 INTEGER, INTENT(in)  :: flag_aerosol           ! takes value 0 (no aerosol) or 1 to 6 (aerosols)
 LOGICAL, INTENT(in)  :: flag_aerosol_strat     ! use stratospheric aerosols
+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
@@ -298 +300 @@
 ! 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
@@ -335 +337 @@
 IBEG=KST
 IEND=KEND
+
+AEROSOLFEEDBACK_ACTIVE = flag_aer_feedback !NL: externalize aer feedback
+
 
 !*       1.    PREPARATORY WORK