Changeset 4008 for trunk/LMDZ.MARS/libf/phymars/dustdevil.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/dustdevil.F90 (modified) (5 diffs)

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

@@ -16 +16 @@
     use surfdat_h, only: z0_default
     USE comcstfi_h, ONLY: g, cpp, r, rcp
+#ifndef MESOSCALE
     USE mod_phys_lmdz_para, ONLY: is_master, bcast
+#endif
     USE ioipsl_getin_p_mod, ONLY : getin_p
     IMPLICIT NONE
@@ -75 +77 @@
 !$OMP THREADPRIVATE(q2top,seuil)
 
+
 !-----------------------------------------------------------------------
 !    initialisation
@@ -93 +96 @@
         call abort_physic(rname,"bad dust_devil_scheme value",1)
       endif
-
+#ifndef MESOSCALE
       if(is_master) then
-
+#endif
         write(*,*) 'In dustdevil :'
         write(*,*) '    q2top= ',q2top,'     seuil= ', seuil 
@@ -108 +111 @@
 !       Temporaire
 !       open(77,file='devil')
-      
+#ifndef MESOSCALE      
       endif !is_master
 
@@ -114 +117 @@
       CALL bcast(z1)
       CALL bcast(Cd)
+#endif
 
       firstcall=.false.