Changeset 5490


Ignore:
Timestamp:
11/02/20 11:24:00 (23 months ago)
Author:
ymipsl
Message:

Add new ensemble dimension for LMDZ physics

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf/misc/wxios.F90

    r5477 r5490  
    145145    SUBROUTINE wxios_context_init() 
    146146        USE print_control_mod, ONLY : prt_level, lunout 
    147         USE mod_phys_lmdz_mpi_data, ONLY : COMM_LMDZ_PHY 
     147        USE mod_phys_lmdz_ensemble, ONLY : COMM_LMDZ_PHY_ENSEMBLE 
    148148        IMPLICIT NONE 
    149149 
     
    153153        !Initialisation du contexte: 
    154154        !!CALL xios_context_initialize(g_ctx_name, g_comm) 
    155         CALL xios_context_initialize(g_ctx_name, COMM_LMDZ_PHY) 
     155        CALL xios_context_initialize(g_ctx_name, COMM_LMDZ_PHY_ENSEMBLE) 
    156156        CALL xios_get_handle(g_ctx_name, xios_ctx)    !Récupération 
    157157        CALL xios_set_current_context(xios_ctx)            !Activation 
     
    246246        CALL xios_set_timestep(mdtime) 
    247247    END SUBROUTINE wxios_set_timestep 
     248 
     249 
     250    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
     251    ! Pour initialiser la dimension d'ensemble !!!!!!! 
     252    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
     253    SUBROUTINE wxios_ensemble_param 
     254      USE mod_phys_lmdz_ensemble 
     255      IMPLICIT NONE 
     256       
     257        CALL xios_set_axis_attr("ensemble",n_glo=whole_ensemble_size,begin=whole_ensemble_rank, n=1) 
     258       
     259    END SUBROUTINE wxios_ensemble_param 
    248260 
    249261    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
Note: See TracChangeset for help on using the changeset viewer.