Changeset 4018 for trunk

Timestamp:

Jan 20, 2026, 12:11:57 AM (5 days ago)

Author:

aslmd

Message:

MESOSCALE: no planetwide, no write_output, no future for meeeee

Location:

trunk/LMDZ.MARS/libf

Files:

• aeronomars/moldiff_red.F90 (modified) (2 diffs)
• phymars/soilwater.F90 (modified) (3 diffs)

trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90

@@ -13 +13 @@
 use tracer_mod, only: noms, mmol
 use geometry_mod, only: cell_area
+#ifndef MESOSCALE
 use planetwide_mod, only: planetwide_sumval
+#endif
 USE mod_phys_lmdz_para, only: is_master,bcast
 use moldiffcoeff_red_mod, only: moldiffcoeff_red
@@ -678 +680 @@
        enddo  ! ig loop         
 !       print*,'Escape flux H, H2,D (s-1)',PhiEscH,PhiEscH2,PhiEscD
+#ifndef MESOSCALE
        if (i_h.ne.1000) call planetwide_sumval(PhiauxH,PhiEscH)
        if (i_h2.ne.1000) call planetwide_sumval(PhiauxH2,PhiEscH2)
        if (i_d.ne.1000) call planetwide_sumval(PhiauxD,PhiEscD)
-
+#else
+       print*,"mesoscale: planetwide: we do not know how to do that"
+#endif
 
 end subroutine moldiff_red

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

@@ -9 +9 @@
     use surfdat_h, only: watercaptag
     use geometry_mod, only: cell_area, latitude_deg
+#ifndef MESOSCALE
     use write_output_mod, only: write_output
+#endif
 
     implicit none
@@ -1209 +1211 @@
 enddo
 
+#ifndef MESOSCALE
 if (writeoutput) then
     zalpha(1, nsoil) = 0.D0
@@ -1223 +1226 @@
     call write_output("flux_rego", 'flux of water from the regolith', 'kg/m^2', zdqsdifrego)
 endif
-
+#endif
 END