Changeset 2340 for trunk/LMDZ.GENERIC/libf/phystd/radii_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/radii_mod.F90 (modified) (2 diffs)

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

@@ -38 +38 @@
       use aerosol_mod, only: iaero_back2lay, iaero_co2, iaero_dust, &
                              iaero_h2o, iaero_h2so4, iaero_nh3, iaero_nlay, iaero_aurora
-      use callkeys_mod, only: size_nh3_cloud, nlayaero, aeronlay_size
+      use callkeys_mod, only: size_nh3_cloud, nlayaero, aeronlay_size, aeronlay_nueff
 
       Implicit none
@@ -94 +94 @@
               if(iaer.eq.iaero_nlay(ia))then ! N-layer aerosols
                  reffrad(1:ngrid,1:nlayer,iaer) = aeronlay_size(ia)
-                 nueffrad(1:ngrid,1:nlayer,iaer) = 0.1 
+                 nueffrad(1:ngrid,1:nlayer,iaer) = aeronlay_nueff(ia) 
               endif
             enddo