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	dimitri	1.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