Ignore:
Timestamp:
Jan 17, 2025, 12:26:47 PM (5 days ago)
Author:
evignon
Message:

ajout de omp_threadprivate manquants

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

Legend:

Unmodified
Added
Removed

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

    r5338 r5483  
    350350
    351351  CHARACTER(len=10),SAVE :: planet_type="earth"
     352
     353  !$OMP THREADPRIVATE(cfname_root,cftext_root,cfunite_root)
     354  !$OMP THREADPRIVATE(cfintent_root,cfmod1_root,cfmod2_root)
     355  !$OMP THREADPRIVATE(mask_in_root,mask_out_root,planet_type)
     356
    352357
    353358!-----------------------------------------------------------------------

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

    r5268 r5483  
    1313  INTEGER,SAVE :: kflev
    1414
    15 !$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon)
     15!$OMP THREADPRIVATE(klon,kdlon,kfdia,kidia,klev,klevp1,klevm1,kflev)
    1616  REAL,save,allocatable,dimension(:) :: zmasq
    1717!$OMP THREADPRIVATE(zmasq)   

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

    r5310 r5483  
    1313  INTEGER, SAVE :: itau_iophy
    1414  LOGICAL :: check_dim = .false.
    15 
    16 !$OMP THREADPRIVATE(itau_iophy)
     15!$OMP THREADPRIVATE(io_lat,io_lon,phys_domain_id,npstn,nptabij,itau_iophy)
    1716
    1817  INTERFACE histwrite_phy
    … …  
    972971  REAL, ALLOCATABLE, DIMENSION(:) :: fieldok
    973972  logical, save :: is_active = .true.
     973!$OMP THREADPRIVATE(is_active)
    974974
    975975  IF (check_dim .AND. is_master) WRITE(lunout,*)'histwrite2d_phy for ',trim(var%name)

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

    r5268 r5483  
    44    INTEGER,SAVE :: nid_start
    55    INTEGER,SAVE :: nid_restart
    6    
    76    INTEGER,SAVE :: idim1,idim2,idim3,idim4
     7!$OMP THREADPRIVATE(nid_start,nid_restart,idim1,idim2,idim3,idim4)
     8
    89    INTEGER,PARAMETER :: length=100
    910   

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

    r5448 r5483  
    5555! Ajouts
    5656      integer, save :: ntime=0
     57      !$OMP THREADPRIVATE(ntime)
    5758      integer :: idim,varid
    5859      character (len =50):: fichnom

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

    r5310 r5483  
    139139    LOGICAL, SAVE                      :: cpl_current_omp
    140140    INTEGER, DIMENSION(klon_mpi)       :: ind_cell_glo_mpi
     141
     142    !$OMP THREADPRIVATE(cpl_current_omp)
     143
    141144
    142145!*    1. Initializations

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

    r5481 r5483  
    77  USE phys_output_write_mod, ONLY : phys_output_write
    88  REAL, DIMENSION(nfiles),SAVE :: ecrit_files
     9  !$OMP THREADPRIVATE(ecrit_files)
     10
    911
    1012! Abderrahmane 12 2007
    … …  
    139141    REAL, DIMENSION(nfiles), SAVE ::  phys_out_latmin  = [   -90.,    -90.,    -90.,    -90.,    -90.,    -90.,    -90.,    -90.,    -90.,    -90.]
    140142    REAL, DIMENSION(nfiles), SAVE ::  phys_out_latmax  = [    90.,     90.,     90.,     90.,     90.,     90.,     90.,     90.,     90.,     90.]
     143!$OMP THREADPRIVATE(phys_out_regfkey,phys_out_lonmin,phys_out_lonmax,phys_out_latmin,phys_out_latmax)
     144
    141145    REAL, DIMENSION(klev,2) :: Ahyb_bounds, Bhyb_bounds
    142146    REAL, DIMENSION(klev+1)   :: lev_index

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

    r5400 r5483  
    104104  !$OMP THREADPRIVATE(clef_files, clef_stations, lev_files,nid_files,nnid_files)
    105105  INTEGER, DIMENSION(nfiles), SAVE :: nnhorim
    106 
    107106  INTEGER, DIMENSION(nfiles), SAVE :: nhorim, nvertm
    108107  INTEGER, DIMENSION(nfiles), SAVE :: nvertap, nvertbp, nvertAlt
    109108  REAL, DIMENSION(nfiles), SAVE                :: zoutm
    110109  CHARACTER(LEN=20), DIMENSION(nfiles), SAVE   :: type_ecri
    111   !$OMP THREADPRIVATE(nnhorim, nhorim, nvertm, zoutm,type_ecri)
     110  !$OMP THREADPRIVATE(nnhorim,nhorim,nvertm,nvertap,nvertbp,nvertAlt,zoutm,type_ecri)
    112111  CHARACTER(LEN=20), DIMENSION(nfiles), SAVE  :: type_ecri_files, phys_out_filetypes
    113112  !$OMP THREADPRIVATE(type_ecri_files, phys_out_filetypes)

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

    r5480 r5483  
    10911091    CHARACTER*80 abort_message
    10921092    LOGICAL, SAVE ::  ok_sync, ok_sync_omp
    1093     !$OMP THREADPRIVATE(ok_sync)
     1093    !$OMP THREADPRIVATE(ok_sync,ok_sync_omp)
    10941094    REAL date0
    10951095

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

    r5268 r5483  
    142142  REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: upwd
    143143  REAL,DIMENSION(:,:), ALLOCATABLE,SAVE     :: dnwd
    144  
     144!$OMP THREADPRIVATE(sh,da,phi,mp,upwd,dnwd)
     145
    145146  REAL, SAVE :: dtcum
    146147  INTEGER, SAVE:: iadvtr=0

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

    r5268 r5483  
    44
    55  REAL, SAVE :: not_valid=-333.
    6  
     6!$OMP THREADPRIVATE(not_valid) 
    77  INTEGER, SAVE :: nbp_lon_src
    88!$OMP THREADPRIVATE(nbp_lon_src) 
    … …  
    1010!$OMP THREADPRIVATE(nbp_lat_src) 
    1111  REAL, ALLOCATABLE, SAVE    :: psurf_interp(:,:)
     12!$OMP THREADPRIVATE(psurf_interp) 
    1213
    1314CONTAINS
Note: See TracChangeset for help on using the changeset viewer.