Changeset 5536 for LMDZ6/branches/contrails/libf/phylmd/phys_output_var_mod.f90

Timestamp:

Feb 12, 2025, 10:08:35 AM (7 days ago)

Author:

aborella

Message:

Revert merge with trunk

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/phys_output_var_mod.f90 (modified) (1 diff)

LMDZ6/branches/contrails/libf/phylmd/phys_output_var_mod.f90

@@ -104 +104 @@
   !$OMP THREADPRIVATE(clef_files, clef_stations, lev_files,nid_files,nnid_files)
   INTEGER, DIMENSION(nfiles), SAVE :: nnhorim
+
   INTEGER, DIMENSION(nfiles), SAVE :: nhorim, nvertm
   INTEGER, DIMENSION(nfiles), SAVE :: nvertap, nvertbp, nvertAlt
   REAL, DIMENSION(nfiles), SAVE                :: zoutm
   CHARACTER(LEN=20), DIMENSION(nfiles), SAVE   :: type_ecri
-  !$OMP THREADPRIVATE(nnhorim,nhorim,nvertm,nvertap,nvertbp,nvertAlt,zoutm,type_ecri)
+  !$OMP THREADPRIVATE(nnhorim, nhorim, nvertm, zoutm,type_ecri)
   CHARACTER(LEN=20), DIMENSION(nfiles), SAVE  :: type_ecri_files, phys_out_filetypes
   !$OMP THREADPRIVATE(type_ecri_files, phys_out_filetypes)