Changeset 245 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/bibio

Timestamp:

07/22/14 16:00:02 (10 years ago)

Author:

ymipsl

Message:

• One call for initialize physics from dynamico

• mpi_root renamed into mpi_master due to conflict with an existaing symbol from the mpi library

==> mpi_root => mpi_master, is_mpi_root => is_mpi_master, is_omp_root => is_omp_master

YM

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/bibio/ioipsl_getincom_p.F90 (modified) (11 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/bibio/ioipsl_getincom_p.F90

@@ -12 +12 @@
 !---------------------------------------------------------------------
 USE ioipsl_getincom ! to use  'getin'
-USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
-USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
+USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_master
+USE mod_phys_lmdz_omp_data, ONLY :  is_omp_master
 use mod_phys_lmdz_para, only : bcast
 !-
@@ -44 +44 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_mpi_master .AND. is_omp_master) THEN
         CALL getin(VarIn,VarOut)
     ENDIF
@@ -58 +58 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_mpi_master .AND. is_omp_master) THEN
         CALL getin(VarIn,VarOut)
     ENDIF
@@ -70 +70 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_mpi_master .AND. is_omp_master) THEN
         CALL getin(VarIn,VarOut)
     ENDIF
@@ -82 +82 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_mpi_master .AND. is_omp_master) THEN
         CALL getin(VarIn,VarOut)
     ENDIF
@@ -96 +96 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_mpi_master .AND. is_omp_master) THEN
         CALL getin(VarIn,VarOut)
     ENDIF
@@ -108 +108 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_mpi_master .AND. is_omp_master) THEN
         CALL getin(VarIn,VarOut)
     ENDIF
@@ -120 +120 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_mpi_master .AND. is_omp_master) THEN
         CALL getin(VarIn,VarOut)
     ENDIF
@@ -134 +134 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_mpi_master .AND. is_omp_master) THEN
         CALL getin(VarIn,VarOut)
     ENDIF
@@ -146 +146 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_mpi_master .AND. is_omp_master) THEN
         CALL getin(VarIn,VarOut)
     ENDIF
@@ -158 +158 @@
 
 !$OMP BARRIER
-    IF (is_mpi_root .AND. is_omp_root) THEN
+    IF (is_mpi_master .AND. is_omp_master) THEN
         CALL getin(VarIn,VarOut)
     ENDIF