Changeset 3924

Timestamp:

Oct 6, 2025, 11:58:26 AM (4 weeks ago)

Author:

jmauxion

Message:

Mars PCM:
Fixing revision 3923: adding OMP_THREADPRIVATE to new save variables.
JM

Location:

trunk/LMDZ.MARS

Files:

• changelog.txt (modified) (1 diff)
• libf/phymars/writediagfi.F (modified) (4 diffs)

trunk/LMDZ.MARS/changelog.txt

@@ -4985 +4985 @@
 file is opened/closed once, thus saving significant computing time. When true,
 the opening frequency is at output frequency (required in debug mode).
+
+== 06/09/2025 == JM
+Fixing revision 3923: adding OMP_THREADPRIVATE to new save variables.

trunk/LMDZ.MARS/libf/phymars/writediagfi.F

@@ -83 +83 @@
       character(len=27),save :: prevnom='1234567890'
       character(len=27),save :: lastnom='1234567890'
-!$OMP THREADPRIVATE(zitau,firstnom)
+!$OMP THREADPRIVATE(zitau,lastzitau,firstnom,prevnom,lastnom)
 
 ! Ajouts
@@ -90 +90 @@
       integer :: idim,varid
       integer, save :: nid
+!$OMP THREADPRIVATE(nid)
       character(len=*),parameter :: fichnom="diagfi.nc"
       integer, dimension(4) :: id
@@ -290 +291 @@
             ! if the very first time to write, open
             if ((nom.eq.firstnom).and.((zitau+1)/isample.eq.1)) then
-              write(*,*) "Open NETCDF file for firstnom=", firstnom, " and zitau=", zitau
+              write(*,*) "Open NETCDF file for firstnom=", firstnom
+              write(*,*) "zitau=", zitau
               ierr=NF_OPEN(fichnom,NF_WRITE,nid) ! open once in all simu
             endif
@@ -639 +641 @@
             ! if the very last time to write, close
             if ((nom.eq.lastnom).and.(zitau.eq.lastzitau)) then
-              write(*,*) "Close NETCDF file for lastnom=",lastnom, "and zitau=", zitau
+              write(*,*) "Close NETCDF file for lastnom=",lastnom
+              write(*,*) "zitau=",zitau
               ierr = NF_CLOSE(nid) ! close once in all simu
             endif