Changeset 4604 for LMDZ6


Ignore:
Timestamp:
Jul 4, 2023, 12:27:43 PM (12 months ago)
Author:
yann meurdesoif
Message:

Fix in pure openmp parallel mode, missing "IF (using_mpi)" to protect an MPI call thats must not be down in pure openMP

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/mod_const_mpi.F90

    r4600 r4604  
    4040!$OMP BARRIER
    4141
    42     IF (type_ocean=='couple') THEN
     42    IF (using_mpi) THEN
     43      IF (type_ocean=='couple') THEN
    4344#ifdef CPP_COUPLE
    4445!$OMP MASTER
    4546#ifdef CPP_XIOS
    46       CALL wxios_init("LMDZ", outcom=COMM_LMDZ, type_ocean=type_ocean)
     47        CALL wxios_init("LMDZ", outcom=COMM_LMDZ, type_ocean=type_ocean)
    4748#else
    48        CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)
    49        CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
     49        CALL prism_init_comp_proto (comp_id, 'LMDZ', ierr)
     50        CALL prism_get_localcomm_proto(COMM_LMDZ,ierr)
    5051#endif
    5152!$OMP END MASTER
    5253#endif
    53       MPI_REAL_LMDZ=MPI_REAL8
    54     ELSE
    55       CALL init_mpi
     54        MPI_REAL_LMDZ=MPI_REAL8
     55      ELSE
     56        CALL init_mpi
     57      ENDIF
    5658    ENDIF
    57 
    5859  END SUBROUTINE Init_const_mpi
    5960 
Note: See TracChangeset for help on using the changeset viewer.