Changeset 1353 for trunk/LMDZ.MARS/libf/phymars/suaer.F90

Timestamp:

Oct 6, 2014, 6:31:06 PM (10 years ago)

Author:

tnavarro

Message:

New option dustiropacity in callphys.def to change the reference IR opacity of dust + New output dsodust (density-scaled opacity). Without the use of this option, nothing changes for the uninformed user.

File:

• trunk/LMDZ.MARS/libf/phymars/suaer.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/suaer.F90

@@ -114 +114 @@
 !                     For dust: change readtesassim accordingly;
 !       Reference wavelength in the infrared:
-        longrefir(iaer)=9.3E-6
+        longrefir(iaer)=dustrefir
 !==================================================================
         CASE("dust_doubleq") aerkind! Two-moment scheme for dust
@@ -127 +127 @@
 !       If not equal to 0.67e-6 -> change readtesassim accordingly;
 !       Reference wavelength in the infrared:
-        longrefir(iaer)=9.3E-6
+        longrefir(iaer)=dustrefir
 !==================================================================
         CASE("dust_submicron") aerkind   ! Small dust population
@@ -139 +139 @@
 !       If not equal to 0.67e-6 -> change readtesassim accordingly;
 !       Reference wavelength in the infrared:
-        longrefir(iaer)=9.3E-6
+        longrefir(iaer)=dustrefir
 !==================================================================
         CASE("h2o_ice") aerkind             ! Water ice crystals