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

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

Location:
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/cosp_read_otputkeys.F90

    r3270 r3348  
    282282    close(10)
    283283  ENDIF
     284
     285!$OMP BARRIER
    284286 
    285287  CALL bcast(Lradar_sim)
     
    365367  CALL bcast(LprofSR)           !TIBO
    366368  CALL bcast(Lproftemp)         !TIBO
    367 
    368 !$OMP BARRIER
    369369
    370370!  print*,' Cles sorties cosp :'
     
    756756#ifdef CPP_XIOS
    757757
    758  logical, save :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
     758 logical :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
    759759             Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
    760760             LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
     
    775775             LprofSR,Lproftemp
    776776       
    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 
    796777  character(len=32) :: out_list(N_OUT_LIST)
    797778
     
    10621043
    10631044  ENDIF !   (is_master)
     1045
     1046!$OMP BARRIER
    10641047
    10651048  CALL bcast(Lradar_sim)
     
    11461129  CALL bcast(Lproftemp)         !TIBO
    11471130
    1148 !$OMP BARRIER
    11491131
    11501132    if (Lmodis_sim) Lisccp_sim = .true.
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/phys_cosp.F90

    r3335 r3348  
    408408      CLOSE(10)
    409409    ENDIF
     410!$OMP BARRIER
     411
    410412    CALL bcast(overlap)
    411413    CALL bcast(isccp_topheight)
     
    440442    CALL bcast(n2o)
    441443    CALL bcast(co)
    442 !$OMP BARRIER 
    443444  END SUBROUTINE read_cosp_input
    444445
Note: See TracChangeset for help on using the changeset viewer.