Changeset 3420
- Timestamp:
- 2012-06-21T15:50:17+02:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r3294 r3420 119 119 120 120 ! variables used in case of sea-ice 121 INTEGER, PUBLIC :: ncomm_ice !: communicator made by the processors with sea-ice 121 INTEGER, PUBLIC :: ncomm_ice !: communicator made by the processors with sea-ice (public so that it can be freed in limthd) 122 INTEGER :: ngrp_iworld ! group ID for the world processors (for rheology) 122 123 INTEGER :: ngrp_ice ! group ID for the ice processors (for rheology) 123 124 INTEGER :: ndim_rank_ice ! number of 'ice' processors … … 1977 1978 !! ndim_rank_ice = number of processors with ice 1978 1979 !! nrank_ice (ndim_rank_ice) = ice processors 1979 !! ngrp_ world = group ID for the world processors1980 !! ngrp_iworld = group ID for the world processors 1980 1981 !! ngrp_ice = group ID for the ice processors 1981 1982 !! ncomm_ice = communicator for the ice procs. … … 2026 2027 2027 2028 ! Create the world group 2028 CALL MPI_COMM_GROUP( mpi_comm_opa, ngrp_ world, ierr )2029 CALL MPI_COMM_GROUP( mpi_comm_opa, ngrp_iworld, ierr ) 2029 2030 2030 2031 ! Create the ice group from the world group 2031 CALL MPI_GROUP_INCL( ngrp_ world, ndim_rank_ice, nrank_ice, ngrp_ice, ierr )2032 CALL MPI_GROUP_INCL( ngrp_iworld, ndim_rank_ice, nrank_ice, ngrp_ice, ierr ) 2032 2033 2033 2034 ! Create the ice communicator , ie the pool of procs with sea-ice … … 2036 2037 ! Find proc number in the world of proc 0 in the north 2037 2038 ! The following line seems to be useless, we just comment & keep it as reminder 2038 ! CALL MPI_GROUP_TRANSLATE_RANKS(ngrp_ice,1,0,ngrp_world,n_ice_root,ierr) 2039 ! 2039 ! CALL MPI_GROUP_TRANSLATE_RANKS(ngrp_ice,1,0,ngrp_iworld,n_ice_root,ierr) 2040 ! 2041 CALL MPI_GROUP_FREE(ngrp_ice, ierr) 2042 CALL MPI_GROUP_FREE(ngrp_iworld, ierr) 2043 2040 2044 DEALLOCATE(kice, zwork) 2041 2045 !
Note: See TracChangeset
for help on using the changeset viewer.