Changeset 4106

Timestamp:

Mar 6, 2026, 2:38:16 PM (4 days ago)

Author:

mlefevre

Message:

Addition of the polysulfur species condensation in the Venus PCM. ML

Location:

trunk/LMDZ.VENUS/libf/phyvenus

Files:

• cloudvenus/polysulfur_condens.F (added)
• cloudvenus/polysulfur_sedim.F (added)
• phytrac_chimie.F (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/phytrac_chimie.F

@@ -456 +456 @@
          end do      ! ilon
       end if  ! detailed scheme
+
+      if (1.eq.1) then ! polysulfur condensation
+
+        call polysulfur_condens(nlev, nlon, temp, pplay,
+     $  ztrac(:,:,i_s2),ztrac(:,:,i_s3),ztrac(:,:,i_s4),ztrac(:,:,i_s8),
+     $  ztrac(:,:,i_s2con),ztrac(:,:,i_s3con),ztrac(:,:,i_s4con),   
+     $  ztrac(:,:,i_s8con))
+
+      endif       
 
 !===================================================================