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