Changeset 3035


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

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

Legend:

Unmodified
Added
Removed

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

    r1907 r3035  
    2424REAL RLvCp
    2525REAL, SAVE :: DDT0=.01
     26  !$OMP THREADPRIVATE(DDT0)
     27
    2628LOGICAL afaire(klon),tout_converge
    2729

  • 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

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

    r1907 r3035  
    2323logical Zsat
    2424REAL RLvCp
     25
    2526REAL, SAVE :: DDT0=.01
     27!$OMP THREADPRIVATE(DDT0)
     28
    2629LOGICAL afaire(klon),tout_converge
    2730

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

    r2952 r3035  
    117117  REAL aa(klon, klev+1), aa0, aa1
    118118  INTEGER nlay, nlev
    119   LOGICAL first
    120   INTEGER ipas
    121   SAVE first, ipas
    122   ! FH/IM     data first,ipas/.true.,0/
    123   DATA first, ipas/.FALSE., 0/
    124   !$OMP THREADPRIVATE( first,ipas)
     119
    125120  LOGICAL,SAVE :: hboville=.TRUE.
    126121  REAL,SAVE :: viscom,viscoh
    … …  
    136131  INTEGER iter
    137132  REAL dissip(klon,klev), tkeprov,tkeexp, shear(klon,klev), buoy(klon,klev)
     133  REAL :: disseff
     134
    138135  REAL,SAVE :: ric0,ric,rifc, b1, kap
    139136  !$OMP THREADPRIVATE(ric0,ric,rifc,b1,kap)
    … …  
    147144  !$OMP THREADPRIVATE(new_yamada4,yamada4_num)
    148145  REAL, SAVE :: yun,ydeux
    149   REAL :: disseff
    150146  !$OMP THREADPRIVATE(yun,ydeux)
     147
    151148  REAL frif, falpha, fsm
    152149  REAL rino(klon, klev+1), smyam(klon, klev), styam(klon, klev), &
    … …  
    225222  nlay = klev
    226223  nlev = klev + 1
    227   ipas = ipas + 1
    228224
    229225
    … …  
    725721!============================================================================
    726722
    727   first = .FALSE.
    728723  RETURN
    729724
    … …  
    978973 REAL     hlim(klon)
    979974 REAL, SAVE :: kap=0.4,kapb=0.4
     975  !$OMP THREADPRIVATE(kap,kapb)
    980976 REAL zq
    981977 REAL sq(klon), sqz(klon)
Note: See TracChangeset for help on using the changeset viewer.