Changeset 5493 for CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_parallel/mod_orchidee_para.F90

Timestamp:

11/02/20 11:46:25 (4 years ago)

Author:

ymipsl

Message:

Ensemble management for orchidee.

YM

File:

• CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_parallel/mod_orchidee_para.F90 (modified) (3 diffs)

CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_parallel/mod_orchidee_para.F90

@@ -128 +128 @@
   !! \n
   !_ ============================================================================================================================== 
-  SUBROUTINE Init_orchidee_data_para(nbp,kindex,arg_offset,arg_omp_size,arg_omp_rank,COMM)
-
+  SUBROUTINE Init_orchidee_data_para(nbp,kindex,arg_offset,arg_omp_size,arg_omp_rank, COMM_ENSEMBLE)
+    USE mod_orchidee_ensemble
     IMPLICIT NONE
     INTEGER,INTENT(IN)     :: nbp
@@ -136 +136 @@
     INTEGER,INTENT(IN)     :: arg_omp_size
     INTEGER,INTENT(IN)     :: arg_omp_rank
-    INTEGER,INTENT(IN)     :: COMM
+    INTEGER,INTENT(IN)     :: COMM_ENSEMBLE
     
     INTEGER,SAVE              :: arg_nbp_mpi
@@ -144 +144 @@
     INTEGER                   :: mpi_rank
     INTEGER                   :: ierr
-        
+    INTEGER,SAVE              :: COMM
+       
+    
+    IF (arg_omp_rank==0) CALL init_orchidee_ensemble(COMM_ENSEMBLE,COMM)
+    CALL barrier2_omp()
+
 #ifdef CPP_PARA
     CALL MPI_COMM_SIZE(COMM,mpi_size,ierr)