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

Timestamp:

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

Author:

debatzbr

Message:

Titan PCM: Minor merge and clean.
BBT

File:

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

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

@@ -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, AC6H6) :
+               ! Clear column (CCN + minor ices):
                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, AC6H6) :
+               ! Dark column (CCN + CH4 ice + minor ices):
                ELSEIF (CDCOLUMN == 1) THEN
                   DO iq = 1, nice
@@ -337 +337 @@
 
                ! 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.
@@ -586 +586 @@
   !   END DO            
   !END DO                 ! end full gauss loop
-  
+
   TAUCUMV(:,:,:) = DTAUKV(:,:,:)
   DO L=1,L_NLAYRAD