From 2848243990fc3a9f285dbc75d03713fb1cd709c3 Mon Sep 17 00:00:00 2001 From: George Gayno Date: Thu, 15 Apr 2021 17:50:12 +0000 Subject: [PATCH] feature/cycle_err: switch back to 'abort' routine. Fixes #368. --- sorc/global_cycle.fd/cycle.f90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/sorc/global_cycle.fd/cycle.f90 b/sorc/global_cycle.fd/cycle.f90 index 4e7ed6e0a..7302f2a36 100644 --- a/sorc/global_cycle.fd/cycle.f90 +++ b/sorc/global_cycle.fd/cycle.f90 @@ -1758,7 +1758,6 @@ end subroutine intp_tile !! @param[out] wei2 Weighting of second bounding month !! @author Xu Li @date March 2019 subroutine get_tim_wei(iy,im,id,ih,mon1,mon2,wei1,wei2) - use mpi implicit none ! input @@ -1770,7 +1769,7 @@ subroutine get_tim_wei(iy,im,id,ih,mon1,mon2,wei1,wei2) ! local declare real :: rjday integer :: mon,monend,monm,monp,jdow,jdoy,jday - integer :: jda(8), ierr + integer :: jda(8) ! !dayhf : julian day of the middle of each month ! @@ -1804,7 +1803,7 @@ subroutine get_tim_wei(iy,im,id,ih,mon1,mon2,wei1,wei2) enddo print *,'FATAL ERROR in get_tim_wei, wrong rjday',rjday - call mpi_abort(mpi_comm_world, 13, ierr) + call abort 10 continue wei1 = (dayhf(mon2)-rjday)/(dayhf(mon2)-dayhf(mon1))