Changeset 1677 for trunk/LMDZ.GENERIC/libf/phystd/callkeys_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/callkeys_mod.F90 (modified) (2 diffs)

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

@@ -42 +42 @@
       logical,save :: aeroco2,aeroh2o,aeroh2so4,aeroback2lay
 !$OMP THREADPRIVATE(aeroco2,aeroh2o,aeroh2so4,aeroback2lay)
+      logical,save :: aeronh3, aeroaurora
+!$OMP THREADPRIVATE(aeronh3,aeroaurora)
       logical,save :: aerofixco2,aerofixh2o
 !$OMP THREADPRIVATE(aerofixco2,aerofixh2o)
@@ -84 +86 @@
       real,save :: n2mixratio
 !$OMP THREADPRIVATE(size_tropo,size_strato,satval,CLFfixval,n2mixratio)
+      real,save :: size_nh3_cloud
+      real,save :: pres_nh3_cloud
+      real,save :: tau_nh3_cloud
+!$OMP THREADPRIVATE(size_nh3_cloud, pres_nh3_cloud, tau_nh3_cloud)
       real,save :: co2supsat
       real,save :: pceil