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

Timestamp:

Oct 2, 2016, 6:55:08 PM (8 years ago)

Author:

oboucher

Message:

I introduced flag_bc_internal_mixture for BC/sulphate internal mixture.
Only works for iflag_rrtm=y, NSW=6 and flag_aerosol=6 or aerosol_couple.
It has no impact at the moment as LUT for aerosol properties will have to
be changed. But the plumbing work is already done....

File:

• LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90 (modified) (2 diffs)

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

@@ -111 +111 @@
   INTEGER :: flag_aerosol
   INTEGER :: flag_aerosol_strat
+  LOGICAL :: flag_bc_internal_mixture
   LOGICAL :: new_aod
   REAL    :: bl95_b0, bl95_b1
@@ -131 +132 @@
                    ok_ade, ok_aie, ok_cdnc, aerosol_couple,             &
                    flag_aerosol, flag_aerosol_strat, new_aod,           &
-                   bl95_b0, bl95_b1,                                    &
+                   flag_bc_internal_mixture, bl95_b0, bl95_b1,          &
                    read_climoz,                                         &
                    alp_offset)