Changeset 3348

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:

• cosp_read_otputkeys.F90 (modified) (6 diffs)
• phys_cosp.F90 (modified) (2 diffs)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/cosp_read_otputkeys.F90

@@ -282 +282 @@
     close(10)
   ENDIF
+
+!$OMP BARRIER
   
   CALL bcast(Lradar_sim)
@@ -365 +367 @@
   CALL bcast(LprofSR)           !TIBO
   CALL bcast(Lproftemp)         !TIBO
-
-!$OMP BARRIER
 
 !  print*,' Cles sorties cosp :'
@@ -756 +756 @@
 #ifdef CPP_XIOS
 
- logical, save :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
+ logical :: Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim, Lstats, &
              Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94, &
              LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso, &
@@ -775 +775 @@
              LprofSR,Lproftemp
         
-!!$OMP THREADPRIVATE(Lradar_sim,Llidar_sim,Lisccp_sim,Lmodis_sim,Lmisr_sim,Lrttov_sim)
-!!$OMP THREADPRIVATE(Lalbisccp,Latb532,Lboxptopisccp,Lboxtauisccp,LcfadDbze94)
-!!$OMP THREADPRIVATE(LcfadLidarsr532,Lclcalipso2,Lclcalipso,Lclhcalipso,Lclisccp,Lcllcalipso)
-!!$OMP THREADPRIVATE(Lclmcalipso,Lcltcalipso,Lcltlidarradar,Lpctisccp,Ldbze94,Ltauisccp,Lcltisccp)
-!!$OMP THREADPRIVATE(Lclcalipsoliq,Lclcalipsoice,Lclcalipsoun)
-!!$OMP THREADPRIVATE(Lclcalipsotmp,Lclcalipsotmpliq,Lclcalipsotmpice,Lclcalipsotmpun)
-!!$OMP THREADPRIVATE(Lcltcalipsoliq,Lcltcalipsoice,Lcltcalipsoun)
-!!$OMP THREADPRIVATE(Lclhcalipsoliq,Lclhcalipsoice,Lclhcalipsoun)
-!!$OMP THREADPRIVATE(Lclmcalipsoliq,Lclmcalipsoice,Lclmcalipsoun)
-!!$OMP THREADPRIVATE(Lcllcalipsoliq,Lcllcalipsoice,Lcllcalipsoun)
-!!$OMP THREADPRIVATE(Ltoffset,LparasolRefl,LclMISR,Lmeantbisccp,Lmeantbclrisccp)
-!!$OMP THREADPRIVATE(Lfracout,LlidarBetaMol532,Ltbrttov)
-!!$OMP THREADPRIVATE(Lcltmodis,Lclwmodis,Lclimodis,Lclhmodis,Lclmmodis,Lcllmodis)
-!!$OMP THREADPRIVATE(Ltautmodis,Ltauwmodis,Ltauimodis,Ltautlogmodis)
-!!$OMP THREADPRIVATE(Ltauwlogmodis,Ltauilogmodis,Lreffclwmodis,Lreffclimodis,Lpctmodis,Llwpmodis)
-!!$OMP THREADPRIVATE(Liwpmodis,Lclmodis,Lcrimodis,Lcrlmodis,Lclopaquecalipso,Lclthincalipso)
-!!$OMP THREADPRIVATE(Lclzopaquecalipso,Lclcalipsoopaque,Lclcalipsothin,Lclcalipsozopaque,Lclcalipsoopacity)
-!!$OMP THREADPRIVATE(LprofSR,Lproftemp) 
-
   character(len=32) :: out_list(N_OUT_LIST)
 
@@ -1062 +1043 @@
 
   ENDIF !   (is_master) 
+
+!$OMP BARRIER
 
   CALL bcast(Lradar_sim)
@@ -1146 +1129 @@
   CALL bcast(Lproftemp)         !TIBO
 
-!$OMP BARRIER
 
     if (Lmodis_sim) Lisccp_sim = .true.

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/phys_cosp.F90

@@ -408 +408 @@
       CLOSE(10)
     ENDIF
+!$OMP BARRIER
+
     CALL bcast(overlap)
     CALL bcast(isccp_topheight)
@@ -440 +442 @@
     CALL bcast(n2o)
     CALL bcast(co)
-!$OMP BARRIER  
   END SUBROUTINE read_cosp_input