Changeset 4008 for trunk/LMDZ.MARS/libf/phymars/read_dust_scenario_mod.F90

Timestamp:

Jan 14, 2026, 8:30:16 PM (11 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/read_dust_scenario_mod.F90 (modified) (4 diffs)

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

@@ -14 +14 @@
 use dust_param_mod, only: odpref, dustscaling_mode
 use planete_h, only: year_day
+#ifndef MESOSCALE
 USE mod_phys_lmdz_transfert_para, ONLY: bcast
+#endif
 use callkeys_mod, only: iaervar, dustinjection, swrtype
 
@@ -124 +126 @@
 !$OMP END MASTER
 
+#ifndef MESOSCALE
    call bcast(lonlen)
    call bcast(latlen)
    call bcast(timelen)
+#endif
 
    if (.not.allocated(tautes)) allocate(tautes(lonlen,latlen,timelen))
@@ -200 +204 @@
 !$OMP END MASTER
 
+#ifndef MESOSCALE
    call bcast(tautes)
    call bcast(time)
@@ -205 +210 @@
    call bcast(lon)
    call bcast(IRscenario)
-
+#endif
 endif ! of if (firstcall)