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

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/suaer.F90 (modified) (3 diffs)

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

@@ -19 +19 @@
                     nsize
 use datafile_mod, only: datadir
+#ifndef MESOSCALE
 USE mod_phys_lmdz_transfert_para, ONLY: bcast
+#endif
 use callkeys_mod, only: dustrefir
 use aerave_mod, only: aerave
@@ -559 +561 @@
 !$OMP END MASTER
 
+#ifndef MESOSCALE
       call bcast(longrefvis)
       call bcast(longrefir)
@@ -573 +576 @@
       call bcast(omegaREFir)
       call bcast(nsize)
+#endif
 
 !==================================================================