Changeset 5492 for LMDZ6/trunk/libf/phylmd/phys_output_mod.F90

Timestamp:

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

Author:

Laurent Fairhead

Message:

Going back on some THREADPRIVATE declaration that seem problematic

File:

• LMDZ6/trunk/libf/phylmd/phys_output_mod.F90 (modified) (2 diffs)

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