Changeset 4010 for trunk

Timestamp:

Jan 14, 2026, 8:30:32 PM (10 days ago)

Author:

aslmd

Message:

MESOSCALE: setting off top flows. need planetwide which does not have sense in mesoscale.

File:

• trunk/LMDZ.MARS/libf/phymars/topmons_mod.F90 (modified) (2 diffs)

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

@@ -961 +961 @@
                           alpha_hmons,hsummit,contains_mons                                     
       use comcstfi_h,only: pi,g
+#ifndef MESOSCALE
       use planetwide_mod,only: planetwide_maxval, planetwide_minval
+#endif
       use mod_grid_phy_lmdz, only: nvertex !number of encompassing vertex
       use geometry_mod,only: longitude_deg,latitude_deg,&
@@ -1040 +1042 @@
         enddo ! of do ig=1,ngrid
 
+#ifndef MESOSCALE
         ! Compute alpha_hmons
         call planetwide_maxval(hmons,hmax)
         call planetwide_minval(hmons,hmin)
+#else
+        write(*,*) "mesoscale, setting hmin and hmax to 0."
+        write(*,*) "temporary"
+        hmin = 0.
+        hmax = 0.
+#endif
 
         ! Add a sanity check in case there is no topography: