Changeset 5494 for CONFIG_DEVT

Timestamp:

11/02/20 11:49:00 (3 years ago)

Author:

ymipsl

Message:

Ensemble management for orchidee.

YM

File:

• CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_sechiba/intersurf.f90 (modified) (3 diffs)

CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_sechiba/intersurf.f90

@@ -719 +719 @@
 !_ ==============================================================================================================================
 
-  SUBROUTINE init_intersurf(nbp_l_lon,nbp_l_lat,kjpindex,kindex,orch_offset,orch_omp_size,orch_omp_rank,COMM, grid)
+  SUBROUTINE init_intersurf(nbp_l_lon,nbp_l_lat,kjpindex,kindex,orch_offset,orch_omp_size,orch_omp_rank, COMM_ENSEMBLE, grid)
 
     USE mod_orchidee_para
@@ -730 +730 @@
     INTEGER,INTENT(IN)  :: kindex(:)
     INTEGER,INTENT(IN)  :: orch_offset
-    INTEGER,INTENT(IN)  :: COMM
     INTEGER,INTENT(IN)  :: orch_omp_size
     INTEGER,INTENT(IN)  :: orch_omp_rank
+    INTEGER,INTENT(IN)  :: COMM_ENSEMBLE
     INTEGER(i_std), INTENT(in), OPTIONAL :: grid          !! grid type : regular_lonlat or unstructured (dynamico)
 
     INTEGER,DIMENSION(kjpindex)  :: kindex_offset
+    INTEGER :: ensemble_comm_size, ensemble_comm_rank,ierr
 
     IF (printlev >= 1) WRITE(*,*) 'Start ORCHIDEE'
 
     IF (orch_omp_rank==0) THEN
+      CALL MPI_COMM_SIZE(COMM_ENSEMBLE,ensemble_comm_size,ierr)
+      CALL MPI_COMM_RANK(COMM_ENSEMBLE,ensemble_comm_rank,ierr)
+      PRINT*,ensemble_comm_size,ensemble_comm_rank
+
       CALL Init_timer
       CALL start_timer(timer_mpi)
@@ -745 +750 @@
     ENDIF
     CALL barrier2_omp()    
-    CALL init_orchidee_data_para(kjpindex,kindex,orch_offset,orch_omp_size,orch_omp_rank,COMM)
+    CALL init_orchidee_data_para(kjpindex,kindex,orch_offset,orch_omp_size,orch_omp_rank, COMM_ENSEMBLE)
     CALL Set_stdout_file('out_orchidee')