utils.F90

subroutine handle_err (ret)
  use netcdf
  implicit none
  integer, intent(in) :: ret

  if (ret /= nf90_noerr) then
    write(6,*) '- FATAL ERROR.'
    write(6,*) nf90_strerror(ret)
    stop 999
  end if
end subroutine handle_err