Changeset 987 for LMDZ4/trunk/libf/phylmd/phyetat0.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/phyetat0.F (modified) (4 diffs)

LMDZ4/trunk/libf/phylmd/phyetat0.F

@@ -109 +109 @@
       PARAMETER (length=100)
       REAL tab_cntrl(length), tabcntr0(length)
-      REAL,SAVE :: tab_cntrl_omp(length)
       CHARACTER*7 str7
       CHARACTER*2 str2
@@ -232 +231 @@
 c Lecture des latitudes (coordonnees):
 c
-c$OMP MASTER
-      IF (is_mpi_root) THEN
+      IF (is_mpi_root .AND. is_omp_root) THEN
       
       ierr = NF_INQ_VARID (nid, "latitude", nvarid)
@@ -957 +955 @@
       PRINT*,'Rayonnement IF au sol sollw:', xmin, xmax
       
-      ENDIF  ! is_mpi_root
-c$OMP END MASTER
-
-
-c$OMP MASTER
-      IF (is_mpi_root) THEN
 c
 c Lecture derive des flux:
@@ -1729 +1721 @@
 c
       ierr = NF_CLOSE(nid)
-      ENDIF ! is_mpi_root
-c
-c$OMP END MASTER
+      ENDIF ! is_mpi_root .AND. is_omp_root
+c
 
 c$OMP MASTER