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 15204 – NEMO

Changeset 15204


Ignore:
Timestamp:
2021-08-25T20:27:59+02:00 (19 months ago)
Author:
vsmart
Message:

Use variable to control MPI initialisation/finalisation rather than cpp key

Location:
NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2_spmd/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2_spmd/src/OCE/LBC/lib_mpp.F90

    r14661 r15204  
    100100!$AGRIF_END_DO_NOT_TREAT 
    101101   LOGICAL, PUBLIC, PARAMETER ::   lk_mpp = .TRUE.    !: mpp flag 
     102   INTEGER, PUBLIC            ::   mpi_pre_initialised = 0 
    102103#else    
    103104   INTEGER, PUBLIC, PARAMETER ::   MPI_STATUS_SIZE = 1 
     
    176177   !!---------------------------------------------------------------------- 
    177178CONTAINS 
     179 
     180   SUBROUTINE set_mpi_pre_initialised() 
     181      !!---------------------------------------------------------------------- 
     182      !!                  ***  routine set_mpi_pre_initialised  *** 
     183      !! 
     184      !! ** Purpose :   set global variable mpi_pre_initialised 
     185      !!---------------------------------------------------------------------- 
     186      INTEGER ::   ierr 
     187      !!---------------------------------------------------------------------- 
     188#if defined key_mpp_mpi 
     189      call mpi_initialized(mpi_pre_initialised, ierr) 
     190#endif 
     191      ! 
     192   END SUBROUTINE set_mpi_pre_initialised 
    178193 
    179194   SUBROUTINE mpp_start( localComm ) 
     
    692707      ELSE 
    693708         CALL mppsync 
    694 #if !defined key_spmd 
    695          CALL mpi_finalize( info ) 
    696 #endif 
     709         IF (.NOT. mpi_pre_initialised) THEN 
     710             CALL mpi_finalize( info ) 
     711         ENDIF 
    697712      ENDIF 
    698713      IF( ll_abort ) STOP 123 
  • NEMO/branches/UKMO/NEMO_4.0.1_NGMS_couple_stage2_spmd/src/OCE/nemogcm.F90

    r14668 r15204  
    311311#endif 
    312312      ! 
    313 #if !defined key_spmd 
    314       IF(lwm) THEN 
    315          IF( nstop == 0 ) THEN    
    316                 STOP 0 
    317          ELSE         
    318                 STOP 123 
     313      IF (.NOT. mpi_pre_initialised) THEN 
     314         IF(lwm) THEN 
     315            IF( nstop == 0 ) THEN    
     316                  STOP 0 
     317            ELSE         
     318                  STOP 123 
     319            ENDIF 
    319320         ENDIF 
    320321      ENDIF 
    321 #endif 
    322322      ! 
    323323   END SUBROUTINE nemo_gcm_finalise 
     
    345345      !                             !-------------------------------------------------! 
    346346      ! 
     347      CALL set_mpi_pre_initialised() 
    347348#if defined key_iomput 
    348349!      IF( Agrif_Root() ) THEN 
     
    356357! RSRH simplify initialisaton for test 
    357358      IF( lk_oasis ) THEN 
    358 #if !defined key_spmd 
    359           CALL mpi_init(nerror) 
    360 #endif 
     359          IF (.NOT. mpi_pre_initialised) THEN 
     360              CALL mpi_init(nerror) 
     361          ENDIF 
    361362          CALL oasis_init_comp ( ncomp_id, "toyoce", nerror, .TRUE. ) 
    362363!          CALL cpl_init( "toyoce", ilocal_comm )  
Note: See TracChangeset for help on using the changeset viewer.