Changeset 3412 for LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

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/radlwsw_m.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

@@ -17 +17 @@
    cldfra, cldemi, cldtaupd,&
    ok_ade, ok_aie, flag_aerosol,&
-   flag_aerosol_strat,&
+   flag_aerosol_strat, flag_aer_feedback, &
    tau_aero, piz_aero, cg_aero,&
    tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm,& ! rajoute par OB pour RRTM
@@ -102 +102 @@
   ! flag_aerosol-input-I- aerosol flag from 0 to 6
   ! flag_aerosol_strat-input-I- use stratospheric aerosols flag (0, 1, 2)
+  ! flag_aer_feedback-input-I- activate aerosol radiative feedback (T, F)
   ! tau_ae, piz_ae, cg_ae-input-R- aerosol optical properties (calculated in aeropt.F)
   ! cldtaupi-input-R- epaisseur optique des nuages dans le visible
@@ -195 +196 @@
   INTEGER, INTENT(in)  :: flag_aerosol                                   ! takes value 0 (no aerosol) or 1 to 6 (aerosols)
   INTEGER, INTENT(in)  :: flag_aerosol_strat                             ! use stratospheric aerosols
+  LOGICAL, INTENT(in)  :: flag_aer_feedback                              ! activate aerosol radiative feedback
   REAL,    INTENT(in)  :: cldfra(KLON,KLEV), cldemi(KLON,KLEV), cldtaupd(KLON,KLEV)
   REAL,    INTENT(in)  :: tau_aero(KLON,KLEV,naero_grp,2)                        ! aerosol optical properties (see aeropt.F)
@@ -855 +857 @@
          ZTOPLWAD0AERO,ZSOLLWAD0AERO,&
          ZTOPLWAIAERO,ZSOLLWAIAERO, &
-         ok_ade, ok_aie, flag_aerosol,flag_aerosol_strat) ! flags aerosols
+         ok_ade, ok_aie, flag_aerosol,flag_aerosol_strat, flag_aer_feedback) ! flags aerosols
             
 !        print *,'RADLWSW: apres RECMWF'