Changeset 3470 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Mar 25, 2019, 11:32:33 AM (6 years ago)
Author:
yann meurdesoif
Message:

Clean finalize for etat0_limit creation with dynamico. Avoid dead-lock with xios_server that are waiting for an mpi_finalize.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90

    r3465 r3470  
    6161  USE ioipsl, ONLY : getin
    6262  USE dimphy
    63   USE xios
     63  USE xios
     64  USE print_control_mod, ONLY: lunout
    6465  IMPLICIT NONE
    6566      INTEGER :: iflag_phys
    66  
     67      INTEGER :: ierr
    6768      IF (grid_type==unstructured) THEN
    6869 
     
    7980                CALL xios_context_finalize()
    8081                CALL xios_finalize()
     82#ifdef CPP_MPI   
     83                CALL MPI_Finalize(ierr)
     84#endif
     85                WRITE(lunout,*)   'create_etat0_limit_unstruct, Initial state file are created, all is fine'
     86                STOP 0
    8187              ENDIF
    8288!$OMP BARRIER
     
    9197                CALL xios_context_finalize()
    9298                CALL xios_finalize()
     99#ifdef CPP_MPI
     100                CALL MPI_Finalize(ierr)
     101#endif
    93102              ENDIF
    94103!$OMP BARRIER
    95               STOP 'create_etat0_limit_unstruct, Initial state file are created, all is fine'
     104              WRITE(lunout,*)   'create_etat0_limit_unstruct, Initial state file are created, all is fine'
     105              STOP 0
    96106          ENDIF
    97107        ENDIF
Note: See TracChangeset for help on using the changeset viewer.