Changeset 987 for LMDZ4/trunk/libf/phylmd/physiq.F

Timestamp:

Jul 30, 2008, 5:57:45 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Du nettoyage sur le parallelisme, inclusion de nouvelles interfaces pour OPA9
et ORCHIDEE YM
LF

File:

• LMDZ4/trunk/libf/phylmd/physiq.F (modified) (10 diffs)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -111 +111 @@
       integer iflag_radia     ! active ou non le rayonnement (MPL)
       save iflag_radia
+c$OMP THREADPRIVATE(iflag_radia)
 c======================================================================
       LOGICAL check ! Verifier la conservation du modele en eau
@@ -118 +119 @@
 c======================================================================
       LOGICAL, SAVE :: rnpb=.TRUE.
+c$OMP THREADPRIVATE(rnpb)
 cIM "slab" ocean
       REAL tslab(klon)    !Temperature du slab-ocean
@@ -247 +249 @@
      .15000., 10000., 7000., 5000., 3000., 2000., 1000./
       SAVE rlevstd
+c$OMP THREADPRIVATE(rlevstd)
       CHARACTER*4 clevSTD(nlevSTD)
       DATA clevSTD/'1000','925 ','850 ','700 ','600 ',
@@ -252 +255 @@
      .'70  ','50  ','30  ','20  ','10  '/
       SAVE clevSTD
+c$OMP THREADPRIVATE(clevSTD)
 c
       CHARACTER*4 bb2
@@ -353 +357 @@
 c      INTEGER ncol(napisccp), ncolmx, seed(klon,napisccp)
       INTEGER,SAVE :: ncol(napisccp)
+c$OMP THREADPRIVATE(ncol)
       INTEGER ncolmx, seed(klon,napisccp)
       REAL nbsunlit(nregISCtot,klon,napisccp)  !nbsunlit : moyenne de sunlit
@@ -554 +559 @@
       REAL qsol(klon)
       REAL,save ::  solarlong0
+c$OMP THREADPRIVATE(solarlong0)
+
 c
 c  Parametres de l'Orographie a l'Echelle Sous-Maille (OESM):
@@ -587 +594 @@
       INTEGER it_wape_prescr
       SAVE wape_prescr, fip_prescr, it_wape_prescr
+c$OMP THREADPRIVATE(wape_prescr, fip_prescr, it_wape_prescr)
 c
 c variables supplementaires de concvl
@@ -600 +608 @@
 
 c$OMP THREADPRIVATE(alp_bl_prescr,ale_bl_prescr)
+c$OMP THREADPRIVATE(ale_max,alp_max)
 
       real ale_wake(klon)
@@ -879 +888 @@
       real ratqsbas,ratqshaut
       save ratqsbas,ratqshaut
+c$OMP THREADPRIVATE(ratqsbas,ratqshaut)
       real zpt_conv(klon,klev)
 
@@ -1505 +1515 @@
 c#endif
 
+c$OMP MASTER
        call phys_output_open(jjmp1,nqmax,nlevSTD,clevSTD,nbteta, 
      &                        ctetaSTD,dtime,presnivs,ok_veget,
      &                        ocean,iflag_pbl,ok_mensuel,ok_journe,
      &                        ok_hf,ok_instan,nid_files)
+c$OMP END MASTER
+c$OMP BARRIER
 
 #ifdef histISCCP