Ignore:
Timestamp:
Mar 7, 2025, 1:00:54 PM (5 months ago)
Author:
Laurent Fairhead
Message:

The THREADPRIVATE statements that were added in r5483 are erroneous as all variables concerned are
initialized under a OMP MASTER flag and thus not initialised for non master threads

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/iophy.F90

    r5483 r5569  
    1313  INTEGER, SAVE :: itau_iophy
    1414  LOGICAL :: check_dim = .false.
    15 !$OMP THREADPRIVATE(io_lat,io_lon,phys_domain_id,npstn,nptabij,itau_iophy)
     15!$OMP THREADPRIVATE(itau_iophy)
    1616
    1717  INTERFACE histwrite_phy
    … …  
    971971  REAL, ALLOCATABLE, DIMENSION(:) :: fieldok
    972972  logical, save :: is_active = .true.
    973 !$OMP THREADPRIVATE(is_active)
    974973
    975974  IF (check_dim .AND. is_master) WRITE(lunout,*)'histwrite2d_phy for ',trim(var%name)
Note: See TracChangeset for help on using the changeset viewer.