Ignore:
Timestamp:
Jun 30, 2023, 8:18:43 PM (11 months ago)
Author:
yann meurdesoif
Message:

Suppress CPP_MPI key usage in source code. MPI wrappers is used to supress missing symbol if the mpi library is not linked

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/create_etat0_limit_unstruct.F90

    r4460 r4600  
    8484                CALL xios_context_finalize()
    8585                CALL xios_finalize()
    86 #ifdef CPP_MPI   
    8786                CALL MPI_Finalize(ierr)
    88 #endif
    8987                abort_message='create_etat0_limit_unstruct, Initial state file are created, all is fine'
    9088                CALL abort_physic(modname,abort_message,0)
    … …  
    102100                CALL xios_context_finalize()
    103101                CALL xios_finalize()
    104 #ifdef CPP_MPI
    105102                CALL MPI_Finalize(ierr)
    106 #endif
    107103              ENDIF
    108104!$OMP BARRIER
Note: See TracChangeset for help on using the changeset viewer.