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/dyn3dmem/abort_gcm.F

    r4593 r4600  
    4747      else
    4848        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
    49 #ifdef CPP_MPI
     49
     50        if (using_mpi) THEN
    5051C$OMP CRITICAL (MPI_ABORT_GCM)
    51         call MPI_ABORT(COMM_LMDZ, 1, ierror_mpi)
     52          call MPI_ABORT(COMM_LMDZ, 1, ierror_mpi)
    5253C$OMP END CRITICAL (MPI_ABORT_GCM)
    53 #else
    54         stop 1
    55 #endif         
     54        else
     55         stop 1
     56        endif         
     57     
    5658      endif
    5759      END
Note: See TracChangeset for help on using the changeset viewer.