- Timestamp:
- Dec 6, 2022, 12:01:16 AM (19 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/phy_common/mod_phys_lmdz_mpi_data.F90
r3605 r4368 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.