Changeset 245 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/wstats.F90

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/phystd/wstats.F90 (modified) (3 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/wstats.F90

@@ -1 +1 @@
 subroutine wstats(ngrid,nom,titre,unite,dim,px)
 
-use mod_phys_lmdz_para, only : is_mpi_root, is_master, gather, klon_mpi_begin
+use mod_phys_lmdz_para, only : is_mpi_master, is_master, gather, klon_mpi_begin
 use mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo
 
@@ -72 +72 @@
   call Gather(px3,px3_glop)
 !$OMP MASTER
-  if (is_mpi_root) then
+  if (is_mpi_master) then
     call Grid1Dto2D_glo(px3_glop,px3_glo)
     ! copy dx3_glo() to dx3(:) and add redundant longitude
@@ -85 +85 @@
   call Gather(px2,px2_glop)
 !$OMP MASTER
-          if (is_mpi_root) then
+          if (is_mpi_master) then
             call Grid1Dto2D_glo(px2_glop,px2_glo)
             ! copy px2_glo() to dx2(:) and add redundant longitude