source: CPL/oasis3-mct/branches/OASIS3-MCT_2.0_branch/examples/test_interpolation/routine_hdlerr.F90 @ 4775

Last change on this file since 4775 was 4775, checked in by aclsce, 5 years ago
  • Imported oasis3-mct from Cerfacs svn server (not suppotred anymore).

The version has been extracted from ​https://oasis3mct.cerfacs.fr/svn/branches/OASIS3-MCT_2.0_branch/oasis3-mct@1818
File size: 596 bytes
Line 
1!*********************************************************************************
2SUBROUTINE hdlerr(istatus, line)
3  !*********************************************************************************
4  use netcdf
5  implicit none
6  !
7  INCLUDE 'mpif.h'
8  !
9  ! Check for error message from NetCDF call
10  !
11  integer, intent(in) :: istatus, line
12  integer             :: ierror
13  !
14  IF (istatus .NE. NF90_NOERR) THEN
15      write ( * , * ) 'NetCDF problem at line',line
16      write ( * , * ) 'Stopped '
17      call MPI_Abort ( MPI_COMM_WORLD, 1, ierror )
18  ENDIF
19  !
20  RETURN
21END SUBROUTINE hdlerr
Note: See TracBrowser for help on using the repository browser.