Changeset 2738 for LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

Timestamp:

Jan 2, 2017, 11:24:30 PM (8 years ago)

Author:

oboucher

Message:

Swapping the order of CSSO4 and ASSO4 aerosols (and fixing an issue on aerindex). Preparing the ground for nitrate aerosols (coarse soluble, accumulation soluble, coarse insoluble). Modifying the LW aeropt routine so that it is compatible with both INCA and climatological aerosols (for dust only). Adding a new flag ok_alw for activating aerosol direct LW effect (for dust only). This change is bit comparable for flag_aerosol=6, flag_rrtm=1, NSW=6.

File:

• LMDZ5/trunk/libf/phylmd/conf_phys_m.F90 (modified) (7 diffs)

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -17 +17 @@
        iflag_cld_th, &
        iflag_ratqs,ratqsbas,ratqshaut,tau_ratqs, &
-       ok_ade, ok_aie, ok_cdnc, aerosol_couple, &
+       ok_ade, ok_aie, ok_alw, ok_cdnc, aerosol_couple, &
        flag_aerosol, flag_aerosol_strat, new_aod, &
        flag_bc_internal_mixture, bl95_b0, bl95_b1,&
@@ -61 +61 @@
     ! ok_instan:  sorties instantanees
     ! ok_ade, ok_aie: apply or not aerosol direct and indirect effects
+    ! ok_alw: activate aerosol LW effect
     ! ok_cdnc, ok cloud droplet number concentration
     ! flag_aerosol_strat : flag pour les aerosols stratos
@@ -74 +75 @@
     LOGICAL              :: ok_LES
     LOGICAL              :: callstats
-    LOGICAL              :: ok_ade, ok_aie, ok_cdnc, aerosol_couple
+    LOGICAL              :: ok_ade, ok_aie, ok_alw, ok_cdnc, aerosol_couple
     INTEGER              :: flag_aerosol
     INTEGER              :: flag_aerosol_strat
@@ -93 +94 @@
     LOGICAL, SAVE       :: ok_LES_omp   
     LOGICAL, SAVE       :: callstats_omp
-    LOGICAL, SAVE       :: ok_ade_omp, ok_aie_omp, ok_cdnc_omp, aerosol_couple_omp
+    LOGICAL, SAVE       :: ok_ade_omp, ok_aie_omp, ok_alw_omp, ok_cdnc_omp, aerosol_couple_omp
     INTEGER, SAVE       :: flag_aerosol_omp
     INTEGER, SAVE       :: flag_aerosol_strat_omp
@@ -347 +348 @@
     ok_ade_omp = .FALSE.
     CALL getin('ok_ade', ok_ade_omp)
+
+    !Config Key  = ok_alw
+    !Config Desc = Aerosol longwave effect or not?
+    !Config Def  = .FALSE.
+    !Config Help = Used in radlwsw.F
+    !
+    ok_alw_omp = .FALSE.
+    CALL getin('ok_alw', ok_alw_omp)
 
     !
@@ -2161 +2170 @@
     ok_ade = ok_ade_omp
     ok_aie = ok_aie_omp
+    ok_alw = ok_alw_omp
     ok_cdnc = ok_cdnc_omp
     aerosol_couple = aerosol_couple_omp
@@ -2468 +2478 @@
     write(lunout,*)' ok_ade = ',ok_ade
     write(lunout,*)' ok_aie = ',ok_aie
+    write(lunout,*)' ok_alw = ',ok_alw
     write(lunout,*)' aerosol_couple = ', aerosol_couple
     write(lunout,*)' flag_aerosol = ', flag_aerosol