Changeset 5489 for CONFIG_DEVT
- Timestamp:
- 11/02/20 11:18:42 (3 years ago)
- 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 17 17 !- 18 18 PRIVATE 19 PUBLIC :: getin_p 19 PUBLIC :: getin_p, getin 20 20 !- 21 21 INTERFACE getin_p -
CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/libf/phy_common/mod_phys_lmdz_para.F90
r5477 r5489 3 3 ! 4 4 MODULE mod_phys_lmdz_para 5 USE mod_phys_lmdz_ensemble 5 6 USE mod_phys_lmdz_transfert_para 6 7 USE mod_phys_lmdz_mpi_data … … 17 18 CONTAINS 18 19 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) 20 21 IMPLICIT NONE 21 22 INTEGER,INTENT(in) :: nbp 22 23 INTEGER,INTENT(in) :: nbp_lon 23 24 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) 27 30 !$OMP PARALLEL 28 31 CALL Init_phys_lmdz_omp_data(klon_mpi)
Note: See TracChangeset
for help on using the changeset viewer.