Changeset 1132 for trunk

Timestamp:

Dec 26, 2013, 6:34:40 PM (11 years ago)

Author:

sglmd

Message:

standard Saturn aerosol scenario modified

Location:

trunk/LMDZ.GENERIC/libf/phystd

Files:

• aeropacity.F90 (modified) (1 diff)
• iniaerosol.F (modified) (2 diffs)

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

@@ -381 +381 @@
              ELSEIF (pplev(ig,l) .lt. pres_top_tropo .and. pplev(ig,l) .gt. pres_bottom_strato) THEN
                expfactor=log(obs_tau_col_strato/obs_tau_col_tropo)/log(pres_bottom_strato/pres_top_tropo)
-               aerosol(ig,l,iaer)= obs_tau_col_tropo*((pplev(ig,l)/pres_top_tropo)**expfactor)*aerosol(ig,l,iaer)
+               aerosol(ig,l,iaer)= obs_tau_col_tropo*((pplev(ig,l)/pres_top_tropo)**expfactor)*aerosol(ig,l,iaer)/1.5
              !! 4. strato layer
              ELSEIF (pplev(ig,l) .le. pres_bottom_strato .and. pplev(ig,l) .gt. pres_top_strato) THEN

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

@@ -55 +55 @@
          pres_bottom_tropo= 66000.0   !! In Pa !   
          pres_top_tropo= 18000.0      !! In Pa
-         pres_bottom_strato= 10000.0  !! In Pa
+         pres_bottom_strato= 2000.0  !! In Pa
          pres_top_strato= 100.0       !! In Pa
          size_tropo=2.e-6     !! particle size in the tropospheric layer, in meters
@@ -62 +62 @@
       write(*,*) '--- Two-layer aerosol = ', iaero_back2lay
 
-      
       write(*,*) '=== Number of aerosols= ', ia