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

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

@@ -2 +2 @@
 ! $Id$
 !
-SUBROUTINE init_phys_lmdz(iim,jjp1,llm,nb_proc,distrib)
+SUBROUTINE init_phys_lmdz(iim,jjp1,llm,comm_lmdz,nb_proc,distrib)
   USE mod_phys_lmdz_omp_data, only: klon_omp
   USE mod_grid_phy_lmdz, only: nbp_lev
@@ -13 +13 @@
     INTEGER,INTENT(in) :: iim
     INTEGER,INTENT(in) :: jjp1
+    INTEGER,INTENT(in) :: comm_lmdz
     INTEGER,INTENT(in) :: llm
     INTEGER,INTENT(in) :: nb_proc
@@ -19 +20 @@
 
     CALL init_grid_phy_lmdz(iim,jjp1,sum(distrib),llm)
-    CALL init_phys_lmdz_para(iim,jjp1,nb_proc,distrib)
+    CALL init_phys_lmdz_para(iim,jjp1,comm_lmdz,nb_proc,distrib)
 !$OMP PARALLEL
     CALL init_dimphy(klon_omp,nbp_lev)