Changeset 2340 for trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

Timestamp:

Jun 9, 2020, 11:48:45 AM (4 years ago)

Author:

jvatant

Message:

In addition to r2297, for the n-layer aerosol scheme, enables to set the particle size effective variance with aeronlay_nueff in callphys.def.
--JVO

File:

• trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/callkeys_mod.F90

@@ -117 +117 @@
       real,dimension(:),allocatable,save :: aeronlay_sclhght
       real,dimension(:),allocatable,save :: aeronlay_size
-!$OMP THREADPRIVATE(aeronlay_tauref,aeronlay_lamref,aeronlay_ptop,aeronlay_pbot,aeronlay_sclhght,aeronlay_size)
+      real,dimension(:),allocatable,save :: aeronlay_nueff
+!$OMP THREADPRIVATE(aeronlay_tauref,aeronlay_lamref,aeronlay_ptop,aeronlay_pbot,aeronlay_sclhght,aeronlay_size,aeronlay_nueff)
       real,save :: co2supsat
       real,save :: pceil