Changeset 3347 for LMDZ6/trunk/libf/phylmd/cosp

Timestamp:

Jun 26, 2018, 11:12:19 AM (7 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:

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

LMDZ6/trunk/libf/phylmd/cosp/cosp_read_otputkeys.F90

@@ -282 +282 @@
     close(10)
   ENDIF
+!$OMP BARRIER
   
   CALL bcast(Lradar_sim)
@@ -365 +366 @@
   CALL bcast(LprofSR)           !TIBO
   CALL bcast(Lproftemp)         !TIBO
-
-!$OMP BARRIER
 
 !  print*,' Cles sorties cosp :'
@@ -756 +755 @@
 #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 +774 @@
              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 +1042 @@
 
   ENDIF !   (is_master) 
+!$OMP BARRIER
 
   CALL bcast(Lradar_sim)
@@ -1146 +1127 @@
   CALL bcast(Lproftemp)         !TIBO
 
-!$OMP BARRIER
-
     if (Lmodis_sim) Lisccp_sim = .true.
     if ((Lradar_sim).or.(Llidar_sim).or.(Lisccp_sim)) Lstats = .true.

LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90

@@ -343 +343 @@
 
 !+++++++++++++ Open output files and define output files axis !+++++++++++++
-!    if (debut_cosp) then
+    if (debut_cosp) then
 
       !$OMP MASTER
@@ -353 +353 @@
       !$OMP BARRIER
         debut_cosp=.false.
-!      endif ! debut_cosp
+      endif ! debut_cosp
 !    else
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -408 +408 @@
       CLOSE(10)
     ENDIF
+!$OMP BARRIER
     CALL bcast(overlap)
     CALL bcast(isccp_topheight)
@@ -440 +441 @@
     CALL bcast(n2o)
     CALL bcast(co)
-!$OMP BARRIER  
+
   END SUBROUTINE read_cosp_input