Changeset 4021

Timestamp:

Jan 20, 2026, 1:07:08 AM (5 days ago)

Author:

aslmd

Message:

MESOSCALE: planetwide in moldiff_MPF put into MESOSCALE precompiling flags

File:

• trunk/LMDZ.MARS/libf/aeronomars/moldiff_MPF.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/aeronomars/moldiff_MPF.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
@@ -720 +722 @@
        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*,"no planetwide in MESOSCALE"
+#endif
 !       print*,'Escape flux H, H2,D (s-1)',PhiEscH,PhiEscH2,PhiEscD