Changeset 4149 for trunk/ICOSA_LMDZ/src

Timestamp:

Mar 24, 2026, 11:42:17 AM (11 days ago)

Author:

jmauxion

Message:

Mars Dynamico:
Add missing OMP commands for array allocation.
JM

File:

• trunk/ICOSA_LMDZ/src/phymars/interface_icosa_lmdz.f90 (modified) (1 diff)

trunk/ICOSA_LMDZ/src/phymars/interface_icosa_lmdz.f90

@@ -398 +398 @@
 !!!    
    dyn_nqperes   = nqtot
+!$OMP MASTER
    allocate(dyn_nqfils(dyn_nqperes))
+!$OMP END MASTER
+!$OMP BARRIER
    dyn_nqfils(:) = 0
 !!!