Changeset 5851 for CONFIG_DEVT

Timestamp:

06/09/21 12:49:44 (3 years ago)

Author:

ymipsl

Message:

better ensemble management in LMDZ

YM

Location:

CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf

Files:

• misc/wxios.F90 (modified) (1 diff)
• phy_common/mod_phys_lmdz_ensemble.F90 (modified) (1 diff)

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

@@ -255 +255 @@
       IMPLICIT NONE
       
-        CALL xios_set_axis_attr("ensemble",n_glo=whole_ensemble_size,begin=whole_ensemble_rank, n=1)
+        IF (ensemble_management)  CALL xios_set_axis_attr("ensemble",n_glo=whole_ensemble_size,begin=whole_ensemble_rank, n=1)
       
     END SUBROUTINE wxios_ensemble_param

CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf/phy_common/mod_phys_lmdz_ensemble.F90

@@ -32 +32 @@
      CALL getin("whole_ensemble_size", whole_ensemble_size)
      ensemble_management=.FALSE.
-     IF (whole_ensemble_size==1) ensemble_management=.TRUE. 
+     IF (whole_ensemble_size>1) ensemble_management=.TRUE.  
      ensemble_pool_rank=0
      CALL getin("ensemble_pool_rank", ensemble_pool_rank)