Changeset 5489


Ignore:
Timestamp:
11/02/20 11:18:42 (2 years ago)
Author:
ymipsl
Message:

Ensemble management for LMDZ physic;

YM

Location:
CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf/phy_common
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf/phy_common/ioipsl_getin_p_mod.F90

    r5477 r5489  
    1717!- 
    1818PRIVATE 
    19 PUBLIC :: getin_p 
     19PUBLIC :: getin_p, getin 
    2020!- 
    2121INTERFACE getin_p 
  • CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf/phy_common/mod_phys_lmdz_para.F90

    r5477 r5489  
    33! 
    44MODULE mod_phys_lmdz_para 
     5  USE mod_phys_lmdz_ensemble 
    56  USE mod_phys_lmdz_transfert_para 
    67  USE mod_phys_lmdz_mpi_data 
     
    1718CONTAINS 
    1819 
    19   SUBROUTINE Init_phys_lmdz_para(nbp,nbp_lon,nbp_lat,communicator) 
     20  SUBROUTINE Init_phys_lmdz_para(nbp,nbp_lon,nbp_lat,ensemble_communicator) 
    2021  IMPLICIT NONE 
    2122    INTEGER,INTENT(in) :: nbp 
    2223    INTEGER,INTENT(in) :: nbp_lon 
    2324    INTEGER,INTENT(in) :: nbp_lat 
    24     INTEGER,INTENT(in) :: communicator 
    25  
    26     CALL Init_phys_lmdz_mpi_data(nbp,nbp_lon,nbp_lat,communicator) 
     25    INTEGER,INTENT(in) :: ensemble_communicator 
     26    INTEGER            :: member_communicator 
     27     
     28    CALL Init_phys_lmdz_ensemble(ensemble_communicator,member_communicator) 
     29    CALL Init_phys_lmdz_mpi_data(nbp,nbp_lon,nbp_lat,member_communicator) 
    2730!$OMP PARALLEL 
    2831    CALL Init_phys_lmdz_omp_data(klon_mpi) 
Note: See TracChangeset for help on using the changeset viewer.