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

Last change on this file since 4775 was 4775, checked in by aclsce, 4 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: 533 bytes
Line 
1!*********************************************************************************
2SUBROUTINE hdlerr(istatus, line)
3  !*********************************************************************************
4  use netcdf
5  implicit none
6  !
7  ! Check for error message from NetCDF call
8  !
9  integer, intent(in) :: istatus, line
10  integer             :: ierror
11  !
12  IF (istatus .NE. NF90_NOERR) THEN
13      write ( * , * ) 'NetCDF problem at line',line
14      write ( * , * ) 'Stopped '
15      STOP
16  ENDIF
17  !
18  RETURN
19END SUBROUTINE hdlerr
Note: See TracBrowser for help on using the repository browser.