Changeset 4013 for trunk/LMDZ.TITAN/libf/phytitan/optci.F90

Timestamp:

Jan 19, 2026, 2:31:03 PM (8 days ago)

Author:

debatzbr

Message:

Titan PCM: Minor merge and clean.
BBT

File:

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

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

@@ -289 +289 @@
                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, AC6H6) :
+               ! Clear column (CCN + minor ices):
                IF (CDCOLUMN == 0) THEN
                   DO iq = 2, nice
@@ -296 +296 @@
                   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, AC6H6) :
+               ! Dark column (CCN + CH4 ice + minor ices):
                ELSEIF (CDCOLUMN == 1) THEN
                   DO iq = 1, nice
@@ -313 +313 @@
                
                ! For small dropplets, opacity of nucleus dominates...
-               IF ((m3ccn + m3cld) .le. tiny(m3ccn)) THEN !no cloud !emoisan tests
+               IF ((m3ccn + m3cld) .le. tiny(m3ccn)) THEN ! No cloud
                   dtau_cld = 0.
                   ssa_cld(nw) = 0.