Changeset 5494


Ignore:
Timestamp:
11/02/20 11:49:00 (23 months ago)
Author:
ymipsl
Message:

Ensemble management for orchidee.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_sechiba/intersurf.f90

    r5477 r5494  
    719719!_ ============================================================================================================================== 
    720720 
    721   SUBROUTINE init_intersurf(nbp_l_lon,nbp_l_lat,kjpindex,kindex,orch_offset,orch_omp_size,orch_omp_rank,COMM, grid) 
     721  SUBROUTINE init_intersurf(nbp_l_lon,nbp_l_lat,kjpindex,kindex,orch_offset,orch_omp_size,orch_omp_rank, COMM_ENSEMBLE, grid) 
    722722 
    723723    USE mod_orchidee_para 
     
    730730    INTEGER,INTENT(IN)  :: kindex(:) 
    731731    INTEGER,INTENT(IN)  :: orch_offset 
    732     INTEGER,INTENT(IN)  :: COMM 
    733732    INTEGER,INTENT(IN)  :: orch_omp_size 
    734733    INTEGER,INTENT(IN)  :: orch_omp_rank 
     734    INTEGER,INTENT(IN)  :: COMM_ENSEMBLE 
    735735    INTEGER(i_std), INTENT(in), OPTIONAL :: grid          !! grid type : regular_lonlat or unstructured (dynamico) 
    736736 
    737737    INTEGER,DIMENSION(kjpindex)  :: kindex_offset 
     738    INTEGER :: ensemble_comm_size, ensemble_comm_rank,ierr 
    738739 
    739740    IF (printlev >= 1) WRITE(*,*) 'Start ORCHIDEE' 
    740741 
    741742    IF (orch_omp_rank==0) THEN 
     743      CALL MPI_COMM_SIZE(COMM_ENSEMBLE,ensemble_comm_size,ierr) 
     744      CALL MPI_COMM_RANK(COMM_ENSEMBLE,ensemble_comm_rank,ierr) 
     745      PRINT*,ensemble_comm_size,ensemble_comm_rank 
     746 
    742747      CALL Init_timer 
    743748      CALL start_timer(timer_mpi) 
     
    745750    ENDIF 
    746751    CALL barrier2_omp()     
    747     CALL init_orchidee_data_para(kjpindex,kindex,orch_offset,orch_omp_size,orch_omp_rank,COMM) 
     752    CALL init_orchidee_data_para(kjpindex,kindex,orch_offset,orch_omp_size,orch_omp_rank, COMM_ENSEMBLE) 
    748753    CALL Set_stdout_file('out_orchidee') 
    749754 
Note: See TracChangeset for help on using the changeset viewer.