Changeset 245 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/writediagsoil.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/writediagsoil.F90 (modified) (3 diffs)

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

@@ -14 +14 @@
 use comsoil_h, only: nsoilmx
 use control_mod, only: ecritphy, day_step, iphysiq
-use mod_phys_lmdz_para, only : is_mpi_root, is_master, gather
+use mod_phys_lmdz_para, only : is_mpi_master, is_master, gather
 use mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo
 
@@ -145 +145 @@
   call Gather(px,dx3_glop)
 !$OMP MASTER
-  if (is_mpi_root) then
+  if (is_mpi_master) then
     call Grid1Dto2D_glo(dx3_glop,dx3_glo)
     ! copy dx3_glo() to dx3(:) and add redundant longitude
@@ -220 +220 @@
   call Gather(px2,dx2_glop)
 !$OMP MASTER
-  if (is_mpi_root) then
+  if (is_mpi_master) then
     call Grid1Dto2D_glo(dx2_glop,dx2_glo)
     ! copy dx3_glo() to dx3(:) and add redundant longitude