Changeset 1026 for trunk/LMDZ.GENERIC/libf/phystd/iniaerosol.F

Timestamp:

Aug 30, 2013, 4:00:31 PM (11 years ago)

Author:

sglmd

Message:

Added a flexible, 2-layer aerosol scenario (initially for Saturn, but can be simply tuned). Called aeroback2lay.

File:

• trunk/LMDZ.GENERIC/libf/phystd/iniaerosol.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/iniaerosol.F

@@ -12 +12 @@
 c   (CO2 aerosols, dust, water, chemical species, ice...)   
 c
-c   author: Laura Kerber
+c   author: Laura Kerber, S. Guerlet
 c   ------
 c        
@@ -46 +46 @@
       write(*,*) '--- H2SO4 aerosol = ', iaero_h2so4
       
+      if (aeroback2lay) then
+         ia=ia+1
+         iaero_back2lay=ia
+         !! define aerosols parameters (should be in a .def?)
+         !! Saturn: Roman et al. Icarus 2013 2-layer scenario (ISS observations)
+         obs_tau_col_tropo=8.D0       !! observed total optical depth in the tropospheric layer (visible)
+         obs_tau_col_strato=0.08D0    !! observed total optical depth in the stratospheric layer (visible)
+         pres_bottom_tropo= 66000.0   !! In Pa !   
+         pres_top_tropo= 18000.0      !! In Pa
+         pres_bottom_strato= 10000.0  !! In Pa
+         pres_top_strato= 100.0       !! In Pa
+         size_tropo=2.e-6     !! particle size in the tropospheric layer, in meters
+         size_strato=1.e-7    !! particle size in the stratospheric layer
+      endif
+      write(*,*) '--- Two-layer aerosol = ', iaero_back2lay
+
+      
       write(*,*) '=== Number of aerosols= ', ia