Changeset 3847 for trunk/LMDZ.MARS

Timestamp:

Jul 15, 2025, 12:05:47 PM (3 weeks ago)

Author:

jbclement

Message:

Mars PCM:
New test of incompatibility: 'activice' requires 'microphys' + Correction of a flag from 'water' to 'activice'.
JBC

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• libf/phymars/conf_phys.F (modified) (2 diffs)
• libf/phymars/physiq_mod.F (modified) (1 diff)

trunk/LMDZ.MARS/changelog.txt

@@ -4904 +4904 @@
 == 09/07/2025 == JBC
 Better error handling for reading "start1D.txt" and "profile_prescribed_h2o_vap" files.
+
+== 15/07/2025 == JBC
+New test of incompatibility: 'activice' requires 'microphys' + Correction of a flag from 'water' to 'activice'.

trunk/LMDZ.MARS/libf/phymars/conf_phys.F

@@ -763 +763 @@
            print*,'if activice is used, water should be used too'
            call abort_physic(modname,
-     &          "activeice requires water",1)
+     &          "activice requires water",1)
          endif
 
@@ -888 +888 @@
      &          "scavenging requires microphys",1)
         endif
+
+         if (activice .and. .not. microphys) then
+           print*,'if activice is used, then microphys must be used!'
+           call abort_physic(modname,
+     &          "activice requires microphys",1)
+         endif
 
 ! Instantaneous scavenging by CO2

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F

@@ -2701 +2701 @@
         fluxsurf_dir_dn_sw(ig) = 0.
        else
-            if (water) then
+            if (activice) then
              ! both water and dust contribute
             fluxsurf_dir_dn_sw(ig) = flux_1AU/dist_sol/dist_sol*mu0(ig)*