Changeset 5597 for LMDZ6/trunk


Ignore:
Timestamp:
Mar 27, 2025, 3:11:58 PM (2 months ago)
Author:
Laurent Fairhead
Message:

Further cleanup on THREADPRIVATE statements

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/iostart.f90

    r5483 r5597  
    22
    33PRIVATE
     4    ! WARNING the following variables, though SAVED, should not be put in a THREADPRIVATE statement
    45    INTEGER,SAVE :: nid_start
    56    INTEGER,SAVE :: nid_restart
    67    INTEGER,SAVE :: idim1,idim2,idim3,idim4
    7 !$OMP THREADPRIVATE(nid_start,nid_restart,idim1,idim2,idim3,idim4)
    88
    99    INTEGER,PARAMETER :: length=100

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

    r5571 r5597  
    10951095    CHARACTER*80 abort_message
    10961096    LOGICAL, SAVE ::  ok_sync, ok_sync_omp
    1097     !$OMP THREADPRIVATE(ok_sync,ok_sync_omp)
     1097    !$OMP THREADPRIVATE(ok_sync)
     1098    ! ok_sync_omp should not be in a THREADPRIVATE statement
    10981099    REAL date0
    10991100
Note: See TracChangeset for help on using the changeset viewer.