Changeset 5493 for CONFIG_DEVT
- Timestamp:
- 11/02/20 11:46:25 (3 years ago)
- 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 128 128 !! \n 129 129 !_ ============================================================================================================================== 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 132 132 IMPLICIT NONE 133 133 INTEGER,INTENT(IN) :: nbp … … 136 136 INTEGER,INTENT(IN) :: arg_omp_size 137 137 INTEGER,INTENT(IN) :: arg_omp_rank 138 INTEGER,INTENT(IN) :: COMM 138 INTEGER,INTENT(IN) :: COMM_ENSEMBLE 139 139 140 140 INTEGER,SAVE :: arg_nbp_mpi … … 144 144 INTEGER :: mpi_rank 145 145 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 147 152 #ifdef CPP_PARA 148 153 CALL MPI_COMM_SIZE(COMM,mpi_size,ierr) -
CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_parallel/xios_orchidee.f90
r5477 r5493 130 130 USE grid, ONLY : grid_type, unstructured, regular_lonlat, regular_xy, nvertex, & 131 131 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 132 133 IMPLICIT NONE 133 134 ! … … 271 272 !! 2. Context initialization 272 273 ! 273 CALL xios_context_initialize("orchidee", MPI_COMM_ORCH)274 CALL xios_context_initialize("orchidee",COMM_ORCHIDEE_ENSEMBLE) 274 275 CALL xios_get_handle("orchidee",ctx_hdl_orchidee) 275 276 CALL xios_set_current_context(ctx_hdl_orchidee) … … 352 353 !! 4. Axis definition 353 354 ! 355 CALL xios_set_axis_attr("ensemble",n_glo=whole_ensemble_size,begin=whole_ensemble_rank, n=1) 356 354 357 CALL xios_set_axis_attr("nvm",n_glo=nvm ,VALUE=(/(REAL(i,r_std),i=1,nvm)/)) 355 358 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.