Changeset 5400 for LMDZ6


Ignore:
Timestamp:
Dec 10, 2024, 11:35:28 AM (6 days ago)
Author:
evignon
Message:

ajout de omp threadprivate manquants

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

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/climb_hq_mod.f90

    r5296 r5400  
    347347!****************************************************************************************
    348348    LOGICAL, SAVE                            :: last=.FALSE.
     349!$OMP THREADPRIVATE(last)
    349350    REAL, DIMENSION(klon,klev)               :: h_new, q_new
    350351    REAL, DIMENSION(klon)                    :: psref         

  • LMDZ6/trunk/libf/phylmd/climb_qbs_mod.f90

    r5296 r5400  
    276276!****************************************************************************************
    277277    LOGICAL, SAVE                            :: last=.FALSE.
     278!$OMP THREADPRIVATE(last)
    278279    REAL, DIMENSION(klon,klev)               :: qbs_new
    279280    REAL, DIMENSION(klon)                    :: psref         

  • LMDZ6/trunk/libf/phylmd/conema3.f90

    r5285 r5400  
    142142  ! ym      real emMke(klev)
    143143  REAL, ALLOCATABLE, SAVE :: emmke(:)
    144   !$OMP THREADPRIVATE(emMke)
     144  !$OMP THREADPRIVATE(emmke)
    145145  ! ym      save emMke
    146146  REAL top
    … …  
    148148  ! ym      real emMa(klev)
    149149  REAL, ALLOCATABLE, SAVE :: emma(:)
    150   !$OMP THREADPRIVATE(emMa)
     150  !$OMP THREADPRIVATE(emma)
    151151  ! ym      save emMa
    152152  REAL ma(klon, klev)

  • LMDZ6/trunk/libf/phylmd/lmdz_blowing_snow_ini.f90

    r5268 r5400  
    1111   !$OMP THREADPRIVATE(coef_sub_bs, fallv_bs, r_bs, zeta_bs, c_esalt_bs)
    1212   !$OMP THREADPRIVATE(pbst_bs, prt_bs, qbst_bs)
    13    !$OMP THREADPRIVATE(iflag_sedim_bs, iflag_sublim_bs)
     13   !$OMP THREADPRIVATE(iflag_saltation_bs,iflag_sedim_bs, iflag_sublim_bs)
    1414
    1515   real, save, protected :: tbsmelt=278.15    ! parameter to calculate melting fraction of BS sedimentation

  • LMDZ6/trunk/libf/phylmd/lmdz_cloud_optics_prop.f90

    r5268 r5400  
    116116
    117117  LOGICAL, SAVE :: first = .TRUE.
    118   !$OMP THREADPRIVATE(FIRST)
     118  !$OMP THREADPRIVATE(first)
    119119  INTEGER flag_max
    120120

  • LMDZ6/trunk/libf/phylmd/lmdz_cloud_optics_prop_ini.f90

    r5268 r5400  
    3434!$OMP THREADPRIVATE(prt_level, lunout, flag_aerosol, iflag_t_glace)
    3535!$OMP THREADPRIVATE(iflag_rei, novlp, iflag_ice_thermo) 
    36 !$OMP THREADPRIVATE(ok_cdnc, ok_icefra_lscp)
     36!$OMP THREADPRIVATE(ok_cdnc, ok_icefra_lscp, ok_new_lscp)
    3737!$OMP THREADPRIVATE(bl95_b0, bl95_b1, cdnc_max, cdnc_max_m3)
    3838!$OMP THREADPRIVATE(cdnc_min, cdnc_min_m3, rpi, rg, rd)

  • LMDZ6/trunk/libf/phylmd/lmdz_ratqs_ini.f90

    r5278 r5400  
    1919!$OMP THREADPRIVATE(var_conv)
    2020
    21 !$OMP THREADPRIVATE(a_ratqs_cv,tau_var,fac_tau,tau_cumul,a_ratqs_wake)
     21!$OMP THREADPRIVATE(nbsrf,is_lic,is_ter,RG,RV,RD,RCPD,RLSTT,RLVTT,RTT)
     22!$OMP THREADPRIVATE(a_ratqs_cv,tau_var,fac_tau,tau_cumul,a_ratqs_wake,dqimpl)
    2223
    2324

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_ini.f90

    r5268 r5400  
    1010
    1111!$OMP THREADPRIVATE(dvdq,dqimpl,prt_level,lunout)
    12 !$OMP THREADPRIVATE(RG,RD,RCPD,RKAPPA,RLVTT,RLvCp)
     12!$OMP THREADPRIVATE(RG,RD,RCPD,RKAPPA,RLVTT,RLvCp,RETV)
    1313
    1414

  • LMDZ6/trunk/libf/phylmd/lmdz_wake.f90

    r5268 r5400  
    24652465
    24662466INTEGER, SAVE :: ipas=0
     2467!$OMP THREADPRIVATE(ipas)
    24672468
    24682469
    … …  
    26852686    DO k = 1,klev
    26862687       DO i =1, klon
    2687 !         print*,ipas,'yyy ',k,int_dth(i,k),frac_int_dth(i)
    26882688          IF (wk_active(i)) THEN
    26892689            IF (int_dth(i,k)>=frac_int_dth(i)) THEN

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

    r5181 r5400  
    2727!>jyg
    2828  REAL, SAVE, PROTECTED                                       :: crep_upper, crep_sol 
    29   !$OMP THREADPRIVATE(stark, wdens_ref, coefgw, alpk, wk_pupper, crep_upper, crep_sol)
     29  !$OMP THREADPRIVATE(prt_level,stark, wdens_ref, coefgw, alpk, wk_pupper, crep_upper, crep_sol)
    3030
    3131  REAL, SAVE, PROTECTED                                       :: tau_cv

  • LMDZ6/trunk/libf/phylmd/phys_output_var_mod.f90

    r5282 r5400  
    5555  REAL, SAVE, ALLOCATABLE :: map_prop_hc(:),map_prop_hist(:),alt_tropo(:)
    5656  !$OMP THREADPRIVATE(map_prop_hc,map_prop_hist,alt_tropo)
    57   REAL, SAVE, ALLOCATABLE :: map_emis_hc(:),map_iwp_hc(:),map_deltaz_hc(:), &
    58                        map_pcld_hc(:),map_tcld_hc(:)
     57  REAL, SAVE, ALLOCATABLE :: map_emis_hc(:),map_iwp_hc(:),map_deltaz_hc(:),map_pcld_hc(:),map_tcld_hc(:)
    5958  !$OMP THREADPRIVATE(map_emis_hc,map_iwp_hc,map_deltaz_hc,map_pcld_hc,map_tcld_hc)
    6059  REAL, SAVE, ALLOCATABLE :: map_emis_hist(:),map_iwp_hist(:),map_deltaz_hist(:),map_rad_hist(:)         

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

    r5397 r5400  
    11671167    REAL, ALLOCATABLE, SAVE :: press_edg_climoz(:) ! Edges of pressure intervals
    11681168    REAL, ALLOCATABLE, SAVE :: time_climoz(:)      ! Time vector
     1169    !$OMP THREADPRIVATE(ncid_climoz,press_cen_climoz,press_edg_climoz,time_climoz)
     1170
    11691171    CHARACTER(LEN=13), PARAMETER :: vars_climoz(2) &
    11701172                                  = ["tro3         ","tro3_daylight"]
Note: See TracChangeset for help on using the changeset viewer.