Changeset 1677 for trunk/LMDZ.GENERIC/libf/phystd/radii_mod.F90

Timestamp:

Mar 22, 2017, 4:18:23 PM (8 years ago)

Author:

sglmd

Message:

Two aerosol kinds added for giant planets: one is a compact (NH3) cloud where the opacity, particle size and bottom pressure level are taken as inputs (a scale height of 0.2 is hard-coded to simulate a compact cloud). Corresponds to option aeronh3. The other one is not generic at all and corresponds to the auroral, stratospheric aerosols observed on Jupiter...(option aeroaurora=.false. by default)

File:

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

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

@@ -39 +39 @@
       use radinc_h, only: naerkind
       use aerosol_mod, only: iaero_back2lay, iaero_co2, iaero_dust, &
-                             iaero_h2o, iaero_h2so4
+                             iaero_h2o, iaero_h2so4,iaero_nh3,iaero_aurora
       Implicit none
 
@@ -84 +84 @@
             endif
 
+
+            if(iaer.eq.iaero_nh3)then ! Nh3 cloud
+               reffrad(1:ngrid,1:nlayer,iaer) = 1e-6
+               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
+               nueffrad(1:ngrid,1:nlayer,iaer) = 0.1 
+            endif
 
 
@@ -363 +373 @@
 
 
-
 end module radii_mod
 !==================================================================