Changeset 2005 for trunk

Timestamp:

Oct 9, 2018, 5:23:35 PM (6 years ago)

Author:

sglmd

Message:

in a old comit, the particle size for NH3 was fixed to 1 micrometer ; now read in callphys.def

File:

• trunk/LMDZ.GENERIC/libf/phystd/radii_mod.F90 (modified) (2 diffs)

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

@@ -40 +40 @@
       use aerosol_mod, only: iaero_back2lay, iaero_co2, iaero_dust, &
                              iaero_h2o, iaero_h2so4,iaero_nh3,iaero_aurora
+      use callkeys_mod, only: size_nh3_cloud
+
       Implicit none
 
@@ -86 +88 @@
 
             if(iaer.eq.iaero_nh3)then ! Nh3 cloud
-               reffrad(1:ngrid,1:nlayer,iaer) = 1e-6
+               reffrad(1:ngrid,1:nlayer,iaer) = size_nh3_cloud
                nueffrad(1:ngrid,1:nlayer,iaer) = 0.1 
             endif
 
             if(iaer.eq.iaero_aurora)then ! Auroral aerosols
-               reffrad(1:ngrid,1:nlayer,iaer) = 3e-7
+               reffrad(1:ngrid,1:nlayer,iaer) = 3.e-7
                nueffrad(1:ngrid,1:nlayer,iaer) = 0.1 
             endif