Changeset 3347 for LMDZ6/trunk


Ignore:
Timestamp:
Jun 26, 2018, 11:12:19 AM (6 years ago)
Author:
idelkadi
Message:

Correction de la gestion des cles logiques de sorties COSP (en mode OpenMP)

Location:
LMDZ6/trunk/libf/phylmd/cosp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/cosp/cosp_read_otputkeys.F90

    r3269 r3347  
    282282    close(10)
    283283  ENDIF
     284!$OMP BARRIER
    284285 
    285286  CALL bcast(Lradar_sim)
     
    365366  CALL bcast(LprofSR)           !TIBO
    366367  CALL bcast(Lproftemp)         !TIBO
    367 
    368 !$OMP BARRIER
    369368
    370369!  print*,' Cles sorties cosp :'
     
    756755#ifdef CPP_XIOS
    757756
    758  logical, save :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
     757 logical :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
    759758             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
    760759             LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
     
    775774             LprofSR,Lproftemp
    776775       
    777 !!$OMP THREADPRIVATE(Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim)
    778 !!$OMP THREADPRIVATE(Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94)
    779 !!$OMP THREADPRIVATE(LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso)
    780 !!$OMP THREADPRIVATE(Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp,Lcltisccp)
    781 !!$OMP THREADPRIVATE(Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun)
    782 !!$OMP THREADPRIVATE(Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun)
    783 !!$OMP THREADPRIVATE(Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun)
    784 !!$OMP THREADPRIVATE(Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun)
    785 !!$OMP THREADPRIVATE(Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun)
    786 !!$OMP THREADPRIVATE(Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun)
    787 !!$OMP THREADPRIVATE(Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp)
    788 !!$OMP THREADPRIVATE(Lfracout,LlidarBetaMol532,Ltbrttov)
    789 !!$OMP THREADPRIVATE(Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis)
    790 !!$OMP THREADPRIVATE(Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis)
    791 !!$OMP THREADPRIVATE(Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis)
    792 !!$OMP THREADPRIVATE(Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis,Lclopaquecalipso,Lclthincalipso)
    793 !!$OMP THREADPRIVATE(Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin,Lclcalipsozopaque,Lclcalipsoopacity)
    794 !!$OMP THREADPRIVATE(LprofSR,Lproftemp)
    795 
    796776  character(len=32) :: out_list(N_OUT_LIST)
    797777
     
    10621042
    10631043  ENDIF !   (is_master)
     1044!$OMP BARRIER
    10641045
    10651046  CALL bcast(Lradar_sim)
     
    11461127  CALL bcast(Lproftemp)         !TIBO
    11471128
    1148 !$OMP BARRIER
    1149 
    11501129    if (Lmodis_sim) Lisccp_sim = .true.
    11511130    if ((Lradar_sim).or.(Llidar_sim).or.(Lisccp_sim)) Lstats = .true.
  • LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90

    r3308 r3347  
    343343
    344344!+++++++++++++ Open output files and define output files axis !+++++++++++++
    345 !    if (debut_cosp) then
     345    if (debut_cosp) then
    346346
    347347      !$OMP MASTER
     
    353353      !$OMP BARRIER
    354354        debut_cosp=.false.
    355 !      endif ! debut_cosp
     355      endif ! debut_cosp
    356356!    else
    357357!+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     
    408408      CLOSE(10)
    409409    ENDIF
     410!$OMP BARRIER
    410411    CALL bcast(overlap)
    411412    CALL bcast(isccp_topheight)
     
    440441    CALL bcast(n2o)
    441442    CALL bcast(co)
    442 !$OMP BARRIER 
     443
    443444  END SUBROUTINE read_cosp_input
    444445
Note: See TracChangeset for help on using the changeset viewer.