Changeset 5489 for LMDZ6/branches/contrails/libf/phylmd/iophy.F90

Timestamp:

Jan 17, 2025, 6:16:25 PM (13 days ago)

Author:

aborella

Message:

Merge with trunk

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/iophy.F90 (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/iophy.F90

@@ -13 +13 @@
   INTEGER, SAVE :: itau_iophy
   LOGICAL :: check_dim = .false.
-
-!$OMP THREADPRIVATE(itau_iophy)
+!$OMP THREADPRIVATE(io_lat,io_lon,phys_domain_id,npstn,nptabij,itau_iophy)
 
   INTERFACE histwrite_phy
@@ -972 +971 @@
   REAL, ALLOCATABLE, DIMENSION(:) :: fieldok
   logical, save :: is_active = .true.
+!$OMP THREADPRIVATE(is_active)
 
   IF (check_dim .AND. is_master) WRITE(lunout,*)'histwrite2d_phy for ',trim(var%name)