Changeset 5490

Timestamp:

11/02/20 11:24:00 (4 years ago)

Author:

ymipsl

Message:

Add new ensemble dimension for LMDZ physics

YM

File:

• CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf/misc/wxios.F90 (modified) (3 diffs)

CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf/misc/wxios.F90

@@ -145 +145 @@
     SUBROUTINE wxios_context_init()
         USE print_control_mod, ONLY : prt_level, lunout
-        USE mod_phys_lmdz_mpi_data, ONLY : COMM_LMDZ_PHY
+        USE mod_phys_lmdz_ensemble, ONLY : COMM_LMDZ_PHY_ENSEMBLE
         IMPLICIT NONE
 
@@ -153 +153 @@
         !Initialisation du contexte:
         !!CALL xios_context_initialize(g_ctx_name, g_comm)
-        CALL xios_context_initialize(g_ctx_name, COMM_LMDZ_PHY)
+        CALL xios_context_initialize(g_ctx_name, COMM_LMDZ_PHY_ENSEMBLE)
         CALL xios_get_handle(g_ctx_name, xios_ctx)    !Récupération
         CALL xios_set_current_context(xios_ctx)            !Activation
@@ -246 +246 @@
         CALL xios_set_timestep(mdtime)
     END SUBROUTINE wxios_set_timestep
+
+
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    ! Pour initialiser la dimension d'ensemble !!!!!!!
+    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+    SUBROUTINE wxios_ensemble_param
+      USE mod_phys_lmdz_ensemble
+      IMPLICIT NONE
+      
+        CALL xios_set_axis_attr("ensemble",n_glo=whole_ensemble_size,begin=whole_ensemble_rank, n=1)
+      
+    END SUBROUTINE wxios_ensemble_param
 
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!