Changeset 4018 for trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90

Timestamp:

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

Author:

aslmd

Message:

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

File:

• trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90 (modified) (2 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