c_ ---------------------------------------------------------------------
c_ RCS lines preceded by "c_ "
c_ ---------------------------------------------------------------------
c_
c_ $Source: /www/html/ipsl/OCMIP/phase2/simulations/CFC/distrib/RCS/handle_errors.f,v $
c_ $Revision: 1.1 $
c_ $Date: 1998/07/21 16:55:54 $   ;  $State: Exp $
c_ $Author: jomce $ ;  $Locker:  $
c_
c_ ---------------------------------------------------------------------
c_ $Log: handle_errors.f,v $
c_ Revision 1.1  1998/07/21 16:55:54  jomce
c_ Initial revision
c_
c_ ---------------------------------------------------------------------
c_
	SUBROUTINE HANDLE_ERRORS(STATUS)

	INCLUDE 'netcdf.inc'
	INTEGER STATUS

	IF (STATUS.NE.NF_NOERR) THEN
		PRINT *, NF_STRERROR(STATUS)
		STOP 'Stopped'
	ENDIF

	END