Ignore:
Timestamp:
Jun 23, 2023, 4:10:41 PM (12 months ago)
Author:
Laurent Fairhead
Message:

Merged trunk revisions from r4443 to r4582 (HEAD) into branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Portage_acc/libf/phy_common/abort_physic.F90

    r2326 r4584  
    3838      if (ierr .eq. 0) then
    3939        write(lunout,*) 'Everything is cool'
     40#ifdef CPP_MPI
     41        !$OMP CRITICAL (MPI_ABORT_PHYSIC)
     42        call MPI_ABORT(COMM_LMDZ_PHY, 0, ierror_mpi)
     43        !$OMP END CRITICAL (MPI_ABORT_PHYSIC)
     44#else
     45        stop 0
     46#endif         
    4047      else
    4148        write(lunout,*) 'Houston, we have a problem, ierr = ', ierr
Note: See TracChangeset for help on using the changeset viewer.