Ignore:
Timestamp:
Oct 23, 2017, 9:54:11 AM (7 years ago)
Author:
fhourdin
Message:

Ajout de THREADPRIVATE (non indispensables)
Et un peu de nettoyage pour yamada4

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2311 r3035  
    4747      REAL f_old,ddd0,eee0,ddd,eee,zzz
    4848
    49       REAL fomass_max,alphamax
    50       save fomass_max,alphamax
     49      REAL,SAVE :: fomass_max=0.5
     50      REAL,SAVE :: alphamax=0.7
     51!$OMP THREADPRIVATE(fomass_max,alphamax)
    5152
    5253      logical check_debug,labort_physic
    … …  
    5556      character (len=80) :: abort_message
    5657
    57       fomass_max=0.5
    58       alphamax=0.7
    5958
    6059      ncorecfm1=0
Note: See TracChangeset for help on using the changeset viewer.