Changeset 5147 for LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jul 30, 2024, 6:45:33 PM (3 months ago)

Author:

Laurent Fairhead

Message:

Missing space that threw off the OMP directive leading to each thread trying to allocate the same public variables

File:

• LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

@@ -844 +844 @@
       REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: dnwd_stok
       REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: wght_stok
-      !$OMPTHREADPRIVATE(da_stok,phi_stok,mp_stok,upwd_stok,dnwd_stok,wght_stok) 
+      !$OMP THREADPRIVATE(da_stok,phi_stok,mp_stok,upwd_stok,dnwd_stok,wght_stok) 
       REAL,ALLOCATABLE,SAVE :: t_stok(:,:)   ! convection 
       REAL,ALLOCATABLE,SAVE :: sh_stok(:,:)   ! convection