!
! $Id: handle_errors.F,v 1.1 2003/10/21 06:21:52 dimitri Exp $
!
!_ ---------------------------------------------------------------------
!_ RCS lines preceded by "c_ "
!_ ---------------------------------------------------------------------
!_
!_ $Source: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/ocean_inversion_project/write_netCDF/handle_errors.F,v $
!_ $Revision: 1.1 $
!_ $Date: 2003/10/21 06:21:52 $   ;  $State: Exp $
!_ $Author: dimitri $ ;  $Locker:  $
!_
!_ ---------------------------------------------------------------------
!_ $Log: handle_errors.F,v $
!_ Revision 1.1  2003/10/21 06:21:52  dimitri
!_ added netcdf output files
!_
!_ 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