Ignore:
Timestamp:
May 2, 2022, 11:26:48 AM (2 years ago)
Author:
Laurent Fairhead
Message:

Outillage de physiq_mod.F90 en directives openacc pour prendre en compte le portage de ajsec.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Portage_acc/libf/phylmd/phys_state_var_mod.F90

    r4088 r4141  
    274274      REAL,ALLOCATABLE,SAVE :: wake_deltaq(:,:)
    275275!$OMP THREADPRIVATE(wake_deltaq)
     276!$acc declare create( wake_deltat, wake_deltaq)     
    276277#ifdef ISO
    277278      REAL, ALLOCATABLE, SAVE :: wake_deltaxt(:,:,:)
    … …  
    280281      REAL,ALLOCATABLE,SAVE :: wake_s(:)
    281282!$OMP THREADPRIVATE(wake_s)
     283!$acc declare create(wake_s)     
    282284      REAL,ALLOCATABLE,SAVE :: awake_dens(:), wake_dens(:)
    283285!$OMP THREADPRIVATE(awake_dens, wake_dens)
Note: See TracChangeset for help on using the changeset viewer.