Changeset 2623 for trunk/LMDZ.COMMON/libf/dyn3dpar/planetary_operations_p.F90

Timestamp:

Feb 17, 2022, 2:29:31 PM (3 years ago)

Author:

emillour

Message:

Common dynamics:
OpenMP fix for ifort as this compiler refuses to have an OpenMP critical region which has the same symbol (name) as a known routine.
EM

File:

• trunk/LMDZ.COMMON/libf/dyn3dpar/planetary_operations_p.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3dpar/planetary_operations_p.F90

@@ -42 +42 @@
 
   ! broadcast the result to all procs
-!$OMP CRITICAL (MPI_BCAST)
+!$OMP CRITICAL (MPI)
 #ifdef CPP_MPI
   call MPI_BCAST(value,1,MPI_REAL8,0,COMM_LMDZ,ierr)
 #endif
-!$OMP END CRITICAL (MPI_BCAST)
+!$OMP END CRITICAL (MPI)
   
   end subroutine planetary_atm_mass_from_ps_p
@@ -98 +98 @@
   
   ! broadcast the result to all procs
-!$OMP CRITICAL (MPI_BCAST)
+!$OMP CRITICAL (MPI)
 #ifdef CPP_MPI
   call MPI_BCAST(amount,1,MPI_REAL8,0,COMM_LMDZ,ierr)
 #endif
-!$OMP END CRITICAL (MPI_BCAST)
+!$OMP END CRITICAL (MPI)
 
   end subroutine planetary_tracer_amount_from_mass_p