Changeset 4008 for trunk/LMDZ.MARS/libf/phymars/conf_phys.F

Timestamp:

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

Author:

aslmd

Message:

MESOSCALE: use precompiling flags to hide instructions related to parallel computations (we consider physics as being like a 1D model without any attached dynamical core when we compile).

File:

• trunk/LMDZ.MARS/libf/phymars/conf_phys.F (modified) (4 diffs)

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

@@ -37 +37 @@
      &                          reff_driven_IRtoVIS_scenario
       use aeropacity_mod, only: iddist, topdustref
+#ifndef MESOSCALE
       USE mod_phys_lmdz_transfert_para, ONLY: bcast
+#endif
       USE paleoclimate_mod,ONLY: paleoclimate,
      &                           lag_layer, include_waterbuoyancy 
@@ -128 +130 @@
       CLOSE(99)
 !$OMP END MASTER
+#ifndef MESOSCALE
       call bcast(ierr)
+#endif
 !       ierr=0
       
@@ -1335 +1339 @@
       CLOSE(99)
 !$OMP END MASTER
+#ifndef MESOSCALE
       call bcast(ch1)
       call bcast(callemis)
@@ -1346 +1351 @@
       call bcast(callg2d)
       call bcast(semi)
+#endif
 
       END SUBROUTINE conf_phys