Changeset 5493 for CONFIG_DEVT


Ignore:
Timestamp:
11/02/20 11:46:25 (3 years ago)
Author:
ymipsl
Message:

Ensemble management for orchidee.

YM

Location:
CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_parallel
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_parallel/mod_orchidee_para.F90

    r5477 r5493  
    128128  !! \n 
    129129  !_ ==============================================================================================================================  
    130   SUBROUTINE Init_orchidee_data_para(nbp,kindex,arg_offset,arg_omp_size,arg_omp_rank,COMM) 
    131  
     130  SUBROUTINE Init_orchidee_data_para(nbp,kindex,arg_offset,arg_omp_size,arg_omp_rank, COMM_ENSEMBLE) 
     131    USE mod_orchidee_ensemble 
    132132    IMPLICIT NONE 
    133133    INTEGER,INTENT(IN)     :: nbp 
     
    136136    INTEGER,INTENT(IN)     :: arg_omp_size 
    137137    INTEGER,INTENT(IN)     :: arg_omp_rank 
    138     INTEGER,INTENT(IN)     :: COMM 
     138    INTEGER,INTENT(IN)     :: COMM_ENSEMBLE 
    139139     
    140140    INTEGER,SAVE              :: arg_nbp_mpi 
     
    144144    INTEGER                   :: mpi_rank 
    145145    INTEGER                   :: ierr 
    146          
     146    INTEGER,SAVE              :: COMM 
     147        
     148     
     149    IF (arg_omp_rank==0) CALL init_orchidee_ensemble(COMM_ENSEMBLE,COMM) 
     150    CALL barrier2_omp() 
     151 
    147152#ifdef CPP_PARA 
    148153    CALL MPI_COMM_SIZE(COMM,mpi_size,ierr) 
  • CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_parallel/xios_orchidee.f90

    r5477 r5493  
    130130    USE grid, ONLY : grid_type, unstructured, regular_lonlat, regular_xy, nvertex, & 
    131131                     longitude, latitude, bounds_lon, bounds_lat, ind_cell_glo 
     132    USE mod_orchidee_ensemble, ONLY : ensemble_management, whole_ensemble_size, whole_ensemble_rank, COMM_ORCHIDEE_ENSEMBLE 
    132133    IMPLICIT NONE 
    133134    ! 
     
    271272       !! 2. Context initialization 
    272273       ! 
    273        CALL xios_context_initialize("orchidee",MPI_COMM_ORCH) 
     274       CALL xios_context_initialize("orchidee",COMM_ORCHIDEE_ENSEMBLE) 
    274275       CALL xios_get_handle("orchidee",ctx_hdl_orchidee) 
    275276       CALL xios_set_current_context(ctx_hdl_orchidee) 
     
    352353       !! 4. Axis definition 
    353354       ! 
     355       CALL xios_set_axis_attr("ensemble",n_glo=whole_ensemble_size,begin=whole_ensemble_rank, n=1) 
     356  
    354357       CALL xios_set_axis_attr("nvm",n_glo=nvm ,VALUE=(/(REAL(i,r_std),i=1,nvm)/)) 
    355358       CALL xios_set_axis_attr("nlut",n_glo=nlut ,VALUE=(/(REAL(i,r_std),i=1,nlut)/)) 
Note: See TracChangeset for help on using the changeset viewer.