Ignore:
Timestamp:
Nov 6, 2019, 3:26:17 PM (5 years ago)
Author:
oboucher
Message:

adding a ompthreadprivate to ok_volcan

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3599 r3600  
    338338    !======================================================================
    339339    LOGICAL, SAVE :: ok_volcan ! pour activer les diagnostics volcaniques
     340    !$OMP THREADPRIVATE(ok_volcan)
    340341    LOGICAL ok_cvl  ! pour activer le nouveau driver pour convection KE
    341342    PARAMETER (ok_cvl=.TRUE.)
    342343    LOGICAL ok_gust ! pour activer l'effet des gust sur flux surface
    343344    PARAMETER (ok_gust=.FALSE.)
    344     INTEGER iflag_radia     ! active ou non le rayonnement (MPL)
    345     SAVE iflag_radia
     345    INTEGER, SAVE :: iflag_radia     ! active ou non le rayonnement (MPL)
    346346    !$OMP THREADPRIVATE(iflag_radia)
    347347    !======================================================================
Note: See TracChangeset for help on using the changeset viewer.