Changeset 4460


Ignore:
Timestamp:
Mar 9, 2023, 5:16:38 PM (22 months ago)
Author:
lguez
Message:

Abort even when ierr is 0

This is consistent with the name of the subroutine.

Location:
LMDZ6/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phy_common/abort_physic.F90

    r2326 r4460  
    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

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

    r3585 r4460  
    8989                abort_message='create_etat0_limit_unstruct, Initial state file are created, all is fine'
    9090                CALL abort_physic(modname,abort_message,0)
    91                 STOP 0
    9291              ENDIF
    9392!$OMP BARRIER
    … …  
    110109              abort_message='create_etat0_limit_unstruct, Initial state file are created, all is fine'
    111110              CALL abort_physic(modname,abort_message,0)
    112               STOP 0
    113111          ENDIF
    114112        ENDIF
Note: See TracChangeset for help on using the changeset viewer.