Changeset 245 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/writediagfi.F

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/writediagfi.F (modified) (3 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/writediagfi.F

@@ -41 +41 @@
       use surfdat_h, only: phisfi
       use control_mod, only: ecritphy, day_step, iphysiq
-      USE mod_phys_lmdz_para, only : is_parallel, is_mpi_root,
+      USE mod_phys_lmdz_para, only : is_parallel, is_mpi_master,
      &                               is_master, gather
       USE mod_grid_phy_lmdz, only : klon_glo, Grid1Dto2D_glo
@@ -296 +296 @@
           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
@@ -380 +380 @@
           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 dx2_glo() to dx2(:) and add redundant longitude