You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
21 lines
596 B
21 lines
596 B
!********************************************************************************* |
|
SUBROUTINE hdlerr(istatus, line) |
|
!********************************************************************************* |
|
use netcdf |
|
implicit none |
|
! |
|
INCLUDE 'mpif.h' |
|
! |
|
! Check for error message from NetCDF call |
|
! |
|
integer, intent(in) :: istatus, line |
|
integer :: ierror |
|
! |
|
IF (istatus .NE. NF90_NOERR) THEN |
|
write ( * , * ) 'NetCDF problem at line',line |
|
write ( * , * ) 'Stopped ' |
|
call MPI_Abort ( MPI_COMM_WORLD, 1, ierror ) |
|
ENDIF |
|
! |
|
RETURN |
|
END SUBROUTINE hdlerr
|
|
|