Changeset 5493 for CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_parallel/xios_orchidee.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/xios_orchidee.f90 (modified) (3 diffs)

CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/ORCHIDEE/src_parallel/xios_orchidee.f90

@@ -130 +130 @@
     USE grid, ONLY : grid_type, unstructured, regular_lonlat, regular_xy, nvertex, &
                      longitude, latitude, bounds_lon, bounds_lat, ind_cell_glo
+    USE mod_orchidee_ensemble, ONLY : ensemble_management, whole_ensemble_size, whole_ensemble_rank, COMM_ORCHIDEE_ENSEMBLE
     IMPLICIT NONE
     !
@@ -271 +272 @@
        !! 2. Context initialization
        !
-       CALL xios_context_initialize("orchidee",MPI_COMM_ORCH)
+       CALL xios_context_initialize("orchidee",COMM_ORCHIDEE_ENSEMBLE)
        CALL xios_get_handle("orchidee",ctx_hdl_orchidee)
        CALL xios_set_current_context(ctx_hdl_orchidee)
@@ -352 +353 @@
        !! 4. Axis definition
        !
+       CALL xios_set_axis_attr("ensemble",n_glo=whole_ensemble_size,begin=whole_ensemble_rank, n=1)
+ 
        CALL xios_set_axis_attr("nvm",n_glo=nvm ,VALUE=(/(REAL(i,r_std),i=1,nvm)/))
        CALL xios_set_axis_attr("nlut",n_glo=nlut ,VALUE=(/(REAL(i,r_std),i=1,nlut)/))