New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3420 – NEMO

Changeset 3420


Ignore:
Timestamp:
2012-06-21T15:50:17+02:00 (12 years ago)
Author:
acc
Message:

Bugfix #977. Minor changes to lib_mpp.F90 to free mpi_group structures after use in mpp_ini_ice

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r3294 r3420  
    119119 
    120120   ! 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) 
    122123   INTEGER ::   ngrp_ice        !  group ID for the ice processors (for rheology) 
    123124   INTEGER ::   ndim_rank_ice   !  number of 'ice' processors 
     
    19771978      !!      ndim_rank_ice = number of processors with ice 
    19781979      !!      nrank_ice (ndim_rank_ice) = ice processors 
    1979       !!      ngrp_world = group ID for the world processors 
     1980      !!      ngrp_iworld = group ID for the world processors 
    19801981      !!      ngrp_ice = group ID for the ice processors 
    19811982      !!      ncomm_ice = communicator for the ice procs. 
     
    20262027 
    20272028      ! 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 ) 
    20292030 
    20302031      ! 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 ) 
    20322033 
    20332034      ! Create the ice communicator , ie the pool of procs with sea-ice 
     
    20362037      ! Find proc number in the world of proc 0 in the north 
    20372038      ! 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 
    20402044      DEALLOCATE(kice, zwork) 
    20412045      ! 
Note: See TracChangeset for help on using the changeset viewer.