Ignore:
Timestamp:
11/02/20 10:08:27 (4 years ago)
Author:
ymipsl
Message:

Ensemble management in LMDZ dynamic : splitting whole communicator to distribute a new one at each member.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf/dyn3dmem/gcm.F90

    r5477 r5488  
    77#endif 
    88 
    9   USE mod_const_mpi, ONLY: init_const_mpi 
     9  USE mod_const_mpi, ONLY: init_const_mpi, COMM_LMDZ_ENSEMBLE 
    1010  USE parallel_lmdz 
    1111  USE infotrac 
     
    399399#ifdef CPP_PHYS 
    400400     CALL iniphysiq(iim,jjm,llm, & 
    401           distrib_phys(mpi_rank),comm_lmdz, & 
     401          distrib_phys(mpi_rank),COMM_LMDZ_ENSEMBLE, & 
    402402          daysec,day_ini,dtphys/nsplit_phys, & 
    403403          rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, & 
Note: See TracChangeset for help on using the changeset viewer.