netcdf_err

INTERFACE:

   subroutine netcdf_err (ier, routine_name)

DESCRIPTION:

   If error detected in netCDF call, issue error message and abort.

ARGUMENTS:

     implicit none
 #include <netcdf.inc>
     integer, intent(in) :: ier                   ! return code from netCDF call
     character(len=*), intent(in) :: routine_name ! calling routine name

REVISION HISTORY:

   Created by Mariana Vertenstein