Changeset 4127 for LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_mpi_data.F90
- Timestamp:
- Apr 20, 2022, 11:01:09 AM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_mpi_data.F90
r3435 r4127 46 46 CONTAINS 47 47 48 SUBROUTINE init_phys_lmdz_mpi_data(nbp, nbp_lon, nbp_lat, communicator) 48 SUBROUTINE init_phys_lmdz_mpi_data(nbp, nbp_lon, nbp_lat, nbp_lev, grid_type, nvertex, communicator) 49 49 50 IMPLICIT NONE 50 51 #ifdef CPP_MPI … … 54 55 INTEGER,INTENT(IN) :: nbp_lon 55 56 INTEGER,INTENT(IN) :: nbp_lat 57 INTEGER,INTENT(IN) :: nbp_lev 56 58 INTEGER,INTENT(IN) :: communicator 59 INTEGER,INTENT(IN) :: grid_type 60 INTEGER,INTENT(IN) :: nvertex 57 61 58 62 INTEGER,ALLOCATABLE :: distrib(:) … … 179 183 180 184 CALL Print_module_data 185 186 #ifdef INCA 187 CALL init_inca_para( & 188 nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, & 189 distrib,nvertex, grid_type,communicator) 190 #endif 181 191 182 192 END SUBROUTINE Init_phys_lmdz_mpi_data
Note: See TracChangeset
for help on using the changeset viewer.