Changeset 3412 for LMDZ6/trunk/libf/phylmd/physiq_mod.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/physiq_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1061 +1061 @@
     INTEGER, SAVE :: flag_aerosol_strat
     !$OMP THREADPRIVATE(flag_aerosol_strat)
+    !
+    !--INTERACTIVE AEROSOL FEEDBACK ON RADIATION
+    LOGICAL, SAVE :: flag_aer_feedback
+    !$OMP THREADPRIVATE(flag_aer_feedback)
+
     !c-fin STRAT AEROSOL
     !
@@ -1217 +1222 @@
             iflag_cld_th,iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs, &
             ok_ade, ok_aie, ok_alw, ok_cdnc, aerosol_couple,  chemistry_couple, &
-            flag_aerosol, flag_aerosol_strat, new_aod, &
+            flag_aerosol, flag_aerosol_strat, flag_aer_feedback, new_aod, &
             flag_bc_internal_mixture, bl95_b0, bl95_b1, &
                                 ! nv flags pour la convection et les
@@ -3882 +3887 @@
                cldfrarad, cldemirad, cldtaurad, &
                ok_ade.OR.flag_aerosol_strat.GT.0, 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, & 
@@ -3967 +3972 @@
                      cldfrarad, cldemirad, cldtaurad, &
                      ok_ade.OR.flag_aerosol_strat.GT.0, 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, &