Changeset 2612


Ignore:
Timestamp:
Jan 18, 2022, 3:37:15 PM (3 years ago)
Author:
romain.vande
Message:

LMDZ_MARS RV : Open_MP;
Put all the "COMMON" of *.h file as "$OMP THREADPRIVATE"

Location:
trunk/LMDZ.MARS
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/README

    r2611 r2612  
    35843584== 18/01/2022 == RV
    35853585Open_MP files reading for moldiff : callmoldiff = .true.
     3586
     3587== 18/01/2022 == RV
     3588Open_MP : Put all the "COMMON" of *.h file as "$OMP THREADPRIVATE"
  • trunk/LMDZ.MARS/libf/aeronomars/chimiedata.h

    r2031 r2612  
    1818      common/chimiedata/jphot,colairtab,table_ozo
    1919
     20!$OMP THREADPRIVATE(/chimiedata/)
     21
    2022      real jphot(ntemp,nsza,nz,nozo,ntau,nd)
    2123      real colairtab(nz)
  • trunk/LMDZ.MARS/libf/phymars/callkeys.h

    r2561 r2612  
    1818     &   ,latentheat_surfwater,gwd_convective_source,startphy_file      &
    1919     &   ,hdo,hdofrac,cst_cap_albedo,temp_dependant_m,refill_watercap
     20!$OMP THREADPRIVATE(/callkeys_l/)
     21
    2022     
    2123      COMMON/callkeys_i/iradia,iaervar,ilwd,ilwb,ilwn,ncouche           &
    2224     &   ,nltemodel,nircorr,solvarmod,solvaryear,dustinjection
     25!$OMP THREADPRIVATE(/callkeys_i/)
    2326     
    2427      COMMON/callkeys_r/semi,alphan,euveff,                             &
    2528     &   tke_heat_flux,dustrefir,fixed_euv_value,CLFfixval,             &
    2629     &   coeff_injection,ti_injection,tf_injection,coeff_detrainment
     30!$OMP THREADPRIVATE(/callkeys_r/)
    2731     
    2832      LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
     
    3438
    3539      COMMON/aeroutput/dustiropacity
     40!$OMP THREADPRIVATE(/aeroutput/)
    3641
    3742      logical startphy_file
  • trunk/LMDZ.MARS/libf/phymars/comg1d.h

    r38 r2612  
    4747     &             ,g2d_appel
    4848     &             ,g1d_nvar
     49!$OMP THREADPRIVATE(/COMG1DI/)
     50
    4951      COMMON/COMG1DC/g1d_dimvar(0:g1d_nvarmx)
    5052     &             ,g1d_nomfich
     
    5456     &             ,g1d_tmp1
    5557     &             ,g1d_tmp2
     58!$OMP THREADPRIVATE(/COMG1DC/)
     59
    5660      COMMON/COMG1DL/g1d_premier
    5761     &             ,g2d_premier
     62!$OMP THREADPRIVATE(/COMG1DL/)
     63
    5864c
    5965c.......................................................................
  • trunk/LMDZ.MARS/libf/phymars/microphys.h

    r2407 r2612  
    9494      COMMON/microphys/rad_cld,vo1,rad_cldco2,vo1co2
    9595                  COMMON/microphys_2/mteta
     96!$OMP THREADPRIVATE(/microphys/)
     97!$OMP THREADPRIVATE(/microphys_2/)
     98
    9699     
    97100!     EXAMPLE:
  • trunk/LMDZ.MARS/libf/phymars/nirdata.h

    r498 r2612  
    44
    55      common /NIRdata/ pres1d,corgcm,oco21d,alfa,p1999
     6!$OMP THREADPRIVATE(/NIRdata/)
    67      real    pres1d(npres)
    78      real    corgcm(npres)
  • trunk/LMDZ.MARS/libf/phymars/nlte_commons.h

    r757 r2612  
    88c
    99        common /spectralv11/ elow, deltanu
     10!$OMP THREADPRIVATE(/spectralv11/)
    1011        real elow(nisot,nb), deltanu(nisot,nb)
    1112
     
    1314        common/nu_levs_bands_v11/ nu11, nu12, nu121, 
    1415     @          nu21, nu31, nu41
     16!$OMP THREADPRIVATE(/nu_levs_bands_v11/)
    1517        real*8 nu11, nu12, nu121
    1618        real*8 nu21
     
    2022
    2123        common /aeinstein1v11/ a1_010_000, a1_020_010
    22         common /aeinstein2v11/ a2_010_000       
     24!$OMP THREADPRIVATE(/aeinstein1v11/)
     25        common /aeinstein2v11/ a2_010_000   
     26!$OMP THREADPRIVATE(/aeinstein2v11/)   
    2327        common /aeinstein3v11/ a3_010_000       
     28!$OMP THREADPRIVATE(/aeinstein3v11/)
    2429        common /aeinstein4v11/ a4_010_000       
     30!$OMP THREADPRIVATE(/aeinstein4v11/)
    2531
    2632        real*8 a1_010_000, a1_020_010
     
    3541     @          tstar11tab, tstar21tab, tstar31tab, tstar41tab,
    3642     @          vc210tab, vc310tab, vc410tab
     43!$OMP THREADPRIVATE(/input_tab_v11/)
    3744
    3845        real*8 lnpnbtab(nztabul)
     
    4552
    4653        common/input_avilable_from/ input_cza
     54!$OMP THREADPRIVATE(/input_avilable_from/)
    4755        integer input_cza
    4856
    4957c temperatura vibracional de entrada:
    5058        common/temp626/ v626t1
     59!$OMP THREADPRIVATE(/temp626/)
    5160        common/temp628/ v628t1
     61!$OMP THREADPRIVATE(/temp628/)
    5262        common/temp636/ v636t1
     63!$OMP THREADPRIVATE(/temp636/)
    5364        common/temp627/ v627t1
     65!$OMP THREADPRIVATE(/temp627/)
    5466        real*8 v626t1(nl)
    5567        real*8 v628t1(nl)
     
    5971c output de cza.for
    6072        common /tv15um/ vt11, vt12, vt21, vt31, vt41
     73!$OMP THREADPRIVATE(/tv15um/)
    6174        real*8  vt11(nl), vt12(nl), vt21(nl), vt31(nl), vt41(nl)
    6275
    6376        common /hr15um/ hr110,hr210,hr310,hr410,hr121
     77!$OMP THREADPRIVATE(/hr15um/)
    6478        real*8  hr110(nl),hr121(nl),
    6579     @          hr210(nl),hr310(nl),hr410(nl)
    6680
    6781        common/sf15um/ el11,el12, el21, el31, el41
     82!$OMP THREADPRIVATE(/sf15um/)
    6883        real*8 el11(nl), el12(nl)
    6984        real*8 el21(nl)
     
    7287
    7388        common/sl15um/ sl110,sl121, sl210,sl310,sl410
     89!$OMP THREADPRIVATE(/sl15um/)
    7490        real*8 sl110(nl), sl121(nl)
    7591        real*8 sl210(nl)
     
    85101     @          c310,c410,
    86102     @          vc110,vc121,vc210,vc310,vc410
     103!$OMP THREADPRIVATE(/curtis_matrixes_15um/)
    87104        real*8 c110(nl,nl), c121(nl,nl)
    88105        real*8 c210(nl,nl)
     
    96113        common/taustar_15um/ taustar11, taustar21, taustar31,
    97114     @         taustar41, taustar12, taustar11_cts
     115!$OMP THREADPRIVATE(/taustar_15um/)
    98116        real*8 taustar11(nl), taustar21(nl), taustar31(nl)
    99117        real*8 taustar41(nl), taustar12(nl)
     
    109127     @    co2vmr, n2vmr, covmr, o3pvmr,
    110128     @    hrkday_factor
     129!$OMP THREADPRIVATE(/atm_nl/)
    111130
    112131        real zl(nl), t(nl), pl(nl), nt(nl), 
     
    119138c
    120139        common /atm_ny/ zy, ty, py, nty, co2y
     140!$OMP THREADPRIVATE(/atm_ny/)
    121141        real zy(nzy), ty(nzy), py(nzy), nty(nzy), co2y(nzy)
    122142
     
    124144        common/deltazetas/ deltaz, deltazy, deltaz_cts, deltazy_cts,
    125145     @        jlowerboundary, jtopboundary, jtopCTS
     146!$OMP THREADPRIVATE(/deltazetas/)
    126147        real    deltaz, deltazy, deltaz_cts, deltazy_cts
    127148        integer jlowerboundary, jtopboundary, jtopCTS
     
    134155     @    co2vmr_cts, n2vmr_cts, covmr_cts, o3pvmr_cts,
    135156     @    hrkday_factor_cts,mmean_cts,cpnew_cts
     157!$OMP THREADPRIVATE(/atm_nl_cts/)
    136158
    137159        real zl_cts(nl_cts), t_cts(nl_cts), pl_cts(nl_cts),
     
    147169c
    148170        common /atm_ny_cts/ zy_cts, ty_cts, py_cts, nty_cts, co2y_cts
     171!$OMP THREADPRIVATE(/atm_ny_cts/)
    149172        real zy_cts(nzy_cts), ty_cts(nzy_cts), py_cts(nzy_cts),
    150173     @          nty_cts(nzy_cts), co2y_cts(nzy_cts)
     
    157180     @      k19ca(4),k19cb(4),k19cc(4), k19cap(4),k19cbp(4),k19ccp(4),
    158181     @      k20b(4),k20c(4), k20bp(4),k20cp(4)
     182!$OMP THREADPRIVATE(/rates_vt/)
    159183
    160184        real*8 k19ba,k19bb,k19bc, k19bap,k19bbp,k19bcp
     
    165189     @          k21b(4),k21c(4), k21bp(4),k21cp(4),
    166190     @          k33c, k33cp(2:4)
     191!$OMP THREADPRIVATE(/rates_vv/)
    167192
    168193        real*8 k21b,k21c, k21bp,k21cp
     
    171196        common/rates_last/ k23k21c, k24k21c, k34k21c,
    172197     @          k23k21cp, k24k21cp, k34k21cp
     198!$OMP THREADPRIVATE(/rates_last/)
    173199
    174200        real*8 k23k21c,k24k21c,k34k21c, k23k21cp,k24k21cp,k34k21cp
     
    179205
    180206        common /ini_file/ ibcode1
     207!$OMP THREADPRIVATE(/ini_file/)
    181208        character ibcode1*1
    182209
    183210        common/block1/ alsa,alda,ka,kr
     211!$OMP THREADPRIVATE(/block1/)
    184212        real*8 ka(nbox_max),alsa(nbox_max),alda(nbox_max)
    185         integer kr
     213        integer kr   
    186214
    187215        common/block2/ hisfile
     216!$OMP THREADPRIVATE(/block2/)
    188217        character hisfile*75
    189218
    190219        common/block3/ pp,ta,w
     220!$OMP THREADPRIVATE(/block3/)
    191221        real*8 pp,ta(nbox_max),w
    192222
    193223        common/block4/ no,sk1,xls1,xld1,thist,nbox
     224!$OMP THREADPRIVATE(/block4/)
    194225        real*8  sk1(nhist,nbox_max)
    195226        real*8  xls1(nhist,nbox_max)   
     
    200231
    201232        common/block5/eqw, aa,  cc, dd, ddbox, ccbox, mr, mr_cts
     233!$OMP THREADPRIVATE(/block5/)
    202234        real*8 eqw, aa, cc, dd
    203235        real*8 ddbox(nbox_max), ccbox(nbox_max)
     
    207239     &          xld1_stored, thist_stored, nbox_stored,
    208240     &          mm_stored
     241!$OMP THREADPRIVATE(/blockstore/)
    209242         real*8 sk1_stored(nb,nhist,nbox_max)
    210243         real*8 xls1_stored(nb,nhist,nbox_max) 
  • trunk/LMDZ.MARS/libf/phymars/yoegwd.h

    r2149 r2612  
    88      COMMON/YOEGWD/ GFRCRIT,GRCRIT,GVCRIT,GKDRAG,GKDRAGL,GHMAX         &
    99     &             ,GRAHILO,GSIGCR,NKTOPG,GSSEC, GTSEC, GVSEC,GKWAKE
     10!$OMP THREADPRIVATE(/YOEGWD/)
    1011
    1112
Note: See TracChangeset for help on using the changeset viewer.