Changeset 3497 for trunk/LMDZ.TITAN/libf/phytitan/optcv.F90

Timestamp:

Nov 7, 2024, 11:13:46 AM (2 weeks ago)

Author:

debatzbr

Message:

Add AC6H6 condensation in the microphysics

File:

• trunk/LMDZ.TITAN/libf/phytitan/optcv.F90 (modified) (3 diffs)

trunk/LMDZ.TITAN/libf/phytitan/optcv.F90

@@ -31 +31 @@
   !         --> Clean and adaptation to Titan
   !     B. de Batz de Trenquelléon (2022-2023)
-  !         --> Clean and correction to Titan
+  !         --> Clean and correction
   !         --> New optics added for Titan's clouds
   !     
@@ -313 +313 @@
                call get_haze_and_cloud_opacity(FTYPE,FTYPE,m0ccn,m3ccn,iw,dtau_ccn,ssa_ccn(nw),asf_ccn(nw))
 
-               ! Clear column (CCN, C2H2, C2H6, HCN) :
+               ! Clear column (CCN, C2H2, C2H6, HCN, AC6H6) :
                IF (CDCOLUMN == 0) THEN
                   DO iq = 2, nice
@@ -320 +320 @@
                   call get_haze_and_cloud_opacity(FTYPE,CTYPE,m0ccn,m3cld,iw,dtau_cld,ssa_cld(nw),asf_cld(nw))
                
-               ! Dark column (CCN, CH4, C2H2, C2H6, HCN) :
+               ! Dark column (CCN, CH4, C2H2, C2H6, HCN, AC6H6) :
                ELSEIF (CDCOLUMN == 1) THEN
                   DO iq = 1, nice