Changeset 5492 for LMDZ6/trunk

Timestamp:

Jan 20, 2025, 10:59:41 AM (5 weeks ago)

Author:

Laurent Fairhead

Message:

Going back on some THREADPRIVATE declaration that seem problematic

Location:

LMDZ6/trunk/libf/phylmd

Files:

• dimphy.f90 (modified) (1 diff)
• phys_output_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/dimphy.f90

@@ -13 +13 @@
   INTEGER,SAVE :: kflev
 
-!$OMP THREADPRIVATE(klon,kdlon,kfdia,kidia,klev,klevp1,klevm1,kflev)
+!$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon)
   REAL,save,allocatable,dimension(:) :: zmasq
 !$OMP THREADPRIVATE(zmasq)   

LMDZ6/trunk/libf/phylmd/phys_output_mod.F90

@@ -7 +7 @@
   USE phys_output_write_mod, ONLY : phys_output_write
   REAL, DIMENSION(nfiles),SAVE :: ecrit_files
-  !$OMP THREADPRIVATE(ecrit_files)
 
 
@@ -141 +140 @@
     REAL, DIMENSION(nfiles), SAVE ::  phys_out_latmin  = [   -90.,    -90.,    -90.,    -90.,    -90.,    -90.,    -90.,    -90.,    -90.,    -90.]
     REAL, DIMENSION(nfiles), SAVE ::  phys_out_latmax  = [    90.,     90.,     90.,     90.,     90.,     90.,     90.,     90.,     90.,     90.]
-!$OMP THREADPRIVATE(phys_out_regfkey,phys_out_lonmin,phys_out_lonmax,phys_out_latmin,phys_out_latmax)
 
     REAL, DIMENSION(klev,2) :: Ahyb_bounds, Bhyb_bounds