Changeset 4161 for trunk/LMDZ.MARS/libf/phymars/improvedclouds_mod.F90

Timestamp:

Apr 1, 2026, 3:17:47 PM (8 days ago)

Author:

jmauxion

Message:

Mars PCM:

• Fix improvedclouds_mod by adding a missing "else" condition on zdq.
• Add the possibility to output watercaptag in physiq_mod.
• Fix write_output to handle logical arrays with an unstructured grid.
• Update some of the utils (localtime/zrecast) to handle phisfi.

JM

File:

• trunk/LMDZ.MARS/libf/phymars/improvedclouds_mod.F90 (modified) (1 diff)

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

@@ -443 +443 @@
         IF (spenttime.ne.0) then
           zdq=(dMicetot/spenttime)!*(ptimestep-spenttime)
+        ELSE
+          ! Initialization for spenttime=0
+          zdq=zpotcond(ig,l)*((ptimestep-spenttime)/ptimestep)
         ENDIF
         zdq=abs(zdq)