Changeset 2738 for LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

Timestamp:

Jan 2, 2017, 11:24:30 PM (7 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/dynphy_lonlat/phylmd/etat0phys_netcdf.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

@@ -109 +109 @@
   INTEGER :: iflag_radia, iflag_cldcon, iflag_ratqs
   REAL    :: ratqsbas, ratqshaut, tau_ratqs
-  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
@@ -131 +131 @@
                    iflag_cldcon,                                        &
                    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,          &