ocean_inversion_project/write_netCDF/handle_errors.F

!
! $Id: handle_errors.F,v 1.1.1.1 2003/05/01 21:25:53 fletcher Exp $
!
!_ ---------------------------------------------------------------------
!_ RCS lines preceded by "c_ "
!_ ---------------------------------------------------------------------
!_
!_ $Source: /usr/data/cvsroot/fletcher/MOM_3/MOM_3/ocmip2/handle_errors.F,v $
!_ $Revision: 1.1.1.1 $
!_ $Date: 2003/05/01 21:25:53 $   ;  $State: Exp $
!_ $Author: fletcher $ ;  $Locker:  $
!_
!_ ---------------------------------------------------------------------
!_ $Log: handle_errors.F,v $
!_ Revision 1.1.1.1  2003/05/01 21:25:53  fletcher
!_ Original MOM_3 code with inversion
!_
!_ Revision 1.1.1.1  2001/01/23 23:01:05  frenzel
!_ MOM 3 Sources from Rick Slater
!_
!_ Revision 1.3  1999/12/10 20:27:33  rdslater
!_ Call subroutine about instead of just doing a FORTRAN stop so as
!_ to force a core dump on an error.
!_
!_ Revision 1.2  1999/11/18 17:12:03  rdslater
!_ Cosmetic changes: change cmoment character to "!", add $Id string at
!_ top, remove *4 specifier on type statements.
!_
!_ Revision 1.1.1.1  1999/05/19 15:40:41  rdslater
!_ Imported sources: OCN19 OCMIP2 CFC runs
!_
!_ Revision 1.1  1998/07/21 16:55:54  jomce
!_ Initial revision
!_
!_ ---------------------------------------------------------------------
!_
        SUBROUTINE HANDLE_ERRORS(STATUS)

#include "netcdf.inc"
        INTEGER STATUS

        IF (STATUS.NE.NF_NOERR) THEN
          write(*,*) '--HANDLE_ERRORS: an error occured !'
          write(*,*) '    the status is : ',status
          write(*,*) '    the error is  : ',NF_STRERROR(STATUS)
          write(*,*) '    --> program is stopping ! '
          stop 'Stopped in handle errors'
          !STOP 'Stopped'
        ENDIF

        END
1	!
2	! $Id: handle_errors.F,v 1.1.1.1 2003/05/01 21:25:53 fletcher Exp $
3	!
4	!_ ---------------------------------------------------------------------
5	!_ RCS lines preceded by "c_ "
6	!_ ---------------------------------------------------------------------
7	!_
8	!_ $Source: /usr/data/cvsroot/fletcher/MOM_3/MOM_3/ocmip2/handle_errors.F,v $
9	!_ $Revision: 1.1.1.1 $
10	!_ $Date: 2003/05/01 21:25:53 $ ; $State: Exp $
11	!_ $Author: fletcher $ ; $Locker: $
12	!_
13	!_ ---------------------------------------------------------------------
14	!_ $Log: handle_errors.F,v $
15	!_ Revision 1.1.1.1 2003/05/01 21:25:53 fletcher
16	!_ Original MOM_3 code with inversion
17	!_
18	!_ Revision 1.1.1.1 2001/01/23 23:01:05 frenzel
19	!_ MOM 3 Sources from Rick Slater
20	!_
21	!_ Revision 1.3 1999/12/10 20:27:33 rdslater
22	!_ Call subroutine about instead of just doing a FORTRAN stop so as
23	!_ to force a core dump on an error.
24	!_
25	!_ Revision 1.2 1999/11/18 17:12:03 rdslater
26	!_ Cosmetic changes: change cmoment character to "!", add $Id string at
27	!_ top, remove *4 specifier on type statements.
28	!_
29	!_ Revision 1.1.1.1 1999/05/19 15:40:41 rdslater
30	!_ Imported sources: OCN19 OCMIP2 CFC runs
31	!_
32	!_ Revision 1.1 1998/07/21 16:55:54 jomce
33	!_ Initial revision
34	!_
35	!_ ---------------------------------------------------------------------
36	!_
37	SUBROUTINE HANDLE_ERRORS(STATUS)
38
39	#include "netcdf.inc"
40	INTEGER STATUS
41
42	IF (STATUS.NE.NF_NOERR) THEN
43	write(,) '--HANDLE_ERRORS: an error occured !'
44	write(,) ' the status is : ',status
45	write(,) ' the error is : ',NF_STRERROR(STATUS)
46	write(,) ' --> program is stopping ! '
47	stop 'Stopped in handle errors'
48	!STOP 'Stopped'
49	ENDIF
50
51	END